Hent META-tags

-- Ifølge Ekspertens regel §2.1.15 må der ikke udloves mere end 200 points:
[ Det er ikke tilladt at] "udlove mere end 200 point for et spørgsmål ved at dele det over flere spørgsmål."

-- Hvad bruger du til at downloade siden med?:
1) Microsoft Internet Control
2) Winsock

Jeg bruger et API-KALD. Det er ikke noget problem at downloade den med. Men mit problem er egentlig at jeg skal kunne sotere alle META-tags'ne. Og det kunne være fedt, hvis nogen kunne komme med en komplet kode....

kigger lige på det..

Lyder godt ;)

Jeg har fået den her til at virke (med ""):
<meta name="description" content="Beskrivelse">
<meta content="Nøgleord" name="keywords" >

Den er svær uden "".. man skal vist bruge noget i stil med: Like "[a-zA-Z0-9]"

Jeg kigger videre på det..

Vil du ha' den nuværende kode?

Ja, nu når du har brugt tid på det, vil jeg da gerne kigge på den ;)

Men jeg går ud fra, at du har lagt mærke til, at den skal kunne virke, uanset om Name eller Content kommer først??

Ja, det har jeg.. og det tager jeg også højde for..

Okay, alle tiders :D

' Til eksemplet er brugt:
'
' Command-knap, navn: Command1
' ListBox, navn: lstKey
' TextBox, navn: txtVal
'
' "D1" og "D2" = "Delimiter" 1 og 2, dvs seperatorer

Dim st, streng, tmp, tmpName, tmpValue As String ' strenge
Dim ast, astreng ' arrays ("a" = array)
Dim i As Integer ' tæller

' Et klik på Command1-knappen simulerer, at der er hentet en side ned.
' Jeg arbejder med et indhold, der ligner indholdet af "streng" (test-data)
'
' dobbelt ", dvs "", opfattes af VB som et enkelt " i en streng

Private Sub Command1_Click()
lstKey.Clear
streng = "<meta name=""description"" content=""Beskrivelse""><meta content=""Nøgleord"" name=""keywords"">"

ast = Split(streng, "<meta")
streng = ""
For i = LBound(ast) + 1 To UBound(ast)

tmp = ast(i)
tmpName = Mid(tmp, InStr(tmp, "name="))
tmpValue = Mid(tmp, InStr(tmp, "content="))


' hent "name" (navnet, derfor "tmpName")
If Mid(tmpName, Len("name=") + 1, 1) = Chr(34) Then
  tmpName = Mid(tmpName, Len("name=") + 2)
  tmpName = Left(tmpName, InStr(tmpName, Chr(34)) - 1)
  lstKey.AddItem tmpName
  streng = streng & tmpName
End If


'' hent "content" (værdien, derfor "tmpValue")
If Mid(tmpValue, Len("content=") + 1, 1) = Chr(34) Then
  tmpValue = Mid(tmpValue, Len("content=") + 2)
  tmpValue = Left(tmpValue, InStr(tmpValue, Chr(34)) - 1)
  streng = streng & "D1" & tmpValue & "D2"
End If


' slet indholdet af navnet og værdien
tmpName = ""
tmpValue = ""
Next

' fjern det sidste "D2"
streng = Left(streng, Len(streng) - 2)
End Sub

Private Sub lstKey_Click()

astreng = Split(streng, "D2")

For i = LBound(astreng) To UBound(astreng)
  If lstKey.List(lstKey.ListIndex) = Left(astreng(i), InStr(astreng(i), "D1") - 1) Then
    txtVal.Text = Mid(astreng(i), InStr(astreng(i), "D1") + 2)
  End If
Next

End Sub

Det er et fint eksempel. Men mit problem er, hvis jeg møder en side, hvor der for eksempel opstår denne situation:

<      meta            name= "Name"          content  = "Content"  >

Jeg ved godt, at jeg ikke omtalte det i spørgsmålet, men det kunne være fedt, hvis det var muligt at få det til at virke, også i denne situation... :)

Det jeg mener bl.a. er, at < og meta ikke står ved siden af hinanden...

"<" og "meta" skal, så vidt jeg ved, stå ved siden af hindanden.. ellers opfattes det ikke som et meta-tag, af browseren..

Det her virker med min kode:
<meta              name="Navnet"            content="værdien"      >

..og jeg har muligvis fixed den med 'uden ""'-problem..

anuller det med 'fixet uden ""'-linien :)
forløbigt.. arbejder videre på det..

Ja, det er rigtigt nok. Det virker med det eksempel du viser. Men hvad nu hvis der opstår denne situantion??

<    meta    ....


Men jeg vil da gerne se dit sidste kode... :)

Okay, havde ikke lige læst det du skrev med browseren.. :$

Helt præsist, hvad bruges META-tags til?

det kan bruges til informationer :)
F.eks., hvem sidens forfatter er, hvilket sprog, hvad siden indeholder, osv.. i gamle dage kiggede søgemaskinerne i meta-tagsne, for at se om de siderne havde det, der var søgt efter..

Okay, men hvad skal man så egentlig med dem idag?

De virker stadig som beskrevet.. og er ikke begrænset til det jeg har skrevet.. :)
Søgemaskinerne bruger bare andre metoder..

Okay, men hvorda står det til med koden?

Det går ok.. men der er et lille problem med "uden"..
Koden checker om tegnet er mellem:
a-z
A-Z
0-9

