XProfan

Español

p.specht

Mich ha antes kurzem erstmals Unicode interessiert (Einleitendes Signo en Textfiles $FFFE). Dazu Yo veces versuchsweise una XProfan11-2a free Dateigenerator para mehrere (todos?) Unicode-"Planes" erstellt. No ausgereift - Por favor, Pfade stets incluso checken y adaptar. Wer el Expediente con el Windoof-Editor / Notepad öffnet (- dauert una wenig), el findet doch algunos neue Signo, el bastante brauchbar erscheinen.

P.S.: El Chinesen son el Vernehmen después de con el Sortierreihenfolge no zufrieden...

Kompilieren Marca Separación

Título de la ventana upper$("unicode-generator")
' OHNE JEDWEDE GEWÄHR! PFADE GGF. SELBST ANPASSEN!
Ventana de Estilo 24:cls:font 2:randomize
var user$=getenv$("USERNAME"):declarar i&,j&
var MaxCodePlane&=255
imprimir "\n Kontrolle: Ist Ihr Benutzername = ";chr$(34);user$;chr$(34);"?"
imprimir "\n Falls no: Bitte   A B B R E C H E N !":waitinput
assign #1,"C:\\Users\\"+User$+"\\Desktop\\all_ucod.txt"
rewrite #1
imprimir #1,chr$($FE);chr$($FF);'Unicode-Kennung

whileloop 0,MaxCodePlane&:i&=&Loop

    whileloop 0,255:j&=&Loop

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

    endwhile

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

endwhile

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