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