vb.net儲(chǔ)存數(shù)組文件,vb中讀取文件并放入數(shù)組
VB.net怎樣保存文件
保存文件的步驟為：
網(wǎng)站建設(shè)哪家好，找創(chuàng)新互聯(lián)公司！專注于網(wǎng)頁設(shè)計(jì)、網(wǎng)站建設(shè)、微信開發(fā)、小程序制作、集團(tuán)企業(yè)網(wǎng)站建設(shè)等服務(wù)項(xiàng)目。為回饋新老客戶創(chuàng)新互聯(lián)還提供了孫吳免費(fèi)建站歡迎大家使用！
關(guān)閉流，特別是寫入流
關(guān)閉并保存文件
示例代碼如下：
Imports?System.Windows.Forms
Imports?System.IO
Imports?System.Text
Sub?SaveFileDemo()
'打開文件。如果文件不存在則創(chuàng)建新的文件
Dim?myFile?As?New?IO.FileStream("d:\data.txt",?_
FileMode.OpenOrCreate,?_
FileAccess.Write)
'在文件末尾添加一行?
Dim?tw?As?New?StreamWriter(myFile)
myFile.Seek(0,?SeekOrigin.End)
tw.WriteLine("白刃格斗英雄連英模部隊(duì)方隊(duì)亮相閱兵")
'關(guān)閉流
tw.Close()
'關(guān)閉文件并保存文件
myFile.Close()
End?Sub
VB.NET讀取TXT文件數(shù)據(jù)保存為數(shù)組
VB.NET編程讀取txt文本文檔中的數(shù)據(jù)，并把數(shù)據(jù)保存為數(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中，如何遍歷指定路徑下的文件夾并把文件夾名存儲(chǔ)在數(shù)組中？
給你一個(gè)提示吧！呵呵，剩下的要自己思考哦！
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
如果子目錄較多那么遞歸會(huì)比較費(fèi)時(shí)間，在調(diào)用遞歸前加入application.doevent就行了，這樣在應(yīng)對大遞歸時(shí)不會(huì)死機(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) '這個(gè)就是每一行的數(shù)據(jù)了
c() = Split(s(j), ",")
cj(j) = Val(c(1)) '這個(gè)就是每一行的成績數(shù)據(jù)了
Next
'然后進(jìn)行排序和顯示處理
當(dāng)前名稱：vb.net儲(chǔ)存數(shù)組文件,vb中讀取文件并放入數(shù)組
鏈接分享：http://jinyejixie.com/article26/dsecgcg.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供云服務(wù)器、網(wǎng)頁設(shè)計(jì)公司、商城網(wǎng)站、服務(wù)器托管、靜態(tài)網(wǎng)站、定制開發(fā)
聲明：本網(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)
