教你如何2句代码取文本行数

呵呵仙

post老司机 发表于 2016-9-9 16:11
分割文本没效率么，快速文本没效率么，也就那么几句，能有点逻辑思维么。
在说一行 ...

换快速文本对象中的分割文本,会快一点.
但是,可能子本替换()换行符可能比他更快.你可以对比下.100W行文本.哪个快?

专注研究

倪少 发表于 2016-9-9 16:04
代码并不是越短越好，效率低一行也辣鸡，效率高百行也是宝

  分割文本没效率么，快速文本没效率么，也就那么几句，能有点逻辑思维么。
在说一行也得看你什么代码，不是什么都效率低的，水军

倪少

代码并不是越短越好，效率低一行也辣鸡，效率高百行也是宝

专注研究

飘雪编程 发表于 2016-9-9 05:43
你这还创新啊- -  精易的接置入代码，最简单 效率- -  你分割文本反而复杂了

如何复杂讲解一下

chendipang

易人一本 发表于 2016-9-9 00:16
这个代码更快

666666666666666

苏烟式

代码并不是越短越好，效率低一行也辣鸡，效率高百行也是宝

wg521125

666666666666666

飘雪编程

post老司机 发表于 2016-9-9 01:25
不能老走别人的路线吃饭，自己要创新

你这还创新啊- -  精易的接置入代码，最简单 效率- -  你分割文本反而复杂了

福仔

  

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

调试输出 (子程序1 ())
调试输出 (子程序2 ())
调试输出 (子程序3 ())
调试输出 (子程序4 ())

子程序名	返回值类型	公开	备 注
子程序1	整数型

变量名	类 型	静态	数组	备 注
文本	文本型
局部_位置	整数型
行数	整数型

