Oppure

Loading
05/03/08 15:54
crash outside control
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...
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
:-|
aaa
05/03/08 16:02
Dark_Limit
devi usare gli steamReader e streamWriter includendo(importando) la classe system.IO..:k:
aaa
05/03/08 16:21
crash outside control
La classe l' ho già importata, come faccio ora a usare la funzione streamread ?
aaa
05/03/08 16:22
John
In Pratica, scrivi:
'per leggere tutto il file
Dim file as new IO.StreamReader(openfiledialog.filename)
textbox1.Text = file.ReadToEnd


se invece devi scrivere si fa:
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!:k:
aaa
05/03/08 16:32
crash outside control
Mi puoi dire in quale punto del mio codice devo implementare quello da te postato ?
Grazie :k:
aaa
05/03/08 16:33
crash outside control
Ah ok ho capito, grazie mille ad entrambi ! :k:
aaa
05/03/08 17:52
crash outside control
Ma quando io invece voglio salvare il file, devo scrivere il seguente codice ? :
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

:-?
aaa
05/03/08 18:55
John
Correzione...
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!!:k:
aaa