關(guān)于VB.NET的CSV文件的讀取

你是怎么讀寫(xiě)的呢？下面是簡(jiǎn)單的讀寫(xiě)

目前創(chuàng)新互聯(lián)公司已為成百上千家的企業(yè)提供了網(wǎng)站建設(shè)、域名、網(wǎng)絡(luò)空間、網(wǎng)站托管、企業(yè)網(wǎng)站設(shè)計(jì)、達(dá)孜網(wǎng)站維護(hù)等服務(wù)，公司將堅(jiān)持客戶(hù)導(dǎo)向、應(yīng)用為本的策略，正道將秉承"和諧、參與、激情"的文化，與客戶(hù)和合作伙伴齊心協(xié)力一起成長(zhǎng)，共同發(fā)展。

Dim str As String = (My.Computer.FileSystem.ReadAllText("C:\QD51-R24_A.csv")) '讀

My.Computer.FileSystem.WriteAllText("C:\1.csv", str, True) '寫(xiě)

vb.net怎樣讀取CSV最后一行，急求！！

代碼如下：

Dim Str As String

If OpenFileDialog1.ShowDialog() = DialogResult.OK Then

Str = OpenFileDialog1.FileName

End If

Dim oExcel As New Excel.Application

Dim oWorkBook As Excel.Workbook

Dim oWorkSheet As Excel.Worksheet

oWorkBook = oExcel.Workbooks.Open(Str)

oWorkSheet = oWorkBook.Worksheets(1)

For i = 1 To 50 這里我暫時(shí)讀取了50行，因?yàn)槲也恢廊绾闻袛嘧x到最后一行

MsgBox(oWorkSheet.Cells(i, 1).value oWorkSheet.Cells(i, 2).value oWorkSheet.Cells(i, 3).value)

Next

oWorkBook.Close()

oWorkBook = Nothing

oExcel.Quit()

oExcel = Nothing

你csv文件是用什么分割符的？

把csv文件當(dāng)做文本文件處理

File.ReadAllLines 讀取所有行，

然后循環(huán)每行，按照分隔符split后就是每一列

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

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

主要處理代碼如下：

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è)就是每一行的成績(jī)數(shù)據(jù)了

Next

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

vb.net 操作CSV問(wèn)題 求大神 急

用一個(gè)streamreader和streamwriter即可

Using?sr2?As?New?StreamWriter("2.csv",?False,?Text.Encoding.Default)?'要寫(xiě)入的文件

Using?sr1?As?New?StreamReader("1.csv",?Text.Encoding.Default)?'要讀取的文件

While?Not?sr1.EndOfStream?'EndOfStream=True表示讀取結(jié)束了

'讀取

Dim?lineread?As?String?=?""?'等下要讀的行

Dim?linewrite?As?String?=?""?'等下要寫(xiě)入的行

Dim?data?As?String()?'每個(gè)數(shù)據(jù)的數(shù)組

lineread?=?sr1.ReadLine?'讀一行并把流的位置往后調(diào)一行

'你現(xiàn)在可以用If判斷這一行要不要?jiǎng)h除。如果要的話(huà)，用Else直接跳過(guò)下面的語(yǔ)句即可。

data?=?lineread.Split(",".ToCharArray,?StringSplitOptions.RemoveEmptyEntries)?'讀取一行，用逗號(hào)分隔后存在數(shù)組里

'下面對(duì)讀取到的數(shù)據(jù)進(jìn)行處理，你可以自己處理它

For?Each?item?As?String?In?data

linewrite?=?item??","?'csv是以逗號(hào)分隔的，我們寫(xiě)進(jìn)去時(shí)也要記得加逗號(hào)

Next

'寫(xiě)入

If?linewrite.EndsWith(",")?Then?'去掉行最后一個(gè)逗號(hào)。

'如果之前讀到一個(gè)空行，這里就不會(huì)執(zhí)行。你想想為什么

