' Html.bas création d'un fichier Html expérimental
DIM f$, ie$, fe$, fpr$, f1$, f2$, x
DIM a$, a1$
DIM i, k, k1, s$
DIM etrtf$(4), ctx$, cba$, cca$, fli$
LABEL Fin, Vresul, Vsource, Html2Rtf, Trta, Instrx, rq, rv, rw
f$ = "C:\Temp\HtmlTest.htm"
ie$ = "C:\Progra~1\Intern~1\iexplore.exe "
fpr$ = "C:\Temp\Frtf.rtf"
FILE_OPEN_WRITE 1, f$
FILE_WRITELN 1, "<HTML>": ' Type de fichier
FILE_WRITELN 1, "<HEAD>": ' En-tête du fichier html
FILE_WRITELN 1, "</HEAD>"
FILE_WRITELN 1, "<BODY>": ' Corps du fichier
' --------------------------------------------------------------------------
FILE_WRITELN 1, "<U><B>Corps du fichier Html</B></U><P>"
FILE_WRITELN 1, "<FONT COLOR=blue>"
FILE_WRITELN 1, "Balise <CODE>:<BR>"
FILE_WRITELN 1, "<CODE>Au clair de la lune</CODE><P>"
FILE_WRITELN 1, "Balises <SUP> (exposant) et <SUB> (indice):<BR>"
FILE_WRITELN 1, "y = ax<SUP>2</SUP>+bx+c<BR>"
FILE_WRITELN 1, "Acide sulfurique: SO<SUB>4</SUB>H<SUB>2</SUB><P>"
FILE_WRITELN 1, "</FONT>"
FILE_WRITELN 1, "<FONT COLOR=green>Exemple de tableau:</FONT>"
FILE_WRITELN 1, "<TABLE BORDER=2 BGCOLOR=pink>"
FILE_WRITELN 1, "<CAPTION>Titre du tableau</CAPTION>"
FILE_WRITELN 1, "<TH>Col 1</TH><TH>Col 2</TH><TH>Col 3</TH>": ' titres des colonnes
FILE_WRITELN 1, "<TR>": ' début de rangée
FILE_WRITELN 1, "<TD> Cellule 1 </TD><TD> Cellule 2 </TD><TD> Cellule 3 </TD>"
FILE_WRITELN 1, "</TR>": ' fin de rangée
FILE_WRITELN 1, "<TR>"
FILE_WRITELN 1, "<TD> Cellule 4 </TD><TD> Cellule 5 </TD><TD>image:<IMG SRC=C:\Graph\Smileys\Smile.gif></TD>"
FILE_WRITELN 1, "</TR>"
FILE_WRITELN 1, "</TABLE><P>"
FILE_WRITELN 1, "Ligne horizontale:<HR>"
FILE_WRITELN 1, "Exemples d'enrichissement de caractères:<BR>"
FILE_WRITELN 1, "Normal <B>Gras</B> <I>Italiques</I> <U>Souligné</U> "
FILE_WRITELN 1, "<STRIKE>Barré</STRIKE> <H2>Plus gros</H2><H6>Plus petit</H6><BR>"
FILE_WRITELN 1, "<MARQUEE><FONT COLOR=red>Texte défilant</FONT></MARQUEE><P>"
FILE_WRITELN 1, "Certaines balises sont orphelines (pas de balise de fin), par exemple:<BR>"
FILE_WRITELN 1, "<BR> saut de ligne, <P> saut de paragraphe, "
FILE_WRITELN 1, "<HR> ligne horizontale."
' --------------------------------------------------------------------------
FILE_WRITELN 1, "</BODY>": ' Fin du corps
FILE_WRITELN 1, "</HTLM>" : ' Fin du fichier
FILE_CLOSE 1
' Interprétation du source en rtf pour affichage éventuel sous Wordpad
f1$ = f$: f2$ = fpr$: GOSUB Html2Rtf
WIDTH 0, 240: HEIGHT 0, 200
PICTURE 9: TOP 9, 0: LEFT 9, 0: WIDTH 9, 220: HEIGHT 9, 40
PRINT_TARGET_IS 9: print
PRINT " Création et analyse d'un fichier HTML (.htm)"
BUTTON 10: LEFT 10, 40: TOP 10, 50: WIDTH 10, 140:CAPTION 10, "Voir le source"
On_Click 10, Vsource
BUTTON 11: LEFT 11, 40: TOP 11, 85: WIDTH 11, 140: CAPTION 11, "Voir le résultat"
ON_CLICK 11, Vresul
BUTTON 12: LEFT 12, 40: TOP 12, 120: WIDTH 12, 140: CAPTION 12, "Quitter"
ON_CLICK 12, Fin
END
Fin:
FILE_DELETE f$
FILE_DELETE fpr$
TERMINATE
Vresul:
EXECUTE ie$ + f$
RETURN
Vsource:
' Couleurs d'affichage dans Wordpad: définies dans la ligne 3 des DATAs:
EXECUTE "write.exe " + fpr$
RETURN
Html2Rtf:
DATA "{\rtf1\ansi\ansicpg1252\deff0\deflang1036"
DATA "{\fonttbl{\f0\fmodern\fprq1\fcharset0 Lucida Console;}{\f1\fswiss\fcharset0 Arial;}}"
DATA "{\colortbl ;\red255\green0\blue0;\red0\green255\blue0;\red0\green0\blue255;}"
DATA "{\*\generator Msftedit 5.41.21.2509;}\viewkind4\uc1\pard\f0\fs20 "
' couleurs: \cf0 noir, \cf1 rouge, \cf2 vert, \cf3 bleu
ctx$ = "\cf0 ": ' couleur texte: noir
cba$ = "\cf3 ": ' couleur balises: bleu
cca$ = "\cf1 ": ' couleur caractères spéciaux: rouge
fli$ = "\par": ' saut de ligne
IF etrtf$(1) = ""
FOR i = 1 TO 4: READ etrtf$(i): NEXT i
END_IF
FILE_OPEN_READ 1, f1$
FILE_OPEN_WRITE 2, f2$
FOR i = 1 TO 4: FILE_WRITELN 2, etrtf$(i): NEXT i
WHILE FILE_EOF(1) = 0
FILE_READLN 1, a$: GOSUB Trta: FILE_WRITELN 2, a$
END_WHILE
FILE_WRITELN 2, "}"
FILE_CLOSE 1: FILE_CLOSE 2
RETURN
Trta:
s$ = "\": x = 1
rq:
GOSUB Instrx
IF k > 0
a$ = left$(a$, k) + "\" + MID$(a$, k + 1, LEN(a$) - k): x = k + 2: GOTO rq
END_IF
x = 1
rv:
s$ = "<": GOSUB Instrx
IF k > 0
k1 = k: x = k+1: s$ = ">": GOSUB Instrx
IF k > 0
IF k < LEN(a$)
a$ = LEFT$(a$, k1-1) + cba$ + MID$(a$,k1,k-k1+1)+ctx$+MID$(a$,k+1,LEN(a$)-k)
x = k+11: GOTO rv
END_IF
a$ = LEFT$(a$, k1-1) + cba$ + MID$(a$,k1,k-k1+1) + ctx$
END_IF
END_IF
x = 1
rw:
s$ = "&": GOSUB Instrx
IF k > 0
k1 = k: x = k+1: s$ = ";": GOSUB Instrx
IF k > 0
IF (k-k1) < 8
IF k < LEN(a$)
a$ = LEFT$(a$, k1-1) + cca$ + MID$(a$,k1,k-k1+1)+ctx$+MID$(a$,k+1,LEN(a$)-k)
x = k+11: GOTO rw
END_IF
a$ = LEFT$(a$, k1-1) + cca$ + MID$(a$,k1,k-k1+1) + ctx$
END_IF
END_IF
END_IF
a$ = a$ + fli$
RETURN
Instrx:
' recherche de s$ dans a$ à partir de x
a1$ = MID$(a$, x, LEN(a$)-x+1)
k = INSTR(a1$, s$)
IF k > 0 THEN k = k + x - 1
RETURN
Accueil 
Calendrier
