vb.net逗号分隔 vb中语句分隔符

vb.net 怎么生成csv文件与怎么读取csv文件

CSV文件,在EXCEL里可以直接生成与读取。

创新互联建站长期为上千多家客户提供的网站建设服务,团队从业经验10年,关注不同地域、不同群体,并针对不同对象提供差异化的产品和服务;打造开放共赢平台,与合作伙伴共同营造健康的互联网生态环境。为华池企业提供专业的成都网站设计、成都做网站、外贸网站建设华池网站改版等技术服务。拥有十多年丰富建站经验和众多成功案例,为您定制开发。

可以通过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中的call

没什么区别,只是增加可读性而已,以下是摘自MSDN的说明:

Visual Basic 语言参考

Call 语句 (Visual Basic)

将控制传送到 Function、Sub 或动态链接库 (DLL) 过程。

[ Call ] procedureName [ (argumentList) ]

各部分说明

procedureName

必选。要调用的过程名。

argumentList

可选。变量和表达式列表,表示当调用过程时传递给该过程的参数。多个参数以逗号分隔。如果包括 argumentList,则必须将它放在括号内。

备注

您通常使用 Call 语句调用不返回值的过程。如果该过程返回值,Call 语句将放弃该值。

在调用过程时不要求您必须使用 Call 语句,但使用该语句可以提高代码的可读性。

vb.net怎样判断字符串是否为数字+分隔符(如逗号,空格,tab等)+数字的格式

如果用常规编程的方法:

直接用split(str1,“,”)的形式把str1字符串分成字符串数组,然后用for循环判断每个数组元素是否是数字或者是字符串就可以了。

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 = n + 1

End If

Next

str = str  "正数的个数为 "  n

str = str  "最大元素的下标为 "

For i = 1 To UBound(a)

If a(i) = temp Then

str = str  i  " "

End If

Next

TextBox6.Text = str

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://myzitong.com/article/hjjspg.html