vb點(diǎn)虐 逐行讀取數(shù)據(jù) vbnet readline 語句

vb 逐行讀取文本文件

用Open打開文件，然后用Line行讀取即可。

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

代碼如下：

Dim?tempStr?as?String?'定義變量tempStr為字符串

Open?"C:\Test.txt"?For?Input?As?#1?'打開文件

While?Not?EOF(1)??'讀取到結(jié)束

Line?Input?#1,?tempStr?'讀取一行到變量tempStr

'對(duì)應(yīng)的處理

Wend?'未結(jié)束繼續(xù)

Close?#1?'關(guān)閉

vb點(diǎn)虐 按行讀取字符串

給你一個(gè)VB2010讀寫文件的例子吧

Dim?name?As?String?=?""

Dim?age?As?Integer

name?=?InputBox("請(qǐng)輸入姓名")

age?=?InputBox("請(qǐng)輸入年齡")

FileOpen(1,?"d:\信息.txt",?OpenMode.Append)

WriteLine(1,?name,?age)

FileClose(1)

FileOpen(1,?"d:\信息.txt",?OpenMode.Input)

Dim?h?As?String

Dim?j?As?String

Dim?f?As?String

f?=?""

h?=?""

j?=?""

While?EOF(1)?=?False

f?=?LineInput(1)??vbCrLf??f

End?While

FileClose(1)

MsgBox("姓名"??"??"??"年齡"??vbCrLf??f)

vb點(diǎn)虐 怎么從文本文檔中讀取一行數(shù)據(jù)，將文本輸出到控制臺(tái)？

以下示例一次從文件中讀取一行，然后將每行文本打印到控制臺(tái)。

Sub ReadTextLinesFromFile()

Dim file As New System.IO.StreamReader("c:test.txt")

Dim oneLine As String

oneLine = file.ReadLine()

While (oneLine "")

Console.WriteLine(oneLine)

oneLine = file.ReadLine()

End While

file.Close()

End Sub

新聞標(biāo)題：vb點(diǎn)虐 逐行讀取數(shù)據(jù) vbnet readline 語句
文章轉(zhuǎn)載：http://bm7419.com/article6/ddejgog.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站設(shè)計(jì)、小程序開發(fā)、網(wǎng)站策劃、軟件開發(fā)、網(wǎng)站改版、Google

廣告

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