Vb (2)

[stellacometa2003]

Ehy lorven..tranquillo..non ci sono rimasta male...è che mi sto solo ricollegando ora perchè ieri ho staccato per cercare alcune informazioni sul mio libro ma senza risultati...Ti ringrazio per il link e la codifica..credo che come prima cosa guarderò il link così ti faccio sapere cosa ne ho capito!!! Grazie un miliardo...

[stellacometa2003]

WoooooW....non sembra difficile però mi sa che mi devo anche andare a dare un occhiata a cosa siano i record e il loro utilizzo!!

Che impresa che mi sono messa sulle spalle..però se non rispondo a sta curisità sarà peggio...

Grazie mille lorven...cercherò di imparare queste cose e poi mi rivedo meglio la codifica che mi hai postato perchè vista così a primo impatto mi fa un pò di confusione!!

Grazie ancora prof lorven!!!

[stellacometa2003]

Allora...dopo tanto googlogare e studiacchiare qua e la ho imparato a salvare un file di testo...Ad esempio, ho un'applicazione con una textbox e due bottoni e scrivo questo codice:

Codice:

Private Sub Command1_Click()
Text1.Text = ""
On Error GoTo fine
Open App.Path & "\testo.txt" For Input As 1
Do
Input #1, linea
Text1.Text = Text1 & linea & vbCrLf
Loop Until EOF(1) = True
Close #1

Exit Sub
fine:
Close #1
MsgBox Err.Description
End Sub

Questo bottone mi carica il file salvato!

Codice:

Private Sub Command2_Click()
On Error GoTo fine
Open App.Path & "\testo.txt" For Output As #1
Print #1, Text1.Text
Close #1

Exit Sub
fine:
Close #1
MsgBox Err.Description
End Sub

Questa me lo salva!!!

Ora capisco meglio il codice di lorven..MAAAAAAAAAA.....

Ho riscontrato che l'applicazione salva solo un file per volta e che una volta che ne salvo uno nuovo cancella il precedente!!! Come si fa per salvare più file e poi appena schiccio il Command2 scelgo quello che voglio aprire??

[lorven]

Era una delle modifiche che invitavo ad apportare!

[stellacometa2003]

mmmmh...allora ci devo arrivare io...Bella sfida!!!
Sono riuscita ad imparare questo...riuscirò anche a salvare più di un file! SPERO!!!

[lorven]

Hai comunque fatto un buon lavoro, complimenti. Prova a fare da sola il resto.
Un aiutino: usa il controllo FileListBox.

[stellacometa2003]

Grazie grazie... un passo alla volta e si arriva in alto..

Appena riesco in quest'ultimo punto posto i risultati!!!

[stellacometa2003]

Aaaaaaaaaaaaaallora!!!

Ho fatto un'altro passettino avanti..vediamo se sono sulla buona strada per salvare i file di testo!!!
Ho un form con un bottone e una CommonDialog.

Per salvare associo al pulsante il codice:

CommonDialog1.Filter = "Text Files|*.txt"
CommonDialog1.ShowSave
NomeDelTesto = CommonDialog1.FileName
Open NomeDelTesto For Output As #1
Print #1, Text1
Close #1

Così mi salvo un file di testo!!

Che bello!! Ci sono riuscita vero?
Ma ci sono altri modi?

[lorven]

Bel lavoro. Chiaramente, anche per riprendere un'estrazione interrotta e salvata su file, si può utilizzare il CommonDialog.
Hai adottato il metodo migliore. E io volevo farti usare FileListBox, DirListBox e DriveListBox!

Volendo fare i pignoli, bisognerebbe chiedere conferma, in fase di salvataggio, nel caso di tentata sovrascrittura di un file già presente.

Vedo che scrivi tutto con un'unica Print. OK, ma fa' attenzione: quando si aprono file relativi ad estrazioni precedenti, non si deve consentire, proseguendo il gioco, l'estrazione di numeri già usciti e presenti sul file.

[stellacometa2003]

Già...hai ragione; però per il programma dell'estrazione ancora non ho inserito il salvataggio perchè prima ho voluto imparare come si fa!

In merito a quel programma dell'estrazione però entro un pò in crisi perchè i file che salvo sono di testo e si aprono con il programma Blocco Note, quindi per ora non so come fare per riaprire l'applicazione salvata e continuare ad estrarre i numeri restanti.

Ma cercherò di ragionarci un pò su!