How I Detect Binary File Of Text File ?

[HAMID]

I Want To Detect Binary Files Of Text Files ;

How I Can This Job ?

Please Help Me .

Sorry For Bad English .

[UEZ]

I don't know what you mean with binary files of text files but here a WMI version to list

information about a file:

expandcollapse popup

;coded by UEZ 2011
$file = FileOpenDialog("Select a file", "", "(*.*)")
If @error Then Exit
$objWMIService = ObjGet("winmgmts:{impersonationLevel = impersonate}!\\.\root\cimv2")
$colFiles = $objWMIService.ExecQuery("Select * from CIM_Datafile Where name = '" & StringReplace($file, "\", "\\") & "'")
If IsObj($colFiles) Then
    For $objFile In $colFiles
        ConsoleWrite( "Access mask: " & $objFile.AccessMask & @CRLF)
        ConsoleWrite( "Archive: " & $objFile.Archive & @CRLF)
        ConsoleWrite( "Compressed: " & $objFile.Compressed & @CRLF)
        ConsoleWrite( "Compression method: " & $objFile.CompressionMethod & @CRLF)
        ConsoleWrite( "Creation date: " & WMIDateStringToDate($objFile.CreationDate) & @CRLF)
        ConsoleWrite( "Computer system name: " & $objFile.CSName & @CRLF)
        ConsoleWrite( "Drive: " & $objFile.Drive & @CRLF)
        ConsoleWrite( "8.3 file name: " & $objFile.EightDotThreeFileName & @CRLF)
        ConsoleWrite( "Encrypted: " & $objFile.Encrypted & @CRLF)
        ConsoleWrite( "Encryption method: " & $objFile.EncryptionMethod & @CRLF)
        ConsoleWrite( "Extension: " & $objFile.Extension & @CRLF)
        ConsoleWrite( "File name: " & $objFile.FileName & @CRLF)
        ConsoleWrite( "File size: " & $objFile.FileSize & @CRLF)
        ConsoleWrite( "File type: " & $objFile.FileType & @CRLF)
        ConsoleWrite( "File system name: " & $objFile.FSName & @CRLF)
        ConsoleWrite( "Hidden: " & $objFile.Hidden & @CRLF)
        ConsoleWrite( "Last accessed: " & WMIDateStringToDate($objFile.LastAccessed) & @CRLF)
        ConsoleWrite( "Last modified: " & WMIDateStringToDate($objFile.LastModified) & @CRLF)
        ConsoleWrite( "Manufacturer: " & $objFile.Manufacturer & @CRLF)
        ConsoleWrite( "Name: " & $objFile.Name & @CRLF)
        ConsoleWrite( "Path: " & $objFile.Path & @CRLF)
        ConsoleWrite( "Readable: " & $objFile.Readable & @CRLF)
        ConsoleWrite( "System: " & $objFile.System & @CRLF)
        ConsoleWrite( "Version: " & $objFile.Version & @CRLF)
        ConsoleWrite( "Writeable: " & $objFile.Writeable & @CRLF)
    Next
Else
    ConsoleWrite("ERROR!" & @CRLF)
EndIf

Func WMIDateStringToDate($dtmDate)
    Return (StringMid($dtmDate, 7, 2) & "." & StringMid($dtmDate, 5, 2) & "." & StringLeft($dtmDate, 4) & " " & _
                  StringMid($dtmDate, 9, 2) & ":" & StringMid($dtmDate, 11, 2) & ":" & StringMid($dtmDate, 13, 2))
EndFunc   ;==>WMIDateStringToDate

There might be also a WinAPI version somewhere in the depth of this forum...

Br,

UEZ

[HAMID]

I Want To Detect Binary Files Of Text Files ;

How I Can This Job ?

Please Help Me .

Sorry For Bad English .

How i can detect binary file ?

For example docx,doc,swf,jpg are binary files

And txt,log,xml,ini,inf are text files

I want to read file content by FileRead() and detect that file is binary or text .

[jchd]

Please realize that what you're asking for is ambiguous. Any "text file" _is_ a binary file but at the same time, any "binary file" can be interpreted as an ANSI text file (with possibly strange control characters). Sorting out which is which is at the very least difficult, in not plain impossible in the general case.

Relying on the final extension is a (naïve) way to work, but will not work in every situation.

In short, unless _you_ provide a clear and unambiguous definition of what _you_ consider "text" and, by reversal, "binary" I bet no definitive answer can be made, lest example code.