Newsgroup: it.comp.lang.visual-basic
Titolo: leggere una stringa riga per riga

ciao a tutti.
avrei la necessita' di leggere una stringa mooolto lunga composta su piu'
righe (proveniente dalla clipboard).
volevo sapere come fare per leggere riga per riga...
la soluzione piu' brutale e' passare per un file, cosa che so fare, pero'
speravo ci fosse qualcosa di piu' immediato. al momento non mi viene in
mente nulla!
grazie dell'aiuto!
--
Ciao by Shannara

 volevo sapere come fare per leggere riga per riga...
Spero di aver capito il problema... Puoi assegnare la stringa di testo
ad una variabile, e trattarla con la Split cercando come separatore
vbCR o vbCRLF. Ti dovrebbe restituisce un Array di stringhe, in ognuna
una riga. Prendi con le molle questo consiglio, non l'ho provato...
Se hai VB5, la Split non c'è, ho trovato tempo fa una funzione in
codice che la emula, se ti serve te la mando.
Bye, G.

 volevo sapere come fare per leggere riga per riga...
Se non sono troppe righe (diciamo meno di mille), puoi usare l'istruzione
split. Ecco l'esempio:
Dim aArrayRighe As Variant
aArrayRighe = Split(sMioTestoSuPiùRighe, vbCrLf)
a questo punto aArrayRighe è diventato un array di tanti elementi quante
sono le righe che compongono il tuo testo.
Se vuoi sapere quante righe sono usa Ubound(aArrayRighe).
Fai attenzione che se vuoi accedere al 15mo elemento devi leggere il
contenuto di aArray(14), perchè l'array viene creato a base 0.
La funzione Split esiste solo da VB6 in poi. Se hai Vb5, devi scriverti a
mano il codice equivalente.
Ciao
*Roby*

 split. Ecco l'esempio:
[cut]
grazie sia a te che a "Paperino" e a quelli che risponderanno dopo di voi!
meglio di una servizio di consulenza! :-)
mo' provo! anzi forse domattina. adesso c'e' l'elezione di miss italia :-PP
--
Ciao by Shannara

 mo' provo! anzi forse domattina. adesso c'e' l'elezione di miss italia
:-PP
In bocca al lupo per tutte e due le cose. :-D
Ciao
*Roby*

 aArrayRighe = Split(dest, vbCrLf)
ho provato e purtroppo mi da' il seguente errore di *compilazione*:
"numero errato di argomenti o assegnazione di proprieta' non valida"
il codice e' il seguente:
----------------------------------
dest = Clipboard.GetText()
Dim aArrayRighe As Variant
aArrayRighe = split(dest, vbCrLf)
----------------------------------
ho provato anche:
aArrayRighe = split(dest, vbCrLf, -1, vbBinaryCompare)
ma il risultato e' lo stesso...
come mai? hai qualche idea?
PS: ovviamente ho VB6 Sp5, infatti nell'msdn c'e' la descrizione del comando
split e non trovo errori!
--
Ciao by Shannara

 ----------------------------------
Strabilio!
Io ho VB6 Sp3, ma mi rifiuto di pensare che sia cambiata la sintassi
dell'istruzione. Comunque ho creato un progetto nuovo con un solo form ed un
command button ed ho incollato questo codice:
Option Explicit
Private Sub Command1_Click()
Dim dest As Variant
dest = Clipboard.GetText()
Dim aArrayRighe As Variant
aArrayRighe = Split(dest, vbCrLf)
MsgBox UBound(aArrayRighe)
End Sub
A me funziona bene. Si compila e poi fa quello che deve.
Ciao
*Roby*

 A me funziona bene. Si compila e poi fa quello che deve.
ok! funzia! si vede che avevo fatto casino nel progetto...
anche se non so cosa! boh!?!?
comunque grazie ancora! :-)
--
Ciao by Shannara

 mano il codice equivalente.
ecco la split per VB5
http://support.microsoft.com/support/kb/articles/Q188/0/07.ASP
--
Fibia "Better without any sign" FBI