[SOLVED] _HexToString or BinaryToString ?

[rootx]

There is a way to have a clean string value without any SOH STX etc... Values

 

#include <FileConstants.au3>
#include <String.au3>
#include <WinAPI.au3>
#include <Array.au3>
#include <File.au3>

$file = _FileListToArrayRec(@ScriptDir,"*.otf",1,1,0,2)

For $x = 1 to UBound($file)-1
    ;ConsoleWrite(_ReadOffSet($ISO[$x],0x000000,12))
    ConsoleWrite(_HexToString(StringStripWS(_ReadOffSet($file[$x],0x000000,16), 8))&@CRLF)
    $String = StringReplace(BinaryToString(_ReadOffSet($file[$x],0x000000,16)), Chr(0), "")
    FileWrite(@ScriptDir&"\file.txt",$String&@CRLF)
    FileWrite(@ScriptDir&"\file2.txt",_HexToString(StringStripWS(_ReadOffSet($file[$x],0x000000,16), 8))&@CRLF)
Next


Func _ReadOffSet($sFilePath,$iOffset,$iLen=1)
    Local $sRet=""
    Local $hFile=FileOpen($sFilePath,$FO_BINARY)
    FileSetPos($hFile,$iOffset,$FILE_BEGIN)
    $sRet=FileRead($hFile,$iLen)
    FileClose($hFile)
    Return $sRet
EndFunc

 

Edited June 2, 2017 by rootx

[jchd]

Your question is vague at best. What are those .OTF files, are they OTF fonts? If yes, lookup he OTF file format to see that your blind reading of 16 bytes at head of file is off the mark.

Else post an example of your OTF file and tell us which string you want to read. Hint: use a hex file editor to inspect it.

[rootx]

I need only US-ASCII Printable. THX

PS: Do you know a regular expression to do it, without having to create an array with the unwanted Char, and use a loop to clean my string?

[jchd]

Please answer first all the points raised.

[rootx]

$String = StringReplace(BinaryToString(_ReadOffSet($file[$x],0x000000,10)), Chr(0), "")

I'm sorry I writted a wrong length.... is 10 not 16 but the question is remove non printable char.

My goal is write OTTO € PCFF and Not .... OTTO nul nul nul € nul etc....

THX.

Edited June 2, 2017 by rootx

[anthonyjr2]

Does your StringReplace not work in that line? It seems like it would to me.

[jchd]

You can do that (quick'n dirty):

Local $hOTF = FileOpen("SourceCodePro-Regular.otf", 16)
Local $bOTF = FileRead($hOTF)
FileClose($hOTF)
Local $sOTF = StringRegExpReplace(BinaryToString($bOTF), "[[:cntrl:]]", "")
ConsoleWrite($sOTF)

but it doesn't make you any good.

• First, there are pure binary areas containing offsets, adresses, flags, binary data, some of which will get interpreted as printable characters.
• Second, there are portions of text encoded in UTF16; depending on the language used you can as well read garbage there.
• Lastly, this brute-forcing read of everything in [0x20, 0x7E] U [0x80, 0xFF] completely ignores the file structure, having headers, optional areas, glyph tables as compressed Postscript and other zones.

If you want to retrieve significant information properly, you need to dissect the file format according to OTF specifications, in order to read just the valid area(s) of interest under the correct format and encoding. Anything else is just plain wrong.

[rootx]

many thanks for your explanation.