| 1 | Opt("MustDeclareVars", 1) |
|---|
| 2 | |
|---|
| 3 | Global $sResults |
|---|
| 4 | |
|---|
| 5 | $sResults &= UTFx_Test(True) ;## UTF-8 - Funky |
|---|
| 6 | $sResults &= UTFx_Test(True, True) ;## UTF-8 - Worse |
|---|
| 7 | $sResults &= UTFx_Test(False) ;## UTF-16 - Works as expected |
|---|
| 8 | |
|---|
| 9 | MsgBox(0, "Results", $sResults) |
|---|
| 10 | |
|---|
| 11 | Func UTF8_Test($bUseUTF8, $bPartial = False) |
|---|
| 12 | Local Const $iCharsToRead = 7 |
|---|
| 13 | Local $hFile, $iStartPos, $iEndPos, $iStrLen, $iBinLen, $sChars |
|---|
| 14 | Local $sToWrite = ($bPartial ? "123456" & ChrW(185) & "789" : ChrW(185) & "23456789") ;## ChrW(185) = Superscript One |
|---|
| 15 | |
|---|
| 16 | $hFile = FileOpen(@TempDir & '\utf8_test.txt', ($bUseUTF8 ? 130 : 34)) ;## 130 = ($FO_UTF8 + $FO_OVERWRITE), 34 = ($FO_UTF16_LE + $FO_OVERWRITE) |
|---|
| 17 | If $hFile <> -1 Then |
|---|
| 18 | FileWrite($hFile, $sToWrite) |
|---|
| 19 | FileClose($hFile) |
|---|
| 20 | Else |
|---|
| 21 | MsgBox(16, "UTF-" & ($bUseUTF8 ? "8" : "16") & " Test", "Failed to create test file") |
|---|
| 22 | Exit (1) |
|---|
| 23 | EndIf |
|---|
| 24 | |
|---|
| 25 | $hFile = FileOpen(@TempDir & '\utf8_test.txt', ($bUseUTF8 ? 128 : 32)) ;## 128 = $FO_UTF8, 32 = $FO_UTF16_LE |
|---|
| 26 | If $hFile <> -1 Then |
|---|
| 27 | $iStartPos = FileGetPos($hFile) |
|---|
| 28 | $sChars = FileRead($hFile, $iCharsToRead) |
|---|
| 29 | $iEndPos = FileGetPos($hFile) |
|---|
| 30 | $iStrLen = StringLen($sChars) |
|---|
| 31 | $iBinLen = BinaryLen(StringToBinary($sChars, ($bUseUTF8 ? 4 : 2))) ;## 4 = UTF-8, 2 = UTF-16LE |
|---|
| 32 | FileClose($hFile) |
|---|
| 33 | Else |
|---|
| 34 | MsgBox(16, "UTF-" & ($bUseUTF8 ? "8" : "16") & " Test", "Failed to open test file") |
|---|
| 35 | Exit (2) |
|---|
| 36 | EndIf |
|---|
| 37 | |
|---|
| 38 | FileDelete(@TempDir & '\utf8_test.txt') |
|---|
| 39 | Return StringFormat("UTF-%s Test\r\n-------\r\nString read: %s\r\nStarting offset: %i\r\nEnding offset: %i\r\n" & _ |
|---|
| 40 | "Characters read: %i\r\nExpected characters read: %i\r\nBytes read: %i\r\n\r\n", _ |
|---|
| 41 | ($bUseUTF8 ? "8" : "16") & ($bPartial ? " - Odd offset" : ""), $sChars, $iStartPos, $iEndPos, $iStrLen, $iCharsToRead, $iBinLen) |
|---|
| 42 | EndFunc |
|---|
