[Maza Faka]

предлагаю такой вариант (на скорую руку) »

Пример не работает. Что-то подобное видел на ru-board.com. Довольно таки гиморное дело, ведь нужно будет учитывать пернос строк, операторы Switch; Select; Case, в общем вот мой вариант:

Код:

$sFile = FileOpenDialog("Выберите файл скрипта", "", "AutoIt files (*.au3)")
If @error Then Exit

$hResultFile = FileOpen("Result.au3", 2)

$sRead = FileRead($sFile)
$aStrings = StringSplit($sRead, @CRLF, 1)

$sResult = ""

For $i = 1 To $aStrings[0]
    If (StringRight($aStrings[$i], 1) <> "_") And (StringRight($aStrings[$i - 1], 1) <> "_") And _
        (StringInStr($aStrings[$i], "Switch") = 0) And (StringInStr($aStrings[$i], "Select") = 0) And _
        (StringInStr($aStrings[$i], "Case") = 0) And (StringLeft($aStrings[$i], 1) <> ";") Then

        $sResult &= 'TrayTip("", "' & StringReplace($aStrings[$i] & @TAB & _
        Int($i / $aStrings[0] * 100) & '%', '"', '') & '", 1)' & @CRLF & $aStrings[$i] & @CRLF
    Else
        $sResult &= $aStrings[$i] & @CRLF
    EndIf
Next

FileWrite($hResultFile, StringReplace($sResult, "#NoTrayIcon", ";#NoTrayIcon"))
FileClose($hResultFile)

+ Показывает процент выполнения