[Сеть, интернет] Считать из файла построчно и пропинговать

[volaxus]

Есть код:

#include <File.au3>
$sIp = InputBox('Input IP address and port', 'Input IP-address and port through ":" ')
TCPStartup()
$aIp = StringSplit($sIp, ':')
$socket = TCPConnect($aIp[1], $aIp[2])
$LogFile = @ScriptDir & "/Log.txt"
If @error Then
   MsgBox(16, 'Error', 'Connection is not established!')
   FileWrite($LogFile, $sIp & " — " & "Connection is not established!")
   FileWrite($LogFile, @CRLF)
   If Not FileExists($LogFile) Then _FileCreate($LogFile)
Else
    MsgBox(64, 'Done', 'Connection accepted!')
    TCPCloseSocket($socket)
EndIf
TCPShutdown()

, который после ручного ввода проверяет доступность узла по IP:порт и , если узел недоступен, записывает в log.txt
В итоге понадобилось, чтобы заданные значения брались из файла, к примеру address.txt ( их там может быть очень много, расположены построчно (в столбик) и вид у них 11.11.11.11:4545), и , собственно, каждый проверялся на доступность и записывался (недоступный) в log.txt.
Делала через

_FileCountLines

и через

FileReadLine

, только постоянная ошибка в нехватке переменных.

Куда копать?

 

[joiner]

FileReadToArray

читаешь файл в массив, перебираешь массив и пингуешь и собираешь ошибочные адреса в строку с символами переноса. закончил цикл проверки - записал в файл


Добавлено:

Сообщение автоматически объединено: 24 Ноя 2017

volaxus [?]

только постоянная ошибка в нехватке переменных.

всякая функция возвращает ошибку(или нуль), если нет данных для обработки. значит нужно учитывать что может быть ошибка и предложить другое действие. это я к общему сведению

 

[hedji]

$addresses = FileReadToArray(@ScriptDir & "/addres.txt")
For $sIp In $addresses
	$aIp = StringSplit($sIp, ':') ;и далее остальной скрипт
Next