Strengeleg

siden virker jo ikke!!

altså din hp

det er jo bare et exempel.

nåå

Hej Pulzu.

Du kæmper hårdt med dine URLs.  Måske skulle du beskrive hvad du vil opnå?  Nu ser det ud som om du vil transformere noget tekst til HTML, indlæse det i en browser og så aktivere links derfra. 

Ellers er der lidt dødt lørdag eftermiddag i dejligt vejr.  Så tålmodighed er nok påkrævet før de \"store drenge\" kommer på med deres API-kald etc.

M.v.h.  Jørn

Public function PutLinksPaa (Txt As String)
dim b as string, i as integer,a as string, UdData as string

for i=1 to len(Txt)
a=mid(Txt,i,1)
b=b & a
\' Så noget med at når b=\"http://\" så skriv
\' <A HREF=
\' lav linket og når det første mellemrum efter
\' http://... er fundet, så skriv </A>

\' det er sq lidt svært & forklare...
next i

PutLinksPaa=UdData
End function

jørn > ja dt r dt jeg vil

Hej igen.

I stedet for at læse ét tegn ad gangen kan du anvende kommandoen Instr.  Den finder den første forekomst af en søgestreng i en anden streng.


entil:
  var =  instr(dintekst, \" http://\")        \'læg mærke til space foran http, når tag\'en er sat kommer der et =
  If var > 0 then
    nytekst = left(tekst, var - 1) & \"<A Href=\" & Mid(dintekst, var +1)
    dintekst = nytekst
    goto entil
  end if

Jeg har ikke afprøvet koden, men noget lignende har jeg brugt til andre formål.  Jeg går ud fra at der er flere links i din tekst, ellers er det meget enklere.

M.v.h.  Jørn

 

Tilføjelse.

Mit forslag laver ikke slut-tag\'en  </a> men nu har du en ledetråd, så finder du nok den løsning selv, ikke?

M.v.h.  Jørn

Jeg kan ikke få det til at virke.

når dintekst=\"http://www.jubii.dk og http://www.google.com\"
så kommer der kun noget på den første.

Kan du ikke prøve at lave et _helt_ exempel..please...

Hej igen.

Prøv at indsætte dit kodestykke her, så kigger jeg på det.

M.v.h.  Jørn

dintekst = \"Jeg synes at http://www.google.com og http://www.jubii.dk er gode søgemaskiner.\"

entil:
  Var = InStr(dintekst, \" http://\")        \'læg mærke til space foran http, når tag\'en er sat kommer der et =
  If Var > 0 Then
    nytekst = Left(tekst, Var - 1) & \"<A Href=\" & Mid(dintekst, Var + 1)
    dintekst = nytekst
    GoTo entil
  End If
 
MsgBox dintekst

\' Dintekst består nu af
\' <A Href=http://www.jubii.dk er gode søgemaskiner.

jeg mener selfølgelig

  dintekst = \"Jeg synes at http://www.google.com og http://www.jubii.dk er gode søgemaskiner.\"

entil:
  Var = InStr(dintekst, \" http://\")        \'læg mærke til space foran http, når tag\'en er sat kommer der et =
  If Var > 0 Then
    nytekst = Left(dintekst, Var - 1) & \"<A Href=\" & Mid(dintekst, Var + 1)
    dintekst = nytekst
    GoTo entil
  End If
 
MsgBox dintekst

\' Dintekst består nu af
\' Jeg synes at<A Href=http://www.google.com og<A Href=http://www.jubii.dk er gode søgemaskiner.


( jeg skrev TEKST istedtfor DINTEKST )

Hej Pulzu.

Dette er testet.  For at indsætte citationstegn i et streng skal man skrive 3 stk. \"\"\"

Håber du kan finde ud at af bryde det op, nogle linier er jo lidt lange.

Dim a, b, c As Integer
Dim dintekst, nytekst, link, linktekst As String

Private Sub Command1_Click()
 
dintekst = \"Jeg synes at http://www.google.com og http://www.jubii.dk er gode søgemaskiner.\"

entil:
  a = InStr(dintekst, \" http://\")                        \'læg mærke til space foran http, når tag\'en er sat kommer der et \" - citationstegn
  If a > 0 Then
    b = InStr(Mid(dintekst, a + 1), \" \")                  \'førstkommende blanktegn
    link = Left(Mid(dintekst, a + 1), b - 1)
    linktekst = Mid(Mid(dintekst, a + 1), 8, b - 8)      \'plus 7 [8] for at undlade \'http://\'
    nytekst = Left(dintekst, a) & \"<A Href=\"\"\" & link & \"\"\"> \" & linktekst & \" </a> \" & Mid(dintekst, a + b + 1)
   
    dintekst = nytekst
    GoTo entil
  End If
       
  Text1.Text = nytekst

  \'Dintekst består nu af
  \'Jeg synes at<A Href=http://www.google.com og<A Href=http://www.jubii.dk er gode søgemaskiner.
End Sub

Private Sub Form_Load()
  dintekst = \"Jeg synes at http://www.google.com og http://www.jubii.dk er gode søgemaskiner.\"
  Text1.Text = dintekst
End Sub

M.v.h.  Jørn

Det blev lidt uklart, der var stumper af din kode og kommentar der forvirrer billedet.

Dim a, b, c As Integer
Dim dintekst, nytekst, link, linktekst As String

Private Sub Command1_Click()
entil:
  a = InStr(dintekst, \" http://\")                        \'læg mærke til space foran http, når tag\'en er sat kommer der et \" - citationstegn
  If a > 0 Then
    b = InStr(Mid(dintekst, a + 1), \" \")                  \'førstkommende blanktegn
    link = Left(Mid(dintekst, a + 1), b - 1)
    linktekst = Mid(Mid(dintekst, a + 1), 8, b - 8)      \'plus 7 [8] for at undlade \'http://\'
    nytekst = Left(dintekst, a) & \"<A Href=\"\"\" & link & \"\"\"> \" & linktekst & \" </a> \" & Mid(dintekst, a + b + 1)
   
    dintekst = nytekst
    GoTo entil
  End If
       
  Text1.Text = nytekst
 
End Sub

Private Sub Form_Load()
  dintekst = \"Jeg synes at http://www.google.com og http://www.jubii.dk er gode søgemaskiner.\"
  Text1.Text = dintekst
End Sub

DET VIRKER!! TAK!!!!!