Results 1 to 3 of 3

Thread: [RESOLVED] Trim Help

  1. #1

    Thread Starter
    New Member
    Join Date
    May 2008
    Posts
    8

    Resolved [RESOLVED] Trim Help

    Hello i have a form that grab data from webbrowser

    the code is :

    Code:
    Label1.Caption = WebBrowser1.Document.All("OutputHistory").innerHTML
    After that from label1 data inserted to list1...

    but the inserted data looks like :

    Code:
    <OPTION value=""></OPTION> <OPTION value=""></OPTION> <OPTION value=""></OPTION> <OPTION value=""></OPTION> <OPTION selected value=B0>B0</OPTION>
     <OPTION value=""></OPTION> <OPTION value=""></OPTION> <OPTION value=""></OPTION> <OPTION value=""></OPTION> <OPTION value=B0>B0</OPTION> <OPTION value=""></OPTION> <OPTION selected value=C1>C1</OPTION>
     <OPTION value=""></OPTION> <OPTION value=""></OPTION> <OPTION value=""></OPTION> <OPTION value=""></OPTION> <OPTION value=B0>B0</OPTION> <OPTION value=""></OPTION> <OPTION value=C1>C1</OPTION> <OPTION selected value=*>*</OPTION>
    how can i trim the imput and keep only the data after the selected value=

    B0,C1 AND * in my example.

    thanks

  2. #2
    PowerPoster RhinoBull's Avatar
    Join Date
    Mar 2004
    Location
    New Amsterdam
    Posts
    24,132

    Re: Trim Help

    Try something like this:
    Code:
    Option Explicit
    
    Private Sub Command1_Click()
    Dim sHtmlText As String
    Dim iPos As Integer
    Dim sSelectedValue As String
    Dim iStart As Integer
    Dim iEnd As Integer
    
        sHtmlText = "<OPTION value=""></OPTION> <OPTION value=""></OPTION> <OPTION value=""></OPTION> <OPTION value=""></OPTION> <OPTION selected value=B0>B0</OPTION>"
        'sHtmlText = "<OPTION value=""></OPTION> <OPTION value=""></OPTION> <OPTION value=""></OPTION> <OPTION value=""></OPTION> <OPTION value=B0>B0</OPTION> <OPTION value=""></OPTION> <OPTION selected value=C1>C1</OPTION>"
        'sHtmlText = "<OPTION value=""></OPTION> <OPTION value=""></OPTION> <OPTION value=""></OPTION> <OPTION value=""></OPTION> <OPTION value=B0>B0</OPTION> <OPTION value=""></OPTION> <OPTION value=C1>C1</OPTION> <OPTION selected value=*>*</OPTION>how"
        
        iPos = InStr(1, sHtmlText, "OPTION selected value=")
        If iPos > 0 Then
            sSelectedValue = VBA.Mid$(sHtmlText, iPos + Len("OPTION selected value="))
            iStart = InStr(1, sSelectedValue, ">")
            iEnd = InStr(1, sSelectedValue, "<")
            sSelectedValue = VBA.Mid$(sSelectedValue, iStart + 1, iEnd - iStart - 1)
            Debug.Print sSelectedValue
        End If
    
    End Sub

  3. #3

    Thread Starter
    New Member
    Join Date
    May 2008
    Posts
    8

    Re: Trim Help

    works perfect.

    Thanks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Click Here to Expand Forum to Full Width