1,502
社区成员
发帖
与我相关
我的任务
分享
...全文
请发表友善的回复…
发表回复
xjgcyq 2005-10-13
- 打赏
- 举报
老大怎么调用呀!我试了一下好像不行呀!
northwolves 2005-10-12
- 打赏
- 举报
上面代码没有调试,感觉应该没问题
northwolves 2005-10-12
- 打赏
- 举报
'x为读到的网页源码
Function trans(ByVal x As String) As String
Dim temp() As String, temp2() As String, i As Integer
x = Replace(x, "</span>", "<span")
temp = Split(x, "<span")
ReDim temp2(UBound(temp) / 2)
For i = 0 To UBound(temp) / 2
temp2(i) = temp(i * 2)
Next
x = Join(temp2, " ")
Erase temp
Erase temp2
End Function
Function trans(ByVal x As String) As String
Dim temp() As String, temp2() As String, i As Integer
x = Replace(x, "</span>", "<span")
temp = Split(x, "<span")
ReDim temp2(UBound(temp) / 2)
For i = 0 To UBound(temp) / 2
temp2(i) = temp(i * 2)
Next
x = Join(temp2, " ")
Erase temp
Erase temp2
End Function
