Текущий архив: 2007.01.28;
Скачать: CL | DM;

Вниз

Поиск фрагментов строки и фрагментов слова.   Найти похожие ветки 

← →
Moholith   (2007-01-12 22:37) [0]

Товарищи по сети!
Как организовать поиск символа или нескльких символов из строки? И как выбирать фрагмменты ,ограниченные срого определенными символами, из строки?
Зарание благодарен!

---

← →
Johnmen ©   (2007-01-12 23:00) [1]

Нахальный ламер тебе товарищ!
:)))

---

← →
Eraser ©   (2007-01-12 23:23) [2]

> Moholith   (12.01.07 22:37) 

копай в сторону регулярных выражений.
preg_match поможет :-)

---

← →
kaZaNoVa ©   (2007-01-12 23:32) [3]

program Project1; //Прога поиска подстроки в строках и с исключениями.
uses SysUtils, windows;
const
fVvod = "log.txt";
fSearch = "Search.txt";
fResult_y = "Result_yes.txt";
fResult_n = "Result_not.txt";
var
f_inData, f_Search, f_Result_y, f_Result_n: textfile;
a: array[1..70000] of string;
info: string; l, k, n, h, p: int64;
{$R *.res}

function CompareSearch: Boolean;
var f: integer;
begin
Result := True;

for f := 1 to l do if pos(lowercase(a[f]), lowercase(info)) > 0 then exit;

Result := False;
end;

begin
if not (FileExists(fVvod) and FileExists(fSearch)) then
begin
  MessageBox(0, "Нет файлов ввода данных"#13#10#13#10 + fVvod + #13#10 + fSearch, "Ошибка работа программы невозможна", 0);
  Halt(1);
end;

p := gettickcount;
QueryPerformanceFrequency(h); // HiTicks / second
QueryPerformanceCounter(k);

AssignFile(f_inData, fVvod);
AssignFile(f_Search, fSearch);
AssignFile(f_Result_y, fResult_y);
AssignFile(f_Result_n, fResult_n);

Reset(f_Search);

l := 0;
while (not eof(f_Search)) do begin
  inc(l);
  Readln(f_Search, a[l]);
end;
CloseFile(f_Search);

Reset(f_inData);
ReWrite(f_Result_y);
ReWrite(f_Result_n);

while (not eof(f_inData)) do begin
  Readln(f_inData, info);
  if CompareSearch then Writeln(f_Result_y, info) else Writeln(f_Result_n, info);
end; //info

CloseFile(f_inData);

CloseFile(f_Result_y);
CloseFile(f_Result_n);

QueryPerformanceCounter(n);
MessageBox(0, "Готово", Pchar(Inttostr(gettickcount - p) + " ms    (" + (Inttostr(round(1000000 * (n - k) / h))) + ") microsec"), 0);
end.


---

← →
TUser ©   (2007-01-13 13:26) [4]

http://algolist.manual.ru/search/index.php

---

← →
Moholith   (2007-01-13 17:27) [5]

Спасибо всем!

---

Страницы: 1 вся ветка

Текущий архив: 2007.01.28;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.066 c