[Maza Faka]

HORRIBLE

английские буквы их нужно преобразовать в русские »

Не совсем понятна задача, нужно просто заменить латинскую букву на русскую в порядке отсчёта?

Код:

Global $aLetters_Latin[27]
$aLetters_Latin[0] = 26

Global $aLetters_Kiril[33]
$aLetters_Kiril[0] = 32

Dim $ResultString, $var = False

For $i = 1 To $aLetters_Latin[0]
    $aLetters_Latin[$i] = Chr(64 + $i)
Next

For $i = 1 To $aLetters_Kiril[0]
    $aLetters_Kiril[$i] = Chr(191 + $i)
Next

$Read = FileRead(@ScriptDir & "\test.txt")

$aLetters = StringSplit($Read, "")

For $i = 1 To $aLetters[0]
    $var = False
    For $j = 1 To $aLetters_Latin[0]
        If $aLetters_Latin[$j] = $aLetters[$i] Then
            $var = True
            $ResultString &= $aLetters_Kiril[$j]
            ExitLoop
        EndIf
    Next
    If $var = False Then $ResultString &= $aLetters[$i]
Next

ConsoleWrite("---> Result: " & $ResultString & @LF)

Пример текста test.txt

Код:

Hello world!

Буквы заменяются на заглавные.