批量取出内容指定文本

.如果真 (是否为空 (右特征符))
右特征符 ＝ #换行符
原文 ＝ 原文 ＋ #换行符
.如果真结束
tmp ＝ 分割文本 (原文, 左特征符, )
K ＝ 1
.如果真 (寻找文本 (原文, 左特征符, , 假) ＞ 1)
K ＝ 2
.如果真结束
S ＝ 取数组成员数 (tmp)
.如果真 (S ＝ 0)
文本型数组变量 ＝ tmp2
返回 (取数组成员数 (文本型数组变量))
.如果真结束
.变量循环首 (K, S, 1, I)
P ＝ 寻找文本 (tmp [I], 右特征符, , 假)
tmp [I] ＝ 取文本左边 (tmp [I], P － 1)
加入成员 (tmp2, tmp [I])
.变量循环尾 ()
文本型数组变量 ＝ tmp2
返回 (取数组成员数 (文本型数组变量))