begin process at 2012 02 09 01:37:47
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Texte

 > CONVERSION DE CODES RTF VERS HTML

CONVERSION DE CODES RTF VERS HTML


 Information sur la source

Note :
4,2 / 10 - par 5 personnes
4,20 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Texte Classé sous :conversion, rtf, html, balises Niveau :Initié Date de création :23/06/2000 Vu :10 862
Auteur : blq

Ecrire un message privé
Site perso
Commentaire sur cette source (5)
Ajouter un commentaire et/ou une note

 Description

Utilise la fonction sChangeCaractere() présente dans les sources de la catégorie Texte.
Cette fonction se charge simplement de convertir tous les codes RTF par un équivalent en HTML

Source

  • ' -----------------------------------------------------------
  • ' Fonction de conversion de caratère RTF en caractère HTML :
  • '
  • Function sCaractereRTF_HTML(ByVal chaine As String) As String
  • Dim nouvelle As String
  • nouvelle = chaine
  • If Len(nouvelle) > 0 Then
  • ' Majuscule :
  • nouvelle = sChangeCaractere(sChangeCaractere(nouvelle, "\'c6", "Æ"), "\'c1", "Á")
  • nouvelle = sChangeCaractere(sChangeCaractere(nouvelle, "\'c2", "Â"), "\'c0", "À")
  • nouvelle = sChangeCaractere(sChangeCaractere(nouvelle, "\'c5", "Å"), "\'c3", "Ã")
  • nouvelle = sChangeCaractere(sChangeCaractere(nouvelle, "\'c4", "Ä"), "\'c7", "Ç")
  • nouvelle = sChangeCaractere(sChangeCaractere(nouvelle, "\'d0", "Ð"), "\'c9", "É")
  • nouvelle = sChangeCaractere(sChangeCaractere(nouvelle, "\'ca", "Ê"), "\'c8", "È")
  • nouvelle = sChangeCaractere(sChangeCaractere(nouvelle, "\'cb", "Ë"), "\'cd", "Í")
  • nouvelle = sChangeCaractere(sChangeCaractere(nouvelle, "\'ce", "Î"), "\'cc", "Ì")
  • nouvelle = sChangeCaractere(sChangeCaractere(nouvelle, "\'cf", "Ï"), "\'d1", "Ñ")
  • nouvelle = sChangeCaractere(sChangeCaractere(nouvelle, "\'d3", "Ó"), "\'d4", "Ô")
  • nouvelle = sChangeCaractere(sChangeCaractere(nouvelle, "\'d2", "Ò"), "\'d8", "Ø")
  • nouvelle = sChangeCaractere(sChangeCaractere(nouvelle, "\'d5", "Õ"), "\'d6", "Ö")
  • nouvelle = sChangeCaractere(sChangeCaractere(nouvelle, "\'da", "Ú"), "\'de", "Þ")
  • nouvelle = sChangeCaractere(sChangeCaractere(nouvelle, "\'cb", "Û"), "\'d9", "Ù")
  • nouvelle = sChangeCaractere(sChangeCaractere(nouvelle, "\'dc", "Ü"), "\'dd", "Ý")
  • ' Minuscule :
  • nouvelle = sChangeCaractere(sChangeCaractere(nouvelle, "\'e1", "á"), "\'e2", "â")
  • nouvelle = sChangeCaractere(sChangeCaractere(nouvelle, "\'e6", "æ"), "\'e0", "à")
  • nouvelle = sChangeCaractere(sChangeCaractere(nouvelle, "\'e5", "å"), "\'e3", "ã")
  • nouvelle = sChangeCaractere(sChangeCaractere(nouvelle, "\'e4", "ä"), "\'e7", "ç")
  • nouvelle = sChangeCaractere(sChangeCaractere(nouvelle, "\'e9", "é"), "\'ea", "ê")
  • nouvelle = sChangeCaractere(sChangeCaractere(nouvelle, "\'e8", "è"), "\'f0", "ð")
  • nouvelle = sChangeCaractere(sChangeCaractere(nouvelle, "\'eb", "ë"), "\'ed", "í")
  • nouvelle = sChangeCaractere(sChangeCaractere(nouvelle, "\'ee", "î"), "\'ec", "ì")
  • nouvelle = sChangeCaractere(sChangeCaractere(nouvelle, "\'ef", "ï"), "\'f1", "ñ")
  • nouvelle = sChangeCaractere(sChangeCaractere(nouvelle, "\'f3", "ó"), "\'f4", "ô")
  • nouvelle = sChangeCaractere(sChangeCaractere(nouvelle, "'\f2", "ò"), "\'f8", "ø")
  • nouvelle = sChangeCaractere(sChangeCaractere(nouvelle, "\'f5", "õ"), "\'f6", "ö")
  • nouvelle = sChangeCaractere(sChangeCaractere(nouvelle, "\'df", "ß"), "\'fe", "þ")
  • nouvelle = sChangeCaractere(sChangeCaractere(nouvelle, "\'f9", "ú"), "\'fb", "û")
  • nouvelle = sChangeCaractere(sChangeCaractere(nouvelle, "\'f9", "ù"), "\'fc", "ü")
  • nouvelle = sChangeCaractere(sChangeCaractere(nouvelle, "\'fd", "ý"), "\'ff", "ÿ")
  • ' Particulier
  • nouvelle = sChangeCaractere(sChangeCaractere(nouvelle, "\'8", "è"), "\'88", "à")
  • ' Autre
  • nouvelle = sChangeCaractere(sChangeCaractere(nouvelle, "\par ", cCR_HTML & cESPACE), "\rquote", "'")
  • nouvelle = sChangeCaractere(sChangeCaractere(nouvelle, "\ldblquote", cDOUBLE_QUOTE), "\rdblquote", cDOUBLE_QUOTE)
  • nouvelle = sChangeCaractere(nouvelle, "\page", cPARAG_HTML & cLIGNE_HTML & cPARAGf_HTML)
  • nouvelle = sChangeCaractere(sChangeCaractere(nouvelle, cTAB_RTF, vbNullString), "\*", vbNullString)
  • nouvelle = sChangeCaractere(sChangeCaractere(nouvelle, "{\'b7}", cRETRAIT2_HTML & cPOINT_HTML), "\'b7", cRETRAIT2_HTML & cPOINT_HTML)
  • nouvelle = sChangeCaractere(nouvelle, "\bullet", cRETRAIT2_HTML & cPOINT_HTML)
  • nouvelle = sChangeCaractere(sChangeCaractere(nouvelle, "\~", ""), "\'a3", "£")
  • nouvelle = sChangeCaractere(sChangeCaractere(nouvelle, "\'b5", "µ"), "\'a7", "§")
  • nouvelle = sChangeCaractere(sChangeCaractere(nouvelle, "\'b0", "°"), "\'b2", "²")
  • nouvelle = sChangeCaractere(nouvelle, "\'a4", "¤")
  • End If
  • sCaractereRTF_HTML = nouvelle
  • End Function 
