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
注意:在輸入文本框里,同一行數據的數據之間用逗號(西文逗號)分隔。
你是怎么讀寫的呢?下面是簡單的讀寫
Dim str As String = (My.Computer.FileSystem.ReadAllText("C:\QD51-R24_A.csv")) '讀
My.Computer.FileSystem.WriteAllText("C:\1.csv", str, True) '寫
用數組唄。我是用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。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