Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Аватара для madmasles

Ветеран


Сообщения: 812
Благодарности: 353

Профиль | Отправить PM | Цитировать


HFShak,
Попробуйте примерно так.
Код: Выделить весь код
#include <GuiConstantsEx.au3>

$sText = 'google.ru' & @CRLF & @CRLF & 'mail.ru' & @CRLF & @CRLF & @CRLF & @CRLF & 'yandex.ru' & @CRLF & @CRLF & @CRLF & @CRLF
GUICreate('Test', 400, 300)
$nEdit = GUICtrlCreateEdit('', 2, 2, 394, 168)
GUICtrlSetData(-1, $sText)
$sText = ''
$nButton = GUICtrlCreateButton('Ping', 150, 180, 100, 30)
GUICtrlSetState(-1, $GUI_FOCUS)
GUISetState()
While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
        Case $nButton
            Local $sText = ''
            Local $iCount = 0
            Local $aText = StringSplit(StringStripCR(GUICtrlRead($nEdit)), @LF)
            For $i = 1 To $aText[0]
                If $aText[$i] Then
                    $iCount += 1
                    ConsoleWrite('String num ' & $iCount & @TAB & $aText[$i] & @LF)
                    $sText &= $aText[$i] & @TAB & 'Ping:' & Ping($aText[$i]) & ' msec' & @CRLF
                EndIf
            Next
            $aText = 0
            If $sText Then
                ConsoleWrite('Strings count: ' & $iCount & @LF)
                GUICtrlSetData($nEdit, StringTrimRight($sText, 2))
                $sText = ''
                $iCount = 0
            Else
                GUICtrlSetData($nEdit, '')
            EndIf
            GUICtrlDelete($nButton)
    EndSwitch
WEnd

Последний раз редактировалось madmasles, 16-10-2012 в 14:34.

Это сообщение посчитали полезным следующие участники:

Отправлено: 14:19, 16-10-2012 | #4