VB.NET讀取TXT文件數據保存為數組

VB.NET編程讀取txt文本文檔中的數據，并把數據保存為數組，代碼如下：

成都創新互聯是創新、創意、研發型一體的綜合型網站建設公司，自成立以來公司不斷探索創新，始終堅持為客戶提供滿意周到的服務，在本地打下了良好的口碑，在過去的十多年時間我們累計服務了上千家以及全國政企客戶，如成都混凝土攪拌罐車等企業單位，完善的項目管理流程，嚴格把控項目進度與質量監控加上過硬的技術實力獲得客戶的一致贊美。

'寫配件文件

Private?Sub?saveIni(ByVal?filePath?As?String,?ByVal?str?As?String)

Dim?sw?As?StreamWriter?=?New?StreamWriter(filePath,?True)?'true是指以追加的方式打開指定文件

sw.WriteLine(str)

sw.Flush()

sw.Close()

sw?=?Nothing

End?Sub

'讀配件文件

Private?Function?readIni(ByVal?filePath?As?String)

Dim?iniDt?As?New?DataTable

iniDt.Columns.Add("text")

iniDt.Columns.Add("value")

Try

Dim?sr?As?StreamReader?=?New?StreamReader(filePath,?System.Text.Encoding.Default)

Dim?line?As?String?=?""

While?Not?sr.EndOfStream

Dim?str?=?sr.ReadLine()'讀取當前行

iniDt.Rows.Add(New?String()?{

str(0),

str(1)

})

End?While

sr.Close()

sr?=?Nothing

Catch?ex?As?Exception

End?Try

Return?iniDt

End?Function

在VB.net中，如何遍歷指定路徑下的文件夾并把文件夾名存儲在數組中？

給你一個提示吧！呵呵，剩下的要自己思考哦！

Path：是初始目錄的路徑

Private Sub WriteArray(ByVal Path As String)

'寫入數組代碼在這里，直接將Path寫到數組就行了。

Dim dir As New IO.DirectoryInfo(Path)

For Each d As IO.DirectoryInfo In dir.GetDirectories

WriteArray(d.FullName) '遞歸

Next

End Sub

如果子目錄較多那么遞歸會比較費時間，在調用遞歸前加入application.doevent就行了，這樣在應對大遞歸時不會死機。

至于數組嘛使用 arraylist 最好了。

回答補充：

把遞歸去掉就行了啊！

讀取csv文件保存到數組 vb.net代碼

csv文件可以當做文本文件來處理！

主要處理代碼如下：

Dim t As String, b() As stirng, s(10) As String, cj(10) As Single

t = "" '這里是你讀取的CSV文件內容

b() = Split(t, vbCrLf)

For j = 0 To 9

s(j) = b(j) '這個就是每一行的數據了

c() = Split(s(j), ",")

cj(j) = Val(c(1)) '這個就是每一行的成績數據了

Next

'然后進行排序和顯示處理

本文題目：vb.net數組保存 vbnet數組操作
文章鏈接：http://vcdvsql.cn/article26/doodojg.html

成都網站建設公司_創新互聯，為您提供電子商務、服務器托管、面包屑導航、外貿網站建設、全網營銷推廣、網站排名

廣告

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