Oppure

Loading
Questo topic e' stato chiuso dal moderatore.
12/04/11 19:12
tullio1995
sto creando un editor simile al blocco note di windows. qualcuno mi saprebbe aiutare nella funzione di apertura di un file??



Risolto.
ecco il codice
Dim OpenF As New OpenFileDialog
        OpenF.Filter = "File di testo|*.bat"
        If OpenF.ShowDialog = Windows.Forms.DialogResult.OK Then
            Dim r As New IO.StreamReader(OpenF.FileName)
            TextBox1.Text = r.ReadToEnd()
            r.Close()
        End If

ora vorrei sapere se è possibile criptare i caratteri del testo, in modo da poter aprire un file creato con la mia applicazione, solo ed esclusivamente con il mio editor?
Ultima modifica effettuata da tullio1995 14/04/11 13:30
aaa
12/04/11 19:19
Best
Puoi usare le finestre di dialogo, usa quindi la classe Openfiledialog.

Ci sono alcune reference qui:

msdn.microsoft.com/it-it/library/…

aaa
12/04/11 19:21
Lafa_96
puoi usare un open file dialog o un button che prende l'indirizzo di una textbox

per il button con textbox
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        RichTextBox1.LoadFile(TextBox1.Text)
    End Sub


con il file dialog è la stessa cosa ma devi cambiare l'evento e nella parentesi devi mettere l'indirizzo del file dialog
aaa
13/04/11 14:31
Lafa_96
c'è anche un altro metodo se quello di prima non funzionasse o non ti piacesse (non sono sicuro al 100% che funzioni bene riguardo alla formattazione)
Imports System.IO.File
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim disco As System.IO.File
        Dim leggi As System.IO.StreamReader
        leggi = disco.OpenText(textbox1.text)
        RichTextBox1.Text = leggi.ReadLine()
    End Sub
End Class


questo è per quanto riguarda il button con la textbox,
per il file dialog
 Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
        Dim disco As System.IO.File
        Dim leggi As System.IO.StreamReader
        leggi = disco.OpenText(OpenFileDialog1.FileName)
        RichTextBox1.Text = leggi.ReadLine()
    End Sub


questo è tutto ciò che so, se vuoi roba più da smanettoni ci sono guide molto più complesse (e sicuramente più precise di me) sul sito della msdn
aaa
13/04/11 15:28
R0gerBlack
Senti se vuoi aprire un file ti do consigli buoni da usare, se devi caricare del testo semplice puoi usare l'IO.StreamReader e si usa così:

        Dim Text As String
        Dim OpenF As New OpenFileDialog
        OpenF.Filter = "File di testo (*.txt)|*.txt|Tutti i file (*.*)|*.*"
        'Attiva il filtro per i soli file .txt e tutti i formati
        If OpenF.ShowDialog = Windows.Forms.DialogResult.OK Then
            Dim r As New IO.StreamReader(OpenF.FileName)
            Text = r.ReadToEnd()
            r.Close()
            'La variabile contenente il testo sarà Text
            'e caricherà testo normale
        End If


Altrimenti puoi anche fare così che per gli editor di testo è più consigliato, ma devi usare un controllo RichTextBox che chiameremo RTB1

        Dim OpenF As New OpenFileDialog
        OpenF.Filter = "File RTF (*.rtf)|*.rtf|Tutti i file (*.*)|*.*"
        If OpenF.ShowDialog = Windows.Forms.DialogResult.OK Then
            'RTB1 caricherà il testo con tutte le formattazioni salvate
            RTB1.LoadFile(OpenF.FileName)
        End If


Fammi sapere se ti è servito :k:
Ultima modifica effettuata da R0gerBlack 13/04/11 15:43
aaa
13/04/11 17:36
Lafa_96
ho fatto qualche ricerca e per aprire un file .doc occorre questo codice (preciso che non so se funziona perchè occorre installare word e io non ce l'ho quindi provatelo e ditemi!)
Dim word_app As New Microsoft.Office.Interop.Word.Application
Dim documento As Microsoft.Office.Interop.Word.Document = word_app.Documents.Open("percorso del file in formato .doc")
document.SaveAs("percorso del file che vogliamo salvare in .rtf", 6)
document.Close
RichTextBox1.Text = System.IO.File.ReadAllText("PercorsoDelFile.rtf")


tradotto vorrebbe dire prendere il file .doc, trasformarlo in .rtf, salvarlo e andare a ripescare il file convertito per aprirlo nella richtextbox, non so se si debbano importare librerie poichè io non posso testare il codice, comunque visual basic vi dirà se si devono importare!
aaa
14/04/11 10:08
Il Totem
aaa