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
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
