23. september 2002 - 22:02
Der er
1 kommentar og
1 løsning
Erstat tekst inden for to tegn!
Hvordan erstatter jeg en tekst skrevet inden for f.eks. <homepage> og </homepage>
eks
Jeg har en string der ser således ud
myString = "min hjemmeside: <homepage>Hva' så der</homepage>"
når jeg udskriver myString, vil jeg gerne replace alt der står inden for <homepage> og </homepage>
håber i forstår :)
23. september 2002 - 22:31
#1
hej cthun, hvis du vil have forklaring så bare sig til :)
Dim MyString, StartTag, SlutTag, SlutString
Dim StartPos, SlutPos
MyString = "min hjemmeside: <homepage>Hva' så der</homepage>"
StartTag = "<homepage>"
SlutTag = "</homepage>"
StartPos = InStr(MyString, StartTag)
StartPos = StartPos + Len(StartTag)
SlutPos = InStr(StartPos, MyString, SlutTag)
SlutString = Mid(MyString, StartPos, SlutPos - StartPos)