文本 ＝ 到文本 (读入文件 (“c:\1.txt”))
循环判断首 ()
局部_位置 ＝ 寻找文本 (文本, #换行符, 局部_位置 ＋ 1, 假)
如果真 (取文本中间 (文本, 局部_位置 ＋ 2, 2) ≠ #换行符 且 取文本中间 (文本, 局部_位置 ＋ 2, 2) ≠ “”)  ' 换行占2字节
行数 ＝ 行数 ＋ 1

循环判断尾 (局部_位置 ≠ -1)
返回 (行数)

子程序名	返回值类型	公开	备 注
子程序2	整数型

变量名	类 型	静态	数组	备 注
文本	快速文本对象
分割	文本型		0
i	整数型
行数	整数型

文本.从文件读 (“c:\1.txt”)
分割 ＝ 文本.分割文本 ( #换行符, )
计次循环首 (取数组成员数 (分割), i)
如果真 (分割 [i] ≠ “”)
行数 ＝ 行数 ＋ 1

计次循环尾 ()
返回 (行数)

子程序名	返回值类型	公开	备 注
子程序3	整数型

变量名	类 型	静态	数组	备 注
文件号	整数型
行数	整数型

文件号 ＝ 打开文件 (“c:\1.txt”, , )
移到文件首 (文件号)
判断循环首 (是否在文件尾 (文件号, ) ＝ 假)
如果真 (读入一行 (文件号) ≠ “”)
行数 ＝ 行数 ＋ 1

判断循环尾 ()
关闭文件 (文件号)
返回 (行数)

子程序名	返回值类型	公开	备 注
子程序4	整数型

变量名	类 型	静态	数组	备 注
正则	正则表达式
文本	文本型
搜索结果	搜索结果		0

文本 ＝ 到文本 (读入文件 (“c:\1.txt”))
正则.创建 (“\S+”, 假)
搜索结果 ＝ 正则.搜索全部 (文本)
返回 (取数组成员数 (搜索结果))

i支持库列表	支持库注释
spec	特殊功能支持库
commobj	通用对象支持库
RegEx	正则表达式支持库

.版本 2<br /> .支持库 spec<br /> .支持库 commobj<br /> .支持库 RegEx<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 调试输出 (子程序1 ())<br /> 调试输出 (子程序2 ())<br /> 调试输出 (子程序3 ())<br /> 调试输出 (子程序4 ())<br /> <br /> .子程序 子程序1, 整数型<br /> .局部变量 文本, 文本型<br /> .局部变量 局部_位置, 整数型<br /> .局部变量 行数, 整数型<br /> <br /> 文本 ＝ 到文本 (读入文件 (“c:\1.txt”))<br /> .循环判断首 ()<br />     局部_位置 ＝ 寻找文本 (文本, #换行符, 局部_位置 ＋ 1, 假)<br />     .如果真 (取文本中间 (文本, 局部_位置 ＋ 2, 2) ≠ #换行符 且 取文本中间 (文本, 局部_位置 ＋ 2, 2) ≠ “”)  ' 换行占2字节<br />         行数 ＝ 行数 ＋ 1<br />     .如果真结束<br /> <br /> .循环判断尾 (局部_位置 ≠ -1)<br /> 返回 (行数)<br /> <br /> .子程序 子程序2, 整数型<br /> .局部变量 文本, 快速文本对象<br /> .局部变量 分割, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 行数, 整数型<br /> <br /> 文本.从文件读 (“c:\1.txt”)<br /> 分割 ＝ 文本.分割文本 (#换行符, )<br /> .计次循环首 (取数组成员数 (分割), i)<br />     .如果真 (分割 <i> ≠ “”)<br />         行数 ＝ 行数 ＋ 1<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (行数)<br /> <br /> .子程序 子程序3, 整数型<br /> .局部变量 文件号, 整数型<br /> .局部变量 行数, 整数型<br /> <br /> 文件号 ＝ 打开文件 (“c:\1.txt”, , )<br /> 移到文件首 (文件号)<br /> .判断循环首 (是否在文件尾 (文件号, ) ＝ 假)<br />     .如果真 (读入一行 (文件号) ≠ “”)<br />         行数 ＝ 行数 ＋ 1<br />     .如果真结束<br /> <br /> .判断循环尾 ()<br /> 关闭文件 (文件号)<br /> 返回 (行数)<br /> <br /> .子程序 子程序4, 整数型<br /> .局部变量 正则, 正则表达式<br /> .局部变量 文本, 文本型<br /> .局部变量 搜索结果, 搜索结果, , "0"<br /> <br /> 文本 ＝ 到文本 (读入文件 (“c:\1.txt”))<br /> 正则.创建 (“\S+”, 假)<br /> 搜索结果 ＝ 正则.搜索全部 (文本)<br /> 返回 (取数组成员数 (搜索结果))

如果只取有效行数呢,如果只有换行 没有数据的话不算一行......好像方法还真不少

福仔

  

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

调试输出 (子程序1 ())
调试输出 (子程序2 ())
调试输出 (子程序3 ())
调试输出 (子程序4 ())

子程序名	返回值类型	公开	备 注
子程序1	整数型

变量名	类 型	静态	数组	备 注
文本	文本型
局部_位置	整数型
行数	整数型

文本 ＝ 到文本 (读入文件 (“c:\1.txt”))
循环判断首 ()
局部_位置 ＝ 寻找文本 (文本, #换行符, 局部_位置 ＋ 1, 假)
如果真 (取文本中间 (文本, 局部_位置 ＋ 2, 2) ≠ #换行符 且 取文本中间 (文本, 局部_位置 ＋ 2, 2) ≠ “”)  ' 换行占2字节
行数 ＝ 行数 ＋ 1

循环判断尾 (局部_位置 ≠ -1)
返回 (行数)

子程序名	返回值类型	公开	备 注
子程序2	整数型

变量名	类 型	静态	数组	备 注
文本	快速文本对象
分割	文本型		0
i	整数型
行数	整数型

文本.从文件读 (“c:\1.txt”)
分割 ＝ 文本.分割文本 ( #换行符, )
计次循环首 (取数组成员数 (分割), i)
如果真 (分割 [i] ≠ “”)
行数 ＝ 行数 ＋ 1

计次循环尾 ()
返回 (行数)

子程序名	返回值类型	公开	备 注
子程序3	整数型

变量名	类 型	静态	数组	备 注
文件号	整数型
行数	整数型

文件号 ＝ 打开文件 (“c:\1.txt”, , )
移到文件首 (文件号)
判断循环首 (是否在文件尾 (文件号, ) ＝ 假)
如果真 (读入一行 (文件号) ≠ “”)
行数 ＝ 行数 ＋ 1

判断循环尾 ()
关闭文件 (文件号)
返回 (行数)

子程序名	返回值类型	公开	备 注
子程序4	整数型

变量名	类 型	静态	数组	备 注
正则	正则表达式
文本	文本型
搜索结果	搜索结果		0

文本 ＝ 到文本 (读入文件 (“c:\1.txt”))
正则.创建 (“\S+”, 假)
搜索结果 ＝ 正则.搜索全部 (文本)
返回 (取数组成员数 (搜索结果))

i支持库列表	支持库注释
spec	特殊功能支持库
commobj	通用对象支持库
RegEx	正则表达式支持库

.版本 2<br /> .支持库 spec<br /> .支持库 commobj<br /> .支持库 RegEx<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 调试输出 (子程序1 ())<br /> 调试输出 (子程序2 ())<br /> 调试输出 (子程序3 ())<br /> 调试输出 (子程序4 ())<br /> <br /> .子程序 子程序1, 整数型<br /> .局部变量 文本, 文本型<br /> .局部变量 局部_位置, 整数型<br /> .局部变量 行数, 整数型<br /> <br /> 文本 ＝ 到文本 (读入文件 (“c:\1.txt”))<br /> .循环判断首 ()<br />     局部_位置 ＝ 寻找文本 (文本, #换行符, 局部_位置 ＋ 1, 假)<br />     .如果真 (取文本中间 (文本, 局部_位置 ＋ 2, 2) ≠ #换行符 且 取文本中间 (文本, 局部_位置 ＋ 2, 2) ≠ “”)  ' 换行占2字节<br />         行数 ＝ 行数 ＋ 1<br />     .如果真结束<br /> <br /> .循环判断尾 (局部_位置 ≠ -1)<br /> 返回 (行数)<br /> <br /> .子程序 子程序2, 整数型<br /> .局部变量 文本, 快速文本对象<br /> .局部变量 分割, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 行数, 整数型<br /> <br /> 文本.从文件读 (“c:\1.txt”)<br /> 分割 ＝ 文本.分割文本 (#换行符, )<br /> .计次循环首 (取数组成员数 (分割), i)<br />     .如果真 (分割 <i> ≠ “”)<br />         行数 ＝ 行数 ＋ 1<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (行数)<br /> <br /> .子程序 子程序3, 整数型<br /> .局部变量 文件号, 整数型<br /> .局部变量 行数, 整数型<br /> <br /> 文件号 ＝ 打开文件 (“c:\1.txt”, , )<br /> 移到文件首 (文件号)<br /> .判断循环首 (是否在文件尾 (文件号, ) ＝ 假)<br />     .如果真 (读入一行 (文件号) ≠ “”)<br />         行数 ＝ 行数 ＋ 1<br />     .如果真结束<br /> <br /> .判断循环尾 ()<br /> 关闭文件 (文件号)<br /> 返回 (行数)<br /> <br /> .子程序 子程序4, 整数型<br /> .局部变量 正则, 正则表达式<br /> .局部变量 文本, 文本型<br /> .局部变量 搜索结果, 搜索结果, , "0"<br /> <br /> 文本 ＝ 到文本 (读入文件 (“c:\1.txt”))<br /> 正则.创建 (“\S+”, 假)<br /> 搜索结果 ＝ 正则.搜索全部 (文本)<br /> 返回 (取数组成员数 (搜索结果))

如果只取有效行数呢,如果只有换行 没有数据的话不算一行......好像方法还真不少