03. februar 2009 - 21:24Der er
2 kommentarer og 1 løsning
Funktion
Kære Eksperter,
Fedt med et nyt layout, nu skal jeg lige have det ind på rygmarven før det kører, men det skal nok blive godt ;-)
Jeg skriver fordi jeg mangler en "simpel" kode, jeg har kodet med den, men konstant går der noget i vejen, nu kunne jeg godt tænke mig at se en anden udgave.
Det jeg mangler er en: Function Udtraek(indhold,udtraeket)
indhold kunne fx være: [1]Haløjsa![/1][test]1 2 3[/test][medlem1]Huggo[/medlem1]
Function(indhold,udtraeket) Splitindhold = split(indhold, "[") for i = 1 to Ubound(Splitindhold) 'strengen Splitindhold(0) indeholder nu "1]Halløjsa!" StrUdtraeksMatch = split(Splitindhold(i),"]" 'StrUdtraeksMatch(0) = "1" StrUdtraeksMatch(1)="Halløjsa!" 'match på uppercase/store bogstaver if ucase(StrUdtraeksMatch(0)) = ucase(udtraeket) then return StrUdtraeksMatch(1) break end if next End function
NB: dette gør faktisk din slutning [/n] ligegyldig, men der sker ikke noget ved at have den med. derudover har jeg ikke testet scriptet.
Der var lidt små fejl (slå fejl), men det var lige til at rette, så det færdige script ende med at se sådan her ud: <% Function Udtraek(indhold,udtraeket) Splitindhold = split(indhold, "[") for i = 1 to Ubound(Splitindhold) StrUdtraeksMatch = split(Splitindhold(i),"]") If ucase(StrUdtraeksMatch(0)) = ucase(udtraeket) Then Udtraek = StrUdtraeksMatch(1) End if next End function
godt at du selv rettede det til. Det er lidt tid siden jeg har skrevet noget vb så jeg er lige stiv nok i betraekket :D
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
