看似简单实则非常复杂的递归分割文本算法，有兴趣的可以看看

q97012791

我先写一个看看

  

子程序名	返回值类型	公开	备 注
看似简单实则非常复杂的递归分割文本算法_有兴趣的可以看看

变量名	类 型	静态	数组	备 注
标题	文本型
分隔符	文本型
返回数组	文本型		0
匹配数量	整数型
计时	整数型

标题 ＝ “工具,支持库,素材|下载专区-VC、VB、C#、汇编/学习区”
分隔符 ＝ “,|-、/”
匹配数量 ＝ _ (标题, 分隔符, 返回数组, 真)
调试输出 (匹配数量, 返回数组)

子程序名	返回值类型	公开	备 注
_	整数型
参数名	类 型	参考	可空	数组	备 注
__	文本型
___	文本型				默认半角逗号
____	文本型
_____	逻辑型

变量名	类 型	静态	数组	备 注
______	正则表达式
_______	正则表达式
________	文本型
_________	文本型
__________	整数型
___________	文本型		0

清除数组 (____)
______.多行模式 ＝ 真
______.创建 (“[\*\.\?\+\-\$\^\[\]\(\)\{\}\|\\\/]”, 假)
________ ＝ ______.替换 (___, “\\$0”, 1, , 真, 真)
如果 (________ ≠ “”)
_______.创建 (“[” ＋ ________ ＋ “]”, 假)
_______.创建 (“[,]”, 假)
_________ ＝ _______.替换 (__, #换行符, 1, , 真, 真)
___________ ＝ 分割文本 (_________, #换行符, )
如果 (_____ ＝ 真)
计次循环首 (取数组下标 (___________, ), __________)
如果真 (___________ [__________] ≠ “”)
加入成员 (____, ___________ [__________])

计次循环尾 ()
____ ＝ ___________
返回 (取数组下标 (____, ))

i支持库列表	支持库注释
spec	特殊功能支持库
RegEx	正则表达式支持库

.版本 2<br /> .支持库 spec<br /> .支持库 RegEx<br /> <br /> <br /> <br /> .子程序 看似简单实则非常复杂的递归分割文本算法_有兴趣的可以看看<br /> .局部变量 标题, 文本型<br /> .局部变量 分隔符, 文本型<br /> .局部变量 返回数组, 文本型, , "0"<br /> .局部变量 匹配数量, 整数型<br /> .局部变量 计时, 整数型<br /> <br /> 标题 ＝ “工具,支持库,素材|下载专区-VC、VB、C#、汇编/学习区”<br /> 分隔符 ＝ “,|-、/”<br /> 匹配数量 ＝ _ (标题, 分隔符, 返回数组, 真)<br /> 调试输出 (匹配数量, 返回数组)<br /> <br /> .子程序 _, 整数型<br /> .参数 __, 文本型<br /> .参数 ___, 文本型, , 默认半角逗号<br /> .参数 ____, 文本型, 参考 可空 数组<br /> .参数 _____, 逻辑型, 可空<br /> .局部变量 ______, 正则表达式<br /> .局部变量 _______, 正则表达式<br /> .局部变量 ________, 文本型<br /> .局部变量 _________, 文本型<br /> .局部变量 __________, 整数型<br /> .局部变量 ___________, 文本型, , "0"<br /> <br /> 清除数组 (____)<br /> ______.多行模式 ＝ 真<br /> ______.创建 (“[\*\.\?\+\-\$\^\[\]\(\)\{\}\|\\\/]”, 假)<br /> ________ ＝ ______.替换 (___, “\\$0”, 1, , 真, 真)<br /> .如果 (________ ≠ “”)<br />     _______.创建 (“[” ＋ ________ ＋ “]”, 假)<br /> .否则<br />     _______.创建 (“[,]”, 假)<br /> .如果结束<br /> _________ ＝ _______.替换 (__, #换行符, 1, , 真, 真)<br /> ___________ ＝ 分割文本 (_________, #换行符, )<br /> .如果 (_____ ＝ 真)<br />     .计次循环首 (取数组下标 (___________, ), __________)<br />         .如果真 (___________ [__________] ≠ “”)<br />             加入成员 (____, ___________ [__________])<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .否则<br />     ____ ＝ ___________<br /> .如果结束<br /> 返回 (取数组下标 (____, ))

q97012791

我先写一个看看

  

子程序名	返回值类型	公开	备 注
看似简单实则非常复杂的递归分割文本算法_有兴趣的可以看看

变量名	类 型	静态	数组	备 注
标题	文本型
分隔符	文本型
返回数组	文本型		0
匹配数量	整数型
计时	整数型

标题 ＝ “工具,支持库,素材|下载专区-VC、VB、C#、汇编/学习区”
分隔符 ＝ “,|-、/”
匹配数量 ＝ _ (标题, 分隔符, 返回数组, 真)
调试输出 (匹配数量, 返回数组)

子程序名	返回值类型	公开	备 注
_	整数型
参数名	类 型	参考	可空	数组	备 注
__	文本型
___	文本型				默认半角逗号
____	文本型
_____	逻辑型

变量名	类 型	静态	数组	备 注
______	正则表达式
_______	正则表达式
________	文本型
_________	文本型
__________	整数型
___________	文本型		0

清除数组 (____)
______.多行模式 ＝ 真
______.创建 (“[\*\.\?\+\-\$\^\[\]\(\)\{\}\|\\\/]”, 假)
________ ＝ ______.替换 (___, “\\$0”, 1, , 真, 真)
如果 (________ ≠ “”)
_______.创建 (“[” ＋ ________ ＋ “]”, 假)
_______.创建 (“[,]”, 假)
_________ ＝ _______.替换 (__, #换行符, 1, , 真, 真)
___________ ＝ 分割文本 (_________, #换行符, )
如果 (_____ ＝ 真)
计次循环首 (取数组下标 (___________, ), __________)
如果真 (___________ [__________] ≠ “”)
加入成员 (____, ___________ [__________])

计次循环尾 ()
____ ＝ ___________
返回 (取数组下标 (____, ))

i支持库列表	支持库注释
spec	特殊功能支持库
RegEx	正则表达式支持库

.版本 2<br /> .支持库 spec<br /> .支持库 RegEx<br /> <br /> <br /> <br /> .子程序 看似简单实则非常复杂的递归分割文本算法_有兴趣的可以看看<br /> .局部变量 标题, 文本型<br /> .局部变量 分隔符, 文本型<br /> .局部变量 返回数组, 文本型, , "0"<br /> .局部变量 匹配数量, 整数型<br /> .局部变量 计时, 整数型<br /> <br /> 标题 ＝ “工具,支持库,素材|下载专区-VC、VB、C#、汇编/学习区”<br /> 分隔符 ＝ “,|-、/”<br /> 匹配数量 ＝ _ (标题, 分隔符, 返回数组, 真)<br /> 调试输出 (匹配数量, 返回数组)<br /> <br /> .子程序 _, 整数型<br /> .参数 __, 文本型<br /> .参数 ___, 文本型, , 默认半角逗号<br /> .参数 ____, 文本型, 参考 可空 数组<br /> .参数 _____, 逻辑型, 可空<br /> .局部变量 ______, 正则表达式<br /> .局部变量 _______, 正则表达式<br /> .局部变量 ________, 文本型<br /> .局部变量 _________, 文本型<br /> .局部变量 __________, 整数型<br /> .局部变量 ___________, 文本型, , "0"<br /> <br /> 清除数组 (____)<br /> ______.多行模式 ＝ 真<br /> ______.创建 (“[\*\.\?\+\-\$\^\[\]\(\)\{\}\|\\\/]”, 假)<br /> ________ ＝ ______.替换 (___, “\\$0”, 1, , 真, 真)<br /> .如果 (________ ≠ “”)<br />     _______.创建 (“[” ＋ ________ ＋ “]”, 假)<br /> .否则<br />     _______.创建 (“[,]”, 假)<br /> .如果结束<br /> _________ ＝ _______.替换 (__, #换行符, 1, , 真, 真)<br /> ___________ ＝ 分割文本 (_________, #换行符, )<br /> .如果 (_____ ＝ 真)<br />     .计次循环首 (取数组下标 (___________, ), __________)<br />         .如果真 (___________ [__________] ≠ “”)<br />             加入成员 (____, ___________ [__________])<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .否则<br />     ____ ＝ ___________<br /> .如果结束<br /> 返回 (取数组下标 (____, ))

狼啸天

.版本 2

.子程序 _按钮1_被单击
.局部变量 数组1, 文本型, , "0"
.局部变量 数组2, 文本型, , "0"
.局部变量 i, 整数型

数组1 ＝ 分割文本 (编辑框1.内容, “|”, )
数组2 ＝ 分割文本 (数组1 [1], “,”, )
.计次循环首 (取数组成员数 (数组2), i)
    编辑框2.加入文本 (数组2 [i] ＋ #换行符)
.计次循环尾 ()
数组1 ＝ 分割文本 (数组1 [2], “、”, )
数组2 ＝ 分割文本 (数组1 [1], “-”, )
删除成员 (数组1, 1, 1)
.计次循环首 (取数组成员数 (数组2), i)
    编辑框2.加入文本 (数组2 [i] ＋ #换行符)
.计次循环尾 ()
数组2 ＝ 分割文本 (数组1 [取数组成员数 (数组1)], “/”, )
删除成员 (数组1, 取数组成员数 (数组1), 1)
.计次循环首 (取数组成员数 (数组1), i)
    编辑框2.加入文本 (数组1 [i] ＋ #换行符)
.计次循环尾 ()
.计次循环首 (取数组成员数 (数组2), i)
    编辑框2.加入文本 (数组2 [i] ＋ #换行符)
.计次循环尾 ()
看看，这是我的

狼啸天

我也来学习一下

674525854

恩谢谢楼主分享

超级英雄

递归吃内存 再者文本分割的算法 可以不使用递归。
再者E语言所提供的"寻找文本(InStr)"性能比较低下
需要性能自己重写"InStr"函数。

大赦天下

非常感谢. 学习了

六升臣

这个挺不错的，支持一个

chqiyi

Modify 发表于 2014-12-24 17:14
递归吃内存 再者文本分割的算法 可以不使用递归。
再者E语言所提供的"寻找文本(InStr)"性能比较低下
需要 ...

赞同这个说法

yeayee

过来支持一下！！！