Visual Basic 6 - elimina spazi

Salve, chiedo cortesemente un consiglio per risolvere questo quesito.
Come è possibile aprire un file txt (esempio commento.txt) e disporre il testo tutto di seguito?

Esempio:

da cosi

Perché scegliamo l’auto di una certa cilindrata o di un certo colore.
L’automobile è uno strumento di aggressività o una cabina per il relax.
E’ un oggetto da accarezzare con lo sguardo come una bella donna o un feticcio a cui sacrificare ogni ritegno.
La guida è un mezzo per coltivare il proprio narcisismo o per mettersi in mostra

A cosi

Perché scegliamo l’auto di una certa cilindrata o di un certo colore.L’automobile è uno strumento di aggressività o una cabina per il relax.E’ un oggetto da accarezzare con lo sguardo come una bella donna o un feticcio a cui sacrificare ogni ritegno.La guida è un mezzo per coltivare il proprio narcisismo o per mettersi in mostra.

Grazie mille

Gigi

aspetta ke forse la soluzione la so..avevo dei folgi con dei comandi..ma te, intanto, un file lo sai già aprire e kiudere?

allora...
il comando Trim(variabile) , restituisce una stringa, partendo da una stringa (variabile), in uci vengono elimnati gli spazi bianchi iniziali e finali....esempio:
x=" Ciao a tutti! "; a=Trim(x) --> la variabile 'a' avrà come valore "Ciao a tutti!"


x aprire un file fai ( da cui devi prendere delle parole o frasi fai così:
Open ( "percorso\file.txt" for input as #1
poi devi fare un ciclo fino a quando non termina il file (cioè fino a quando hai letto tutto il contenuto)..e fai così...
do while not EOF(1) ' sarebbe cicla fino a non End Of File 1(=#1)
poi metti
Input #1, variabile ' per prendere tuto il testo fino a quando non vai a cappo con il testo stesso.
secondo me a te servirebbe usare un vettore..visto ke ci sono diverse frasi ke vanno a capo....
poi alla fine del ciclo (dopo il loop) metti
close #1

ok?

se nn hai capito scrivi qui i testo del file (e cosa vorresti avere alla fine del programma) ke io t posto il codice...

Ti ringrazio innanzitutto per la cortesia e la disponibilità dimostrata nell’avermi risposto.
Non nascondo la mia quasi completa ignoranza in materia di programmazione.
Il file si chiama commento txt e viene generato con Excel, il suo contenuto è variabile (questo dipende dal testo che si inserisce nelle celle ).
Il contenuto di commento.txt potrebbe essere ad esempio:

“Inibitore della pompa acida.”
“Ipersensibilita' verso i componenti”
"Sistema nervoso centrale e periferico"

Ma indipendentemente dal suo contenuto il file commento.txt dovrebbe comparire così

“Inibitore della pompa acida.” “Ipersensibilita' verso i componenti” "Sistema nervoso centrale e periferico"

La procedura VB dovrà aprire, modificare e chiudere il file automaticamente; l’importante è che il testo venga allineato tutto di seguito come sopra eliminando tutti gli invii a capo

Ciao e grazie ancora
Gigi

allora prova a fare così: intanto metti il file di testo nella stessa cartella del progetto e del form..( poi xò non so kosa significa ke viene generato ocn excel)..
e poi cmq fai così---


dim parola as string
Open (App.Path & "\commento.txt" For Input As #1
Do While Not EOF(1)
Input #1, parola
text1.text = text1.text & parola
Loop
Close #1

così dovrebbe andare..naturlamente se non vuoi il testo in una text ma in una label..metti label.caption

Ho provato il codice e all’interno della textBox compare il testo scritto tutto di seguito. Esistono però alcune limitazioni
Se il testo è troppo lungo questo viene troncato
se sono presenti "," questi vengono cancellati
vorrei invece che dal seguente testo:
“Inibitore della pompa acida.”,
“Ipersensibilita' verso i componenti”,
"Sistema nervoso centrale e periferico" ,
comparisse
“Inibitore della pompa acida.”, “Ipersensibilita' verso i componenti”, "Sistema nervoso centrale e periferico",
ho provato ad aggiungere la funzione Open (App.Path & "\dbconvertito.js" For Append As #2 , nell’esempio il file si chiama DB.js
Dim parola As String
Open (App.Path & "\db.js" For Input As #1
Do While Not EOF(1)
Input #1, parola
Open (App.Path & "\dbconvertito.js" For Append As #2
Write #2, parola
Close #2
Loop
Close #1

Ma l’effetto è che il file creato (sempre dall'esempio sopra riportato) è così composto
"“Inibitore della pompa acida.”"
""
"“Ipersensibilita' verso i componenti”"
""
"Sistema nervoso centrale e periferico"
""

Tu vuoio togliere tutti i VBCrlf, quindi.

Prova così. Replace(testo, chr(VbCrLf),chr(0))

esattamente in quale punto devo inserire
Replace(testo, chr(VbCrLf),chr(0))

inserendo(evidentemente sbaglio)
Write #2, Replace(parola, Chr(vbCrLf), Chr(0))
mi da come errore: tipo non corrispondente

Grazie
Gigi