扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
1、添加TextBox控件
我们提供的服务有：做网站、成都网站设计、微信公众号开发、网站优化、网站认证、阿合奇ssl等。为上千余家企事业单位解决了网站和推广的问题。提供周到的售前咨询和贴心的售后服务，是有科学管理、有技术的阿合奇网站制作公司
2、设置TextBox属性
3、编写代码
4、运行效果
如果文本很大，那用for、do就太慢太慢了，我给大家一个快速查询的方法：
Dim Oc,Fs,S,X
Set Fs = Oc.OpenTextFile("C:\Test.Txt", 1)'用FSO打开TXT文件
S = Fs.ReadAll'获取全文
Fs.Close'关闭文件
X = (Len(S) - Len(Replace(S, vbCrLf, ""))) / Len(vbCrLf) + 1 '统计总行数:用字符串替换法得到一共多少个回车，然后再加一就得到总行数了
Line Input就是每次读取一行，n = n + 1就是每次读取一行时就把n递增1，所以程序运行完毕后n就是行数了。
还有更简单的方法：
Open "c:\1.txtt" For Binary As #1
MsgBox "文件有 " UBound(Split(Input(LOF(1), #1), vbCrLf)) + 1 " 条记录。", vbInformation
Close #1
三行即可
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
微信二维码
移动版官网