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

发布网友发布时间：2022-05-05 22:46

共4个回答

热心网友时间：2022-06-28 06:02

理论上来说，使用VB的DHTML处理更简单，但是代码难理解，所以我设计以下代码。

HTML文件（或者是XML文件，类似）中一般都是<String>ajhjahjsdh</String>
或者换行写
<String>
ajhjahjsdh
</String>

可以使用以下算法
定义状态
c
0-什么也没有
1-找到开头的〈
2-找到开头的〉
3-找到后面的〈
4-找到后面的/
5-找到后面的〉

Private Sub Form_Load()
s = "<html>天地水云间</html>"

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
如果你单单需要得到中间的值，这个就够了，你可以把我的程序修改一下
他也能读取类似以下的东西

<HTML>
<BODY>
<HEAD>Tomorrow</HEAD>
<BODY>
</HTML>

热心网友时间：2022-06-28 06:03

思路：假设目标字符串为变量strDst（如你说的"天地水云间"），
则字符串 s = "<html>" & strDst & "</html>"，strDst 的左边有6个字符，右边有7个字符，用vb中的left和right语句可以搞定。

代码如下：

Dim s As String '原字符串
Dim strDst As String '要提取的字符串

s = "<html>天地水云间</html>"

If Len(s) <= 13 Then
MsgBox "字符串s中没有您要提取的任何字符！", vbInformation
Exit Sub
End If

strDst = Left(s, Len(s) - 7)
strDst = Right(strDst, Len(strDst) - 6)

热心网友时间：2022-06-28 06:03

Dim a As String, b As String
'a为要找的字符串,b为找到的字符串
a = "天地水云间"
s = "21天地水云间1"
b = Mid(s, InStr(1, s, a), Len(a))
Print b
s = "111天地水云间2222"
b = Mid(s, InStr(1, s, a), Len(a))
Print b

热心网友时间：2022-06-28 06:04

用mid$函数。