none
Chargement de fichier RTF RRS feed

  • Question

  • Salut, je rencontre un problème au chargement d'un RTF. Dans le RichTextBox, je vois tous les codes de style mais pas les styles :

    Form1.RichTextBox1.Clear()
    If System.IO.Path.GetExtension(F.FileName).ToLower = "rtf" Then
        Form1.RichTextBox1.LoadFile(F.FileName, RichTextBoxStreamType.RichText)
    Else
        Form1.RichTextBox1.LoadFile(F.FileName, RichTextBoxStreamType.PlainText)
    End If

    Le résultat :

    {\rtf1\ansi\ansicpg1252\deff0\nouicompat\deflang1036{\fonttbl{\f0\fnil\fcharset0 Times New Roman;}{\f1\fnil\fcharset2 Wingdings;}}
    {\colortbl ;\red255\green0\blue0;\red0\green0\blue255;\red0\green77\blue187;\red0\green176\blue80;\red247\green150\blue70;\red83\green83\blue255;}

    Je ne comprends pas pourquoi. Merci


    • Modifié Mayumi56 vendredi 10 mai 2019 16:56
    vendredi 10 mai 2019 16:44

Réponses

  • Bonjour,

    Voici un exemple pour lire votre fichier RTF :

    Imports System.IO
    
    Public Class Form1
        Dim filePath As String = My.Computer.FileSystem.SpecialDirectories.Desktop & "\MonTEXT2.RTF"
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            RichTextBox1.Clear()
            Using sr As New StreamReader(filePath, System.Text.Encoding.Default)
                While sr.EndOfStream > -1
                    RichTextBox1.Rtf = sr.ReadToEnd
                End While
            End Using
        End Sub
    End Class

    {\rtf1\ansi\ansicpg1252\deff0\deflang1036{\fonttbl{\f0\fnil\fcharset0 Calibri;}}
    {\colortbl ;\red255\green0\blue0;}
    {\*\generator Msftedit 5.41.21.2510;}\viewkind4\uc1\pard\sa200\sl276\slmult1\lang12\f0\fs22 Voici comment \cf1 Lire \cf0 avec \b Richtextbox1\b0  le texte\par
    }
     
    Cordialement,

    • Marqué comme réponse Mayumi56 lundi 1 juillet 2019 23:38
    dimanche 12 mai 2019 10:39

Toutes les réponses

  • Bonjour,

    Voici un exemple pour lire votre fichier RTF :

    Imports System.IO
    
    Public Class Form1
        Dim filePath As String = My.Computer.FileSystem.SpecialDirectories.Desktop & "\MonTEXT2.RTF"
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            RichTextBox1.Clear()
            Using sr As New StreamReader(filePath, System.Text.Encoding.Default)
                While sr.EndOfStream > -1
                    RichTextBox1.Rtf = sr.ReadToEnd
                End While
            End Using
        End Sub
    End Class

    {\rtf1\ansi\ansicpg1252\deff0\deflang1036{\fonttbl{\f0\fnil\fcharset0 Calibri;}}
    {\colortbl ;\red255\green0\blue0;}
    {\*\generator Msftedit 5.41.21.2510;}\viewkind4\uc1\pard\sa200\sl276\slmult1\lang12\f0\fs22 Voici comment \cf1 Lire \cf0 avec \b Richtextbox1\b0  le texte\par
    }
     
    Cordialement,

    • Marqué comme réponse Mayumi56 lundi 1 juillet 2019 23:38
    dimanche 12 mai 2019 10:39
  • Merci
    lundi 1 juillet 2019 23:38