[Creat0R]

как данные из строки разбить по соответствующим полям, фамилия отдельно, имя отдельно, и т.д. ? »

Код:

#include <GUIConstantsEx.au3>

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

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

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

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

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

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

$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 = 'Фамилия Имя Отчество <login@server.ru>'

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

            GUICtrlSetData($pochta, $aInputs[4])
            GUICtrlSetData($login, $sLogin)
            GUICtrlSetData($surname, $aInputs[1])
            GUICtrlSetData($name, $aInputs[2])
            GUICtrlSetData($first, $aInputs[3])
    EndSwitch
WEnd