Read/Display file content - non txt file

[mLipok]

How to view content of file (see attachment)

 

I try using fileopen / fileread / fileclose

but then I see only "–˛8Y" or binary.

 

I need something another.

 

for example

This is content which I see when I using lister from TotalCommander

–˛8Y   P     Đ  HP LaserJet 1020                 ś 4ź           X X                                                                                          SDDM    HP LaserJet 1020                                                                                                         -                     €€€ ˙   ˙˙   ˙   ˙˙   ˙ ˙ ˙                 (   d                                                       Ţ  Ţ           €                                         Śń`4           €˙                                                                                                                                                                                                                                                                                                                                                                                                                                                   <   $ winspool  HP LaserJet 1020  USB002                       ‚.  ĆA       n  7  7  7  ®           TEST1

TEST2

TEST3

                 @       P8˙         î  Times New Roman                  

   Ŕ          d     nÜJ

¸&”p#Ţ'L,ş0(5–9>                T i m e s   N e w   R o m a n                                                   â  

 

 

How to show that in AU3 ?

I attach example file

 

TEST123.zip

[water]

Which program did you use to display the content of the file above? Couldn't you use this program from AutoIt?

[mLipok]

I use TotalCommander with internal F3 - lister

I want to take that same effect

for example

I want to check  if this file contain

 

TEST1

TEST2

TEST3

 

but Case-insensitivity

[guinness]

What parameters did you use with FileOpen?

[KaFu]

The binary data contains characters which can not be translated into a (ascii) string, here's a work-around...

expandcollapse popup

#include <array.au3>
Local $hFile = FileOpen("TEST123.skk", 16)
If $hFile = -1 Then
MsgBox(0, "Error", "Unable to open file.")
Exit
EndIf
$sData = FileRead($hFile)
FileClose($hFile)

$sData = _HexEncode($sData, 0x00000005)
$aData = StringSplit($sData, @CRLF, 1)
; _ArrayDisplay($aData)

$sData = ""
For $i = 1 To $aData[0]
$sData &= StringRight($aData[$i], 16)
Next
MsgBox(0, "", $sData)

Func _HexEncode($bInput, $iFlags = 0x0000000b)
; CryptBinaryToString function (Windows)
; http://msdn.microsoft.com/en-us/library/windows/desktop/aa379887%28v=vs.85%29.aspx

Local $tInput = DllStructCreate("byte[" & BinaryLen($bInput) & "]")
DllStructSetData($tInput, 1, $bInput)
Local $a_iCall = DllCall("crypt32.dll", "int", "CryptBinaryToString", _
"ptr", DllStructGetPtr($tInput), _
"dword", DllStructGetSize($tInput), _
"dword", $iFlags, _
"ptr", 0, _
"dword*", 0)

If @error Or Not $a_iCall[0] Then
Return SetError(1, 0, "")
EndIf

Local $iSize = $a_iCall[5]
Local $tOut = DllStructCreate("char[" & $iSize & "]")

$a_iCall = DllCall("crypt32.dll", "int", "CryptBinaryToString", _
"ptr", DllStructGetPtr($tInput), _
"dword", DllStructGetSize($tInput), _
"dword", $iFlags, _
"ptr", DllStructGetPtr($tOut), _
"dword*", $iSize)

If @error Or Not $a_iCall[0] Then
Return SetError(2, 0, "")
EndIf

Return SetError(0, 0, DllStructGetData($tOut, 1))

EndFunc ;==>_HexEncode

[mLipok]

Thanks KaFu

this works

but I have problem with Diacritic mark 

–˛8Y   P     Đ  HP LaserJet 1020                 ś 4ź         X X                                                                                          SDDM    HP LaserJet 1020                                                                                                         -                     €€€ ˙   ˙˙   ˙   ˙˙   ˙ ˙ ˙                 (   d                                                       Ţ  Ţ           €                                         Śń`4           €˙                                                                                                                                                                                                                                                                                                                                                                                                                                                   <   $ winspool  HP LaserJet 1020  USB002                       ‚.  ĆA       n  7  7  7  ®         !   Polish Diacritic mark: ąćęłńóśżź

            !      @       P8˙         î  Times New Roman                 ! " "  Ŕ          d     nÜJ

¸&”p#Ţ'L,ş0(5–9>                T i m e s   N e w   R o m a n                                                   â  

 

 

in TotalCommander there is 

Polish Diacritic mark: ąćęłńóśżź

 

 

result _HexEncode(..

Polish Diacritic mark: ..........

 

 

..8Y....P...........HP LaserJet 1020......................4...................X.....X...........................................................................................SDDM........HP LaserJet 1020........................................................................................................................................................-...................................................................(...d......................................................................................................................`4...................................................................................................................................................................................................................................................................................................................................................................................................................................................................<.......$...winspool..HP LaserJet 1020..USB002...............................A..........n...7...7...7.................!...Polish Diacritic mark: .....................................!......@.......P8.................Times New Roman.....................!...".".............d. ......n.....J.....&........p#..'.L,..0.(5..9..>................T.i.m.e.s. .N.e.w. .R.o.m.a.n.........................................  ..............

 

 

 

 

 

[mLipok]

oh..

I forgot to attach new file

TEST123_Polish.zip

[mLipok]

Intresting

When I open TEST123_Polish.skk in Scite 

then I see diffrent data (in comparision to TotalCommander - Lister )

but "Polish Diacritic mark: ąćęłńóśżź" is correctly displayed

 

–˛8Y   P     Đ  HP LaserJet 1020                 ś 4ź         X X                                                                                          SDDM    HP LaserJet 1020                                                                                                         -                     €€€ ˙   ˙˙   ˙   ˙˙   ˙ ˙ ˙                 (   d                                                       Ţ  Ţ           €                                         Śń`4           €˙                                                                                                                                                                                                                                                                                                                                                                                                                                                   <   $ winspool  HP LaserJet 1020  USB002                       ‚.  ĆA       n  7  7  7  ®         !   Polish Diacritic mark: ąćęłńóśżź

            !      @       P8˙         î  Times New Roman                 ! " "  Ŕ          d     nÜJ

¸&”p#Ţ'L,ş0(5–9>                T i m e s   N e w   R o m a n                                                   â  

 

[mLipok]

I found an interesting article

http://www.vbforums.com/showthread.php?652670-convert-utf-8-to-hex-and-return-it-from-hex

http://msdn.microsoft.com/en-us/library/windows/desktop/dd374130(v=vs.85).aspx

 

is it a good way ?

[UEZ]

Is this displaying it properly for you?

expandcollapse popup

#include <WinAPI.au3>
#include <array.au3>
Global Enum $CRYPT_STRING_BASE64HEADER = 0, $CRYPT_STRING_BASE64, $CRYPT_STRING_BINARY, $CRYPT_STRING_BASE64REQUESTHEADER, $CRYPT_STRING_HEX, _
            $CRYPT_STRING_HEXASCII
Global Enum $CRYPT_STRING_BASE64X509CRLHEADER = 9, $CRYPT_STRING_HEXADDR, $CRYPT_STRING_HEXASCIIADDR, $CRYPT_STRING_HEXRAW
Global Const $CRYPT_STRING_STRICT = 0x20000000, $CRYPT_STRING_NOCRLF = 0x40000000, $CRYPT_STRING_NOCR = 0x80000000

Local $hFile = FileOpen("TEST123_Polish.skk", 16)
If $hFile = -1 Then
    MsgBox(0, "Error", "Unable to open file.")
    Exit
EndIf
$sData = FileRead($hFile)
FileClose($hFile)

$sData = _WinAPI_CryptBinaryToString($sData, $CRYPT_STRING_HEXRAW)
$aData = StringSplit($sData, @CRLF, 1)
$aData = StringRegExp($aData[1], ".{2}", 3)
;~ _ArrayDisplay($aData)

$sData = ""
For $i = 1 To UBound($aData) - 1
    $sData &= _WinAPI_MultiByteToWideChar(ChrW(Dec($aData[$i])), 3, 0, 1)
Next
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $sData = ' & $sData & @crlf) ;### Debug Console
MsgBox(0, "Test", $sData)


Func _WinAPI_CryptBinaryToString($bInput, $iFlags = 0x0000000b)
    ; CryptBinaryToString function (Windows)
    ; http://msdn.microsoft.com/en-us/library/windows/desktop/aa379887(v=vs.85).aspx

    Local $tInput = DllStructCreate("byte[" & BinaryLen($bInput) & "]")
    DllStructSetData($tInput, 1, $bInput)
    Local $a_iCall = DllCall("crypt32.dll", "int", "CryptBinaryToString", _
                                                    "struct*", $tInput, _
                                                    "dword", DllStructGetSize($tInput), _
                                                    "dword", $iFlags, _
                                                    "ptr", 0, _
                                                    "dword*", 0)

    If @error Or Not $a_iCall[0] Then
        Return SetError(1, 0, "")
    EndIf

    Local $iSize = $a_iCall[5]
    Local $tOut = DllStructCreate("char[" & $iSize & "]")

    $a_iCall = DllCall("crypt32.dll", "int", "CryptBinaryToString", _
                                             "struct*", $tInput, _
                                             "dword", DllStructGetSize($tInput), _
                                             "dword", $iFlags, _
                                             "struct*", $tOut, _
                                             "dword*", $iSize)

    If @error Or Not $a_iCall[0] Then
        Return SetError(2, 0, "")
    EndIf

    Return SetError(0, 0, DllStructGetData($tOut, 1))

EndFunc   ;==>_HexEncode

Br,

UEZ

Edited May 25, 2013 by UEZ

[mLipok]

Better, but not up to the end

28YP?HP LaserJet 1020?4? XXSDDMHP LaserJet 1020 -???yyyyyyyyy(d????n`4?y<$winspoolHP LaserJet 1020USB002?.AAn777®!Polish Diacritic mark: 1ae3nó???

!@P8yîTimes New Roman!""Ad nÜJ

¸&?p#?'L,o0(5?9>Times New Romanâ

 

 

Polish Diacritic mark: 1ae3nó???

[KaFu]

Using

$sData &= _WinAPI_MultiByteToWideChar(ChrW(Dec($aData[$i])), 1250, 0, 1)

gives me

ąćęłńó?ż?

... close, but still not quite there ...

[mLipok]

I found it

$sData &= _WinAPI_MultiByteToWideChar(Chr(Dec($aData[$i])), 1250, 0, True)

there was ChrW 

but

this must be 

Chr

[mLipok]

Complete script

expandcollapse popup

#include <WinAPI.au3>
#include <array.au3>
Global Enum $CRYPT_STRING_BASE64HEADER = 0, $CRYPT_STRING_BASE64, $CRYPT_STRING_BINARY, $CRYPT_STRING_BASE64REQUESTHEADER, $CRYPT_STRING_HEX, _
        $CRYPT_STRING_HEXASCII
Global Enum $CRYPT_STRING_BASE64X509CRLHEADER = 9, $CRYPT_STRING_HEXADDR, $CRYPT_STRING_HEXASCIIADDR, $CRYPT_STRING_HEXRAW
Global Const $CRYPT_STRING_STRICT = 0x20000000, $CRYPT_STRING_NOCRLF = 0x40000000, $CRYPT_STRING_NOCR = 0x80000000

Local $hFile = FileOpen("TEST123_Polish.skk", 16)
If $hFile = -1 Then
    MsgBox(0, "Error", "Unable to open file.")
    Exit
EndIf
$sData = FileRead($hFile)
FileClose($hFile)

$sData = _WinAPI_CryptBinaryToString($sData, $CRYPT_STRING_HEXRAW)
$aData = StringSplit($sData, @CRLF, 1)
$aData = StringRegExp($aData[1], ".{2}", 3)
;~ _ArrayDisplay($aData)

$sData = ""
For $i = 1 To UBound($aData) - 1
    $sData &= _WinAPI_MultiByteToWideChar(Chr(Dec($aData[$i])), 1250, 0, 1)
Next
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $sData = ' & $sData & @CRLF) ;### Debug Console
MsgBox(0, "Test", $sData)


Func _WinAPI_CryptBinaryToString($bInput, $iFlags = 0x0000000b)
    ; CryptBinaryToString function (Windows)
    ; http://msdn.microsoft.com/en-us/library/windows/desktop/aa379887(v=vs.85).aspx

    Local $tInput = DllStructCreate("byte[" & BinaryLen($bInput) & "]")
    DllStructSetData($tInput, 1, $bInput)
    Local $a_iCall = DllCall("crypt32.dll", "int", "CryptBinaryToString", _
            "struct*", $tInput, _
            "dword", DllStructGetSize($tInput), _
            "dword", $iFlags, _
            "ptr", 0, _
            "dword*", 0)

    If @error Or Not $a_iCall[0] Then
        Return SetError(1, 0, "")
    EndIf

    Local $iSize = $a_iCall[5]
    Local $tOut = DllStructCreate("char[" & $iSize & "]")

    $a_iCall = DllCall("crypt32.dll", "int", "CryptBinaryToString", _
            "struct*", $tInput, _
            "dword", DllStructGetSize($tInput), _
            "dword", $iFlags, _
            "struct*", $tOut, _
            "dword*", $iSize)

    If @error Or Not $a_iCall[0] Then
        Return SetError(2, 0, "")
    EndIf

    Return SetError(0, 0, DllStructGetData($tOut, 1))
EndFunc   ;==>_WinAPI_CryptBinaryToString

EDIT:

and BIG thanks goes to UEZ and KaFu

Edited May 25, 2013 by mlipok

[mLipok]

now results is that:

Polish Diacritic mark: ąćęłńóśżź

 

–˛8YPĐHP LaserJet 1020ś4ź XXSDDMHP LaserJet 1020 -€€€˙˙˙˙˙˙˙˙˙(dŢŢ€Śń`4€˙<$winspoolHP LaserJet 1020USB002‚.ĆAn777®!Polish Diacritic mark: ąćęłńóśżź

!@P8˙îTimes New Roman!""Ŕd nÜJ

¸&”p#Ţ'L,ş0(5–9>Times New Romanâ

 

[mLipok]

ps.

I hope that it will not be offended UEZ and KaFu for it that I have meant my post as BEST ANSWER

I do that for other members to mark complete solutions 

I write about it as, does not have established principles for this new function "BEST ANSWER"

Edited May 26, 2013 by mlipok

[KaFu]

No offense taken, team effort is always the best solution ...