VB.NET讀取TXT文件數(shù)據(jù)保存為數(shù)組

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

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

'寫配件文件

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()'讀取當(dāng)前行

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中，如何遍歷指定路徑下的文件夾并把文件夾名存儲在數(shù)組中？

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

Path：是初始目錄的路徑

Private Sub WriteArray(ByVal Path As String)

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

Dim dir As New IO.DirectoryInfo(Path)

For Each d As IO.DirectoryInfo In dir.GetDirectories

WriteArray(d.FullName) '遞歸

Next

End Sub

如果子目錄較多那么遞歸會比較費(fèi)時間，在調(diào)用遞歸前加入application.doevent就行了，這樣在應(yīng)對大遞歸時不會死機(jī)。

至于數(shù)組嘛使用 arraylist 最好了。

回答補(bǔ)充：

把遞歸去掉就行了??！

讀取csv文件保存到數(shù)組 vb.net代碼

csv文件可以當(dāng)做文本文件來處理！

主要處理代碼如下：

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

t = "" '這里是你讀取的CSV文件內(nèi)容

b() = Split(t, vbCrLf)

For j = 0 To 9

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

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

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

Next

'然后進(jìn)行排序和顯示處理

本文題目：vb.net數(shù)組保存 vbnet數(shù)組操作
文章鏈接：http://aaarwkj.com/article26/doodojg.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供電子商務(wù)、服務(wù)器托管、面包屑導(dǎo)航、外貿(mào)網(wǎng)站建設(shè)、全網(wǎng)營銷推廣、網(wǎng)站排名

廣告

聲明：本網(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)