sr2.WriteLine(linewrite.Remove(linewrite.Length?-?1,?1))

End?If

'如果你之前用If判斷了行要不要?jiǎng)h除，那么End?If就應(yīng)該加在這里。

End?While

sr1.Close()

End?Using

sr2.Flush()

sr2.Close()

End?Using

請(qǐng)教vb.net 讀csv 文件，搜索表示指定行

CSV文件特征是每行一條記錄，字段用逗號(hào)分開(kāi)。你只需要逐行處理，將每行文本用逗號(hào)切分得到數(shù)組array，然后判斷array[0]是否等于"bbb"，如果相等則array[1]就是”4561234567890“；如果不等則繼續(xù)處理下一行。

沒(méi)怎么用過(guò)VB，下面給出C#代碼：

string FindString(string filename, string title){ FileStream stream = null; try { stream = File.OpenRead(filename); StreamReader reader = new StreamReader(stream, Encoding.Default);

string result = null;//存儲(chǔ)查找的結(jié)果 while (!reader.EndOfStream) { //讀取一行 string strLine = reader.ReadLine(); string[] array = strLine.Split(','); if (array == null || array.Length 1)//該行無(wú)效 continue; if (string.Compare(array[0], title, false) == 0) {//找到了 return array[1]; } } } catch (Exception ex) { //出錯(cuò)了 return null; } finally { if (stream != null) stream.Close(); }

//到這里說(shuō)明沒(méi)找到 return null;}void Test(){ string result = FindString(@"C:\demo.csv", "bbb");}

vb如何實(shí)時(shí)讀取csv文件？

給你一段VB.net讀取csv文件的代碼把。

Imports?System.IO

Imports?System.Collections.Generic

Module?Module1

Public?CSV數(shù)據(jù)?As?List(Of?List(Of?String))

'''?summary

'''?從指定路徑的文件讀取內(nèi)容，并分析出其中每行含有分隔符的數(shù)據(jù)，存到CSV數(shù)據(jù)中。

'''?para調(diào)用的時(shí)候使用CSV數(shù)據(jù)(5)(0)表示第6條記錄的第1個(gè)數(shù)據(jù)/para

'''?/summary

'''?param?name="文件路徑"必需。一個(gè)[String]表達(dá)式。要讀取的文件路徑。/param

'''?returns返回是否讀取成功/returns

'''?remarks/remarks

Public?Function?讀取(ByVal?文件路徑?As?String)?As?Boolean

Dim?文件讀取器?As?StreamReader?=?New?StreamReader(文件路徑)

Dim?語(yǔ)句?As?String

Dim?t成功?As?Boolean?=?True

Dim?分隔符?As?Char?=?";"

CSV數(shù)據(jù)?=?New?List(Of?List(Of?String))

While?Not?文件讀取器.EndOfStream

Try

語(yǔ)句?=?文件讀取器.ReadLine

'分析語(yǔ)句后判斷類(lèi)型

If?語(yǔ)句.Contains(分隔符)?Then

Dim?array?=?語(yǔ)句.Split(分隔符)

If?array?IsNot?Nothing?Then

CSV數(shù)據(jù).Add(array.ToList())

End?If

End?If

Catch?ex?As?Exception

t成功?=?False

End?Try

End?While

Return?t成功

End?Function

End?Module

你上面的數(shù)據(jù)執(zhí)行后，將會(huì)保存到一個(gè)List嵌套List的String組中。

自己轉(zhuǎn)化為數(shù)字再進(jìn)行操作把。

Dim?數(shù)字?=?Convert.ToDecimal(CSV數(shù)據(jù)(5)(0))

網(wǎng)站標(biāo)題：vb.net讀寫(xiě)csv,VB net
網(wǎng)頁(yè)路徑：http://chinadenli.net/article10/hecpdo.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供做網(wǎng)站、面包屑導(dǎo)航、外貿(mào)建站、企業(yè)網(wǎng)站制作、Google、域名注冊(cè)

廣告

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