Программа для удаления комментариев из скрипта AutoIt

$FileOpenDlg1 = FileOpenDialog("", @ScriptDir, "AutoIt v3 Script (*.au3)")
If $FileOpenDlg1 = "" Then Exit
$FileOpen1 = FileOpen($FileOpenDlg1)
$FileRead1 = FileRead($FileOpen1)
$StrInStr2 = 1
While 1
   $StrInStr1 = StringInStr($FileRead1, ";", 0, 1, $StrInStr2)
   $StrInStr2 = StringInStr($FileRead1, @CRLF, 0, 1, $StrInStr1)
   If $StrInStr1 = 0 Then ExitLoop
   If $StrInStr2 = 0 Then ExitLoop
   $FileRead1 = StringReplace($FileRead1, StringMid($FileRead1, $StrInStr1, $StrInStr2-$StrInStr1), "")
WEnd

$sFile = FileOpenDialog("", @ScriptDir, "AutoIt v3 Script (*.au3)")
If @error Then Exit

$sRead = StringRegExpReplace(FileRead($sFile), '(?s)(\A|\r?\n)\h*;.*?(\r?\n|$)', '\1\2')

$hFile = FileOpen($sFile, 2)
FileWrite($hFile, $sRead)
FileClose($hFile)

$sRead = StringRegExpReplace(FileRead($sFile), '(?s)(\A|\r|\n)(.*?);.*?(\r?\n|$)', '\1\2\3')

$sFile = FileOpenDialog("", @ScriptDir, "AutoIt v3 Script (*.au3)")
If @error Then Exit

$sRead = StringRegExpReplace(FileRead($sFile), '(?m)^((?:[^''";]*([''"]).*?\2)*[^;]*);.*$', '\1')

$hFile = FileOpen($sFile, 2)
FileWrite($hFile, $sRead)
FileClose($hFile)

$r="msgbox(0,""test"",""test"") ;Выводим test на экран" & @CRLF & ";Ниже супер мега математическое действие" & @CRLF & "$a=2+3"
msgbox(0,"Было",$r)
$r=StringRegExpReplace($r,";.{1,100}\n",@CRLF) ;Удаляем комментарии
$r=StringRegExpReplace($r,"\r\n\r\n",@CRLF) ;Удаляем лишние пустые строки
msgbox(0,"Стало",$r)

$r="msgbox(0,""test;test"",""test"") ;Выводим test на экран" & @CRLF & ";Ниже супер мега математическое действие" & @CRLF & "$a=2+3"
msgbox(0,"Было",$r)
$r=StringRegExpReplace($r,";.{1,100}\n",@CRLF) ;Удаляем комментарии
$r=StringRegExpReplace($r,"\r\n\r\n",@CRLF) ;Удаляем лишние пустые строки
msgbox(0,"Стало",$r)