' -----------------------------------------------------------
' Fonction de conversion de caratère RTF en caractère HTML :
'
Function sCaractereRTF_HTML(ByVal chaine As String) As String
    Dim nouvelle As String


    nouvelle = chaine

    If Len(nouvelle) > 0 Then
        ' Majuscule :
        nouvelle = sChangeCaractere(sChangeCaractere(nouvelle, "\'c6", "Æ"), "\'c1", "Á")
        nouvelle = sChangeCaractere(sChangeCaractere(nouvelle, "\'c2", "Â"), "\'c0", "À")
        nouvelle = sChangeCaractere(sChangeCaractere(nouvelle, "\'c5", "Å"), "\'c3", "Ã")
        nouvelle = sChangeCaractere(sChangeCaractere(nouvelle, "\'c4", "Ä"), "\'c7", "Ç")
        nouvelle = sChangeCaractere(sChangeCaractere(nouvelle, "\'d0", "Ð"), "\'c9", "É")
        nouvelle = sChangeCaractere(sChangeCaractere(nouvelle, "\'ca", "Ê"), "\'c8", "È")
        nouvelle = sChangeCaractere(sChangeCaractere(nouvelle, "\'cb", "Ë"), "\'cd", "Í")
        nouvelle = sChangeCaractere(sChangeCaractere(nouvelle, "\'ce", "Î"), "\'cc", "Ì")
        nouvelle = sChangeCaractere(sChangeCaractere(nouvelle, "\'cf", "Ï"), "\'d1", "Ñ")
        nouvelle = sChangeCaractere(sChangeCaractere(nouvelle, "\'d3", "Ó"), "\'d4", "Ô")
        nouvelle = sChangeCaractere(sChangeCaractere(nouvelle, "\'d2", "Ò"), "\'d8", "Ø")
        nouvelle = sChangeCaractere(sChangeCaractere(nouvelle, "\'d5", "Õ"), "\'d6", "Ö")
        nouvelle = sChangeCaractere(sChangeCaractere(nouvelle, "\'da", "Ú"), "\'de", "Þ")
        nouvelle = sChangeCaractere(sChangeCaractere(nouvelle, "\'cb", "Û"), "\'d9", "Ù")
        nouvelle = sChangeCaractere(sChangeCaractere(nouvelle, "\'dc", "Ü"), "\'dd", "Ý")
    
        ' Minuscule :
        nouvelle = sChangeCaractere(sChangeCaractere(nouvelle, "\'e1", "á"), "\'e2", "â")
        nouvelle = sChangeCaractere(sChangeCaractere(nouvelle, "\'e6", "æ"), "\'e0", "à")
        nouvelle = sChangeCaractere(sChangeCaractere(nouvelle, "\'e5", "å"), "\'e3", "ã")
        nouvelle = sChangeCaractere(sChangeCaractere(nouvelle, "\'e4", "ä"), "\'e7", "ç")
        nouvelle = sChangeCaractere(sChangeCaractere(nouvelle, "\'e9", "é"), "\'ea", "ê")
        nouvelle = sChangeCaractere(sChangeCaractere(nouvelle, "\'e8", "è"), "\'f0", "ð")
        nouvelle = sChangeCaractere(sChangeCaractere(nouvelle, "\'eb", "ë"), "\'ed", "í")
        nouvelle = sChangeCaractere(sChangeCaractere(nouvelle, "\'ee", "î"), "\'ec", "ì")
        nouvelle = sChangeCaractere(sChangeCaractere(nouvelle, "\'ef", "ï"), "\'f1", "ñ")
        nouvelle = sChangeCaractere(sChangeCaractere(nouvelle, "\'f3", "ó"), "\'f4", "ô")
        nouvelle = sChangeCaractere(sChangeCaractere(nouvelle, "'\f2", "ò"), "\'f8", "ø")
        nouvelle = sChangeCaractere(sChangeCaractere(nouvelle, "\'f5", "õ"), "\'f6", "ö")
        nouvelle = sChangeCaractere(sChangeCaractere(nouvelle, "\'df", "ß"), "\'fe", "þ")
        nouvelle = sChangeCaractere(sChangeCaractere(nouvelle, "\'f9", "ú"), "\'fb", "û")
        nouvelle = sChangeCaractere(sChangeCaractere(nouvelle, "\'f9", "ù"), "\'fc", "ü")
        nouvelle = sChangeCaractere(sChangeCaractere(nouvelle, "\'fd", "ý"), "\'ff", "ÿ")
        
        ' Particulier
        nouvelle = sChangeCaractere(sChangeCaractere(nouvelle, "\'8", "è"), "\'88", "à")
        
        ' Autre
        nouvelle = sChangeCaractere(sChangeCaractere(nouvelle, "\par ", cCR_HTML & cESPACE), "\rquote", "'")
        nouvelle = sChangeCaractere(sChangeCaractere(nouvelle, "\ldblquote", cDOUBLE_QUOTE), "\rdblquote", cDOUBLE_QUOTE)
        nouvelle = sChangeCaractere(nouvelle, "\page", cPARAG_HTML & cLIGNE_HTML & cPARAGf_HTML)
        nouvelle = sChangeCaractere(sChangeCaractere(nouvelle, cTAB_RTF, vbNullString), "\*", vbNullString)
        nouvelle = sChangeCaractere(sChangeCaractere(nouvelle, "{\'b7}", cRETRAIT2_HTML & cPOINT_HTML), "\'b7", cRETRAIT2_HTML & cPOINT_HTML)
        nouvelle = sChangeCaractere(nouvelle, "\bullet", cRETRAIT2_HTML & cPOINT_HTML)
        
        nouvelle = sChangeCaractere(sChangeCaractere(nouvelle, "\~", ""), "\'a3", "£")
        nouvelle = sChangeCaractere(sChangeCaractere(nouvelle, "\'b5", "µ"), "\'a7", "§")
        nouvelle = sChangeCaractere(sChangeCaractere(nouvelle, "\'b0", "°"), "\'b2", "²")
        nouvelle = sChangeCaractere(nouvelle, "\'a4", "¤")
    End If

    sCaractereRTF_HTML = nouvelle
