Udvælge del af streng

pos1 = Instr(str, "xxxxx") + 5
pos2 = Instr(str, "yyyy")
str2 = Mid(str, pos1, pos2-pos1)

hvis "xxxxx" varierer i længde:

s = "xxxxx"
pos1 = Instr(str, s) + Len(s)

Du kan gøre det med inStr og mid, Eks:
Dim str As String
Dim nyStr As String
str = "45234daeffxxxxx45ef53fa23yyyy2346625234234534xxxxx5426fe234gyyyy234b"
nyStr = Mid(str, 5 + InStr(1, str, "xxxxx"), (InStr(1, str, "yyyy") - InStr(1, str, "xxxxx")))
MsgBox nyStr

ja, 1 sekund, er ikke lang tid :-)

Man kan også gøre sådan her:

str = split(str, "yyyy")
str2 = mid(str(0), instr(str(0), "xxxxx") + 5)

Så indeholder str2 værdien "45ef53fa23".

Det gør det også meget nemmere, hvis man skulle have fat i den værdi, der står lige efter det næste "xxxxx", da man så bare bruger "str(1)" i stedet for "str(0)"..

..
og så kan det også bruges i en loop:

str = split(str, "yyyy")
for i = 0 to ubound(str) - 1
    str2 = mid(str(i), instr(str(i), "xxxxx") + 5)
    msgbox str2
next

okay det var hurtigt! -og det virker!

Hvis i smider et svar hver, kan i få lov at dele points.

Jeg må indrømme, at jeg foretrækker positioner (f.eks. "pos ="), fremfor at skrive det hele i mid-linien..

Det er meget nemmere at holde styr på det, når man f.eks. bare kan skrive "pos2-pos1".. synes jeg.. :-)

Hvis du skal bruge flere del af strengen, vil jeg klart anbefale Split.

damn, jeg løb forresten ind i et problem...

hvis nu strengen ser sådan her ud:

45234dyyyyaeffxxxxx45ef53fa23yyyy2346625234234534xxxxx5426fe234gyyyy234b

-så kommer der et yyyy FØR der kommer et xxxxx - hvordan får jeg den til at tage den første yyyy EFTER den første xxxxx ?

pos1 = Instr(str, "xxxxx") + 5
pos2 = Instr(pos1, str, "yyyy")
str2 = Mid(str, pos1, pos2-pos1)

når pos2 findes, angiver du pos1 som første parameter til Instr, så starter søgningen efter xxxxx

ah smart, jeg havde slet ikke set start parameteret.

Med en løkke, laver man bare en IF-sætning, der spørger "er der xxxxx?":

str = split(str, "yyyy")
for i = 0 to ubound(str) - 1
    if instr(str(i), "xxxxx") then
        str2 = mid(str(i), instr(str(i), "xxxxx") + 5)
        msgbox str2
    end if
next

takker mange gange for hjælpen