'將網頁的Unicode 轉 Big5 (【)
For i = 0 To strSubTitle.Length - 1
Dim tmpS As String = strSubTitle(i)
tmpS = Replace(tmpS, "&#", "")
strNewTitle = strNewTitle & ChrW(tmpS)
Next
strTitle = strNewTitle
tbxTitle.Text = strTitle
沒有留言:
張貼留言