正文
vb.net逗号分割数字 vb中逗号分号冒号的用法和区别
提示：扫一扫查出行【扫一扫了解最新限行尾号】
复制提示
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 "正数vb.net逗号分割数字的个数为 " n
str = str "最大元素vb.net逗号分割数字的下标为 "
For i = 1 To UBound(a)
If a(i) = temp Then
str = str i " "
End If
Next
TextBox6.Text = str
相关问答
Q1: VB怎么取用用逗号分隔的数据
不能用空格作分隔符，这样一定会出错。
可以用逗号分开的，Split不能作为拆分以空格作为分隔符的字符串。
sj = MSComm1.Input
A() = Split(sj, ",")
现在A(0)是+3.28742752E+01，A(1)是+0.000，A(2)是+00000，A(3)是101，A(4)是+3.32506905E+01，A(4)是+0.044，A(5)是+00001，A(6)是102（如果加上后面的1，A(6)是102 1）
举一个空格分开的例子：
Dim a() As String
a = Split("a b c", " ")
For i = 1 To UBound(a)
Print a(i)
Next i
上面的代码是负责把“a b c”用空格分开的字符串赋值给a数组，然后输出a的所有元素值的，看起来没有任何错误。但是肯定出现下标越界的错误，因为不能用空格作为分隔符，一定要记住！
Q2: 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中逗号分号冒号的用法和区别的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。
