fedde skrev:
Jag vet vad tecknet används till annars. Valde det tecknet bara för att jag var tvungen att ha ett tecken som normalt inte förekommer i en text. Annars skulle det bli radbrytningar lite här och var...
Oki, då är jag med
fedde skrev:
Allt funkar som sagt. :e Men jag vill förstå varför raderna stör ut varandra och man inte kan köra alla raderna tillsammans (kan vara bra att veta till ett annat tillfälle):
function fixRadmatningar(fix) fixRadmatningar = Replace(fix, vbCrLf, "<br>") fixRadmatningar = Replace(fix, vbLf, "<br>") fixRadmatningar = Replace(fix, vbCr, "<br>") fixRadmatningar = Replace(fix, "¶", "<br>") ' Denna raden "vinner" och de ovan funkar inte. end functionNär detta gör det? Vad spelar ordningen för roll?
function fixRadmatningar(fix) fixRadmatningar = Replace(fix, "¶", "<br>") fixRadmatningar = Replace(fix, vbCrLf, "<br>") fixRadmatningar = Replace(fix, vbLf, "<br>") fixRadmatningar = Replace(fix, vbCr, "<br>")' Denna raden "vinner" och "¶" funkar inte. end function
Ingen av varianterna är OK. Det är inte ordningen det är fel på, utan att du på varje rad gör om tilldelningen av funktionens returvärde. Därför blir det den sista raden som "vinner", och det är det som skiljer min funktion från din( se blå-markeringarna)
fedde skrev:
Förresten, ditt sista förslag på funktionen funkar inte. Får ingen data tillbaka om jag skriver så.
Jodå, den funkar. Däremot är den inte bra (bl.a kommer den att påverka variabeln man skickar in), men jag skrev den bara för att påvisa tilldelningsfelet.
Så här bör den se ut:
function fixRadmatningar(textvalue)
temptext = Replace(textvalue, vbCrLf, "<br>")
temptext = Replace(temptext, vbCr, "<br>")
fixRadmatningar = Replace(temptext, vbLf, "<br>")
end function