讀取csv文件保存到數組 vb點虐 代碼

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

創新互聯公司堅信：善待客戶，將會成為終身客戶。我們能堅持多年，是因為我們一直可值得信賴。我們從不忽悠初訪客戶，我們用心做好本職工作，不忘初心，方得始終。十余年網站建設經驗創新互聯公司是成都老牌網站營銷服務商,為您提供成都網站設計、做網站、網站設計、html5、網站制作、品牌網站制作、微信平臺小程序開發服務,給眾多知名企業提供過好品質的建站服務。

主要處理代碼如下：

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讀取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點虐 怎么把數據庫數據一條記錄存入數組啊 最好給出代碼

Dim da As New DataTable

Dim myda As OleDb.OleDbDataAdapter("SELECT * FROM 表“, oconnection)

myda.Fill(da)

姓名=da.Rows(0)(0) ‘張三

姓名=da.Rows(1)(0) ‘李四

姓名=da.Rows(2)(0) ‘王五

姓名=da.Rows(3)(0) ‘趙六

姓名=da.Rows(4)(0) ‘劉琦

這個不一定要用數組，直接用table就可以操作了。

當前名稱：vb點虐 保存數組 vb存入數組
標題網址：http://vcdvsql.cn/article10/ddeepgo.html

成都網站建設公司_創新互聯，為您提供、動態網站、商城網站、移動網站建設、微信小程序、網站維護

廣告

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