怎樣在VB.NET中設(shè)置多行文本框中顯示的行數(shù)

1、添加TextBox控件

我們提供的服務(wù)有：做網(wǎng)站、成都網(wǎng)站設(shè)計、微信公眾號開發(fā)、網(wǎng)站優(yōu)化、網(wǎng)站認(rèn)證、阿合奇ssl等。為上千余家企事業(yè)單位解決了網(wǎng)站和推廣的問題。提供周到的售前咨詢和貼心的售后服務(wù)，是有科學(xué)管理、有技術(shù)的阿合奇網(wǎng)站制作公司

2、設(shè)置TextBox屬性

3、編寫代碼

4、運(yùn)行效果

vb怎么獲得txt文件中的行數(shù)？怎么實(shí)現(xiàn)？

如果文本很大，那用for、do就太慢太慢了，我給大家一個快速查詢的方法：

Dim Oc,Fs,S,X

Set Fs = Oc.OpenTextFile("C:\Test.Txt", 1)'用FSO打開TXT文件

S = Fs.ReadAll'獲取全文

Fs.Close'關(guān)閉文件

X = (Len(S) - Len(Replace(S, vbCrLf, ""))) / Len(vbCrLf) + 1 '統(tǒng)計總行數(shù):用字符串替換法得到一共多少個回車，然后再加一就得到總行數(shù)了

vb讀取txt文件行數(shù)問題

Line Input就是每次讀取一行，n = n + 1就是每次讀取一行時就把n遞增1，所以程序運(yùn)行完畢后n就是行數(shù)了。

還有更簡單的方法：

Open "c:\1.txtt" For Binary As #1

MsgBox "文件有 " UBound(Split(Input(LOF(1), #1), vbCrLf)) + 1 " 條記錄。", vbInformation

Close #1

三行即可

分享標(biāo)題：vb.nettxt行數(shù)的簡單介紹
轉(zhuǎn)載來于：http://aaarwkj.com/article26/dsiihjg.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供靜態(tài)網(wǎng)站、建站公司、關(guān)鍵詞優(yōu)化、用戶體驗(yàn)、微信公眾號、搜索引擎優(yōu)化

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)