红色突出高亮显示上一单元格文本

原内容 ＝ 编辑框源文本.内容
行集 ＝ 分割文本 (原内容, #换行符, )
调试输出 (取数组成员数 (行集))
.计次循环首 (取数组成员数 (行集), i)
.如果 (i ％ 2 ＝ 0)
列集 ＝ 分割文本 (行集 [i], 字符 (#Tab键), )
一行 ＝ “”
.计次循环首 (取数组成员数 (列集), j)
列集 [j] ＝ 子文本替换 (列集 [j], 上一格 [j], #常量红色头 ＋ 上一格 [j] ＋ #常量红色尾, , , 真)
一行 ＝ 一行 ＋ “ ” ＋ 列集 [j] ＋ “”
.计次循环尾 ()
结果 ＝ 结果 ＋ “ ” ＋ 一行 ＋ “ ” ＋ #换行符

.否则
上一格 ＝ 分割文本 (行集 [i], 字符 (#Tab键), )
行集 [i] ＝ 子文本替换 (行集 [i], 字符 (#Tab键), “ ”, , , 真)
结果 ＝ 结果 ＋ “ ” ＋ 行集 [i] ＋ “ ” ＋ #换行符
.如果结束

.计次循环尾 ()
结果 ＝ #常量表头 ＋ 结果 ＋ #常量表尾
置剪辑板文本 (结果)
信息框 (“完成 ”, 0, , )