Warning: file_get_contents(/data/phpspider/zhask/data//catemap/1/vb.net/15.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Vb.net 分离然后连接文本和数据_Vb.net - Fatal编程技术网

Vb.net 分离然后连接文本和数据

Vb.net 分离然后连接文本和数据,vb.net,Vb.net,我有这个密码 Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click WebBrowser2.ScriptErrorsSuppressed = True WebBrowser2.Navigate("http://www.fakenamegenerator.com/") WaitForPageLoad2() Dim usernme As String

我有这个密码

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    WebBrowser2.ScriptErrorsSuppressed = True
    WebBrowser2.Navigate("http://www.fakenamegenerator.com/")
    WaitForPageLoad2()
    Dim usernme As String
    Dim password As String
    Dim first As String
    Dim last As String
    Dim addrs As String
    Dim city As String
    Dim postal As String
    Dim state As String
    Dim email As String
    Dim full As String
    Dim fullstat As String
    Dim docum As HtmlElementCollection = WebBrowser2.Document.GetElementsByTagName("div")
    For Each CurElement As HtmlElement In docum
        If CurElement.GetAttribute("classname") = "address" Then
            full = CurElement.InnerText
            MsgBox(full)
        End If
    Next
    ListBox1.Items.Add(full)
End Sub
我试图得到第一个最后一个/第一个和最后一个/地址/州/zipcode,我不能把我的头绕在它周围,顺便说一句,完整的var是我弹出的,因为当我从假名字生成器获取信息时,它像Steven N.Henry 1203 Benson Park Drive Oklahoma City,Oklahoma 73109一样聚集在一起
请帮助:)谢谢

如果我正确理解您的问题,您应该能够:

    Dim splitArray = full.Split(" ")
    For each str in splitArray
            listbox1.Items.Add(str)
    Next

您应该显示您试图解析的返回数据。如果我们能看到它,它可能很容易解析格式。^这一切都在一条线上,伙计们??我需要一些帮助