[Creat0R]

Maza Faka,

Воть

Спасибо.

протестируйте кому не лень

Потестировал на двух совершенно разных машинах, работает отлично!

На заметку UDF'о-строителю; плохая идея отображать MsgBox'ы прямо из функции, в случае ошибки всегда нужно возвращать её код, пользователь (функцией ) сам решит что нужно делать в случае ошибки.

---

ALL

Такой вопрос: Как можно перекодировать текст кириллицы в Java-юникод?
К примеру «Привет Мир!» будет кодирован так (это я редактор yudit использовал):

Код:

\u041f\u0440\u0438\u0432\u0435\u0442 \u041c\u0438\u0440

Нашёл неплохую статью на эту тему, но самому не удаётся сообразить, как всё же (и можно ли вообще) средствами AutoIt'а кодировать кириллицу в Java-Unicode?

[Maza Faka]

Creat0R,

На заметку UDF'о-строителю; плохая идея отображать MsgBox'ы прямо из функции, в случае ошибки всегда нужно возвращать её код, пользователь (функцией ) сам решит что нужно делать в случае ошибки. »

Спасибо, учту на будущее

[amel27]

Creat0R

как всё же (и можно ли вообще) средствами AutoIt'а кодировать кириллицу в Java-Unicode? »

типа такого?

Код:

MsgBox (0,"", _StringToJava("Привет Мир!"))

Func _StringToJava($sText)
    Local $tw = DllStructCreate("wchar["& StringLen($sText)+1 &"]"), $sOut=""
    Local $ts = DllStructCreate("ushort["&StringLen($sText)+1 &"]", DllStructGetPtr($tw))
    Local $tb = DllStructCreate("byte["&StringLen($sText)*2+2 &"]", DllStructGetPtr($tw))
    DllStructSetData($tw, 1, $sText)

    For $i=1 To StringLen($sText)
        If DllStructGetData($tb,1,$i*2) Then
            $sOut &= "\u"& Hex(DllStructGetData($ts,1,$i),4)
        Else
            $sOut &= DllStructGetData($tw,1,$i)
        EndIf
    Next
    Return $sOut
EndFunc

[Creat0R]

amel27,

типа такого?

Супер!!! Спасибо

P.S
А обратно можно перекодировать?

[amel27]

Creat0R

Супер!!!»

да нет, нашел ошибку

А обратно можно перекодировать? »

получилось вот что (включая исправленный вариант):

Код:

MsgBox (0,"_StringToJava()", '"Привет Мир!" ->'& @CRLF &'"'& _StringToJava("Привет Мир!") &'"')
MsgBox (0,"_JavaToString()", '"\u041f\u0440\u0438\u0432\u0435\u0442 \u041c\u0438\u0440!"'& @CRLF &'-> "'& _
    _JavaToString("\u041f\u0440\u0438\u0432\u0435\u0442 \u041c\u0438\u0440!") &'"')

Func _StringToJava($sText)
    Local $il = StringLen($sText)
    Local $tw = DllStructCreate("wchar["& $il+1 &"]"), $sOut=""
    Local $ts = DllStructCreate("ushort["&$il+1 &"]", DllStructGetPtr($tw))
    DllStructSetData($tw, 1, $sText)

    For $i=1 To StringLen($sText)
        If DllStructGetData($ts,1,$i)<128 Then
            $sOut &= DllStructGetData($tw,1,$i)
        Else
            $sOut &= "\u"& Hex(DllStructGetData($ts,1,$i),4)
        EndIf
    Next
    Return $sOut
EndFunc

Func _JavaToString($sText)
    Local $sOut="", $aText=StringRegExp($sText,"(?:\\u([[:xdigit:]]{4})|[[:ascii:]])",3)
    For $i=0 To UBound($aText)-1
        If StringLen($aText[$i])=1 Then
            $sOut &= $aText[$i]
        Else
            $sOut &= ChrW(Dec($aText[$i]))
        EndIf
    Next
    Return $sOut
EndFunc

ADD: Возник вопрос с управляющими символами: я тут поиграл Yudit и не совсем понял как должно быть в формате Java, редактор часть ASCII-символов преобразует в Unicode, часть нет... и как быть с символом "\"?.. в Java вроде обозначается "\\" но редактор оставляет одиночным, или нужно учитывать только комбинацию "\u"?.. но тогда как она должна представляться если это обычный текст?... или не заморачиваться и преобразовывать в Unicode все подряд включая ASCII?

