String
Dim i As Integer
Dim j As Integer
For i = 1 To Len(str)
sStr = sStr & Mid(str, i, 1)
If Mid(str, i, 1) = "/" Then
j += 1
End If
If j = 3 Then Exit For
Next
Return sStr
End Function
''''将内容里的相对图片地址改成绝对地址的函数
Private Function formatHtml(ByVal str As String) As String
Return Replace(str, "src=" & Chr(34) & "/", "src =" & Chr(34) & formatURL(TextBox1.Text))
End Function
End Class
转自: http://www.cnblogs.com/aowind/archive/2005/03/16/119838.html
上一页 [1] [2] [3] |
