Keywords from Internet Explorere Address Bar .....

hi bkniazi,

u can use Instr function for this

something like

pos1 = 0
pos2 = 0

do while (pos1 <> - 1)
 pos1 = (Instr("./?=&",URL))
 pos2 = (Instr("./?=&),Mid(URL,Pos1))
 keyword = Mid(URL,pos1,pos2-pos1)
loop

where URL is the string containing ur URL
   

sorry ,
do while (pos1 <> - 1)
 pos2 = (Instr("./?=&),Mid(URL,Pos1))
 keyword = Mid(URL,pos1,pos2-pos1)
 pos1 = pos2 + 1
loop

Hi
plz be specific
u need to extract all words from that link?
or only those words which lie between the characters u specified?
it would be better u specify a small link and give the results u expect to be obtained after extraction
;-)
Shiju

hi
>>specify a small link
means the url u want to extract

;-)
Shiju

Dear Shijusn,

for example: ("http://www.yahoo.com/mess/abc?xyz=123&asd=432")

i want to extract keywords from it like ('yahoo' and 'mess'  i don't need of 'http://' , don't need of 'www', don't need of '?', don't need of '='and don't need of '&'.
after '/' i want to get data after (=) sign to (&) sign. Simply between '=' and '&'.

from this URL keywords are:
Yahoo
Mess
123
432

but remember that will be dynimcally.

thx
waiting .................................................

Dear amrit_82,

try to use ur own code in vb6 plz.

thx

hi bkniazi
few more questions to make me more clear

source string will always be url , i.e starting with http://www.  ?
if it is line http://www.first.second.third.com/?value=234&value2=test
u need ....

first
second
third
234
test
     
if i am wrong pls correct it.

u need extracted results in the same order they occur in the url ? or in any order ?
;-)
Shiju

Form1:
----------------------------
Option Explicit
Private Sub Form_Load()
    Dim colQuery As Collection, clsVars As Class1, varTemp As Variant
    'Parse URL for site address
    If ParseAddress("http://loginnet.passport.com/login.srf?id=2&svc=mail&cbid=24325&msppjph=1&tw=0&fs=1&fsa=1&fsat=1296000&lc=1033&_lang=EN", colQuery) = True Then
        For Each varTemp In colQuery
            Debug.Print varTemp
        Next varTemp
    End If
    'Parse URL for variables/values such as "X=1"
    If ParseQuery("http://loginnet.passport.com/login.srf?id=2&svc=mail&cbid=24325&msppjph=1&tw=0&fs=1&fsa=1&fsat=1296000&lc=1033&_lang=EN", colQuery) = True Then
        For Each clsVars In colQuery
            Debug.Print clsVars.var, clsVars.val
        Next clsVars
    End If
End Sub
Private Function ParseAddress(ByVal strURL As String, ByRef colQuery As Collection) As Boolean
    Dim strSplit1() As String, intLoop1 As Integer
    Dim strSplit2() As String, intLoop2 As Integer
    Set colQuery = New Collection
    strSplit1() = Split(LCase(strURL), "/")
    For intLoop1 = 0 To UBound(strSplit1)
        If InStr(1, strSplit1(intLoop1), ".") > 0 Then
            strSplit2() = Split(strSplit1(intLoop1), ".")
            For intLoop2 = 0 To UBound(strSplit2)
                If IsBlacklisted(strSplit2(intLoop2)) = False Then
                    Call colQuery.Add(strSplit2(intLoop2))
                End If
            Next intLoop2
        Else
            If IsBlacklisted(strSplit1(intLoop1)) = False Then
                Call colQuery.Add(strSplit1(intLoop1))
            End If
        End If
    Next intLoop1
    ParseAddress = True
End Function
Private Function ParseQuery(ByVal strURL As String, ByRef colQuery As Collection) As Boolean
    Dim strSplit1() As String, intLoop1 As Integer
    Dim strSplit2() As String
    Dim clsVars As Class1
    strSplit1() = Split(LCase(strURL), "?")
    'url cannot have more than 1 "?"!!!
    If UBound(strSplit1) = 1 Then
        Set colQuery = New Collection
        strSplit1 = Split(strSplit1(1), "&")
        For intLoop1 = 0 To UBound(strSplit1)
            strSplit2() = Split(strSplit1(intLoop1), "=")
            'var=val cannot have more than one "="!!
            If UBound(strSplit2) = 1 Then
                Set clsVars = New Class1
                clsVars.var = strSplit2(0)
                clsVars.val = strSplit2(1)
                Call colQuery.Add(clsVars, strSplit2(0))
            End If
        Next intLoop1
        ParseQuery = True
    End If
End Function
Private Function IsBlacklisted(ByVal strText As String) As Boolean
    Select Case strText
        Case "www", "http:", "ftp:", ""
            IsBlacklisted = True
    End Select
    If InStr(1, strText, "?") > 0 Then
        IsBlacklisted = True
    End If
End Function


Class1:
-----------------------
Public var As String
Public val As String

Here you go...

Private Function ExtractKeywords(URL As String) As String
    Dim KEYWORDS As String
    Dim TMP() As String
    Dim TMP1() As String
        TMP() = Split(URL, "/")
        For Each Item In TMP
            If Item <> "" Then
                If UCase(Left(Item, 4)) <> "HTTP" Then
                    If InStr(1, Item, ".") > 0 And Item <> TMP(UBound(TMP)) Then
                        TMP1() = Split(Item, ".")
                        Dim I As Long
                        If UBound(TMP1) > 1 Then
                            For I = 1 To UBound(TMP1) - 1
                                KEYWORDS = KEYWORDS & TMP1(I) & vbCrLf
                            Next
                        End If
                    Else
                        If InStr(1, Item, ".") = 0 Then
                            KEYWORDS = KEYWORDS & Item & vbCrLf
                        End If
                    End If
                End If
            End If
        Next
       
        If InStr(1, TMP(UBound(TMP)), "?") > 0 Then
            Dim TEMP As String
                TEMP = Split(TMP(UBound(TMP)), "?")(1)
                TMP = Split(TEMP, "&")
                For Each Item In TMP
                    KEYWORDS = KEYWORDS & Split(Item, "=")(1) & vbCrLf
                Next
        End If
       
        ExtractKeywords = Left(KEYWORDS, Len(KEYWORDS) - 1)
End Function

Private Sub Form_Load()
    MsgBox ExtractKeywords("https://www.experts-exchange.com/Programming/Programming_Languages/Visual_Basic/askQuestion.jsp?lc=1033&id=2&tw=2&fs=1&cbid=24325"), vbInformation, "Keywords found"
End Sub

yes shijusn

check the Aelatik code.

thx Aelatik and u AsifBangash.