VB 如何读取字符串中的指定字符

VB6.0使用Mid 函数来读取字符串中指定数量的字符。

Mid 函数：返回 Variant (String)，其中包含字符串中指定数量的字符。

语法：

Mid 函数示例：

本示例使用 Mid 语句来得到某个字符串中的几个字符。

Dim MyString, FirstWord, LastWord, MidWords
MyString = "Mid Function Demo"   建立一个字符串。
FirstWord = Mid(MyString, 1, 3)   ' 返回 "Mid"。
LastWord = Mid(MyString, 14, 4)   ' 返回 "Demo"。
MidWords = Mid(MyString, 5)   ' 返回 "Funcion Demo"。

用Mid(str1,a,b)函数
str1为目标字符串
a为起始位置
b为要取的字符串的位数
例如
dim s as string,sss as string
sss="abcdefg123"
s=mid(sss,3,4)
意思是
从字符串"abcdefg123"中的第3个字符开始往后提取4个字符，则
s="cdef"

从字符串"413025198203120612"中提取"19820312"如下所示
ss="413025198203120612"
s=mid(ss,7,8)

Text1.Text = Mid("413025198203120612", 7, 8)
从第7位开始取数，从第7位开始往右一共取8位

Private Sub Command1_Click()
s = "12-323-22"
s = s + "-"
j = 1
For i = 1 To Len(s)
  If Mid(s, i, 1) = "-" Then
    s1 = Mid(s, j, i - j)
    j = i + 1
   Print s1
  End If
Next i

End Sub

mid("413025198203120612",7,8)