Come leggere e scrivere file di testo in vb6

[basket]

Sto cercando di creare un programma in visual basic 6 un programma in grado di leggere txt e di salvare in questo formato!:help aiutatemi please!

 

[InfernoHacker]

Basta che nn copi il mio browser -.- dopo che ti ho dato quel piccolo suggerimento -.-

Cmq

Private Sub Command1_Click()
' salva il file
Open Text2.Text + ".txt" For Output As #1
Print #1, Text1.Text
Close #1
End Sub

Apre il percorso scritto nel text2 e scrive nel file ciò che è scritto nel text1

Private Sub Command2_Click()
' apre il file
Open Text2.Text For Input As #1
Text2.Text = Input(LOF(1), #1)
Close #1
Text1.Text = Text2.Text
End Sub

Apre il file nel percorso scritto nel text2 nel quale viene "stampato" ciò che è scritto nel file txt .
Nel file text1 viene copiato ciò che dovrebbe essere scritto nel text2

Spero di essermi spiegato

 

[basket]

tranquillo non copiero niente se lo faro ti prometto che no lo pubblichero in questo forum o in altri!!! se ti servono i source del mio browser chiedi pure!

EDIT: Non sto riuscendo a usare il codice potresti spiegarmi meglio?

 

[Ketto93]

Cra due commandbutton.

Sul primo scrivi: Private Sub Command1_Click()
' salva il file
Open Text2.Text + ".txt" For Output As #1
Print #1, Text1.Text
Close #1
End Sub


E ricrodati di creare le textbox

Nel secondo il codice per salvare

 

[basket]

Cra due commandbutton.

Sul primo scrivi: Private Sub Command1_Click()
' salva il file
Open Text2.Text + ".txt" For Output As #1
Print #1, Text1.Text
Close #1
End Sub


E ricrodati di creare le textbox

Nel secondo il codice per salvare

scusa me nel secondo il codice per aprire non salvere giusto?
dove salva il file?

 

[Ketto93]

Si scusa ho invertito

Ecco il codice per salvare del mio HTML Editor:

Private Sub cmdSalva_Click()
' VERIFICA CHE SIA STATO INSERITO IL NOME DEL FILE
If Len(Trim(txtNome.Text)) = 0 Then
MsgBox "Inserire il nome del file", vbCritical, "Errore"
txtNome.SetFocus
Exit Sub
End If
' VERIFICA CHE SIA STATA SPECIFICATA L'ESTENSIONE DEL FILE
If Len(Trim(cmbTipo.Text)) = 0 Then
MsgBox "Inserire l'estensione del file", vbCritical, "Errore"
cmbTipo.SetFocus
Exit Sub
End If
' RECUPERO IL NOME E L'ESTENSIONE DEI FILE
Dim nome_file As String
nome_file = txtNome.Text & cmbTipo.Text ' VERIFICO CHE IL FILE NON ESISTA
' IN CASO LO CANCELLO PRIMA DI RICREARLO
On Error Resume Next
Kill "C:\" & nome_file
' CREO IL FILE E CI SCRIVO DENTRO IL CONTENUTO
Open "C:\" & nome_file For Append As #1
Print #1, txtCodice
Close #1
' MESSAGGIO DI SUCCESSO
MsgBox "File " & nome_file & " creato con successo", vbOKOnly, "Conferma"
End Sub

C'è anche il tipo di file in cui salvare quindi cancella quella parte oppure riproducila.

 

[basket]

ok questo e per salvare ma per aprire un text?

 

[Ketto93]

' apre il file
Open Text2.Text For Input As #1
Text2.Text = Input(LOF(1), #1)
Close #1
Text1.Text = Text2.Text
End Sub

Nella Text2 scrivi il nome esatto come ciao.txt