重慶分公司,新征程啟航
為企業提供網站建設、域名注冊、服務器等服務
為企業提供網站建設、域名注冊、服務器等服務
圖片數據其實就是一組二進制數據。你要存到csv中應該是字符串格式。很少見這樣的存儲方式。你可以把數據存儲在數據庫中的呀。存取圖片就很好搞了
云州ssl適用于網站、小程序/APP、API接口等需要進行數據傳輸應用場景,ssl證書未來市場廣闊!成為成都創新互聯公司的ssl證書銷售渠道,可以享受市場價格4-6折優惠!如果有意向歡迎電話聯系或者加微信:13518219792(備注:SSL證書合作)期待與您的合作!
Imports?Microsoft.VisualBasic.FileSystem?'在聲明區加這句,這包含vb6的一些文件讀寫功能
Private?Sub?Button4_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button4.Click
Dim?p?As?Integer?=?FreeFile()
Static?index?As?Integer?=?0
FileOpen(p,?"D:\list.csv",?OpenMode.Append)
index?+=?1
WriteLine(p,?"姓名"??index,?"年齡"??index,?"職業"??index,?"住址"??index)
FileClose(p)
End?Sub
'?FileIO.TextFieldParser?類可以讀取csv文件,或者數據庫有關類也可以讀取
用一個streamreader和streamwriter即可
Using?sr2?As?New?StreamWriter("2.csv",?False,?Text.Encoding.Default)?'要寫入的文件
Using?sr1?As?New?StreamReader("1.csv",?Text.Encoding.Default)?'要讀取的文件
While?Not?sr1.EndOfStream?'EndOfStream=True表示讀取結束了
'讀取
Dim?lineread?As?String?=?""?'等下要讀的行
Dim?linewrite?As?String?=?""?'等下要寫入的行
Dim?data?As?String()?'每個數據的數組
lineread?=?sr1.ReadLine?'讀一行并把流的位置往后調一行
'你現在可以用If判斷這一行要不要刪除。如果要的話,用Else直接跳過下面的語句即可。
data?=?lineread.Split(",".ToCharArray,?StringSplitOptions.RemoveEmptyEntries)?'讀取一行,用逗號分隔后存在數組里
'下面對讀取到的數據進行處理,你可以自己處理它
For?Each?item?As?String?In?data
linewrite?=?item??","?'csv是以逗號分隔的,我們寫進去時也要記得加逗號
Next
'寫入
If?linewrite.EndsWith(",")?Then?'去掉行最后一個逗號。
'如果之前讀到一個空行,這里就不會執行。你想想為什么
sr2.WriteLine(linewrite.Remove(linewrite.Length?-?1,?1))
End?If
'如果你之前用If判斷了行要不要刪除,那么End?If就應該加在這里。
End?While
sr1.Close()
End?Using
sr2.Flush()
sr2.Close()
End?Using
你是怎么讀寫的呢?下面是簡單的讀寫
Dim str As String = (My.Computer.FileSystem.ReadAllText("C:\QD51-R24_A.csv")) '讀
My.Computer.FileSystem.WriteAllText("C:\1.csv", str, True) '寫
CSV只不過是用CRLF分行,
逗號
分列的一個
簡單文本
先做好行
模板
,如
Private
RowTemp
as
string
="{0},{1},{2},....{n}"
寫入文件時候分行寫入
System.IO.StreamWriter.
WriteLine
(String.format(RowTemp,"數據1”,“數據2"...."數據n"))