VB截取指定字符串

Question

我知道如何获取网页源代码
但是我只需要这段网页源代码里面的一部分内容

例:
<td><P><p><font color="#ff00ff" size="3">1111:2233445566</font></p>

要截取1111:后面 直到</font>的内容

说明:网页源代码之前之后都有<td>、</font>、</p>等标记只有1111:是唯一的，还有就是1111:后面的第一个</font>是唯一的.
是要VB 6.0 里能用的源代码
要具有通用性啊... 我的例子1111:22334455----只是范例 也可能是其他东西的！

Answer 1

首先left和right里面的4和7肯定是不能加引号的。
想从“—”做截取可以这样做。
loca=instr(rs.fields(1),"-")
'获取
-
所在的位置
left(rs.fields(1),loca-1)
'
-
之前的内容
right(rs.fields(1),len(rs.fields(1))-loca)
'
-
之后的内容

Answer 2

用
Split()
函数差分，再用
Join()
函数合并（也可以直接用
&
连接）。
举例：
Dim
S()
as
String
S
=
Split("张某-陕西西安-205房间",
"-")
Debug.Print
S(0)
&
S(2)
'结果是
张某205房间

Answer 3

建一个Command1。
代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Sub Command1_Click()
Dim s As String
s = "<td><P><p><font color=""#ff00ff"" size=""3"">1111:2233445566</font></p>"

Dim i As Integer
i = InStr(1, s, "1111:")
s = Mid(s, i + 5, InStr(i, s, "</font>") - i - 5)

MsgBox s
End Sub本回答被提问者采纳

Answer 4

我胡乱写了一段代码，请你参照一下
Dim
aa
As
String
Dim
t
As
Integer
aa
=
"张某-陕西西安-205房间"
t
=
InStr(1,
aa,
"-")
MsgBox
Left(aa,
t
-
1)
t
=
InStr(t
+
1,
aa,
"-")
MsgBox
Right(aa,
Len(aa)
-
t)

Answer 5

阁下是需要清除html标记，只保留网页中的文本吧，你可以试一下这个算法；
s=me.text1.text 's中保留网页源码；
private funcation ClsHtml(s as string)
dim t as string
dim c as string
dim k as string
t=""
while(len(s))
c=left(s,1)
s=right(s,len(s)-1)

if c='<' or c='>' then k=c

if k='>' and c<>'<' and c<> '>' then t=t & c

wend

ClsHtml=t '返回结果；
end funcation

本函数清除"<"与">"之间的所有字符串；