Я придумал простое задание для выполнения

Я придумал простое задание для выполнения,нужно задать некоторый текст и после каждой буквы в слове поставить тире.
Для этого требуется задать два текстовых поля и создать кнопку,на нажатие которой второе текстовое поле - выдаёт результат этого простого алгоритма.

#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


Рецензии