如何用vb在VB的網頁中截取指定的字符,並顯示在text1.text中 百度牛人多,超高分

假設壹段字符串Str1="left ABC middle ABC right"

那麽Split(Str1,"ABC")(0)="left "，把0改為1就得到" middle "，改為2就得到" right"

要實現妳要的功能，把網頁內容存放到Text2中(Text2.Multiline = True)，然後

Text1.Text = Split (Text2.Text,"value=""") (1) 'vb中用兩個雙引號表示文本中的壹個雙引號

Text1.Text = Split (Text2.Text,"""/></form>") (0)

對了分隔符最好長壹點，不然可能會截取錯誤

好了上面是廢話，接下來進入正題

在窗體中放置壹個Text1和Text2，其中Text2.Multiline=True，代碼如下：

Option Explicit

Private Function GetWebTxt(Url)

Dim objWMD As Object: Set objWMD = CreateObject("Microsoft.XMLHTTP")

objWMD.Open "GET", Url, False

objWMD.Send

GetWebTxt = StrConv(objWMD.responseBody, vbUnicode)

End Function

Private Sub Form_Load()

Dim UrlWeb$: UrlWeb = "目標網址" '在這裏修改網址

Text2.Text = GetWebTxt(UrlWeb)

Text1.Text = Split (Split (Text2.Text,"value=""")(1) , """/></form>")(0) '把上面兩個截取函數嵌套在壹起

End Sub