Conversion texte en rtf

SUB Txt2Rtf(f$,frt$)
' Conversion f$ (format .txt) -> frt$ (format .rtf) avec balises de formatage
' +------------------------- BALISES DU .TXT: ------------------------------+
' | <C> et </C>: Centrage <B> </B> Gras <I> </I> Italique <S> </S> Souligné |
' | <Cx> Couleur texte avec x= N noir, R rouge, G vert, B bleu              |
' | <F..fonte..> nom de police, <Tx> taille des caractères                  |
' +-------------------------------------------------------------------------+
  DIM_LOCAL rc$, et$, ft$, en$(20), bf$(20), bc$(20)
  DIM_LOCAL a$,a1$,a2$,b$,c$,q$,i%,j%,k%,k1%,er$,ne,nf,nc
  IF LABEL("Rebc") = 0 THEN LABEL Rebc
  rc$ = CHR$(13)+CHR$(10)
' TABLE DES FONTES UTILISÉES (arbitraires, ajustable) **************************
  bf$(0)="Calibri": bf$(1)="Arial": bf$(2)="Times New Roman": bf$(3)="Lucida Console"
  nf = 4: ' nombre de fontes
' TABLE DES 4 COULEURS UTILISÉES (arbitraires, ajustable) **********************
  bc$(0) = "N": bc$(1) = "R": bc$(2) = "G": bc$(3) = "B"
  nc = 4: ' nombre de couleurs (noir, rouge, vert, bleu)
  et$ = "{\rtf1\ansi\ansicpg1252\deff0\deflang1036": ' En-tête RTF
' table des fontes utilisables (cf ci-dessus)
  et$ = et$ + "{\fonttbl"
  et$ = et$ + "{\f0\fnil\fcharset0 "+bf$(0)+";}"
  et$ = et$ + "{\f1\fnil\fcharset0 "+bf$(1)+";}"
  et$ = et$ + "{\f2\fnil\fcharset0 "+bf$(2)+";}"
  et$ = et$ + "{\f3\fnil\fcharset0 "+bf$(3)+";}"
  et$ = et$ + "}" + rc$
' table des couleurs utilisables
  et$ = et$ + "{\colortbl ;\red255\green0\blue0;\red0\green176\blue80;"
  et$ = et$ + "\red0\green77\blue187;}" + rc$
' généralités
  et$ = et$ + "{\*\generator Msftedit 5.41.21.2510;}"
  et$ = et$ + "\viewkind4\uc1\pard\sl240\slmult1\lang12\f0\fs22 "
  ft$ = "\pard\sa200\sl276\slmult1\par" + rc$ + "}"
' BALISES (Centré ou Couleur, Gras, Italique, Souligné, Fonte, Taille)
  a$ = "<C,<B,<I,<S,<F,<T,</C,</B,</I,</S"
  ne = 0
  k% = INSTR(a$, ",")
  WHILE k% > 0
      ne = ne+1: en$(ne)= LEFT$(a$, k%-1)
      a$ = RIGHT_POS$(a$,k%+1): k% = INSTR(a$, ",")
  END_WHILE
  ne = ne+1: en$(ne) = a$
  FILE_OPEN_READ 1, f$: FILE_OPEN_WRITE 2, frt$
  FILE_WRITELN 2, et$
  WHILE FILE_EOF(1) = 0
    FILE_READLN 1, a$
Rebc:
    k% = INSTR(a$, "<")
    IF k% > 0
        b$ = MID$(a$, k%+1, 500): k1% = INSTR(b$, ">")
        IF k1% > 0
            a1$ = LEFT$(a$, k%-1): a2$ = RIGHT_POS$(b$,k%+1)
            b$ = LEFT$(b$, k1%-1): ' balise
            q$ = ""
            IF LEN(b$) > 1 THEN q$ = UPPER$(RIGHT$(b$, LEN(b$)-1)): ' argument
            FOR i% = 1 TO ne
                c$ = MID$(en$(i%),2,2)
                IF UPPER$(LEFT$(b$, LEN(c$))) = c$ THEN EXIT_FOR
            NEXT i%
            er$ = ""
            SELECT i%
                CASE 1: ' <C> centrage ou <Cx> couleur
                        IF q$ = ""
                            er$ = "\pard\sl240\slmult1\qc ": ' centré
                        ELSE
                            FOR j% = 0 TO nc-1
                                IF UPPER$(q$) = bc$(j%) THEN EXIT_FOR
                            NEXT j%
                            er$ = "\cf"+STR$(j%)+" ": ' couleur caractères
                        END_IF
                CASE 2: ' <B> gras
                        er$ = "\b "
                CASE 3: ' <I> italique
                        er$ = "\i "
                CASE 4: ' <S> souligné
                        er$ = "\ul "
                CASE 5: ' <F..fonte..> police
                        FOR j% = 0 TO nf-1
                            IF UPPER$(q$) = UPPER$(bf$(j%)) THEN EXIT_FOR
                        NEXT j%
                        er$ = "\f"+STR$(j%)+" "
                CASE 6: ' <Tx> taille fonte
                        er$ = "\fs"+STR$(2*VAL(q$))+" "
                CASE 7: ' </C> fin de centrage
                        i% = 37
                        er$ = "\par"+rc$+"\pard\sl240\slmult1 "
                CASE 8: ' </B> fin gras
                        er$ = "\b0 "
                CASE 9: ' </I> fin italique
                        er$ = "\i0 "
                CASE 10: ' </S> fin souligné
                        er$ = "\ulnone "
            END_SELECT
            a$ = a1$ + er$ + a2$
            GOTO Rebc
        END_IF
    END_IF
    IF i% <> 37 THEN a$ = a$ + "\par"
    FILE_WRITELN 2, a$
  END_WHILE
  FILE_CLOSE 1
  FILE_WRITELN 2,ft$: FILE_CLOSE 2
END_SUB