#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
GUICreate("",500,500)

GUICtrlCreateLabel("Строка для преобразования в числа", 0, 0)
Local $idtext = GUICtrlCreateInput("привет",0, 20, 300, 20)
GUICtrlCreateLabel("Результат  преобразования строки",0, 60)
Local $idresult = GUICtrlCreateInput("",0,100,300, 20)

Local $idButton = GUICtrlCreateButton("Преобразовать", 120, 170, 85, 25)

GUISetState(@SW_SHOW)
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
ExitLoop

Case $idButton

$text = GUICtrlRead($idtext)

local $stext = ""
for $index = 1 to StringLen($text)

$stext =  $stext & letter_to_number(StringMid($text,$index,1)) & "-"
next

$stext = StringLeft($stext,StringLen($stext)-1)

GUICtrlSetData( $idresult,"")
GUICtrlSetData( $idresult,$stext)

EndSwitch

WEnd

func letter_to_number($letter)
Local $alf = "АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ"
for $index = 1 to StringLen($alf)
if (StringMid($alf,$index,1) = $letter) then return $index
next
EndFunc