vb.net取txt行數(shù)的簡單介紹

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

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

成都創(chuàng)新互聯(lián)-專業(yè)網(wǎng)站定制、快速模板網(wǎng)站建設(shè)、高性價(jià)比吐魯番網(wǎng)站開發(fā)、企業(yè)建站全套包干低至880元,成熟完善的模板庫,直接使用。一站式吐魯番網(wǎng)站制作公司更省心,省錢,快速模板網(wǎng)站建設(shè)找我們，業(yè)務(wù)覆蓋吐魯番地區(qū)。費(fèi)用合理售后完善，10多年實(shí)體公司更值得信賴。

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)計(jì)總行數(shù):用字符串替換法得到一共多少個(gè)回車，然后再加一就得到總行數(shù)了

vb.net 如何隨機(jī)讀取txt中的其中一行？

vb.net例子：

Imports System

Imports System.IO

Module Program

Sub Main()

Dim r As New Random(Datetime.Now.Millisecond)

Dim lines As String()=File.ReadAllLines("t.txt")

Console.WriteLine(lines(r.Next(0,lines.Length)))

Console.Write("Press any key to continue . . . ")

Console.ReadKey(True)

End Sub

End Module

VB.net窗體設(shè)計(jì)中，如何讀取.txt文件中的數(shù)據(jù)？

1、新建一個(gè)標(biāo)準(zhǔn)的VB EXE工程，只有一個(gè)Form，F(xiàn)orm上有兩個(gè)按鈕：Command1和Command2。

2、雙擊Command1添加如下代碼

Private Sub Command1_Click()

Dim strFile? ? ?As String

Dim intFile? ? ?As Integer

Dim strData? ? ?As String

strFile = "c:\學(xué)生成績.txt"

intFile = FreeFile

Open strFile For Input As intFile

strData = StrConv(InputB(FileLen(strFile), intFile), vbUnicode)

Debug.Print strData

Close intFile

End Sub

3、按F8開始單步調(diào)試代碼，點(diǎn)擊Command1，進(jìn)入單步調(diào)試功能，

4、多次按下F8或直接按下F5運(yùn)行完成，就完成了讀取文本文件內(nèi)容并輸出到立即窗口。

當(dāng)前標(biāo)題：vb.net取txt行數(shù)的簡單介紹
文章URL：http://bm7419.com/article0/ddcosio.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供企業(yè)建站、面包屑導(dǎo)航、關(guān)鍵詞優(yōu)化、云服務(wù)器、Google、動(dòng)態(tài)網(wǎng)站

廣告

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