crash outside control (Normal User)
Expert
Messaggi: 217
Iscritto: 12/02/2008
|
Ciao a tutti, sto scrivendo un programmino tipo Blocco Note, mi sono bloccato quando devo aprire un file già esistente. Non so come far apparire il file che decido di aprire nella richtextbox...
Codice sorgente - presumibilmente VB.NET |
Private Sub openfiledialog_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles openfiledialog.Click Dim nome As Stream OpenFileDialog1.InitialDirectory = "c:\" OpenFileDialog1.Filter = "*.txt | *.txt" OpenFileDialog1.FilterIndex = 2 OpenFileDialog1.RestoreDirectory = True If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then MessageBox.Show(OpenFileDialog1.FileName) nome = OpenFileDialog1.OpenFile() If Not (nome Is Nothing) Then [b]cosa ci inserisco ???[/b] End If End If End Sub
|
|
|
Dark_Limit (Ex-Member)
Expert
Messaggi: 220
Iscritto: 15/01/2008
|
devi usare gli steamReader e streamWriter includendo(importando) la classe system.IO..
|
|
crash outside control (Normal User)
Expert
Messaggi: 217
Iscritto: 12/02/2008
|
La classe l' ho già importata, come faccio ora a usare la funzione streamread ?
|
|
John (Ex-Member)
Pro
Messaggi: 191
Iscritto: 18/11/2007
|
In Pratica, scrivi:
Codice sorgente - presumibilmente C# / VB.NET |
'per leggere tutto il file
Dim file as new IO.StreamReader(openfiledialog.filename)
textbox1.Text = file.ReadToEnd
|
se invece devi scrivere si fa:
Codice sorgente - presumibilmente C# / VB.NET |
Dim file as new IO.StreamWriter(openfiledialog.filename)
file.WriteLine("ciao")
|
ricorda di chiudere i file che usi!!! (file.close)
se serve ancora aiuto ci sono! |
|
crash outside control (Normal User)
Expert
Messaggi: 217
Iscritto: 12/02/2008
|
Mi puoi dire in quale punto del mio codice devo implementare quello da te postato ?
Grazie
|
|
crash outside control (Normal User)
Expert
Messaggi: 217
Iscritto: 12/02/2008
|
Ah ok ho capito, grazie mille ad entrambi !
|
|
crash outside control (Normal User)
Expert
Messaggi: 217
Iscritto: 12/02/2008
|
Ma quando io invece voglio salvare il file, devo scrivere il seguente codice ? :
Codice sorgente - presumibilmente VB.NET |
Private Sub Salva_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Salva.Click Dim salva As Stream SaveFileDialog1.InitialDirectory = "c:\" SaveFileDialog1.Filter = "*.txt | *.txt |" & "Tutti i file | *.*" SaveFileDialog1.FilterIndex = 2 SaveFileDialog1.RestoreDirectory = True If SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then MessageBox.Show(SaveFileDialog1.FileName) salva = SaveFileDialog1.OpenFile() If Not (salva Is Nothing) Then Dim a As New IO.StreamWriter(OpenFileDialog1.FileName) a.Write(rt.Text) salva.Close() End If End If End Sub
|
|
|
John (Ex-Member)
Pro
Messaggi: 191
Iscritto: 18/11/2007
|
Correzione...
Codice sorgente - presumibilmente VB.NET |
Private Sub Salva_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Salva.Click Dim salva As Stream SaveFileDialog1.InitialDirectory = "c:\" SaveFileDialog1.Filter = "*.txt | *.txt |" & "Tutti i file | *.*" SaveFileDialog1.FilterIndex = 2 SaveFileDialog1.RestoreDirectory = True If SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then 'cos'era quell'obrobrio di prima?? Dim a As New IO.StreamWriter(OpenFileDialog1.FileName) a.Write(rt.Text) a.Close()'chiudi a, salva era nel mio esempio.. End If End Sub
|
Adesso mi disconnettto definitivamente posso aiutarti ancora se serve domani!!
|
|
crash outside control (Normal User)
Expert
Messaggi: 217
Iscritto: 12/02/2008
|
questo codice, salva il file, ma al suo interno non ci scrive niente...
|
|