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

三行即可

文章题目：vb.nettxt行数的简单介绍
本文网址：http://6mz.cn/article/dsiihjg.html