Как программой выдернуть все ссылки с текстовика

[min@y™]

дай входной файл.

[nikolokaputik80]

Вот кусок в 5 мегабайт

19443 - ссылки

[TaLadno]

У мну отака фигня получилась

MagicP.zip

type
  TArrayString = array of string;

function TForm1.GetLinks(const AStr: string): TArrayString;
var
  RegExp: TPerlRegEx;
  s: string;
  i, count: integer;
begin

  RegExp := TPerlRegEx.Create();
  try
    RegExp.RegEx := 'http://.*?/';
    RegExp.Subject := AStr;

    count := 0;
    SetLength(result, count);
    if RegExp.Match then
    begin
      repeat
        for i := 0 to RegExp.GroupCount do
        Begin
          SetLength(result, count + 1);
          s := RegExp.Groups[i];
          result[count] := s;

          inc(count);
        End;
      until not RegExp.MatchAgain;
    end;

  finally
    FreeAndNil(RegExp);
  end;
end;

procedure TForm1.MagicBtnClick(Sender: TObject);
var
  InputF, OutputF: TextFile;
  Line: string;
  i: integer;
  ArrayString: TArrayString;
begin
  AssignFile(InputF, 'input.txt');
  Reset(InputF);

  AssignFile(OutputF, 'output.txt');
  ReWrite(OutputF);

  while not Eof(InputF) do
  begin
    ReadLn(InputF, Line);
    ArrayString := GetLinks(Line);

    if Length(ArrayString) > 0 then
      for i := 0 to Length(ArrayString) - 1 do
        WriteLn(OutputF,  ArrayString[i]);

    SetLength(ArrayString, 0);
  end;

  CloseFile(InputF);
  CloseFile(OutputF);
end;

Никаких проверок на возможность пушного зверька, никакой возможности указать вручную входной/выходной файл, только хардкор и никаких соплей. Жми волшебную кнопку.
Только не забудь положить рядом с ехе файлик "input.txt" с нужными кишками. Мож хоть гиговый файл подсунуть (если дождешься пока прочекает)

Может когда-то будет настроение, то распаралелю этот бред

Если тута есть гуру регекспов, то могут поправить мою фигню, бо вдруг мну где-то накосячило

Сообщение от nikolokaputik80

Вот кусок в 5 мегабайт
19443 - ссылки

Кстати, нинада ляля, то у тебя вхождений http:// 19443

[nikolokaputik80]

откройте мой файл в нотепаде и
найти
http://
заменить на
http://

и на выходе будет 19443 замен, и это говорит что 19443 ссылки присутствует!

[TaLadno]

Та пофиг.

output.zip

У мну в выходном файле получилось 19442 строки с ссылками

[nikolokaputik80]

TaLadno Спасибо за вашу прогу, задачу решила (Волшебная кнопка)

[TaLadno]

Будь ласка.

[evg_m]

я глянул на код

strartpos='http://';
stoppos='/">';


вот и попросил скомпилировать, но увы не работает почему-то!

<ExternalPage about="http://rockingaltd.com/mfish.html">

строка 390 файла-примера НЕ соответствует "Т(ех.)З(аданию)".

конец поиска /">

[Serge_Bliznykov]

evg_m, согласен. я тоже это увидел, когда сказали, что не всё обрабатывается.
Но это неважно.
Думаю, что вопрос решён, файл получен, тема уже неактуальна.

[TaLadno]

Вопрос исчерпан, но тема еще актуальна

Сообщение от TaLadno

Может когда-то будет настроение, то распаралелю этот бред

Так шо не закрывайте пока, может таки сделаю распаралельку, чтобы можно было толстые файлы скармливать
Там гляди и обсуждение какое завяжется. А то надоели темы про "памагите, гарю" и "не знаю как сменить заголовок формы. Срочно!!!11адын"