锐客网

  1. 首页 > 睿知 > it技术 > >

vb.netcsv转换 vb6转换为vs2019( 二 )

IT技术代码


'创建(写入)一个文本文件
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问题 求大神 急用一个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 = https://www.04ip.com/post/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
vb怎样把一个文件夹中所有txt文件转换成CSV格式这里没有引用EXCEL对象vb.netcsv转换 ， 应该是先引用EXCEL对象vb.netcsv转换 ， 然后用EXCEL打开txt文件（这里可设EXCEL对象为可见或不可见vb.netcsv转换，是一个中间过程，可见也没有多大意义，转换时间短可能也不去关心，转换后vb.netcsv转换你也不保存EXCEL文件），另存为CSV格式后退出 。
【vb.netcsv转换 vb6转换为vs2019】关于vb.netcsv转换和vb6转换为vs2019的介绍到此就结束了 ， 不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息 ， 记得收藏关注本站 。

推荐阅读


上一篇：兼职猫小程序怎么，兼职猫如何打开链接

下一篇：钉钉里的直播课在哪，钉钉在哪里看直播课