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

飘雪编程

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 /> 返回 (取数组成员数 (搜索结果))

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

专注研究

飘雪编程 发表于 2016-9-9 01:05
精易不是有模块取文本行数了么

不能老走别人的路线吃饭，自己要创新

飘雪编程

精易不是有模块取文本行数了么

专注研究

易人一本 发表于 2016-9-9 00:22
60万行。不用半秒。
用分割文本（）要四五秒

有点大材小用了

易人一本

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

60万行。不用半秒。
用分割文本（）要四五秒

专注研究

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

Knight1990

牛逼！大神~

易人一本

1. .版本 2
   
2. .支持库 commobj
   
3. 
   
4. .子程序 取文本行数
   
5. .参数 文本, 文本型
   
6. .局部变量 快速文本, 快速文本对象
   
7. .局部变量 数组, 文本型, , "0"
   
8. 
   
9. 快速文本.置文本 (文本)
   
10. 数组 ＝ 快速文本.分割文本 (#换行符, )
    
11. 返回 (取数组成员数 (数组))
    

复制代码

这个代码更快