Dvs, "æ,ø,å" ikke er inklusiv.. jeg skal have fundet enmåde at fikse det på..

Kan man så ikke lave et lille trik med ASC eller CHR koden??

Man kan gøre sådan her: "[a-zA-Z0-9,æ,Æ,ø,Ø,å,Å]"

Men jeg tror at det er bedre med asc/chr koder..

Okay, jeg har ikke arbejdet med LIKE før, så jeg ved egentlig ikk rigtig hvordan den virker... :D

Men er det muligt at man kan lave et ARRAY som der ser ca sådan ud:

Name1, Content1
Name2, Content2

Altså i stedet for at der står et ord på vær ARRAY- linie, står der i stedet for 2 ord, adskildt af et komma...

Sidder lige og ekspermentere med det selv :)

Kigger lige på det der med asc/chr og array.. her er noget kode der duer med og/eller uden "":

Option Explicit ' man SKAL definere/dimme variablerne = undgå stavefejl!

' Til eksemplet er brugt:
'
' Command-knap, navn: Command1
' ListBox, navn: lstKey
' TextBox, navn: txtVal
'
' "D1" og "D2" = "Delimiter" 1 og 2, dvs seperatorer

Dim streng, tmp, tmp2, tmp3, tmpName, tmpValue As String ' strenge
Dim ast, astreng ' arrays
Dim i, j As Integer ' tæller

Private Sub Command1_Click()
lstKey.Clear
streng = "<meta name=description content=""Beskrivelse""><meta content=Nøgleord name=""keywords"">"
'MsgBox streng

ast = Split(streng, "<meta")
streng = ""
For i = LBound(ast) + 1 To UBound(ast)

tmp = ast(i)
tmpName = Mid(tmp, InStr(tmp, "name="))
tmpValue = Mid(tmp, InStr(tmp, "content="))

' hent "name"
If Mid(tmpName, Len("name=") + 1, 1) = Chr(34) Then
  tmpName = Mid(tmpName, Len("name=") + 2)
  tmpName = Left(tmpName, InStr(tmpName, Chr(34)) - 1)
  lstKey.AddItem tmpName
  streng = streng & tmpName
Else
  tmp2 = ""
  tmp3 = Mid(tmpName, InStr(tmpName, "=") + 1)

  For j = 1 To Len(tmp3)
    If Mid(tmp3, j, 1) Like "[a-zA-Z0-9,æ,Æ,ø,Ø,å,Å]" Then
      tmp2 = tmp2 & Mid(tmp3, j, 1)
    Else
      Exit For
    End If
  Next
 
  tmpName = tmp2
  lstKey.AddItem tmpName
  streng = streng & tmpName
End If


'' hent "content"
If Mid(tmpValue, Len("content=") + 1, 1) = Chr(34) Then
  tmpValue = Mid(tmpValue, Len("content=") + 2)
  tmpValue = Left(tmpValue, InStr(tmpValue, Chr(34)) - 1)
  streng = streng & "D1" & tmpValue & "D2"
Else
  tmp2 = ""
  tmp3 = Mid(tmpValue, InStr(tmpValue, "=") + 1)

  For j = 1 To Len(tmp3)
    If Mid(tmp3, j, 1) Like "[a-zA-Z0-9,æ,Æ,ø,Ø,å,Å]" Then
      tmp2 = tmp2 & Mid(tmp3, j, 1)
    Else
      Exit For
    End If
  Next

  tmpValue = tmp2

  streng = streng & "D1" & tmpValue & "D2"
End If

'streng = streng & tmpName & "D1" & tmpValue & "D2"
Next
tmpName = ""
tmpValue = ""
streng = Left(streng, Len(streng) - 2)
End Sub

Private Sub lstKey_Click()
astreng = Split(streng, "D2")

For i = LBound(astreng) To UBound(astreng)
  If lstKey.List(lstKey.ListIndex) = Left(astreng(i), InStr(astreng(i), "D1") - 1) Then
    txtVal.Text = Mid(astreng(i), InStr(astreng(i), "D1") + 2)
   
  End If
Next
End Sub

Det ser enort godt ud.. :D

Men kan problemet løses, hvis dette sker:

<meta name      =      "Navn"    content  =          "Indhold">

Altså at der er flere mellemrum mellem NAME og "NAVN"...

Er det tilladt?

Det aner jeg ikke. Men lad mig sige det på den måde, at Frontpage kan læse det :)

Jeg bliver nød til at smutte.. jeg kigger på det igen, enten i aften eller i morgen eftermiddag..

du kan løse problemet med mellemrum sådan.. (måske ikke den mest geniale måde at gøre det på) ;)


Private Sub Form_Load()
  Me.Caption = SuperTrim("  <  meta      name = ""Navnet""      content = ""værdien""  >  ")
End Sub

Public Function SuperTrim(ByVal strText As String) As String
Dim strOut As String
  strOut = strText
  Do Until InStr(strOut, "  ") = 0
    strOut = Replace(strOut, "  ", " ")
  Loop
  strOut = Replace(strOut, " =", "=")
  strOut = Replace(strOut, "= ", "=")
  strOut = Replace(strOut, "< ", "<")
  SuperTrim = Replace(strOut, " >", ">")
End Function

Jeg tror at det ville være meget nemmere med noget RegExp.. men det kender jeg ikke godt nok.. eller, næsten ikke :)