不好意思,我好像不知不觉学了第二种方法了。。
我先将 .jpg 用replace 替换成 .jpghttp://
然后又用
Dim stra As String, i As Long
Dim tArray() As String
stra = Text1.Text
tArray = Split(stra, "http://")
For i = 0 To UBound(tArray)
Open "1.txt" For Append As #1
Print #1, tArray(i)
Close #1
Next
分割,结果图片分割出独立成一行了
现在怎么帮图片再提取出来。。