Accueil > > > DES MILLIERS DE CARACTÈRES UNICODE POUR PC
DES MILLIERS DE CARACTÈRES UNICODE POUR PC
Information sur la source
Description
Ces quelques lignes en Basic permettent de générer la source d'une page HTML présentant des milliers caractères Unicode (exemple à http://louviou.net/JV/unicode.html)
Source
- 100 REM ----- TABLE.BAS par Jean Vichniacoff ---------------------------------------------
- 110 a% = 0: b% = 9999: b$ = STR$(b%): y% = LEN(b$) - 1: s$ = CHR$(47)
- 120 g$ = CHR$(34): e$ = CHR$(35): pv$ = CHR$(59)
- 130 OPEN "O", #1, "TABLE_BAS.HTM"
- 140 PRINT #1, "<html><body bgcolor="; g$; "#CCCCCC"; g$; ">"
- 142 PRINT #1, "<table bgcolor="; g$; "#FFFFFF"; g$; " style="; g$; "font-family: arial;font-size:24px"; g$; " align=center cellpadding=4 border=0>"
- 144 FOR t% = a% TO b% STEP 100
- 146 PRINT #1, "<tr bgcolor="; g$; "#EEDDCC"; g$; " align=center><td width=80></td>"
- 150 PRINT #1, "<td>0</td><td>1</td><td>2</td><td>3</td><td>4</td><td>5</td><td>6</td><td>7</td><td>8</td><td>9</td></tr>"
- 160 FOR L% = 0 TO 9
- 170 PRINT #1, "<tr bgcolor="; g$; "#EEEECC"; g$; " align=center><td bgcolor="; g$; "#EEDDCC"; g$; ">";
- 180 n% = INT(t% / 100) * 100 + (L% * 10): na% = n%: GOSUB 280: PRINT #1, m$; "</td>";
- 190 FOR c% = 0 TO 9
- 200 n% = na% + c%: GOSUB 280: PRINT #1, "<td>&#"; m$; pv$; "</td>";
- 210 IF c% = 4 THEN PRINT #1, ""
- 220 NEXT c%: PRINT #1, "</tr>"
- 230 NEXT L%: NEXT t%
- 240 PRINT #1, "</table></body></html>"
- 250 CLOSE #1: CLS : FILES "*.HTM": PRINT "la page se nomme PAGE_BAS.HTM ... renommez-la unicode.html"
- 260 END
- 270 REM ----- routine -----------------------------------------------------------------------------------
- 280 n$ = STR$(n%): k% = LEN(n$): m$ = RIGHT$(n$, k% - 1): d% = LEN(m$): m$ = STRING$(y% - d%, "0") + m$: RETURN
100 REM ----- TABLE.BAS par Jean Vichniacoff ---------------------------------------------
110 a% = 0: b% = 9999: b$ = STR$(b%): y% = LEN(b$) - 1: s$ = CHR$(47)
120 g$ = CHR$(34): e$ = CHR$(35): pv$ = CHR$(59)
130 OPEN "O", #1, "TABLE_BAS.HTM"
140 PRINT #1, "<html><body bgcolor="; g$; "#CCCCCC"; g$; ">"
142 PRINT #1, "<table bgcolor="; g$; "#FFFFFF"; g$; " style="; g$; "font-family: arial;font-size:24px"; g$; " align=center cellpadding=4 border=0>"
144 FOR t% = a% TO b% STEP 100
146 PRINT #1, "<tr bgcolor="; g$; "#EEDDCC"; g$; " align=center><td width=80></td>"
150 PRINT #1, "<td>0</td><td>1</td><td>2</td><td>3</td><td>4</td><td>5</td><td>6</td><td>7</td><td>8</td><td>9</td></tr>"
160 FOR L% = 0 TO 9
170 PRINT #1, "<tr bgcolor="; g$; "#EEEECC"; g$; " align=center><td bgcolor="; g$; "#EEDDCC"; g$; ">";
180 n% = INT(t% / 100) * 100 + (L% * 10): na% = n%: GOSUB 280: PRINT #1, m$; "</td>";
190 FOR c% = 0 TO 9
200 n% = na% + c%: GOSUB 280: PRINT #1, "<td>&#"; m$; pv$; "</td>";
210 IF c% = 4 THEN PRINT #1, ""
220 NEXT c%: PRINT #1, "</tr>"
230 NEXT L%: NEXT t%
240 PRINT #1, "</table></body></html>"
250 CLOSE #1: CLS : FILES "*.HTM": PRINT "la page se nomme PAGE_BAS.HTM ... renommez-la unicode.html"
260 END
270 REM ----- routine -----------------------------------------------------------------------------------
280 n$ = STR$(n%): k% = LEN(n$): m$ = RIGHT$(n$, k% - 1): d% = LEN(m$): m$ = STRING$(y% - d%, "0") + m$: RETURN
Conclusion
ici une variante avec JavaScript à insérer dans le BODY d'une page HTML (exemple à http://louviou.net/JV/unicode2.html)
<SCRIPT LANGUAGE="JavaScript"> <!-- document.write ("<table bgcolor=#FFEECC style='font-family: arial;font-size: 36px;color: #000000' cellspacing=1 border=1 align=center>"); nombre=1; centaine=1; while (centaine<657) { document.write ("<tr style='font-size: 20px;color: #990000' align=center bgcolor=#EEDDCC>"); document.write ("<td bgcolor=#006666 width=80 align=right><font style='font-size: 36px;color: #FFFFFF'><b>☞</b><font style='font-size: 20px;color: #CCBB00'> +</font></font>"); chiffre=1; while (chiffre<11) { document.write ("<td width=60 align=center>"+chiffre+"</td>"); chiffre++; } docu ment.write ("</tr>"); ligne=1 while (ligne<11) { document.write ("<tr align=center height=60>"); repere=nombre-1; document.write ("<td bgcolor=#EEDDCC width=100 style='font-size: 20px;color: #990000'>"+repere+" "); colonne=1 while (colonne<11) { document.write ("<td>"); document.write("&#"+ nombre + ";"); document.write ("</td>"); nombre++; colonne++; } document.write ("</tr>"); ligne++; } centaine++; } document.write ("</table>"); //--> </SCRIPT>
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
browser window [ par ianus ]
bizarre !!je travaille sur dream 3 sous pc et lorsque je programme des browser window (fenetre flottante) cela fonctionne parfaitement en ligne avec u
donnée propre a un pc [ par psychodingue ]
Salut à tous,Voulà je voudrai savoir s'il été possible de récupérer une donnée propre à un pc, comme le nom de sa machine ou l'adresse mac de sa carte
lire video [ par mogmog ]
bonjour!Avec mon PC Win XP, je n'arrive pas a lire des videos en lien sur une page. Par exemple si je met une video sur une page de mon site kelle soi
connaitre la résolution d'un pc [ par Nargzul ]
voila bonjour,je sais que ca doit etre tout con, mais comment arrive-t-on à connaitre la résolution d'un pc???merci beaucoup
mettre su son sur une page web [ par les ray monds ]
J'ai lus toute les soluce concernant la maniere de mettre du son mais je n'entend le son que sur mon pc de la page web en question J'ai essayer avec u
javascript bdr [ par homer29 ]
bonjour,SVP quelqu' un pourrait-il m' indiquer comment ecrire dans la base de registre avec javascript en fonction du nom du pcun truc du genre: if h
contourner les programmes popup des pc clients [ par nicenails ]
certains programme popup des pc client stoppe la commande window.open, il considere la fenetre ouverte comme un popup. Comment eviter cela pour ouvrir
Passer des paramètres d'un PC récupérés en JS vers PHP ? [ par _ET_ ]
Bonjour,Voilà, mon pb est simple : pour le compte d'un MOD phpBB qui ajuste l'heure du forum sur celui du PC client, j'ai besoin récupérer ses paramèt
pc sous client serveur ou non comment le savoir [ par josswel ]
Salut à tous,je cherche depuis un certain temps 2 programmes en delphi particuliers ... Le 1er programme
Trouver un pc ds un reseau [ par overdoz69 ]
Voila je vous explique mon probleme, en fait je doit trouve dans un reseau local, sur kel port de kel switch est branché un pc connaisant juste s
|
Derniers Blogs
L'INTERFACE NATURELLE DE WINDOWS PHONE 7 SERIESL'INTERFACE NATURELLE DE WINDOWS PHONE 7 SERIES par odewit
La tendance est aux interfaces naturelles (NUI), et le keynote de Bill Buxton au MIX l'a bien souligné.
La charte graphique et ergonomique de Windows Phone 7 a donc été entièrement repensée en vue d'obtenir un maximum d'efficacité sur ce point. En re...
Cliquez pour lire la suite de l'article par odewit COMMENT MAPPER UNE VUE SQL SUR UNE COLLECTION DE COMPLEX TYPE?COMMENT MAPPER UNE VUE SQL SUR UNE COLLECTION DE COMPLEX TYPE? par Matthieu MEZIL
Avec EF, les vues doivent être mappées sur des entity types. Le problème c'est que les entity types doivent avoir une clé. Avec EF, nous avons les complex type qui n'ont pas de clé mais les vues ne peuvent pas être mappées dessus. Avec EF4, il est possibl...
Cliquez pour lire la suite de l'article par Matthieu MEZIL [WF4] UN BINDING ACTIVITY/ACTIVITYDESIGNER QUI PASSE MAL?[WF4] UN BINDING ACTIVITY/ACTIVITYDESIGNER QUI PASSE MAL? par JeremyJeanson
Certain d'entre vous on peut être vécu cette situation embarrassante après quelques temps passer avec WF4 : Au début avec mon " ActivityDesigner" , tout allait bien. Et puis un jour j'ai au des problèmes de " Binding" . Alors nous sommes allé sur le site ...
Cliquez pour lire la suite de l'article par JeremyJeanson
Logiciels
Academy System (10.9.4.0)ACADEMY SYSTEM (10.9.4.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System Xilisoft Convertisseur Vidéo Ultimate (5.1.39.0305)XILISOFT CONVERTISSEUR VIDéO ULTIMATE (5.1.39.0305)Xilisoft Convertisseur Vidéo Ultimate est un outil puissant de conversion vidéo, facile à utilise... Cliquez pour télécharger Xilisoft Convertisseur Vidéo Ultimate Xilisoft DVD Ripper Ultimate (5.0.64.0304)XILISOFT DVD RIPPER ULTIMATE (5.0.64.0304)Xilisoft DVD Ripper Ultimate est un logiciel excellent pour copier et convertir DVD vers presque ... Cliquez pour télécharger Xilisoft DVD Ripper Ultimate Rigs of Rods (63.3)RIGS OF RODS (63.3)c'est un jeu de multi-simulation camions,autobus voitures, avions, bateaux, hélicoptère avec défo... Cliquez pour télécharger Rigs of Rods
|