Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Il mio editor di testi (in vb net 2005)crea i suoi file in formato .art ed associa ad essi una sua iconcina, ma li legge come fossero txt perdendo tutto il contenuto grafico precedentemente inserito nella richtextbox( a me piacerebbe se li considerasse e leggesse in rtf...); Se invece provo a salvarli in rtf e successivamente a riaprirli cliccandoci dal desktop, compaiono caratteri strani, mentre se lo apro con l'editor è tutto ok...PERCHE'? Dov'è che sbaglio? JEAN
Dipende con che cosa li apri. Se lo fai col notepad è naturale: vedreai tutti i tag RTF. Se lo fai con Word non è normale ma non dovresti vederli neanche nell'editor: se si tratta di questo caso non so che dire.
Allora...mi spiego meglio: ho realizzato un editor che apre e salva file in RTF. Fin qui tutto ok: li crea e li legge benissimo se li apro direttamente daLL'editor; se, invece tento di cliccare sull'icona del file, il mio editor la legge male (tutti caratteri strani)
Dim strExt As String
strExt = System.IO.Path.GetExtension(OpenFileDialog1.FileName)
strExt = strExt.ToUpper()
Select Case strExt
Case ".RTF"
rtbDoc.LoadFile(OpenFileDialog1.FileName, RichTextBoxStreamType.RichText)
Case Else
Dim txtReader As System.IO.StreamReader
txtReader = New System.IO.StreamReader(OpenFileDialog1.FileName)
rtbDoc.Text = txtReader.ReadToEnd
txtReader.Close()
txtReader = Nothing
rtbDoc.SelectionStart = 0
rtbDoc.SelectionLength = 0
End Select
'SALVA
If currentFile = "" Then
SaveAsToolStripMenuItem_Click(Me, e)
Exit Sub
End If
Dim strExt As String
strExt = System.IO.Path.GetExtension(currentFile)
strExt = strExt.ToUpper()
Select Case strExt
Case ".RTF"
rtbDoc.SaveFile(currentFile)
Case Else
' to save as plain text
Dim txtWriter As System.IO.StreamWriter
txtWriter = New System.IO.StreamWriter(currentFile)
txtWriter.Write(rtbDoc.Text)
txtWriter.Close()
txtWriter = Nothing
rtbDoc.SelectionStart = 0
rtbDoc.SelectionLength = 0
rtbDoc.Modified = False
End Select