mystery character

[gcue]

hello.

i am using Melba's script to pull file information.  The returned data shows question marks only in a consolewrite but not in a msgbox so when I was debugging was getting wrong results. (Note: to get a value back you have to chose an actual photo image that would have date taken field populated)

expandcollapse popup

$sFile = FileOpenDialog("Choose Photo", "Your_Path\", "Images(*.jpg)")

ConsoleWrite(_GetDate($sFile) & @CRLF)
MsgBox(0,"",_GetDate($sFile))

Func _GetDate($sPassed_File_Name)

    Local $iError = 0

    Local $sDir_Name = StringRegExpReplace($sPassed_File_Name, "(^.*\\)(.*)", "\1")
    Local $sFile_Name = StringRegExpReplace($sPassed_File_Name, "^.*\\", "")

    Local $sDOS_Dir = FileGetShortName($sDir_Name, 1)

    Local $oShellApp = ObjCreate("shell.application")
    If IsObj($oShellApp) Then
        Local $oDir = $oShellApp.NameSpace($sDOS_Dir)
        If IsObj($oDir) Then
            Local $oFile = $oDir.Parsename($sFile_Name)
            If IsObj($oFile) Then

                If @OSVersion = "WIN_VISTA" Or @OSVersion = "WIN_7" Then
                    $date = $oDir.GetDetailsOf($oFile, 12) ; Date Taken

                    return $date
                EndIf

            Else
                $iError = 3
            EndIf
        Else
            $iError = 2
        EndIf
    Else
        $iError = 1
    EndIf

    If $iError > 0 Then
        Local $sMsg = "Could not read File Properties" & @CRLF & @CRLF & _
        $iError & @CRLF & @CRLF & $sPassed_File_Name
        MsgBox(0, "Error", $sMsg)
    EndIf

EndFunc

consolewrite

?7/?10/?2012 ??5:55 AM

msgbox (same variable):

7/10/2012 5:55 AM

i try doing a stringreplace to get rid of the "?" but it doesn't work

any thoughts?

thanks in advance!

 

Edited May 20, 2015 by gcue

[Tekk]

This should clear it up.

$sDate = _GetDate($sFile)
$sDate = StringRegExpReplace($sDate, "(\x{200E}|\x{200F})", "")

They are RLM (Right-to-Left Mark) & LRM (Left-to-Right Mark) characters.

[gcue]

awesome thank youuu!!!

any idea what they are there for?  wonder why the stringreplace didnt work?  are they not question marks?

[jchd]

No, ConsoleWrite convert the Unicode string to ANSI (let's call it that name) and ANSI doesn't have these characters, so they get converted (destroyed to) question marks.

[iamtheky]

stringtoasciiarray always helps me with garbage text, because my regex is weak

expandcollapse popup

#include<array.au3>

$sFile = FileOpenDialog("Choose Photo", "Your_Path\", "Images(*.jpg)")
$sDate = _GetDate($sFile)
$aAsc = StringToASCIIArray($sDate)

for $i = ubound($aAsc) - 1 to 0 step -1
    If $aAsc[$i] = "8206" then _ArrayDelete($aAsc , $i)
Next

for $i = 0 to ubound($aAsc) - 1
    $aAsc[$i] = Chr($aAsc[$i])
Next

$sFrmt = _ArrayToString($aAsc , "")

consolewrite($sFrmt & @CRLF)
msgbox(0, '' , $sFrmt)


Func _GetDate($sPassed_File_Name)

    Local $iError = 0

    Local $sDir_Name = StringRegExpReplace($sPassed_File_Name, "(^.*\\)(.*)", "\1")
    Local $sFile_Name = StringRegExpReplace($sPassed_File_Name, "^.*\\", "")

    Local $sDOS_Dir = FileGetShortName($sDir_Name, 1)

    Local $oShellApp = ObjCreate("shell.application")
    If IsObj($oShellApp) Then
        Local $oDir = $oShellApp.NameSpace($sDOS_Dir)
        If IsObj($oDir) Then
            Local $oFile = $oDir.Parsename($sFile_Name)
            If IsObj($oFile) Then

                If @OSVersion = "WIN_VISTA" Or @OSVersion = "WIN_7" Then
                    $date = $oDir.GetDetailsOf($oFile, 12) ; Date Taken

                    return $date
                EndIf

            Else
                $iError = 3
            EndIf
        Else
            $iError = 2
        EndIf
    Else
        $iError = 1
    EndIf

    If $iError > 0 Then
        Local $sMsg = "Could not read File Properties" & @CRLF & @CRLF & _
        $iError & @CRLF & @CRLF & $sPassed_File_Name
        MsgBox(0, "Error", $sMsg)
    EndIf

EndFunc

 

[gcue]

thanks for the info guys