[Creat0R]

можно его немного исправить, чтобы адрес почты оставался без < > , и Фамилия Имя Отчество <login@server.ru> я мог вводит не в теле скрипта, а через GUICtrlCreateInput ? »

Код:

#include <GUIConstantsEx.au3>

$hGUI = GUICreate('Test Script', 300, 300)

$iPochta_Input = GUICtrlCreateInput('', 15, 10, 185, 21)
GUICtrlCreateLabel(" - Адрес почты", 210, 13)

$iLogin_Input = GUICtrlCreateInput('', 15, 40, 185, 21)
GUICtrlCreateLabel(" - Логин", 210, 43)

$iSurName_Input = GUICtrlCreateInput('', 15, 70, 185, 21)
GUICtrlCreateLabel(" - Фамилия", 210, 70)

$iName_Input = GUICtrlCreateInput('', 15, 100, 185, 21)
GUICtrlCreateLabel(" - Имя", 210, 100)

$iFirst_Input = GUICtrlCreateInput('', 15, 135, 185, 21)
GUICtrlCreateLabel(" - Отчество", 210, 135)

$iData_Input = GUICtrlCreateInput('Фамилия Имя Отчество <login@server.ru>', 15, 220, 185, 21)
GUICtrlCreateLabel(" - Данные", 210, 220)

$iFill_Bttn = GUICtrlCreateButton('Заполнить', 15, 270, 70, 20)

GUISetState(@SW_SHOW, $hGUI)

While 1
    $nMsg = GUIGetMsg()

    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $iFill_Bttn
            $sLine = GUICtrlRead($iData_Input)

            $aInputs = StringSplit($sLine, ' ')
            $sLogin = StringRegExpReplace($sLine, '.*?<(.*?)@.*', '\1')

            GUICtrlSetData($iPochta_Input, StringRegExpReplace($aInputs[4], '^<|>$', ''))
            GUICtrlSetData($iLogin_Input, $sLogin)
            GUICtrlSetData($iSurName_Input, $aInputs[1])
            GUICtrlSetData($iName_Input, $aInputs[2])
            GUICtrlSetData($iFirst_Input, $aInputs[3])
    EndSwitch
WEnd