Ragazzi ho una text, e vorrei salvare in un file txt quello che c'è scritto dentro.. come si può fare?? lo so fare con una combo.. ma non con una text..
Ragazzi ho una text, e vorrei salvare in un file txt quello che c'è scritto dentro.. come si può fare?? lo so fare con una combo.. ma non con una text..
Iscriviti A Informatic Mania!
AMD Athlon XP 3200 - Windows XP Professional Service Pack 1
GeForce6600GT Overcloccata!
Codice:Private Sub salva_dati() On Error GoTo fine Open App.Path & "\SWZone.txt" For Output As #1 ' Crea il file Print #1, TextBox1.Text ' Scrive il contenuto del box Close #1 Exit Sub fine: Close #1 MsgBox Err.Description End Sub
Ultima modifica di Alexsandra; 09-04-2006 alle 22.13.51
Il primo fondamento della sicurezza non e' la tecnologia, ma l'attitudine mentale.
Mh.. Ho provato ad inserirlo ma non me lo fa fare.. guarda il sorgente:
http://www.thehackerzone.altervista....20memorize.zip
Iscriviti A Informatic Mania!
AMD Athlon XP 3200 - Windows XP Professional Service Pack 1
GeForce6600GT Overcloccata!
Copia e incolla l'url in una nuova finestra, senò non te lo fa scaricare..
Iscriviti A Informatic Mania!
AMD Athlon XP 3200 - Windows XP Professional Service Pack 1
GeForce6600GT Overcloccata!
Hai messo la procedura in Load,quella che ti ho postato io scrive (Output) e và associata alla chiusura.Alla partenza devi leggere pertanto diventa questa
Private Sub Form_Load()
LoadSettings
End Sub
Private Sub LoadSettings() 'leggo le impostazioni salvate
Dim linea As String
On Error GoTo fine
Open App.Path & "\SWZone.txt" For Input As #1
Input #1, linea
Textbox1.Text = linea
Close #1
Exit Sub
fine:
Close #1
MsgBox Err.Description
End Sub
La procedura che ho postata prima la devi mettere associata all'evento chiudi (la x in alto a Dx o al tasto per uscire) così
Private Sub Form_Unload(Cancel As Integer)
salva_dati ' richiami una sub con la procedura in Output
End
End Sub
Usa End e non Unload Me con End svuoti anche la Ram
Ultima modifica di Alexsandra; 18-03-2006 alle 08.21.19
Il primo fondamento della sicurezza non e' la tecnologia, ma l'attitudine mentale.
Sarò scemo io o non va.. me la potresti metter come progetto perfavore.. vogliov ede dove sbaglio..
Iscriviti A Informatic Mania!
AMD Athlon XP 3200 - Windows XP Professional Service Pack 1
GeForce6600GT Overcloccata!
Ho editato il mio post.Nel tuo progetto cancella la sub Load e copia ed incolla le sub in azzurro.
PS. non ho capito a cosa ti serve salvare quel box,guarda che ad ogni chiusura sovrascrivi il file,anche se lo associ ad un pulsante (Salva) aprendo il file in Output verrà sempre sovrascritto
Il primo fondamento della sicurezza non e' la tecnologia, ma l'attitudine mentale.
Potresti fare in un modo piu semplice. Devi usare getsetting e savesetting, che salvano il testo in particolari chaivi di registro. Cerca su wintricks e troverai qualcosa di sicuro
Linux registered user: 417486
Linux registere machine: 325192
http://counter.li.org/
Volevo fare in modo che i film che si scrivono vengano memorizzati da qualche parte in modo da aver la lista...
Iscriviti A Informatic Mania!
AMD Athlon XP 3200 - Windows XP Professional Service Pack 1
GeForce6600GT Overcloccata!
Devi cambiare il modo di aprire il file invece in Output aprilo in Append e ogni volta che fai clik su salva ti "Appende" i dati sotto all'ultimo inserito.Originariamente Scritto da HaCk-ChAn
Adesso che hai spiegato cosa devi fare non ti serve la procedura in Load ma associ al tasto salva il salvataggio nel file in Append, metti un if che se non lo trova lo crea (Output). Per vedere la lista associa l'apertura del file in Input e puoi caricare un List e vederti i tuoi dati
Il primo fondamento della sicurezza non e' la tecnologia, ma l'attitudine mentale.
Segnalibri