|
发表于 2019-11-20 19:29:45
|
显示全部楼层
山东省泰安市
.版本 2 .子程序 子程序1, , 公开 .局部变量 文本1, 文本型 .局部变量 文本2, 文本型 .局部变量 分割1, 文本型, , "1" .局部变量 分割2, 文本型, , "1" .局部变量 记录数1, 整数型 .局部变量 记录数2, 整数型 .局部变量 n, 整数型 .局部变量 X, 文本型, , "1" .局部变量 计数, 整数型 .局部变量 计数1, 整数型 .局部变量 新文本, 文本型 分割1 = 分割文本 (文本1, #换行符, ) 分割2 = 分割文本 (文本2, #换行符, ) 记录数1 = 取数组成员数 (分割1) 记录数2 = 取数组成员数 (分割2) 计数 = 1 .计次循环首 (记录数1, n) X = 分割文本 (分割1 [n], “----”, ) .如果真 (取数组成员数 (X) ≤ 3 且 取数组成员数 (X) > 1) .如果真 (计数 ≤ 记录数2 且 记录数2 > 0) 分割1 [n] = 分割1 [n] + “----” + 分割2 [计数] 计数1 = 计数1 + 1 .如果真 (计数1 = 500) 计数 = 计数 + 1 .如果真结束 .如果真结束 .如果真结束 新文本 = 新文本 + 分割1 [n] + #换行符 .计次循环尾 () 返回 () |
|