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

来源：百度知道 编辑：UC知道 时间：2024/05/10 06:45:15
例~
s="<html>天地水云间</html>"

如何用vb 截取 <html> 与 </html> 中的字符呢？

s是随机的，在不知道文本长度的情况下。。

感谢回答！
s是随机的。不知道字符串的长度~所以不能以左边字符数和右边字符数的多少来设置截取
又或者说
s="21天地水云间1"
和
s="111天地水云间2222"
同什么代码可以同时截取两个s中的天地水云间

理论上来说，使用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