Question

VB 获取同样的字符串的位置

如:<p>
这个在网页里最常见的而且很多怎么获取<P>在那个位置
<P>aaaaaaaaaaa</p><P>SSSSSSSSSS</p><P>DDDDDDDDDDDDD</p>
<P>FFFFFFFFFF</p><P>GGGGGGGGGGGGG/p>
我只想获取<P>那个位置，全部的
我获取的时候老是获取到第一个，其他的获取不到
用MSGBOX显示内容为:

第1个<P>在1
第2个<P>在（这就是关键，这就是这个问题的关键）

第3个<P>在（这就是关键，这就是这个问题的关键）

第4个<P>在（这就是关键，这就是这个问题的关键）

第5个<P>在（这就是关键，这就是这个问题的关键）

Answer 1

Private Sub Form_Load()
Dim N As Long, Str As String, L As Long
Str = "<P>aaaaaaaaaaa</p><P>SSSSSSSSSS</p><P>DDDDDDDDDDDDD</p><P>FFFFFFFFFF</p><P>GGGGGGGGGGGGG/p>"
L = InStr(L + 1, Str, "<P>")
Do
N = N + 1
MsgBox "第 " & N & " 个<p> 位置为 " & L
L = InStr(L + 1, Str, "<P>")
Loop Until L = 0
End Sub

Answer 2

函数： Instr()的使用：
Instr(Start,Str1,Str2)三个参数

Str1 -- 被搜索的源字符串

Str2 -- 要寻找的子字符串
Start -- 开始寻找的位置
例如：
s1 = "<P>aaaaaaaaaaa</p><P>SSSSSSSSSS</p><P>DDDDDDDDDDDDD</p>"
s2 ="<P>"
那么：Instr(1,s1,s2) 表示在s1里从左第1个字符开始寻找字符串s2
如果找到，就返回匹配的位置，本例返回 1
如果找不到，就返回0
如果在第1次找到后，继续找第2个匹配的位置，那么
下一次开始找的位置应该是本次找到的值 + 要找的子字符串的长度
本例第1次返回 1，而子字符串长度为3，下一次找要丛第4位开始找，即
Instr(4,s1,s2)

通常：用循环来实现
s1 = "abc123456abc11111abc111222333"
s2 = "abc"
i = 1
L = 1
Do While InStr(L, s1, s2) <> 0
Print "第" & i & "个" & s2 & "在位置" & InStr(L, s1, s2)
L = InStr(L, s1, s2) + Len(s2)
i = i + 1
Loop

Answer 3

Dim str As String
Dim lpostion As Long
Dim lcnt As Long
str = "<P>aaaaaaaaaaa</p><P>SSSSSSSSSS</p><P>DDDDDDDDDDDDD</p><P>FFFFFFFFFF</p><P>GGGGGGGGGGGGG/p>"
lpostion = InStr(str, "<P>")
Do While lpostion <> 0
lcnt = lcnt + 1
Print "<P>" & "第" & lcnt & "次,位置" & lpostion
lpostion = InStr(lpostion + Len("<P>"), str, "<P>")
Loop