Læs i mellem "<" og ">" Haster!!

variabel = Mid$(TextVar, SubStr(TextVar, "<"), SubStr(TextVar, ">"))

Dim lStart as Long
Dim lSlut As Long

lStart=Instr(1,DinString,"<")
If lStart>0 Then
  lSlut=Instr(lStart,DinString,">")
End If

If lStart>0 AND lSlut>0 Then
  debug.print Mid(DinString,lStart,lSlut-lStart)
End If

/Jennemaan

Jeg tjekker lige om de virker!
og ser hvad for en der er bedst

-Subware-

Der er ikke en der er bedst... Min virker kun en gang (dvs. virker kun hvis der kun er et sæt "<>"), hvorimod jenneman's også virker hvis der er flere sæt.
Du fortalte ikke hvad du skulle bruge.

vi kan da bare dele i porten ;o)

Jeg skal bruge det til at finde noget i mellem < og > i en rtfTextboks please vil i ikke hjælpe!!
Giv et eksemple!!

Sub ReadFromRTF()

Dim lStart as Long
Dim lSlut As Long
Dim DinString as String

dinSTring=dinrtftekstbox.text

lStart=Instr(1,DinString,"<")
If lStart>0 Then
  lSlut=Instr(lStart,DinString,">")
End If

If lStart>0 AND lSlut>0 Then
  MsgBox Mid(DinString,lStart,lSlut-lStart)
End If



End Sub

/Jennemaan

Til jennemaan

Hvis jeg nu har en knap som hedder command1
og så når jeg trykker på den knap skal der komme en msgbox op hvor der står det der står i mellem < og > i rtfText boksen

Du skriver blot ReadFromRTF i Clickeventen for Command1...

/Jennemaan