Newsgroup: it.comp.lang.visual-basic
Titolo: Estrapolazione di testo

Ciao a tutti,
ho un file di testo che contiene delle parti ti testo di lunghezza
sempre variabile separate tra di loro da alcuni caratteri di
separazione.
Per esempio.
Oggi è una bella giornata.......
.... e me ne vado al mare.
********************************
Oggi è una brutta  giornata.......
.... e me ne sto a casa
*********************************
Oggi è una ... etc etc..
********************************
Come vedete ogni pezzo di testo che mi interessa è seguito da una
serie di asterischi.
Mi piacerebbe trovare una soluzione efficace che al clic di un bottone
mi prelevasse il primo pezzo di testo e me lo mettesse su un text box,
alla successiva pressione del bottone, il contenuto del text box
dovrebbe essere sostituito dal secondo pezzo di testo, e cosi' via....
Qualcuno saperebbe darmi qualche indicazione ??
Grazie mille.
Ciao

 Per esempio.
[Mega Cut]
Allora...per renderti le cose il + veloci possibile:
Premi F1 e cerca nella sezione indice la funzione SPLIT()
Dovrebbe fare al caso tuo :)
Ciao SIMO
-- 
__________________
www.sasim.net
  ||  
http://sasim.dnsart.com
* Server IRC : 
irc.azzurranet.org
 --> Canale: #it_lang_vb
* Sito Comune Ng: 
http://www.it-lang-vb.net
* Manifesto del Ng: 
http://www.it-lang-vb.net/docs/Manifesto.txt
* I vecchi messaggi su: 
http://groups.google.com/

Dovrebbe fare al caso tuo :)
Ciao, innazitutto grazie per la risposta.
Ho cercato split... (ho VB5).. ma non mi sembra che ci azzecchi molto
con quello che vorrei fare io.... ma forse mi sono spiegato male nel
messaggio...
Ti ringrazio ancora.
Ciao

 dovrebbe essere sostituito dal secondo pezzo di testo, e cosi' via....
 Apri il file (con Open, vedi help, se necessario), leggi riga per riga,
(con Line Input) e scrivi sulla textBox, finchè non trovi gli asterischi.
La butto lì al volo senza provare:
Crea un form con tre pulsanti e una textbox. Accertati che la TB
sia multiline. In generale-dichiarazioni del form, metti un
    dim FileLibero as integer
    dim Riga as string
Nel primo pulsante, chiamalo ApriFile, piazza 'sta roba:
    filelibero= freefile
    Open "<qui ci metti il nome del file>" for input as FileLibero
Nel secondo, chiamalo LeggiProssimo, vai con:
    dim Testo as string
    do while not eof (filelibero) ' se non siamo alla fine del file
    line input #filelibero, riga ' leggi una riga
    if instr$(riga, "***") then exit do ' se siamo agli asterixi, esci
    testo = testo & vbcrlf & riga ' altrimenti aggiungi la riga alla textbox.
    loop
    text1=testo
Nel terzo, che servirà per uscire, metti:
    close filelibero
    unload me
Occhio e croce dovrebbe andare...
Bye, G.

 Bye, G.
....io invece vorrei recuperare molti e.mail da un file di testo unico
separati da spazi....
quindi dovrei:  cercare @, una volta trovato però debbo tornare indietro
fino al
primo spazio che incontro (come indico lo spazio?) e selezionare tutto sino
al prossimo
spazio (questa volta andando avanti) ; il Trovato poi lo metto = Mail
(Mail=Mail+Trovato)....
es: questo non centra nulla 
questo...@tin.it
 questo non serve
questo...@tin.it
 io non servo 
questoe...@tiscali.it
 .....
come faccio a "tornare indietro" ?
^__^
Luca

Occhio e croce dovrebbe andare...
Perfetto.
Grazie mille.
A buon rendere.

 Ho cercato split... (ho VB5)..
VB5 non supporta la Split().
M$ ha reso pubblica una Split() in puro VB per VB5.
Se ti interessa chiedila, chi la usa ti saprà dire dove trovarla o te la
posterà.
Ciao