多符号分割功能源码能看懂的拿去吧

 .子程序 多符号分割, 整数型
.参数 处理文本A, 文本型
.参数 分割逐字, 文本型, , “,.?;:，。？；：” ＋ “'” ＋ #换行符 ＋ 字符 (#空格键) ＋ #引号 ＋ #左引号 ＋ #右引号
.参数 处理文本B, 文本型, 数组
.局部变量 分割逐字, 文本型, , "0"
 .局部变量 计次, 整数型

 文本_逐字分割 (分割逐字, 分割逐字)
处理文本A ＝ 文本_删除空行 (处理文本A)
 .计次循环首 (取数组成员数 (分割逐字), 计次)
     处理文本A ＝ 文本_替换 (处理文本A, , , , 分割逐字 [计次], “{}”) ＋ #换行符
.计次循环尾 ()
文本_分割文本 (处理文本A, “{}”, , 处理文本B)
返回 (取数组成员数 (处理文本B))