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

vb\u600e\u4e48\u63d0\u53d6\u6587\u672c\u6587\u4ef6\u6bcf\u884c\u5b57\u7b26\u4e32\u4e2d\u6307\u5b9a\u5b57\u7b26

VB6.0\u4f7f\u7528Mid \u51fd\u6570\u6765\u8bfb\u53d6\u5b57\u7b26\u4e32\u4e2d\u6307\u5b9a\u6570\u91cf\u7684\u5b57\u7b26\u3002
Mid \u51fd\u6570\uff1a\u8fd4\u56de Variant (String)\uff0c\u5176\u4e2d\u5305\u542b\u5b57\u7b26\u4e32\u4e2d\u6307\u5b9a\u6570\u91cf\u7684\u5b57\u7b26\u3002
\u8bed\u6cd5\uff1a

Mid \u51fd\u6570\u793a\u4f8b\uff1a
\u672c\u793a\u4f8b\u4f7f\u7528 Mid \u8bed\u53e5\u6765\u5f97\u5230\u67d0\u4e2a\u5b57\u7b26\u4e32\u4e2d\u7684\u51e0\u4e2a\u5b57\u7b26\u3002

Dim MyString, FirstWord, LastWord, MidWordsMyString = "Mid Function Demo" \u5efa\u7acb\u4e00\u4e2a\u5b57\u7b26\u4e32\u3002FirstWord = Mid(MyString, 1, 3) ' \u8fd4\u56de "Mid"\u3002LastWord = Mid(MyString, 14, 4) ' \u8fd4\u56de "Demo"\u3002MidWords = Mid(MyString, 5) ' \u8fd4\u56de "Funcion Demo"\u3002

\u7406\u8bba\u4e0a\u6765\u8bf4\uff0c\u4f7f\u7528VB\u7684DHTML\u5904\u7406\u66f4\u7b80\u5355\uff0c\u4f46\u662f\u4ee3\u7801\u96be\u7406\u89e3\uff0c\u6240\u4ee5\u6211\u8bbe\u8ba1\u4ee5\u4e0b\u4ee3\u7801\u3002

HTML\u6587\u4ef6\uff08\u6216\u8005\u662fXML\u6587\u4ef6\uff0c\u7c7b\u4f3c\uff09\u4e2d\u4e00\u822c\u90fd\u662fajhjahjsdh
\u6216\u8005\u6362\u884c\u5199

ajhjahjsdh


\u53ef\u4ee5\u4f7f\u7528\u4ee5\u4e0b\u7b97\u6cd5
\u5b9a\u4e49\u72b6\u6001
c
0-\u4ec0\u4e48\u4e5f\u6ca1\u6709
1-\u627e\u5230\u5f00\u5934\u7684\u3008
2-\u627e\u5230\u5f00\u5934\u7684\u3009
3-\u627e\u5230\u540e\u9762\u7684\u3008
4-\u627e\u5230\u540e\u9762\u7684/
5-\u627e\u5230\u540e\u9762\u7684\u3009

Private Sub Form_Load()
s = "\u5929\u5730\u6c34\u4e91\u95f4"

For i = 1 To Len(s)
m = Mid(s, i, 1)
If m = "<" Then
If c = 0 Then
c = 1
ElseIf c = 2 Then
c = 3
End If

End If

If m = ">" Then
If c = 1 Then
c = 2
GoTo DoNext
ElseIf c = 4 Then
c = 5
End If
End If

If m = "/" And c = 3 Then c = 4

If c = 2 Then b = b & m

DoNext:
Next

End Sub
\u5982\u679c\u4f60\u5355\u5355\u9700\u8981\u5f97\u5230\u4e2d\u95f4\u7684\u503c\uff0c\u8fd9\u4e2a\u5c31\u591f\u4e86\uff0c\u4f60\u53ef\u4ee5\u628a\u6211\u7684\u7a0b\u5e8f\u4fee\u6539\u4e00\u4e0b
\u4ed6\u4e5f\u80fd\u8bfb\u53d6\u7c7b\u4f3c\u4ee5\u4e0b\u7684\u4e1c\u897f



Tomorrow

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)

扩展阅读：vba 删除多个 字符 ... vba中截取字符串的方法 ... linux vi替换 ... vb读取txt文件内容 ... vb中截取特定的字符串 ... vb从右往左截取字符串 ... vbnet截取指定的字符串 ... vb截取字符串的命令 ... vba 截取字符串中的一部分 ...