vb点虐 逗号分割 vb语句分隔符
VB点虐 中任何提取文本文件中的逗号分格数据?
用数组呗。我是用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语句间分隔符什么情况下用冒号,分号,逗号?
逗号:用在print语句中,以标准格式用来分隔各输出项,即每个输出项的宽度占18个字符位置,这样每行分成四个区。
分号:也用在print语句中,以紧凑格式用来分隔各输出项,输出的字符之间留一个空格位,输出的数值之间除留一个空格位外还留一个符号位。
冒号:用在语句之间,将一个物理行分成多个逻辑行(即多个语句占一行,其间用冒号分隔)。
扩展资料:
VB中的冒号有两处应用:
1、行标识:就是在使用GOTO语句时指明转向的行。例如:
Private Sub Command1_Click()For I = 1 To 10。
HL:T(I) = Int(Rnd * 10) + 1、For J = 1 To I - 1、If T(I) = T(J) Then GoTo HL。
2、将多行语句写到同一行。例如:
A=5:b=3:c=a+b:Print c
分号用于打印语句中,表示连续打印,不换行,也不空格。例如:
Print “我”;Print “就是我”。
执行完后打印结果为:我就是我。
逗号也用于打印语句中,不过中间会有空格。
另外,逗号还用于定义变量的语句中。例如:Dim FileName As String, IntJs As Long。
vb点虐 用文本框输入数组的所有元素,数值之间用逗号分隔,统计数组中正数的个数,并显示最大值的元素下标
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文本处理:按逗号分割改成按行排列
把TExt2的MultiLine 设置为 True
Private Sub Command1_Click()
Dim s() As String
s = Split(Text1.Text, ",")
For Each x In s
Text2.Text = Text2.Text x vbCrLf
Next
End Sub
文章标题:vb点虐 逗号分割 vb语句分隔符
文章链接:http://myzitong.com/article/ddieieo.html