Klippe i en streng

newstreng = left(streng, instr(streng, \"<\") - 1)

dim mitKlip
dim minStreng

minSTreng=\"46367<14><0><> og så noget mere\"

mitKlip = Mid(minStreng,1,Instr(1,minStreng,\"<\"))

:o)

/Jennemaan

arh... selvfølgelig:

mitKlip = Mid(minStreng,1,Instr(1,minStreng,\"<\")-1)

/Jennemaan

jennemann >> Hvorfor ikke bare bruge Left() ? :-)

hehe.. begge virker jo fint...
men lige for at vide hvad jeg bruger..

Hvordan virker f.eks.
instr(streng, \"<\")
??

netsrac >> fordi at han ved at bruge mid også kan hente tekst længere inde i teksten... Når man har mid har man IMHO hverken brug for LEFT eller RIGHT.

Ifølge VB Journal er Mid iøvrigt hurtigere (uvidst af hvilken årsag) end LEFT og RIGHT funktionerne.

/Jennemaan

Argh... mangler mere.
Ka man f.eks. få den til at hoppe hen til \"<\" nr. 2??

richardr

Instr Returnerer positionen af den første forekomst af den søgestreng du angiver. Hvis \"<\" ikke findes i strengen returnerer Instr iøvrigt 0, hvilket man burde teste for inden.


Syntaksen er:

pos = Instr(startpos, Tekst, søgetekst)

/Jennemaan
/Jennemaan

richardr ja det kan man :o)


dim mitKlip
dim mitAndetKlip
dim pos
dim pos2
dim minStreng

minSTreng=\"46367<14><0><> og så noget mere\"
pos=Instr(1,minStreng,\"<\")
mitKlip = Mid(minStreng,1,pos-1)

pos=Instr(pos,minStreng,\">\") \'find afslutning

pos2=Instr(pos,minStreng,\"<\") \'find næste



mitAndetKlip=Mid(minStreng, pos+1, pos2-pos-2)



:o)

/Jennemaan

Jennemaan

Mange tak...

netsrac dit svar ku bruges.. men jeg ka nu bedre li Jennemaan\'s, plus han var hurtig med forklaring og yderligere hjælp.. så 5 point til netsrac, fordi du kom med et anvendeligt svar, og så resten til Jennemaan..

og så tak til jer begge.. fordi i svarede så hurtigt.. :)

Ja ja det er typisk, man svarer først på det reelle spørgsmål, så er man væk en halv time også løber en anden med alle pointene.