none
Word-Dokumente in rtf-Box einlesen RRS feed

  • Frage

  • Hallo,

    ich bin mir sicher, dass dieses Thema schon mehrfach dran war, finde aber nichts passendes.

    Ich wähle über einen OpenFileDialog eine Textdatei aus. Das kann TXT, RTF, DOC, DOCX sein. Der Iinhalt soll ein einer RichTextBox ausgegeben werden.

     If OpenFileDialog1.ShowDialog = DialogResult.OK Then
                mf = OpenFileDialog1.FileName
                Dim fs As New FileStream(mf, FileMode.Open)
                Dim sr As New StreamReader(fs)
                Dim Zeile As String
    
                Do Until sr.Peek() = -1
                    Zeile = sr.ReadLine()
                    Speech.RichTextBox1.Text &= Zeile & vbCrLf
                Loop
                sr.Close()
    
                Speech.Show()
            End If

    Wenn ich das mit obenstehender StreamReaderfunktion versuche strauchle ich am Format.
    Ich bin mir sicher, dass da eine Encode-Funktion dazu gehört. Für Code oder Links bin ich euch dankbar.


    Liebe Grüße Stefan | Cheers Stefan I'm using VB 2008 and VB 2010 Express Be a good forum member - mark posts that contain the answers to your questions or those that are helpful. c# in vb Translator: http://www.developerfusion.com/tools/convert/csharp-to-vb/

    Mittwoch, 12. September 2018 16:53

Antworten

  • Hi,
    standardmäßig enthalten Dateien mit der Dateierweiterung txt keine Formatierungsinformation und können der Eigenschaft Text der RichTextBox zugewiesen werden.

    Standardmäßig enthalten Dateien mit der Dateierweiterung rtf Formatierungsinformation und können der Eigenschaft Rtf der RichTextBox zugewiesen werden, die dann den Text formatiert anzeigt.

    Standardmäßig sind doc bzw. docx Dateierweiterungen für Binärdateien des Office vorgesehen, die eine RichTextBox nicht anzeigen kann. Diese Dateien kann man ober Word-Objektautomatisierung in txt oder rtf umwandeln.


    --
    Viele Grüsse
    Peter Fleischer (ehem. MVP)
    Meine Homepage mit Tipps und Tricks


    Mittwoch, 12. September 2018 18:45

Alle Antworten