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
三行即可