感谢分享，下载研究了

感谢分享，下载研究了

来学习学习

这个还不错

  

子程序名	返回值类型	公开	备 注
文本_取分隔符	文本型
参数名	类 型	参考	可空	数组	备 注
原文本	文本型

变量名	类 型	静态	数组	备 注
单字分割	文本型		0
i	整数型
分隔符	文本型

文本_逐字分割 (原文本, 单字分割)
计次循环首 (取数组成员数 (单字分割), i)
如果 (文本_是否为字母 (单字分割 [i]) ＝ 假 且 文本_是否为汉字 (单字分割 [i]) ＝ 假 且 文本_是否为数字 (单字分割 [i]) ＝ 假)
如果真 (寻找文本 (分隔符, 单字分割 [i], , 假) ＝ -1 且 取文本长度 (分隔符) ＞ 0)
跳出循环 ()
分隔符 ＝ 分隔符 ＋ 单字分割 [i]

如果真 (分隔符 ≠ “”)
跳出循环 ()


计次循环尾 ()
返回 (分隔符)

.版本 2<br /> <br /> .子程序 文本_取分隔符, 文本型<br /> .参数 原文本, 文本型<br /> .局部变量 单字分割, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 分隔符, 文本型<br /> <br /> 文本_逐字分割 (原文本, 单字分割)<br /> .计次循环首 (取数组成员数 (单字分割), i)<br /> <br />     .如果 (文本_是否为字母 (单字分割 <i>) ＝ 假 且 文本_是否为汉字 (单字分割 <i>) ＝ 假 且 文本_是否为数字 (单字分割 <i>) ＝ 假)<br /> <br />         .如果真 (寻找文本 (分隔符, 单字分割 <i>, , 假) ＝ -1 且 取文本长度 (分隔符) ＞ 0)<br />             跳出循环 ()<br />         .如果真结束<br />         分隔符 ＝ 分隔符 ＋ 单字分割 <i><br /> <br />     .否则<br />         .如果真 (分隔符 ≠ “”)<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> 返回 (分隔符)

楼主那个,如果多个分隔符的话,就会全部连接在一起了,就不对了.   加了2句,改进下.  只取第一个出现的分隔符.

当然利用这个思路,也可以分别取出多个不同的分隔符.  具体就自由发挥了.

看着好像还能取多个分隔符啊，感谢分享

沙发沙发。。。