"Dennis Hansen" <trier@train-sim.dk> wrote in message
news:a4u5bp$131l$1@news.cybercity.dk...
> Hejsa
>
> Er der ikke en smart måde hvorpå man kan udtage noget
> tekst imellem bestemte tegn...
>
> Fx. har jeg en tekstlinje hvor der står serial ( 1 )
>
> Jeg skal så bare bruge 1-tallet og ikke resten...
>
> --
> Med Venlig Hilsen
>
> Dennis Hansen
Hej Dennis
Du kan bruge funktionerne Mid og Instr.
Public Sub test213()
Dim strTmp As String
strTmp = "serial ( 1 )"
Dim res As String
res = Mid(strTmp, _
InStr(1, strTmp, "(") + 1, _
InStr(1, strTmp, ")") - InStr(1, strTmp, "(") - 1)
res = Trim(res)
MsgBox res
End Sub
Her bruger jeg Instr til at finde placeringen af "(" og ")" og
udtrækker det der ligger imellem. Funktionen Trim bruges til
at fjerne overflødige blanktegn fra begge ender.
--
Mikkel Bundgaard
IT University of Copenhagen
http://officehelp.gone.dk
Codito, Ergo Sum