[vb6]salvare file in txt

[apatico]

Filter = "All Files (*.*)|Text|*.txt"

questo è il codice per dire che formato salvare un file sul computer.come faccio a dire al computer che voglio salvato sia letto come file di testo.la riga di codice che ho scritto scrive solo il formato sulla finestra ma non lo attiva.

[buba88]

scusa prova a scrivere solo "All Files (*.*)|*.txt"

[Pestilence]

Apatico a parte il fatto che hai sbagliato il filter per il salvataggio, poi ti spieghi meglio che non ho capito

[apatico]

il programma dovrà salvare il file come file di testo,con l'istruzione che ho messo io mi visualizza il formato solo nella finestra di dialogo.volevo sapere il codice per rendere effetivo quello che ho scritto nel filtro

[Pestilence]

Il Codice della CommonDialog è questo :

Commondialog1.CancelError = False
CommonDialog1.Flags = &H2
CommonDialog1.Filter = "File di Testo|*.txt"
CommonDialog1.FilterIndex = 0
CommonDialog1.ShowSave

Il Codice per salvare è questo :

 Dim NRFILE2 As Integer
    On Error GoTo ERRORE
    NRFILE2 = FreeFile
    Open CommonDialog1.FileName For Output As NRFILE2
    Print #NRFILE2, Text1.Text
    Close NRFILE2
    MsgBox "Salvataggio effettuato!", vbInformation + vbOKOnly, "Salva"
    Exit Sub
ERRORE:
    MsgBox "Si è verificato un errore nel salvataggio.", vbCritical + vbOKOnly, "Salva"

Spero ti vada bene

[apatico]

Dim NRFILE2 As Integer
On Error GoTo ERRORE
NRFILE2 = FreeFile
Open CommonDialog1.FileName For Output As NRFILE2
Print #NRFILE2, Text1.Text
Close NRFILE2
MsgBox "Salvataggio effettuato!", vbInformation + vbOKOnly, "Salva"
Exit Sub
ERRORE:
MsgBox "Si è verificato un errore nel salvataggio.", vbCritical + vbOKOnly, "Salva"

questa parte di codice che mi hai dato l'ho messa prima di tutte nel codicee poi ho inserio le altre cose per non fare confusione.comunque non mi funziona.mi dice che la provedura è invalida!!!!

[Pestilence]

Se lo devi mettere tutto in un Command Button il codice deve essere così :

Private Sub Command1_Click()

Dim NRFILE2 As Integer
    On Error GoTo ERRORE
    NRFILE2 = FreeFile

Commondialog1.CancelError = False
CommonDialog1.Flags = &H2
CommonDialog1.Filter = "File di Testo|*.txt"
CommonDialog1.FilterIndex = 0
CommonDialog1.ShowSave

If Commondialog1.FileName <> "" Then
    Open CommonDialog1.FileName For Output As NRFILE2
    Print #NRFILE2, Text1.Text
    Close NRFILE2
    MsgBox "Salvataggio effettuato!", vbInformation + vbOKOnly, "Salva"
    Exit Sub

Else

ERRORE:
    MsgBox "Si è verificato un errore nel salvataggio.", vbCritical + vbOKOnly, "Salva"

End If
End Sub

Non puoi mettere il comando di salvataggio prima, il programma percepisce di scrivere il contenuto della Text1 in un file inesistente !!!!

Ricorda che i computer in generale pensano in modo lineare, non sono una mente umana ( per ora :P ) che può processare una espressione in un secondo momento, se serve subito, tu devi inserirla prima di tutte le altre cose

E' come se ti dicessi di fare 1 + 2 * 5 = ?
tu faresti principalmente da come ti è stato insegnato fai la moltiplicazione e poi sommi e il risultato è 11 ma se ti dico
(1 + 2) * 5 = ?
il risultato cambia ( 15 per chi non lo sapesse hihihih )

Spero di essermi spiegato bene e spero che il problema è quello che ti ho appena proposto

P.S. : Se ti ho dato una spiegazione è perchè anche io toppavo ( e toppo tutt'ora ) su questi tranelli di programmazione