Code : Tout sélectionner
#cs ----------------------------------------------------------------------------
AutoIt Version : 3.2.12.0
Auteur: Tlem
Fonction du Script :
Extraction des adresses IP d'un fichier avec filtrage des doublons.
#ce ----------------------------------------------------------------------------
$InputFile = "IP_In.txt"
$OutputFile = "IP_Out.txt"
$String = FileRead($InputFile)
$aIP = StringRegExp($String, "(?:\w{1,3}\.\w{1,3}\.\w{1,3}\.\w{1,3})", 3)
; IP + port => 192.168.1.1:5000
;$aIP = StringRegExp($String, "(?:\w{1,3}\.\w{1,3}\.\w{1,3}\.\w{1,3}:\w{4})", 3)
If Not @error Then
$aFilteredIP = _ArrayUnique($aIP, '', 0)
Dim $Res
For $i = 1 To $aFilteredIP[0]
$Res &= $aFilteredIP[$i] & @CRLF
Next
$hOutputFile = FileOpen ($OutputFile, 2)
FileWrite($hOutputFile, $Res)
FileClose($hOutputFile)
EndIf
ShellExecute($OutputFile)
Exit
Func _ArrayUnique(ByRef $aArray, $vDelim = '', $iBase = 1, $iUnique = 1)
If $vDelim = '' Then $vDelim = Chr(01)
Local $sHold
For $iCC = $iBase To UBound($aArray) - 1
If Not StringInStr($vDelim & $sHold, $vDelim & $aArray[$iCC] & $vDelim, $iUnique) Then _
$sHold &= $aArray[$iCC] & $vDelim
Next
Return StringSplit(StringTrimRight($sHold, StringLen($vDelim)), $vDelim)
EndFunc ;==>_ArrayUnique
Code : Tout sélectionner
$InputFile = "IP_In.txt"
$OutputFile = "IP_Out.txt"
$String = FileRead($InputFile)
Code : Tout sélectionner
#include <IE.au3>
$AdressIn = "http://proxynext.com/proxylist1.php"
$OutputFile = "IP_Out.txt"
$oIE = _IECreate ($AdressIn, 0, 0)
$String = _IEBodyReadText($oIE)