Comment savoir si un fichier est au format RTF Résolu/Fermé

Question

Bonjour, 

Je programme un traitement de texte en VB, et j'aimerais savoir comment détecter si le fichier sélectionné est en format RTF (Rich Text  Format).
Comme vous le savez, une RichTextBox peut contenir du texte (EX: RichTextBox1.Text) ou du code RTF (EX: RichTextBox1.RTF)
L'opération RichTextBox1.RTF ne marche que si le fichier sélectionné est en RTF.
J'aimerais donc savoir comment faire pour repérer si un fichier est au format RTF.
Ce qui devrai donner un truc du genre:
If [code de vérification format du fichier (ex "C:	est.txt")] = Format.RTF Then      RichTextBox1.RTF = System.IO.File.ReadAllText("C:	est.txt")Else      RichTextBox1.Text = System.IO.File.ReadAllText("C:	est.txt")End if

Cdt,

Anonyme209

Configuration: Windows 7

lermite222 · Answer

Bonjour,
Un essai ?
        Dim LeFichier As String = "C:\Test1\Test2\FichierText.rtf"        Dim Ext As String = LCase(Microsoft.VisualBasic.Right(LeFichier, 3))        If Ext = "rtf" Then            RichTextBox1.LoadFile(LeFichier)        ElseIf Ext = "txt" Then            RichTextBox1.Text = System.IO.File.ReadAllText(LeFichier)        Else            MsgBox("Ce fichier ne peu être charger dans ce composant")        End If
A+

Anonyme209 · Answer

Bonjour,

Ta réponse sert à récupérer l'extension. 
On peut très bien modifier l'extension manuellement, ce qui fait qu'un fichier ayant pour extension .RTF ne contient pas forcement du code RTF
N'y a t'il pas un moyen pour savoir si le fichier peut être lu par le programme, comme par exemple Word ou OpenOffice?

lermite222 · Answer

beh Try /Catch... ça sert à quoi ?

Anonyme209 · Answer

Peut-tu m'expliquer comment on utilise Try /Catch?
Je ne connais pas trop les fonctions Try

Cdt,

Anonyme209

lermite222 · Answer

Dans VB2010 y a aussi l'aide...
Dans une procédure quelconque tu tape TRY, tu double clic dessus pour le mettre en surbrillance et tu tape F1.
A+

Anonyme209 · Answer

Merci beaucoup,

C'est exactement ce que je cherchais!
Ça marche!

Voici le code:

Try      RichTextBox1.Rtf =          System.IO.File.ReadAllText(OpenFileDialog1.FileName)Catch ex As Exception      RichTextBox1.Text =   System.IO.File.ReadAllText(OpenFileDialog1.FileName)End Try

Comment savoir si un fichier est au format RTF

6 réponses

Discussions similaires