leggere file txt

[Adam7]

Ciao a tutti
Ho un piccolo problema forse qui qualcuno può aiutarmi
Con questo script leggo un file txt e fin qui tutto bene.. però quando stampo a schermo il testo è tutto attaccato cioè non legge i l’invio (non va a capo) dato nel file.

<%

strPath = Server.Mappath("chi_k.txt")
Set objFileSy = Server.CreateObject("Scripting.FileSystemObject")
Set objApriFile = objFileSy.OpenTextFile(strPath, 1)

Response.Write objApriFile.ReadAll

Set objApriFile = Nothing
Set objFileSy = Nothing


%>

Faccio 1 esempio.
Nel file txt è scritto così:
Ma se domani un altro sole il tuo corpo riscalderà
(domani),
però domani un altro bacio dimmi che sapore avrà
(domani),
se domani un pensiero di ciò che era ieri ti chiamerà
(domani),
tienilo con te
perché dopo un giorno ancora forse se ne andrà.

A schermo invece viene stampato così:
Ma se domani un altro sole il tuo corpo riscalderà (domani), però domani un altro bacio dimmi che sapore avrà (domani), se domani un pensiero di ciò che era ieri ti chiamerà (domani), tienilo con te perché dopo un giorno ancora forse se ne andrà.

Come posso far andare a capo come è riportato nel file txt?
Grazie 1000

[optime]

sostituisci i vbCrLf con < b r >

[Adam7]

ma nel file txt non c'è ne vbCrLf ve

[deleted_b]

ci sono ci sono

i vbcrlf sono i ritorno a capo...

[dado86ssj]

Se non dovesse funzionare con il VbCrLf fai un replace su Chr(13) che è l'equivalente in ASCII della pressione del tasto invio...

[Adam7]

Sarò cecato io ma nn lì vedo…
Se nel file txt scrivo:
Ma se domani un altro sole il tuo corpo riscalderà

però domani un altro bacio dimmi che sapore avrà

se domani un pensiero di ciò che era ieri ti chiamerà


così tutto funziona… ma nel mio file txt “
” non c’è…
ho provato anche a scrivere così ma nada Response.Write(objApriFile.ReadAll&"
")
scusatemi ma nn ce stò a capì na mazza…

[dado86ssj]

Non ci siamo intesi, nel file di testo normale l'invio è "invisibile" per farlo interpretare all'html devi sostituire l'invio Chr(13) con l'invio dell'html

Fai cosi:

testo = objApriFile.ReadAll
testo = Replace(testo,"Chr(13)","
")

in questo modo viene analizzata la stringa e sostituito ogni invio con il corrispettivo tag html.

[Adam7]

ho provato così ma è sempre la stessa cosa

<%

strPath = Server.Mappath("chi_k.txt")
Set objFileSy = Server.CreateObject("Scripting.FileSystemObject")
Set objApriFile = objFileSy.OpenTextFile(strPath, 1)

testo = objApriFile.ReadAll
testo2 = Replace(testo,"Chr(13)","vbCrLf")
Response.Write testo2

Set objApriFile = Nothing
Set objFileSy = Nothing

%>

[Adam7]

oltre vbCrLf a ho provato con

testo2 = Replace(testo,"Chr(13)","
")
Response.Write testo2

[dado86ssj]

Hai ragione, mi sono distratto...il chr non ha le virgilette!

Replace(testo,Chr(13),"
")