[Creat0R]

amel27,

как быть с символом "\"?.. в Java вроде обозначается "\\" но редактор оставляет одиночным

Редактор расчитан на Java-приложения как я понимаю, но в действительности (а точнее в браузерах), для управляющих символов нужно добавлять \.

Простой пример; если вставить это в адресную строку браузера (Opera / IE / FireFox):

Код:

javascript: alert('\u041F\u0440\u0438\u0432\u0435\u0442 \u041C\u0438\u0440 \ ' test');

То ничего не произойдёт, а если подставить \ под служебные символы:

Код:

javascript: alert('\u041F\u0440\u0438\u0432\u0435\u0442 \u041C\u0438\u0440 \\ \' test');

то будет отображено «Привет мир \ ' test».

Т.е по сути нужно в самом начале функции добавить примерно это:

Код:

$sText = StringRegExpReplace($sText, "(['\\])", "\\\1")

Только вопрос как пропарсить обратно в _JavaToString() ? хотя тоже наверно можно через RegExp...

P.S
Кстати, не помешало бы отключать «Opt("Expand(Var/Env)Strings", 0)» для подобной функции, для ускорения обработки

[amel27]

Creat0R
исправил с учетом твоих замечаний:

Код:

Func _StringToJava($sText)
    Local $iLen = StringLen($sText), $sChr, $iAsc
    Local $tChr = DllStructCreate("wchar["& $iLen+1 &"]"), $sOut=""
    Local $tAsc = DllStructCreate("ushort["&$iLen+1 &"]", DllStructGetPtr($tChr))
    DllStructSetData($tChr, 1, $sText)

    For $i=1 To StringLen($sText)
        $sChr = DllStructGetData($tChr,1,$i)
        $iAsc = DllStructGetData($tAsc,1,$i)
        If $sChr = "\" Or $sChr = "'" Then
            $sOut &= "\"& $sChr
        ElseIf $iAsc<128 Then
            $sOut &= $sChr
        Else
            $sOut &= "\u"& Hex($iAsc,4)
        EndIf
    Next
    Return $sOut
EndFunc

Func _JavaToString($sText)
    Local $sOut="", $aText=StringRegExp($sText,"(\\\\|\\'|\\u[[:xdigit:]]{4}|[[:ascii:]])", 3)
    For $i=0 To UBound($aText)-1
        Switch StringLen($aText[$i])
            Case 1
                $sOut &= $aText[$i]
            Case 2
                $sOut &= StringRight($aText[$i],1)
            Case 6
                $sOut &= ChrW(Dec(StringRight($aText[$i],4)))
        EndSwitch
    Next
    Return $sOut
EndFunc

[NikLok]

amel27, Осеньно надоть в скрипте определять, данная директория или файл реальные или это ссылки ( в смысле NTFS связи ) И самое главное если связи, то на что они указывають?! С надеждой!

[Creat0R]

amel27,

исправил с учетом твоих замечаний:

Спасибо огромное, всё отлично работает!

У меня тут возникла проблема с твоими самопальными _FileSave/OpenDialog() и _FileSelectFolder(); на системе где нет поддержки кириллицы, заголовок с русским текстом отображается некорреткно. Как известно в AutoIt добавили поддержку юникода, и как раз оригинальные функции нормально отображают символы кириллицы, вот можно как то поправить и твои функции, чтобы поддерживали Unicode?

Кстати, в последних бетах к подобным функциям (практический ко всем диалоговым) приделали наконец дополнительный параметр Win Handle , но для моих целей нет возможности перейти на эти беты, слишком многое менять нужно в скриптах .

[amel27]

NikLok
Насколько я понял речь о символических ссылках, так как для жестких ссылок нельзя отличить ссылку от файла... Имхо различить линк и экземпляр вполне реально через стандартные файловые API, а вот найти путь к оригиналу пока проблематично - полноценные API-функции добавили только в Vista/2008... хотя помнится у API-аналога FileOpenDialog() был флаг, задающий что фозвращает ф-ция - линк или путь к оригиналу... хотя вполне возможно это обычные ярлыки (*.LNK)

Creat0R
дай линки на используемые редакции (а то их уже было немеренно) или кинь в личку