End Function



 Sources du même auteur

Source .NET (Dotnet) UTILISATION DE SORTEDLIST POUR TRIER UNE COLLECTION DE VALEU...
ADDITION OU SOUSTRACTION DE DEUX HEURES DE TYPE HH:MM:SS
DATE DU JOUR
DIFFÉRENCE ENTRE DEUX HEURES DE FORMAT HH:MM:SS
EXTRACTION D'INFORMATION SUR UNE HEURE HH:MM:SS
Toutes les sources de blq

 Sources de la même categorie

Source avec Zip Source avec une capture MASQUE DE SAISIE NUMÉRIQUE par acive
Source avec Zip Source .NET (Dotnet) COMPTEUR DE NOMBRE DE MOTS DANS UN TEXTE par alpha5
Source avec Zip Source avec une capture HM - BLOCNOTE par hassenmajor
Source .NET (Dotnet) [VB.NET] CLASS DE COLORATION SYNTAXIQUE "ON THE FLY" par huzima
Source avec Zip Source avec une capture PERSONNALISEZ VOS BOÎTES DE MESSAGE (X)HTML par medjahedScript
Toutes les sources de la catégorie Texte

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture CONVERTIR DU TEXTE RTF EN CODE HTML ET VICE-VERSA par vicosta
Source avec Zip Source .NET (Dotnet) RTFANSITEXTWRITER : GÉNÉRER DU RTF EN VB.NET ET CONVERTIR DU... par ShareVB
Source .NET (Dotnet) RTF TO XHTML (BALISES P, H3, STRONG, EM) par saizonou
RTF --> CODE HTML par Caïn
RTF ---> HTML par max12

