[решено] Написать число - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- AutoIt (http://forum.oszone.net/forumdisplay.php?f=103)

- - [решено] Написать число (http://forum.oszone.net/showthread.php?t=218274)

Написать число

Добрый день!
Есть ли возможность в AutoIT "написать" числовое значение. Например, если $i = 121, то в $a должно занести 'Сто двадцать один'?

Примерно так (пока только до ста):

Код:

$sText = _NumToText(21)

ConsoleWrite($sText & @LF)



Func _NumToText($iNum)

    $sBasic = StringSplit("Один|Два|Три|Четыре|Пять|Шесть|Семь|Восемь|Девять", "|")

    $s10To20 = StringSplit("Одинадцать|Двенадцать|Тринадцать|Четырнадцать|Пятнадцать|Шестнадцать|Семнадцать|Восемнадцать|Девятнадцать", "|")

    $sTens = StringSplit("Десять|Двадцать|Тридцать|Сорок|Пятьдесят|Шестьдесят|Семьдесят|Восемьдесят|Девяносто", "|")

    $sHundreds = StringSplit("Сто|Двести|Триста|Четыреста|Пятьсот|Шестьсот|Семьсот|Восемьсот|Девятьсот", "|")

    $sTousends = StringSplit("Тысяча|Тысячи|Тысяч", "|")



    For $i = 1 To $sHundreds[0]

        $iNum = StringRegExpReplace($iNum, "^" & $i & "00$", $sHundreds[$i])

    Next



    For $i = 11 To 19

        $iNum = StringRegExpReplace($iNum, "^" & $i & "$", $s10To20[$i-10])

    Next



    For $i = 1 To $sTens[0]

        $iNum = StringRegExpReplace($iNum, "^" & $i & "0$", $sTens[$i])

    Next



    For $i = 1 To $sTens[0]

        $iNum = StringRegExpReplace($iNum, String($i) & "([1-9])", $sTens[$i] & " \1")

    Next



    For $i = 1 To $sBasic[0]

        $iNum = StringReplace($iNum, String($i), $sBasic[$i])

    Next



    Return $iNum

EndFunc

2All: думаю, можно взять одну из многочисленных реализаций «ЧислоПрописью()» с конкурсов дополнений к Microsoft Office: "Microsoft Office" Extensions число|сумма прописью - Поиск в Google и перевести на AutoIt.

Всем спасибо, попробую
Переделал немного, все работает, спс еще раз.