Поиск в файле

← →
SinnerPro (2003-01-19 09:52) [0]

Вот. В общем дан файл, размером ~2,5-3 Mb. Надо, из него вытянуть количество последовательностей из 3х определенных букв. Файл содержит абсолютно все символы. Расстояние между последовательностями разное, в среднем от 5000 до 45000 символов. Желательно чтобы это происходило достаточно быстро, медленно я сам сделать могу ;).

← →
Song © (2003-01-19 10:39) [1]

BlockRead+цикл будет вполне быстро
или через наследнные классы от TStream, если только чтение нужно.

← →
Романов Р.В. © (2003-01-19 10:47) [2]

Читай файл в буфер целиком или кусками. Ищи последовательность в цикле.

← →
SinnerPro (2003-01-19 11:07) [3]

Song: Романов Р.В:

Да я пробывал, все равно тормазно как-то... ну если никак подругому нельзя, то ладно

Можно несколько ускорить процесс поиска если проверять не все байты, а через 3. Для этого нужно получить маску.
b: Byte;
...
b :=(Ord("A") or Ord("G") or Ord("T")) xor $FF;

Сравниваешь каждый третий байт с этой маской
if (CurentByte and b) = 0 then
// Более точная проверка в окрестностях этого байта.

При некоторых условиях способ может оказаться медленнее прямого перебора.

Поиск в файле Найти похожие ветки