| 1 | #include <file.au3> |
|---|
| 2 | #include <Array.au3> |
|---|
| 3 | |
|---|
| 4 | Func ShowResults($CaseNo, $CaseDescription, $Results) |
|---|
| 5 | MsgBox(0, _ |
|---|
| 6 | "Results - " & $CaseNo, _ |
|---|
| 7 | $CaseDescription & @LF & @LF & _ |
|---|
| 8 | $Results) |
|---|
| 9 | EndFunc |
|---|
| 10 | |
|---|
| 11 | ;; UTF-8 log files with BOM |
|---|
| 12 | |
|---|
| 13 | Dim $aErrorLogFilesBOM |
|---|
| 14 | $aErrorLogFilesBOM = _FileListToArray(@ScriptDir, "BOM_*.log", 1) |
|---|
| 15 | If @Error=4 Then |
|---|
| 16 | Exit |
|---|
| 17 | Else |
|---|
| 18 | _ArraySort($aErrorLogFilesBOM) |
|---|
| 19 | |
|---|
| 20 | $CaseNo = "Case 1" |
|---|
| 21 | $CaseDescription = _ |
|---|
| 22 | "UTF-8 with BOM, encoding auto-detected:" & @LF & @LF & _ |
|---|
| 23 | " => FAILS: if 8-bit char contained, ignores all subsequent files!" |
|---|
| 24 | $LoggedErrors = "" |
|---|
| 25 | For $index = 1 to $aErrorLogFilesBOM[0] |
|---|
| 26 | Local $filepath = @ScriptDir & "\" & $aErrorLogFilesBOM[$index] |
|---|
| 27 | $ErrorLogFile = FileOpen($filepath, 0) |
|---|
| 28 | $LoggedErrors = $LoggedErrors & FileRead($ErrorLogFile) |
|---|
| 29 | FileClose($ErrorLogFile) |
|---|
| 30 | Next |
|---|
| 31 | ShowResults($CaseNo, $CaseDescription, $LoggedErrors) |
|---|
| 32 | |
|---|
| 33 | $CaseNo = "Case 2" |
|---|
| 34 | $CaseDescription = _ |
|---|
| 35 | "UTF-8 with BOM, read as binary and decoded as UTF-8" & @LF & @LF & _ |
|---|
| 36 | " => OK after removal of BOM" |
|---|
| 37 | $LoggedErrors = "" |
|---|
| 38 | For $index = 1 to $aErrorLogFilesBOM[0] |
|---|
| 39 | Local $filepath = @ScriptDir & "\" & $aErrorLogFilesBOM[$index] |
|---|
| 40 | $ErrorLogFile = FileOpen($filepath, 16) |
|---|
| 41 | ; BOM needs to be skipped |
|---|
| 42 | $LoggedErrors = $LoggedErrors & _ |
|---|
| 43 | BinaryToString(BinaryMid(FileRead($ErrorLogFile), 4), 4) |
|---|
| 44 | FileClose($ErrorLogFile) |
|---|
| 45 | Next |
|---|
| 46 | ShowResults($CaseNo, $CaseDescription, $LoggedErrors) |
|---|
| 47 | |
|---|
| 48 | EndIf |
|---|
| 49 | |
|---|
| 50 | ;; UTF-8 log files without BOM |
|---|
| 51 | |
|---|
| 52 | Dim $aErrorLogFilesNoBOM |
|---|
| 53 | $aErrorLogFilesNoBOM = _FileListToArray(@ScriptDir, "NoBOM_*.log", 1) |
|---|
| 54 | If @Error=4 Then |
|---|
| 55 | Exit |
|---|
| 56 | Else |
|---|
| 57 | _ArraySort($aErrorLogFilesNoBOM) |
|---|
| 58 | |
|---|
| 59 | $CaseNo = "Case 3" |
|---|
| 60 | $CaseDescription = _ |
|---|
| 61 | "UTF-8 without BOM, encoding auto-detected" & @LF & @LF & _ |
|---|
| 62 | " => FAILS: wrongly interprets characters as ANSI (of course)" |
|---|
| 63 | $LoggedErrors = "" |
|---|
| 64 | For $index = 1 to $aErrorLogFilesNoBOM[0] |
|---|
| 65 | Local $filepath = @ScriptDir & "\" & $aErrorLogFilesNoBOM[$index] |
|---|
| 66 | $ErrorLogFile = FileOpen($filepath, 0) |
|---|
| 67 | $LoggedErrors = $LoggedErrors & FileRead($ErrorLogFile) |
|---|
| 68 | FileClose($ErrorLogFile) |
|---|
| 69 | Next |
|---|
| 70 | ShowResults($CaseNo, $CaseDescription, $LoggedErrors) |
|---|
| 71 | |
|---|
| 72 | $CaseNo = "Case 4" |
|---|
| 73 | $CaseDescription = _ |
|---|
| 74 | "UTF-8 without BOM, read as binary and decoded as UTF-8" & @LF & @LF & _ |
|---|
| 75 | " => OK in AutoIt V. 3.3 (but V. 3.2.12.1 interprets the characters as ANSI!)" |
|---|
| 76 | $LoggedErrors = "" |
|---|
| 77 | For $index = 1 to $aErrorLogFilesNoBOM[0] |
|---|
| 78 | Local $filepath = @ScriptDir & "\" & $aErrorLogFilesNoBOM[$index] |
|---|
| 79 | $ErrorLogFile = FileOpen($filepath, 16) |
|---|
| 80 | $LoggedErrors = $LoggedErrors & _ |
|---|
| 81 | BinaryToString(FileRead($ErrorLogFile), 4) |
|---|
| 82 | FileClose($ErrorLogFile) |
|---|
| 83 | Next |
|---|
| 84 | ShowResults($CaseNo, $CaseDescription, $LoggedErrors) |
|---|
| 85 | |
|---|
| 86 | EndIf |
|---|
