XProfan

Français

p.specht

Mich hat avant kurzem erstmals Unicode intéressé (Einleitendes marque dans Textfiles $FFFE). en supplément habe je la fois versuchsweise une XProfan11-2a free Dateigenerator pour plusieurs (alle?) Unicode-"Planes" erstellt. pas ausgereift - s'il te plaît Pfade stets selbst checken et anpassen. qui qui Dossier avec dem Windoof-Editor / Notepad ouvrez (- dauert un peu), qui findet doch quelques neue marque, qui entier brauchbar erscheinen.

P.S.: qui Chinesen sommes dem Vernehmen pour avec qui Sortierreihenfolge pas zufrieden...

Kompilieren Marque Séparation

Titre de la fenêtre upper$("unicode-generator")
' OHNE JEDWEDE GEWÄHR! PFADE GGF. SELBST ANPASSEN!
Fenêtre Style 24:cls:font 2:randomize
var user$=getenv$("USERNAME"):declare i&,j&
var MaxCodePlane&=255
imprimer "\n Kontrolle: Ist son Benutzername = ";chr$(34);user$;chr$(34);"?"
imprimer "\n si pas: s'il te plaît   A B B R E C H E N !":waitinput
assign #1,"C:\\Users\\"+User$+"\\Desktop\\all_ucod.txt"
rewrite #1
imprimer #1,chr$($FE);chr$($FF);'Unicode-Kennung

whileloop 0,MaxCodePlane&:i&=&Boucle

    whileloop 0,255:j&=&Boucle

        imprimer #1,chr$(i&);chr$(j&);
        imprimer #1,chr$(0);chr$(32);
        casenot j& mod 64:imprimer #1,chr$(0);chr$(13);chr$(0);chr$(10);

    endwhile

    imprimer #1,chr$(0);chr$(13);chr$(0);chr$(10);
    imprimer #1,chr$(0);chr$(13);chr$(0);chr$(10);

endwhile

imprimer #1,chr$(0);chr$(0);chr$(0);chr$(0);
close #1
imprimer "\n\n Dossier liegt am Desktop.\n BYE!"
beep:waitinput 2000
end
progend