Commentaires et avis

Commentaire de jack le 19/02/2004 09:53:04 administrateur CS

C'est vrai que ça manque de fonctionalité :
Même en collant ce code dans une appli, ça ne peut pas fonctionner puisqu'il manque :
- la fonction sChangeCaractere.
- le nom de la bibliothèque qui fournit les valeurs des variables comme cPARAG_HTML

Tu pourrais nous faire une petite appli en démo ...

Commentaire de blq le 19/02/2004 10:23:44

Le code donné est assez vieux... ilmeriterait tout simplement d'être supprimé et, du coup, la fonction sChangeCaractere() n'a pu d'intéret avec VB6. Il suffit de remplacer sChangeCaractere par la function standard Replace de VB. Cela fait la même chose !
Le code de sChangeCaractere() est présent dans la liste des sources que j'ai du mettre en ligne, mais c'est juste pour la curiosité, car Replace() est bien plus efficace et simple d'utilisation.

Pour les variables manquantes, il s'agit juste de les remplacer le code hTML equivalent:

cconst cPARAG_HTML = "<P>"
cconst cPARAGf_HTML = "</P>"
cconst cLIGNE_HTML = "<BR>"
... etc.

Aujourd'hui je crois que ce type de code est vraiment obsolète...

Commentaire de Phira le 15/05/2004 18:14:22

cconst cPARAG_HTML = "<P>"
cconst cPARAGf_HTML = "</P>"
cconst cLIGNE_HTML = "<BR>"

où pourrais-je trouver de la donc sur ces fonctions de RTF?

merci.

Commentaire de blq le 16/05/2004 21:01:27

Pour obtenir des infos sur le codage RTF, il faut fouiller sur le site de Microsoft. Il y avait en détail les specs RTF et la corresondance de chaque code. Je n'ai plus le lien. Mon code est trop vieux (2000/2001) pour que je me souvienne du lien chez MS.

Commentaire de Phira le 16/05/2004 21:16:41

ok, merci.

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

SVP Help me >Conversion rtf html [ par pekinio ] hello a tlmvoila, en fait, je voudrais enregistrer le contenu d'une rtf box , avec caracteres en couleurs, eventuellement des photos et tout, en html. Bilan => Conversion Rtf to HTML ! Propriétés Emplacement [ par scottmat ] <span style="FONT-SIZE: 12pt; COLOR: #4f81bd; LINE-HEIGHT: 115%; FONT-FAMILY: 'Verdana','sans-serif'; mso-themec Conversion Word -> HTML [ par Thermosam ] Il me faudrait les sources d'un programme qui à partir d'un fichier Word génère un fichier correspondant en HTML (avec tous les TAGS). Suppression des balises HTML d'une page. [ par TeRMiNaToR ] Salut,Je voudrais savoir comment faire pour virer toutes les balises HTML d'une page HTML.Merci regex pour balises xml et html [ par romagny13 ] Bonjour,quelquun aurait t'il une bonne expression reguliere pour trouver les balises HTML ou XML ?je cherches pas tres complique la mais jai juste un Conversion VB/VBA en HTML [ par TotoTurbo ] Bonjour à tous,Est-il possible de convertir des feuilles VB/VBA et le code associé au format HTML, afin de les rendre disponibles dans un navigateur W Conversion HTML vers PS [ par Didierdu92 ] Bonjour,J'aurais besoin d'une fonction qui sache convertir du HTML en postscript et si possible en VB6.Je vous remercie par avance des infos que vous conversion de pdf en html [ par kevinou55 ] bonjour a tous,voila j'essaie de faire un programme qui recupere un texte tapé dans Word, le convertit en Pdf avec PDFCreator puis le retranscrit en h Rtf to Html via Word automation [ par pattex62 ] Rtf to Html via Word automation  Bonjour à tous !!! Je souhaiterais convertir le contenu d'un Richtexbox (format RTF) en format HTML !!! </p Conversion RTF/TXT -> HTML [ par OneHacker ] Je programme avec VS Express 2005 .NET. Je voulais savoir s'il était possible de convertir du texte simple HTML ou du RTF en HTML.J'ai essayé ça mais


Nos sponsors


Sondage...

Comparez les prix


Samsung LE26B350 LCD
Entre 359€ et 417€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,905 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)