tullio1995 (Normal User)
Rookie
 
Messaggi: 59
Iscritto: 20/03/2011
|
 Questo topic è stato chiuso dal moderatore
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
Codice sorgente - presumibilmente VB.NET |
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 il 14/04/2011 alle 15:30 |
|
|
Best (Normal User)
Rookie
Messaggi: 24
Iscritto: 12/09/2010
|
|
|
|
Lafa_96 (Normal User)
Pro
Messaggi: 111
Iscritto: 09/03/2011
|
puoi usare un open file dialog o un button che prende l'indirizzo di una textbox
per il button con textbox
Codice sorgente - presumibilmente VB.NET |
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
|
|
|
R0gerBlack (Member)
Expert
Messaggi: 210
Iscritto: 10/06/2010
|
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ì:
Codice sorgente - presumibilmente VB.NET |
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
Codice sorgente - presumibilmente VB.NET |
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  Ultima modifica effettuata da R0gerBlack il 13/04/2011 alle 17:43 |
|
|
Lafa_96 (Normal User)
Pro
Messaggi: 111
Iscritto: 09/03/2011
|
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!)
Codice sorgente - presumibilmente VB.NET |
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!
|
|
|
Il Totem (Admin)
Guru^2
Messaggi: 3635
Iscritto: 24/01/2006
|
|
|
|
Lafa_96 (Normal User)
Pro
Messaggi: 111
Iscritto: 09/03/2011
|
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)
Codice sorgente - presumibilmente VB.NET |
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
Codice sorgente - presumibilmente VB.NET |
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
|
|
|
