Erstat linieskift med "%0D%0A" ??

Hmm prøv med.

Dim Ledi as string
Dim Puti as string
Dim Bogstav as String
Dim Kode as Integer
Dim længde as Long
Dim Nr as long
Ledi = text1.text
Længde = len(Ledi)
Nr = 1
Do until Nr = Længde +1
Bogstav = mid$(ledi,nr,1)
Kode = asc(bogstav)
If kode = 32 then
Puti = Puti & "%0D%0A"
else
Puti = Puti & Bogstav
end if
Nr = Nr +1
Loop

Jeg har ikke testet den, jeg håber den virker. Jeg er ikke sikker på at Ascii koden for mellemrum er 32, men det tror jeg.

ellers kan du se det ved at skrive
Private sub Text1_Keydown(KeyAscii as Integer)

Msgbox Keyasii
End sub
Og Trykke på mellemrum i tekstfeltet, så fortæller den dig Ascii nummert.

Hilsen
M.I.X

Prøv med:

Text1.Text = Replace(Text1.Text, "
", chr$(12)+chr$(10))

Carriage Return og LineFeed (CR og LF) er decimalt hhv. 13 og 10. Og de ligger i strengen som karakterværdier. Derfor skal du bruge chr$(xx) for at få karakterværdien.

Det kan være du skal dele den op i 2:

Text1.Text = Replace(Text1.Text, "
", chr$(10))

og derefter

Text1.Text = Replace(Text1.Text, "
", chr$(13))

Mix's forslag er sikker godt nok, men alt for besværligt

sjensen

Tak for det!

Jeg tror jeg bruger sjensen(rettet til!) det er mest simpelt, men point til jer begge for gode hurtige svar!