十分感谢大侠的指导！！！

<火山程序 类型 = "通常" 版本 = 1 />

变量 行号 <类型 = 整数 值 = 1>
变量 文本 <类型 = 文本型>
变量 找到位置 <类型 = 整数 值 = 0>
文本 = 编辑框1.内容
循环判断首 ()
{
    子文本替换 (文本, "@@", 到文本 (行号), 找到位置, 1, 真)
    行号 = 行号 + 1
    找到位置 = 寻找文本 (文本, "@@")
}
循环判断尾 (找到位置 != -1)
编辑框1.内容 = 文本

分割子文本   子文本替换