Что нового

Поиск ссылки которой нету в черном списке

Trans

Знающий
Сообщения
257
Репутация
6
Ребят, кто поможет сделать поиск ссылки через функцию StringRegExp, только чтоб при этом автоматом удалялись из получившийся переменной ссылки которые находятся в "черном списке".
Все ссылки такого типа index.php?ID=1882 и тд

Код:
;Пример
$Link[11]=[1882,1554,4171,8554,5447,4478,5594,2454,1787,3654]
$BlackList=FileOpen('BlackList.txt'); От сюда берём ссылки которые нужно удалить из переменной
#cs
BlackList.txt
4771
5654
8741
1882
1558
1554
5447
3364
3654
1787
9882
#ce
$aLink[6]=[4174,8554,4478,5594,2454] ; Получившийся список ссылок, после удаления ссылок из черного списка
 

WSWR

AutoIT Гуру
Сообщения
941
Репутация
363
Trans
Так?
Код:
#include <Array.au3>

Dim $Link[11] = [1882, 1554, 4171, 8554, 5447, 4478, 5594, 2454, 1787, 3654]
;_ArrayDisplay($Link)

Dim $aLink[1]
$BlackList = FileRead('BlackList.txt')

For $i = 0 To UBound($Link) - 1
	If Not StringInStr($BlackList, $Link[$i]) Then _ArrayAdd($aLink, $Link[$i])
Next
_ArrayDelete($aLink, 0)
_ArrayDisplay($aLink)
 
Автор
T

Trans

Знающий
Сообщения
257
Репутация
6
WSWR, спасибо, работает вроде так как и препологал)
 
Верх