Søge i tekst...

what do you want to do when these words are found?

så skal den skrive det som står i mellem de to ord i label1.caption

Sub ParseText()
Dim iLinkPos as Long
Dim iMegaPos As Long
Dim iPos As Long
iLinkPos=Instr(1,txtDitTekstVindue.Text,\"link\")
If iLinkPos>0 Then \'\"Link was in the text at position iLinkPos\"
  iPos=iLinkPos-4
  While iPos>0 Or iMegaPos>0
    iMegaPos=Instr(iPos,txtDitTekstVindue.Text,\"Mega\")
    iPos=iPos-1
  Wend
End If

If iMegaPos>0 Then
  label1.Caption=Mid(txtDitTekstVindue.Text,iMegaPos+4,iLinkPos-iMegaPos-4)
End If

End Sub

/Jennemaan

label1.Caption = (Mid(SIN, InStr(1, SIN, \"mega\", vbBinaryCompare) + 4, InStr(1, SIN, \"link\", vbBinaryCompare) - (InStr(1, SIN, \"mega\", vbBinaryCompare) + 4)))

There is NO error checking here, so I am assuming that the text field contains data. In this exampel replace SIN with the actual field name.

a simple solution to this (NO ERROR checking is this:

label1.Caption  = getMid(SIN)\'SIN is your text field

Function getMid(SIN As String) As String

On Error Resume Next
    getMid = (Mid(SIN, InStr(1, SIN, \"mega\", vbBinaryCompare) + 4, InStr(1, SIN, \"link\", vbBinaryCompare) - (InStr(1, SIN, \"mega\", vbBinaryCompare) + 4)))

End Function

Mange tak, kan I til sidst lige fortælle mig hvordan jeg henter en bestemt tekst-fil (f.eks. C:\\Tekst.txt) ind i text-box???

Private Sub mOpen_Click()
Dim fn As Integer
fn = FreeFile
Open \"C:\\Tekst.txt\" For Binary As #fn
Text1 = Input(LOF(1), fn)
Close #fn
End Sub

/Jennemaan

Tak for den glimrende hjælp, begge to!

jennemaan> med den metode du gav mig der så får jeg kun det første bogstav fra tekst.txt ind i Text1 ?????????
Gider du lige hjælpe med det??

Eller jeg fandt ud af at med ganske alm. tekst, så kunne den godt, men det er fordi det er en lidt speciel tekstfil jeg åbner som har en masse syge tegn i!!

Brug
Text1 = InputB(LOF(1), fn)

/Jennemaan

tak :o)