UC知道VB提取字符串的内容问题
来源：百度知道 编辑：UC知道 时间：2024/05/13 18:21:05
有这么一串代码
<td>2007-11-01</td><td>江北区</td><td>可吸入颗粒物</td><td>67</td><td>Ⅱ</td><td>良</td><td><img src=./pic/classcolor2.jpg border=0 ></td>
</tr><tr style="color:Black;background-color:Gainsboro;">
<td>2007-11-01</td><td>沙坪坝区</td><td>可吸入颗粒物</td><td>76</td><td>Ⅱ</td><td>良</td><td><img src=./pic/classcolor2.jpg border=0 ></td>
我想把上面的字符串提取 然后保存至变量 比如
a(1)="江北区"
b(1)="可吸入颗粒物"
c(1)=67
d(1)=Ⅱ
c(1)=良
a(2)="沙坪坝区"
b(2)=吸入颗粒物
c(1)=76
d(1)=Ⅱ
c(1)=良
怎么才能提取下来
<td>2007-11-01</td><td>江北区</td><td>可吸入颗粒物</td><td>67</td><td>Ⅱ</td><td>良</td><td><img src=./pic/classcolor2.jpg border=0 ></td>
</tr><tr style="color:Black;background-color:Gainsboro;">
<td>2007-11-01</td><td>沙坪坝区</td><td>可吸入颗粒物</td><td>76</td><td>Ⅱ</td><td>良</td><td><img src=./pic/classcolor2.jpg border=0 ></td>
我想把上面的字符串提取 然后保存至变量 比如
a(1)="江北区"
b(1)="可吸入颗粒物"
c(1)=67
d(1)=Ⅱ
c(1)=良
a(2)="沙坪坝区"
b(2)=吸入颗粒物
c(1)=76
d(1)=Ⅱ
c(1)=良
怎么才能提取下来
Private Type tt
a As String
b As String
c As String
d As String
e As String
f As String
g As String
End Type
Private neirong() As tt
Dim sTemp As String
Private Sub Form_Load()
Dim s() As String
Dim i As Long
sTemp = "<td>2007-11-01</td><td>江北区</td><td>可吸入?粒物</td><td>67</td><td>Ⅱ</td><td>良</td><td><img src=./pic/classcolor2.jpg border=0 ></td>"
s() = Split(sTemp, "</td>")
For i = 0 To UBound(s)
ReDim Preserve neirong(i)
neirong(i).a = Replace(s(i), "<td>", "")
MsgBox neirong(i).a
Next
End Sub
我想你这应该是个文件吧！~ 把文件读行写在最外面循环就可以了！~
先把读取的HTML源代码中的</tr> 替换为一个特殊的标记
比如#tr#
再把</td>