| 变量名 | 类 型 | 静态 | 数组 | 备 注 |
| 文本 | 文本型 | | 0 |
| n | 整数型 | | |
| 取出 | 文本型 | | |
文本 ＝
分割文本 ( #常量1, #换行符, )
计次循环首 (取数组成员数 (文本
), n
)
如果真 (寻找文本 (文本
[n
],
“/”, ,
假) ＞ 0
)取出 ＝ 取出 ＋ 文本
[n
] ＋
#换行符 
计次循环尾 ()调试输出 (取出
)
| 变量名 | 类 型 | 静态 | 数组 | 备 注 |
| 临时文本文本 | 文本型 | | 0 |
| NN | 整数型 | | |
临时文本文本 ＝
分割文本 (编辑框1.内容,
#换行符, )
计次循环首 (取数组成员数 (临时文本文本
), NN
)
如果真 (寻找文本 (临时文本文本
[NN
],
“/”, ,
假) ＞ 0
) 编辑框2.
加入文本 (临时文本文本
[NN
] ＋
#换行符 )
.
计次循环尾 ()
|
| 文本_取出中间文本 | 文本型 | |
|
| 欲取全文本 | 文本型 | | | |
前面文本 | 文本型 | | | | 后面文本 | 文本型 | | | | 起始搜寻位置 | 整数型 | | | | 是否不区分大小写 | 逻辑型 | | | |
| 变量名 | 类 型 | 静态 | 数组 | 备 注 |
| 局_前面文本位置 | 整数型 | | |
| 局_后面文本位置 | 整数型 | | |
| 局_前面文本 | 文本型 | | |
| 局_后面文本 | 文本型 | | |
局_前面文本 ＝
子文本替换 (前面文本,
“#引号”,
#引号, , ,
真)局_后面文本 ＝
子文本替换 (后面文本,
“#引号”,
#引号, , ,
真)局_前面文本位置 ＝
寻找文本 (欲取全文本, 局_前面文本, 起始搜寻位置, 是否不区分大小写
)
如果真 (局_前面文本位置 ≠ -1
)
局_前面文本位置 ＝ 局_前面文本位置 ＋
取文本长度 (局_前面文本
)局_后面文本位置 ＝ 寻找文本 (欲取全文本, 局_后面文本, 局_前面文本位置, 是否不区分大小写)如果真 (局_前面文本位置 ＝ -1
或 局_后面文本位置 ＝ -1
)返回 (“”)返回 (取文本中间 (欲取全文本, 局_前面文本位置, 局_后面文本位置 － 局_前面文本位置))|
| 子程序1 | 整数型 | |
|
| 参_欲处理文本 | 文本型 | | | |
参_结果数组 | 文本型 | | | |
| 变量名 | 类 型 | 静态 | 数组 | 备 注 |
| 局_待处理文本数组 | 文本型 | | 0 |
| 局_计次 | 整数型 | | |
清除数组 (参_结果数组
)局_待处理文本数组 ＝
分割文本 (参_欲处理文本,
#换行符, )
计次循环首 (取数组成员数 (局_待处理文本数组
), 局_计次
)如果真 (寻找文本 (局_待处理文本数组
[局_计次
],
“-”, ,
假) ＝ -1
)加入成员 (参_结果数组,
文本_取出中间文本 (局_待处理文本数组
[局_计次
],
#左引号, #右引号 ))
计次循环尾 ()返回 (取数组成员数 (参_结果数组
))
分割文本.e
(3.56 KB, 下载次数: 3)
