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 中對txt文件的讀取、寫入的方法！始終保持txt里面只有一行！

Public Class Form1

Private Sub 寫入文件_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 寫入文件.Click

FileOpen(1, "D:\一行文件.txt", OpenMode.Output) ' Open file for output.

WriteLine(1, "想只保留文件為一行 那你就寫一行好了") ' Print blank line to file.

FileClose(1) ' Close file.

End Sub

Private Sub 讀取文件_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 讀取文件.Click

Dim TextLine As String

FileOpen(1, "D:\一行文件.txt", OpenMode.Input) ' Open file for output.

TextLine = LineInput(1) '讀取一行就了

MsgBox(TextLine)

FileClose(1)

End Sub

End Class

最簡單的方法 還有很多方法 自己研究吧親 希望能幫到你

vb.net都可以讀取哪些格式的文件？

基本都能讀取，文本類型的完全沒問題，高級文本比如DOC等文檔需要一些控件、算法支持。理論上來說全都支持，但是如何訪問就要看技術。參數等信息一般保存在配置文件、XML文件、注冊表中 追問： 配置文件是什么格式的文件 回答： 是以INI為后綴名，但是是TXT 文件格式 ，文 本格 式，可以用記事本打開。于普通文本格式不同的是，INI里面的信息都是有一定規律的存放。便于再次讀寫

當前文章：vb.net讀寫文本 vbs文件讀寫
瀏覽路徑：http://newbst.com/article14/docpdde.html

成都網站建設公司_創新互聯，為您提供網站營銷、全網營銷推廣、網站制作、搜索引擎優化、網站改版、企業網站制作

廣告

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