Comment savoir si un fichier est au format RTF
Résolu
Anonyme209
Messages postés
761
Statut
Membre
-
Anonyme209 Messages postés 761 Statut Membre -
Anonyme209 Messages postés 761 Statut Membre -
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:
Cdt,
Anonyme209
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:\test.txt")] = Format.RTF Then
RichTextBox1.RTF = System.IO.File.ReadAllText("C:\test.txt")
Else
RichTextBox1.Text = System.IO.File.ReadAllText("C:\test.txt")
End if
Cdt,
Anonyme209
6 réponses
-
Bonjour,
Un essai ?Dim LeFichier As String = "C:\Test1\Test2\FichierText.rtf"
A+
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
-
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? -
-
Peut-tu m'expliquer comment on utilise Try /Catch?
Je ne connais pas trop les fonctions Try
Cdt,
Anonyme209 -
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
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+
-
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
