vb.net提取字符串 vb获取字符串中的某个字符

VB/vb.net网页字符串提取

vb6.0引用microsoft html object library

Private Sub Command1_Click()

Dim x As HTMLDocument

Dim xx As Object

Set x = New HTMLDocument

x.body.innerHTML = Text1.Text'假设你提问中的网页代码在text1中

For Each xx In x.getElementsByTagName("li")

Debug.Print xx.innerHTML'这里是你提取的网址

list1.add xx.innerHTML

Next

Set x = Nothing

End Sub

'如果你通过webbrowser 获得网址，直接通过webbrowser 的document对象可以获得你需要的地址

相关问答

Q1: Vb.net 字符串截取

｛“Xm”：“李明”，“Dh”：“123456”，“Nl”：“30”｝这是个JSON串，在序列化后，可以得到值。你可以使用System.Web.Script.Serialization.JavaScriptSerializer类来完成任务。也可以利用第三方工具比如：Newtonsoft.Json.dll等，来完成任务。

如何使用System.Web.Script.Serialization.JavaScriptSerializer类或第三方工具，网上有大量代码，或参阅微软在线帮助。这里就不贴了。

Q2: vb.net 如何取出多行字符串中的指定的一行

第一个问题有个简单vb.net提取字符串的方法vb.net提取字符串，把字符串变量赋值到一个textbox里面,利用textbox.lines实现。如vb.net提取字符串：

dim a as string ="hh12345" vbcrlf "qdq123" vbcrlf "ddd244" vbcrlf "whw266" ’定义变量

textbox1.text=a ‘赋值

message.show(textbox1.lines(2).tostring) ‘显示第三行内容。

第二个问题结合第一个问题，用循环逐行查找，就可知道字符串第一次出现在哪行。

Q3: vb.net怎么提取字符串？

在VB中是这样的，没学过VB.net，你变换一下就可以了

按你说的，用用Left,Right和Mid

Option Explicit

Private Sub Command1_Click()

    Dim Num(2)

    Num(0) = Val(Left(Label1.Caption, 2))

    Num(1) = Val(Mid(Label1.Caption, 3, 1))

    Num(2) = Val(Right(Label1.Caption, 2))

    MsgBox "Num(0)="  Num(0)  vbCrLf  "Num(1)="  Num(1)  vbCrLf  "Num(2)="  Num(2)

    '如果想测试是不是可以计算，可以用这一句

    'MsgBox "Num(0)+1="  Num(0) + 1  vbCrLf  "Num(1)+1="  Num(1) + 1  vbCrLf  "Num(2)+1="  Num(2) + 1

End Sub

Private Sub Form_Load()

    Label1.Caption = "12345"

End Sub

有问题请追问，满意请采纳！

关于vb.net提取字符串和vb获取字符串中的某个字符的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。