99偷拍视频精品区一区二,口述久久久久久久久久久久,国产精品夫妇激情啪发布,成人永久免费网站在线观看,国产精品高清免费在线,青青草在线观看视频观看,久久久久久国产一区,天天婷婷久久18禁,日韩动漫av在线播放直播

vb.net逗號文件 vb中逗號的作用

vb.net 怎么生成csv文件與怎么讀取csv文件

CSV文件,在EXCEL里可以直接生成與讀取。

創新互聯專注于鄆城網站建設服務及定制,我們擁有豐富的企業做網站經驗。 熱誠為您提供鄆城營銷型網站建設,鄆城網站制作、鄆城網頁設計、鄆城網站官網定制、微信小程序開發服務,打造鄆城網絡公司原創品牌,更為您提供鄆城網站排名全網營銷落地服務。

可以通過VB.net去操作,打開EXCEL文件,去完成上述操作,而更為簡單的辦法是直接當做操作文本文件(TXT文件)就可以,因為用記事本軟件,打開CSV文可以發現,其實際上是一個行內數據之間用逗號分隔的格式文件。

下面給出例子:

在窗體上添加兩個多行文本框,兩個按鈕,兩個文本框一個用來輸入生成CSV文件的數據,另一個用來讀取顯示CSV文件的數據;兩個按鈕,一個完成生成CSV文件的代碼,另一個完成讀取CSV文件的代碼;具體代碼如下:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'創建(寫入)一個文本文件

Dim MyStream As New System.IO.FileStream(Application.StartupPath "\Ssk.CSV", System.IO.FileMode.Create)

Dim MyWriter As New System.IO.StreamWriter(MyStream, System.Text.Encoding.Default)

MyWriter.WriteLine(TextBox1.Text)

MyWriter.Flush()

MyWriter.Close()

MyStream.Close()

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

'讀取一個文本文件

Dim MyReader As New System.IO.StreamReader(Application.StartupPath "\Ssk.CSV", System.Text.Encoding.UTF8)

TextBox2.Text = MyReader.ReadToEnd()

MyReader.Close()

End Sub

注意:在輸入文本框里,同一行數據的數據之間用逗號(西文逗號)分隔。

關于VB.NET的CSV文件的讀取

你是怎么讀寫的呢?下面是簡單的讀寫

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

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

VB.net中任何提取文本文件中的逗號分格數據?

用數組唄。我是用VB6的,不過你會.NET也肯定能看懂。

不是文本文件么?先用Line Input讀每行存入數組。再把每行數據用你的","分割,就可以查詢了。我寫個簡單的例子:

'搜索函數,用法Search(標頭,序號),返回數據.

Private Function Search(ByVal Section As String, ByVal Index As Integer) As String

Dim fNum%, Lines%, temp%, Str As String

ReDim Data(0)

fNum = FreeFile()

If Dir("C:\1.txt") = "" Then Exit Function '文件路徑和文件名你自己改

Open "C:\1.txt" For Input As #fNum

Do While Not EOF(fNum)

Lines = Lines + 1 '行數

Line Input #fNum, Str

ReDim Preserve Data(Lines)

Data(Lines) = Str

Loop

Close #fNum

If Lines 0 Then

Dim tmp() As String

For temp = 1 To UBound(Data)

tmp = Split(Data(temp), ",") '分割

If tmp(0) = Section Then

Search = tmp(Index - 1) '因為從0開始所以-1

Exit Function

End If

Next

End If

End Function

比如你要“gc“開頭的第5個數據,就用Search("gc",5)即可返回45。

網頁名稱:vb.net逗號文件 vb中逗號的作用
文章鏈接:http://www.yijiale78.com/article48/dooecep.html

成都網站建設公司_創新互聯,為您提供網站制作網站導航移動網站建設云服務器網站營銷

廣告

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

商城網站建設