vb.nettxt行数的简单介绍

怎样在VB.NET中设置多行文本框中显示的行数

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

三行即可

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源：创新互联

猜你还喜欢下面的内容