#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Local $hGUI = GUICreate("Расстановка тире в словах", 500, 600)
Local $idinput1 = GUICtrlCreateEdit ("Некоторые слова", 0, 0, 500, 200)
Local $idinput2 = GUICtrlCreateEdit ("", 0, 250, 500, 200)
Local $idbutton1 = GUICtrlCreateButton("Расставить тире в словах", 20, 500, 185, 25)

GUISetState(@SW_SHOW, $hGUI)

While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
ExitLoop
Case $idbutton1
Local $text = GUICtrlRead($idinput1)
Local $resulttext = ""
for $i = 0 to StringLen($text)
$resulttext &= StringMid($text,$i,1) & "-"
next
GUICtrlSetData($idinput2,$resulttext )

EndSwitch

WEnd