antra (Normal User)
Newbie
Messaggi: 4
Iscritto: 25/01/2007
|
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
|
|
|
zubizarreta (Normal User)
Rookie
Messaggi: 59
Iscritto: 21/01/2007
|
aspetta ke forse la soluzione la so..avevo dei folgi con dei comandi..ma te, intanto, un file lo sai già aprire e kiudere?
|
|
|
zubizarreta (Normal User)
Rookie
Messaggi: 59
Iscritto: 21/01/2007
|
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...
Ultima modifica effettuata da zubizarreta il 25/01/2007 alle 16:29 |
|
|
antra (Normal User)
Newbie
Messaggi: 4
Iscritto: 25/01/2007
|
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
|
|
|
zubizarreta (Normal User)
Rookie
Messaggi: 59
Iscritto: 21/01/2007
|
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
Ultima modifica effettuata da zubizarreta il 26/01/2007 alle 17:37 |
|
|
antra (Normal User)
Newbie
Messaggi: 4
Iscritto: 25/01/2007
|
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"
""
Ultima modifica effettuata da antra il 02/02/2007 alle 9:24 |
|
|
Reese (Ex-Member)
Pro
Messaggi: 179
Iscritto: 09/08/2006
|
Tu vuoio togliere tutti i VBCrlf, quindi.
Prova così. Replace(testo, chr(VbCrLf),chr(0))
|
|
|
antra (Normal User)
Newbie
Messaggi: 4
Iscritto: 25/01/2007
|
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
|
|
|
Reese (Ex-Member)
Pro
Messaggi: 179
Iscritto: 09/08/2006
|
Prova cosi' parola=Replace(parola, Chr(vbCrLf), Chr(0)), poi scrivi parola nel file.
|
|
|
