锐客网

  1. 首页 > 生活百科 > it技术 > >

vb.net逗号分隔 vb中的逗号和分号

IT技术逗号

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用文本框输入数组的所有元素，数值之间用逗号分隔，统计数组中正数的个数 ， 并显示最大值的元素下标Dim str As String = "", temp, n As Integer
Dim str1 As String = "12,45,2,9,41,31,66,83,2,1,-9,-91,-21"
Dim a() As String = Split(str1, ",")
For i = 1 To UBound(a) Step 1
a(i) = Val(a(i))
Next
temp = 0
n = 0
For i = 1 To UBound(a)
If a(i)temp Then
temp = a(i)
End If
If a(i)0 Then
n = n1
End If
Next
str = str"正数的个数为 "n
str = str"最大元素的下标为 "
For i = 1 To UBound(a)
If a(i) = temp Then
str = stri" "
End If
Next
TextBox6.Text = str
VB.net中任何提取文本文件中的逗号分格数据?用数组呗 。vb.net逗号分隔我是用VB6的，不过vb.net逗号分隔你会.NET也肯定能看懂 。
不是文本文件么vb.net逗号分隔？先用Line Input读每行存入数组 。再把每行数据用你的"，"分割，就可以查询了 。vb.net逗号分隔我写个简单的例子vb.net逗号分隔：
'搜索函数，用法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 = Lines1
'行数
Line Input #fNum, Str
ReDim Preserve Data(Lines)
Data(Lines) = Str
Loop
Close #fNum
If Lines0 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中的逗号和分号】vb.net逗号分隔的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb中的逗号和分号、vb.net逗号分隔的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：独立mysql安装，mysql三种安装方式

    下一篇：linux看图命令，linux命令行怎么查看图片