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

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

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

主要處理代碼如下：

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

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

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

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

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) ‘劉琦

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

當前名稱：vb點虐 保存數(shù)組 vb存入數(shù)組
標題網(wǎng)址：http://chinadenli.net/article10/ddeepgo.html

成都網(wǎng)站建設公司_創(chuàng)新互聯(lián)，為您提供、動態(tài)網(wǎng)站、商城網(wǎng)站、移動網(wǎng)站建設、微信小程序、網(wǎng)站維護

廣告

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