28. september 2003 - 21:15Der er
14 kommentarer og 1 løsning
format med newline fra forms
Jeg vil gerne formatere input fra en "textarea". Med et indput som ser såledet ud :
"
Hej Dig"
vil jeg gerne ende med :
"Hej<br>Dig"
Mit forslag er som følger, men det dutter ikke helt. Hvad gør jeg forkert ? ---------------------------------- Function Format(Input) do while left(Input,1) = " " or left(Input,1) = "\n" Format = right(Input, len(input)-1) Input = Format loop do while left(Input,1) = "\n" Format = "<br> & right(Input, len(input)-1) Input = Format loop end Function 'Format
Takker mange gange. Som symboliseret i toppen, så skal overslødige mellemrum og newlines før første karakter, fjernes. Lige nu kan den fjerne mellemrum eller newlines, men ikke en kombination.
Function Format(Input) do while left(Input,1) = " " or left(Input,1) = vbLf Format = right(Input, len(input)-1) Input = Format loop end Function 'Format
Denne fjerner overflødige linieskift i starten og i slutningen af strengen:
Function Format(Input) Do While Right(Input, 2) = vbCrlf Input = Left(Input, Len(Input) - 2) Loop Do While Left(Input, 2) = vbCrlf Input = Right(Input, Len(Input) - 2) Loop Format = Input End Function
Jeppser og selvfølgelig. Jeg sidder jo og halv sover. Glemte mine c dage, hvor der gik både en /n/r på en ny linie. Kæmpede godt nok med at fjerne to tegn af gange, men det ville ikke helt. Med eagleeye's kommentar fra 22:08:58, så virkede alt.
Jeg tror, det var dit svar, der hjalp golyf mest, så det gør ikke noget. Ellers tak :-)
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.
