Захват большого количества значений и сохранения в массив

[wisenlucky]

Есть тексовый файл. Нужно захватить все значения которые начинаются на :
Начало захвата".com/"
Конец захвата "?fref"
И положить все значения в массив.
В конце каждого значения добавить "test"

Значений может легко быть 1000.

Подскажите пожалуйста как решить задачу - весь день бьюсь над этим :stars:

 

[firex]

$Array = StringRegExp( FileRead( "file.txt" ), "\.com/(\d+)\?fref", 3 )
For $Idx = 1 To UBound( $Array ) - 1 Step 1
    $Array[$Idx] &= "test"
Next

 

[madmasles]

wisenlucky,
Пример такого файла дайте и пример одной из нужных в результате строк.

firex,
А почему (\d+)?

 

[wisenlucky]

Фаил добавил в приложение . К сожалению предыдущий код вернул ошибку: /ErrorStdOut "D:\AutoIT\scripts\archive\data_crawl.au3"

Пример нужной строки: isaac.mack31295975156_test
"_test" добавленное значение

 

[madmasles]

wisenlucky [?]

Пример нужной строки: isaac.mack31295975156_test
"_test" добавленное значение

В Вашем файле isaac.mack31295975156 встречается (href="https://www.onlinebasketballcamp.com/isaac.mack31295975156&extragetparams=%7B%22hc_location%22%3A%22profile_browser%22%7D"), но не подходит под маску, указанную в первом посте (".com/" - "?fref"). Почему? Вы уточните эту маску.

 

[alex33]

попробуйте так

$Array = StringRegExp(FileRead("file.txt"), "\.com/(.*?)\?fref", 3)
For $Idx = 1 To UBound( $Array ) - 1 Step 1
    $Array[$Idx] &= "test"
Next

 

[madmasles]

firex, alex33,
А почему 0-элемент массива пропускается?

 

[wisenlucky]

wisenlucky [?]

Пример нужной строки: isaac.mack31295975156_test
"_test" добавленное значение

В Вашем файле isaac.mack31295975156 встречается (href="https://www.onlinebasketballcamp.com/isaac.mack31295975156&extragetparams=%7B%22hc_location%22%3A%22profile_browser%22%7D"), но не подходит под маску, указанную в первом посте (".com/" - "?fref"). Почему? Вы уточните эту маску.

Видимо я допустил ошибку, считая, что "?fref" есть в каждом случае. Оказывется это не так. (К примеру строчка "roy.ybarra" встречается в обоих вариантах ). Мне нужны примеры заканичваюзщиеся на "?fref"



Добавлено:

Сообщение автоматически объединено: 8 Авг 2014

попробуйте так

$Array = StringRegExp(FileRead("file.txt"), "\.com/(.*?)\?fref", 3)
For $Idx = 1 To UBound( $Array ) - 1 Step 1
    $Array[$Idx] &= "test"
Next

Видимо мне нужно было сразу сказать, что значения встречаются ещё с окончанием &amp. попробовал код, но строка захватывается не совсем правильно. из-за того, что ".com" встречается несколько раз. Вероятно захат нужно начинать с конца?

 

[madmasles]

wisenlucky,
А так работает?

#include <Array.au3>

Local $s_File = @ScriptDir & '\basket_rawdata.txt', $s_Txt = '_test'

$a_Res = StringRegExp(StringReplace(FileRead($s_File), '?fref', $s_Txt & '?fref'), '\.com/([^''"]+?)\?fref', 3)
If @error Then
	MsgBox(16, 'Error', 'Error')
Else
	_ArrayDisplay($a_Res)
EndIf

 

[wisenlucky]

Да, так всё работает шикарно! Спасибо! :laugh:

 

[madmasles]

wisenlucky,
[info border=#0000ff float=left]На форуме принято помечать тему решенной после получения ответа на свой вопрос!
Вверху или внизу темы нажмите на ссылку такого вида:

Тема не решена[/info]

 

[firex]

firex, alex33,
А почему 0-элемент массива пропускается?

Да ну его

madmasles [?]

А почему (\d+)

Предположил, что значения - целые числа. ( исходя из ref )

 

[wisenlucky]

Прошу прощения, упустил момент с пометкой темы как решенной.