Unicode problem

[Andreik]

I want to create a file that contains all the unicode characters least that's square (remain only remaining characters).

I use this but I don't know what is square or what isn't square.

$FILE = FileOpen(@ScriptDir & "\UNICODE.TXT",32+2)
For $INDEX = 1 To 65535
    FileWriteLine($FILE,$INDEX & @TAB & ChrW($INDEX))
Next
FileClose($FILE)

[Richard Robertson]

What do you mean by square? Do you perhaps mean the block character that represents unrepresentable character values? The values depend on both the font and the loading program's format.

[Andreik]

What do you mean by square? Do you perhaps mean the block character that represents unrepresentable character values? The values depend on both the font and the loading program's format.

Yes, I want to write to file only representable characters.

[Richard Robertson]

Well, technically all the characters are representable. You have to be more specific. If you have a lot of free time, you can just print them all out and see which ones are "blocks".

[system24]

I want to create a file that contains all the unicode characters least that's square (remain only remaining characters).

I use this but I don't know what is square or what isn't square.

$FILE = FileOpen(@ScriptDir & "\UNICODE.TXT",32+2)
For $INDEX = 1 To 65535
    FileWriteLine($FILE,$INDEX & @TAB & ChrW($INDEX))
Next
FileClose($FILE)

IMHO, you could just get a Unicode font.

Take Arial Unicode MS for example.

Nothing will be square.

[Andreik]

IMHO, you could just get a Unicode font.

Take Arial Unicode MS for example.

Nothing will be square.

Still exists unrepresentable characters:

$GUI = GUICreate("UNICODE",200,200,-1,-1)
$EDIT = GUICtrlCreateInput("",5,5,190,100)
$NEXT = GUICtrlCreateButton("NEXT",5,120,190,70)
GUICtrlSetFont($EDIT,10,600,8,"Arial Unicode MS")
GUISetState()
$CHR = 1

While 1
    $MSG = GUIGetMsg()
    If $MSG = -3 Then 
        Exit
    ElseIf $MSG = $NEXT Then
        GUICtrlSetData($EDIT,ChrW($CHR))
        $CHR += 1
    EndIf
    Sleep(25)
WEnd

[trancexx]

This is interesting.

Just like an idea:

GUICreate("Test", 500, 500)

Dim $oShell = ObjCreate("Shell.Explorer.2")

GUICtrlCreateObj($oShell, 10, 10, 480, 480)

$oShell.navigate("about:blank")
While $oShell.busy
    Sleep(100)
WEnd

For $i = 1 To 2000;  65535
    $oShell.document.writeln('&#' & $i)
Next

$FILE = FileOpen(@ScriptDir & "\UNICODE.TXT",32+2)
FileWrite($FILE, $oShell.document.body.innerText)

GUISetState()

While GUIGetMsg() <> -3
WEnd

[Andreik]

This is interesting.

Just like an idea:

GUICreate("Test", 500, 500)

Dim $oShell = ObjCreate("Shell.Explorer.2")

GUICtrlCreateObj($oShell, 10, 10, 480, 480)

$oShell.navigate("about:blank")
While $oShell.busy
    Sleep(100)
WEnd

For $i = 1 To 2000;  65535
    $oShell.document.writeln('&#' & $i)
Next

$FILE = FileOpen(@ScriptDir & "\UNICODE.TXT",32+2)
FileWrite($FILE, $oShell.document.body.innerText)

GUISetState()

While GUIGetMsg() <> -3
WEnd

One question: on your computer does not appear any one character that is represented by a square?

[trancexx]

One question: on your computer does not appear any one character that is represented by a square?

Well, control characters are represented as a square (except 9, 10, 11, 12, 13) and 127, 129, 141, 143, 144, 157, 735, 746...

I did change a line in that script $oShell.document.writeln('&#' & $i) --> $oShell.document.writeln($i & ' &#' & $i) to see dec values