Risultati da 1 a 10 di 10

Discussione: [Vb6] Salvare Parole Digitate In Text Su File TXT

  1. #1
    Senior Member


    REX Big Pedata Strong®
    ▪▪▪▫▫33%▫▫▫▫▫

    L'avatar di HaCk-ChAn
    Data Registrazione
    24-07-2004
    Località
    Alessandria
    Messaggi
    592

    [Vb6] Salvare Parole Digitate In Text Su File TXT

    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!

  2. #2
    Software Zone Maniac L'avatar di Alexsandra
    Data Registrazione
    09-12-2005
    Località
    Verona
    Messaggi
    1.102
    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 23.13.51
    Il primo fondamento della sicurezza non e' la tecnologia, ma l'attitudine mentale.

  3. #3
    Senior Member


    REX Big Pedata Strong®
    ▪▪▪▫▫33%▫▫▫▫▫

    L'avatar di HaCk-ChAn
    Data Registrazione
    24-07-2004
    Località
    Alessandria
    Messaggi
    592
    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!

  4. #4
    Senior Member


    REX Big Pedata Strong®
    ▪▪▪▫▫33%▫▫▫▫▫

    L'avatar di HaCk-ChAn
    Data Registrazione
    24-07-2004
    Località
    Alessandria
    Messaggi
    592
    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!

  5. #5
    Software Zone Maniac L'avatar di Alexsandra
    Data Registrazione
    09-12-2005
    Località
    Verona
    Messaggi
    1.102
    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 09.21.19
    Il primo fondamento della sicurezza non e' la tecnologia, ma l'attitudine mentale.

  6. #6
    Senior Member


    REX Big Pedata Strong®
    ▪▪▪▫▫33%▫▫▫▫▫

    L'avatar di HaCk-ChAn
    Data Registrazione
    24-07-2004
    Località
    Alessandria
    Messaggi
    592
    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!

  7. #7
    Software Zone Maniac L'avatar di Alexsandra
    Data Registrazione
    09-12-2005
    Località
    Verona
    Messaggi
    1.102
    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.

  8. #8
    Software Zone Maniac
    Data Registrazione
    27-09-2004
    Località
    Vinci, Leonardo da Vinci's birthplace
    Messaggi
    1.930
    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/

  9. #9
    Senior Member


    REX Big Pedata Strong®
    ▪▪▪▫▫33%▫▫▫▫▫

    L'avatar di HaCk-ChAn
    Data Registrazione
    24-07-2004
    Località
    Alessandria
    Messaggi
    592
    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!

  10. #10
    Software Zone Maniac L'avatar di Alexsandra
    Data Registrazione
    09-12-2005
    Località
    Verona
    Messaggi
    1.102
    Citazione Originariamente Scritto da HaCk-ChAn
    Volevo fare in modo che i film che si scrivono vengano memorizzati da qualche parte in modo da aver la lista...
    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.
    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

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •