Klip i steng

Det kan garanteret gøres nemmere med RegExp, hvilket jeg ikke kan finde ud af.. :-)

Så, her er mit forslag:

dim a, b, c ' kommer til at indeholde de 3 dele

sub klip(tekst)

a = left(tekst, instr(tekst, " ") - 1)

b = mid(tekst, instr(tekst, " ") + 1)
b = left(b, instr(b, "="))
b = left(b, instrrev(b, " ") - 1)

c = mid(tekst, instr(tekst, b) + len(b) + 1)
end sub

klip("VK/VK.EXE /A /S /NL DK=%TEMP% UK=%VAR%")
msgbox "a: " & a & vbCrlf & "b: " & b & vbcrlf & "c: " & c

klip("VL/VL.EXE /A /S DDD=%EEEE%")
msgbox "a: " & a & vbCrlf & "b: " & b & vbcrlf & "c: " & c

/theSurfer

Man kunne også smide værdierne "a,b,c" i en array, i en funktion, og derefter returnere arrayen..

/theSurfer

Takker for points :-)