VPF::Как найти нужную строку в ТХТ файле?

EvilProgrammer

Дата 15.8.2007, 11:14 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 43
Регистрация: 18.7.2006

Репутация: нет
Всего: нет

Собственно поставленная задача такова. Мне нужно выбрать текстовый файлик, открыть его и выбрать из него интересующую меня строку, а если еще точнее ее определенный фрагмент.

Текстовый файлик имеет вот такой вид

Код



((//001:0201:513700:++
(001):6398:9473:43272:
(055):0:76:1345:
(065):359:359:0:
 //001:0201:513701:++
(001):6398:9473:43272:
(055):0:76:1345:
(065):35:35:0:
 //001:0201:513711:++
(065):324:324:0:==0:
))

Выбрать из строки //001:0201:513700:++
(001):6398:9473:43272:
(055):0:76:1345:
(065):359:359:0:
числа 6398, 9473 и 43272, а потом записать их в Эдиты, для дальнейшей работы.

Я в первые столкнулся с такой проблемой.
Понемногу разбираюсь с тем как организовать поис строки, через StringList (я его не нашел на палитре компонентов), но как потом из выбранной строки, вынять отдельные числа.

Параметры выбора строки для этого примера такие:
001
0201 - это число
513700 - это объект
(001), (055), (065) - Это виды топлива
Соответственно
6398, 9473, 43272 - Значения параметров, которые надо выбрать для дальнейшей работы с ними.

Помогите пожалуйста, подскажите идею и если можно неболшьшой пример, на основе которого можно будет разобораться. smile

Заранее благодарен.

Mikh@il

Дата 15.8.2007, 11:55 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 72
Регистрация: 15.8.2007

Репутация: нет
Всего: нет

Открываешь файл для чтения, через обычный Reset(f),Append(f) или Rewrite(f), смотря надо ли в него че писать или нет где f- это файловая переменная

После чего обычным Writeln(f,z) или Readln(f,z), где f-файловая переменная, а z - это переменная куда считывается строка из файла, после чего выбираешь из своей строки че хочешь и делаешь с ним тоже че хочешь

ne0n

Дата 15.8.2007, 15:32 (ссылка)

(нет голосов)

Загрузка ...

PlayBoy

Профиль
Группа: Участник
Сообщений: 733
Регистрация: 5.8.2005
Где: Н.Новгород

Репутация: 1
Всего: 11

вообще 90% ответов на вопросы можно найти в DRKB, так вот для начала перебираем все строки в текстовике для етого существует хорошая фича...

Код


 While not eof(f) do 
  begin 
  ReadLn(f, s); 
  {здесь делаем что-то с прочитанной строкой} 
  end;

ну перед этим не забудь открыть твой файлик smile

Код



...
   var f:TextFile;        
 ....
AssignFile(F, 'c:\MyFile.txt');        
Reset(f)

по поводу выбора чисел...тебе опять же поможет DRKB smile

у тебя же все значения разделены знаком ":" берешь алгоритм поиск подстроки, доробатываешь его чуть и воаля smile

Это сообщение отредактировал(а) ne0n - 15.8.2007, 15:33

--------------------

http://sa-sec.org
как я вам? smile

EvilProgrammer

Дата 15.8.2007, 15:35 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 43
Регистрация: 18.7.2006

Репутация: нет
Всего: нет

Мне нужно организовывать поиск по файлу нескольких таких строк и изъятие параметров соответственно тоже нескольких.
Что-то уж очень просто это получается.

ne0n

Дата 15.8.2007, 16:21 (ссылка)

(нет голосов)

Загрузка ...

PlayBoy

Профиль
Группа: Участник
Сообщений: 733
Регистрация: 5.8.2005
Где: Н.Новгород

Репутация: 1
Всего: 11

так ты сначала попробуй, как тебе сказали, а уже потом с конкретнвми проблемами обращяйся...

--------------------

http://sa-sec.org
как я вам? smile

EvilProgrammer

Дата 20.8.2007, 10:35 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 43
Регистрация: 18.7.2006

Репутация: нет
Всего: нет

Люди объясните работу вот такой процедуры.

Код


...
try
sl.LoadfromFile(OpenDialog1.FileName);
for i:=0 to sl.count-1 do
  if (pos(Edit1.Text, sl.Strings[i])>0) then
  MessageDlg('sdsdsdfsdf', mtInformation, [mbOk], 0);
finally
sl.Free;

Не могу разобраться с условием. Помогите. :smile

Rennigth

Дата 20.8.2007, 10:45 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 15
Всего: 76

EvilProgrammer,
smile

А что не понятного, цикл по всем строкам в стринглисте, если в строке встречается текст из едита, то вызывается мессаджвокс.

Это сообщение отредактировал(а) Rennigth - 20.8.2007, 10:47

--------------------

(* Honesta mors turpi vita potior *)

EvilProgrammer

Дата 27.8.2007, 11:20 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 43
Регистрация: 18.7.2006

Репутация: нет
Всего: нет

Хорошо с этим файликом вроде разобрался, а как быть если файл кроме как цифр содержит буквы и имеет такую струтктуру.

Код


        Выработка  станций  Центрэнерго за 01/02/2006
!---------------------------!------------------!----------------!
!  Hаименование предприятия !Суточная выработка!С начала месяца !
!                           !  э/э (Тыс.квтч)  !  э/э (Тыс.квтч)!
!---------------------------!------------------!----------------!
! Углегорская ГРЭС          !            9557  !            9557!
! Трипольская ГРЭС          !            8114  !            8114!
! Змиевская   ГРЭС          !           24315  !           24315!
!---------------------------!------------------!----------------!

Как тут быть?

Это сообщение отредактировал(а) EvilProgrammer - 27.8.2007, 11:22

Alexeis

Дата 27.8.2007, 11:42 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 34
Всего: 459

Обычный парсинг текстового файла. Грузишь файл в стринглист и обрабатываешь построчно. Если подобных задач много, то советую начать изучать регулярные выражения, если нет то при помощи функции posex ищется первый восклицательный знак, затем второй, все что между ними нужная строка, удаляем лишние пробелы слева и справа. И так далее ищется строка между следующими восклицательными знаками.

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

EvilProgrammer

Дата 27.8.2007, 15:36 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 43
Регистрация: 18.7.2006

Репутация: нет
Всего: нет

Можно пример? smile

lukas

Дата 27.8.2007, 16:39 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 771
Регистрация: 23.2.2007

Репутация: 3
Всего: 15

Возми функцию ParamStr , переделай ее под себя, и находи себе нужный параметр из строки....

или возьми мою функцию....

Код


function GetPRMCount(S:String; Typ:Char):integer;
var
  i,pos_p,k:integer;
  len:integer;
  Stroka:boolean;
begin
 len:=Length(s);  stroka:=false;  pos_p:=1;
 i:=0;
 while (i<>len) do
  begin
 Inc(i);
    if S[i]='"' then stroka:=not(stroka);
    if stroka then continue;
     if (S[i]=Typ)and(S[I+1]<>'') then Inc(pos_p);
   end;
  Result:=Pos_p;
end;

function GetFastParam(S:String; N:byte; Typ:Char; Kav:Boolean = false):String;
  var
  i,k,pos_p,pos_b,pos_f:integer;
  len:integer;
  Stroka:boolean;
  label fin;
begin
 {найдем позицию разделителя N-ого параметра}
 len:=Length(s);  stroka:=false;  pos_p:=1;  pos_f:=1;
 pos_b:=1;
 if GetPRMCount(s,Typ)=1 then begin
    Result:=S;
    if Result[len]=Typ then
     delete(result,len,1);

    goto fin;
 end;
 i:=0;
 while (i<>len) do begin
    Inc(i);
    if i=1 then
     if Pos_P=N then
     begin    // нашли начальный разделитель
         pos_b:=i;
         break;
     end;
    if S[i]='"' then stroka:=not(stroka);
     if stroka then continue;
     if S[i]=Typ then Inc(pos_p);
     if Pos_P=N then
     begin    // нашли начальный разделитель
         pos_b:=i;
         break;
     end;
 end;
 {теперь ищем первый попавшийся}
 i:=Pos_B;
 while (i<>len) do
  begin
  Inc(i);
     if S[i]=Typ then
     begin
       Pos_F:=I;
       break;
     end;
   end;
   if pos_f=1 then pos_f:=len;

 i:=Pos_F-Pos_B; // находим длину параметра

 if Pos_B<>1 then begin
  if Pos_F<>len then
   Result:=Copy(S,Pos_B+1,i-1)
  else
   Result:=Copy(S,Pos_B+1,i+1)
 end else
 Result:=Copy(S,Pos_B,i);
 {---- убираем лишние символы ----}
fin:
 Result:=Trim(Result); len:=Length(Result);
 if Result='' then exit;
if not Kav then
  begin
 if (Result[len]in ['"',Typ])and(Result[1]='"') then
 begin
 delete(Result,Len,1);
 delete(Result,1,1);
 end;
  end;
end;

ShowMessage(GetFastParam('param1,param2,"param3", param4 ',3,','))

Пример использования...

Это сообщение отредактировал(а) lukas - 27.8.2007, 16:42

--------------------

http://code.google.com/p/orionphp/ - opensource скриптовой язык Orion (аналог PHP) для freepascal/delphi.

EvilProgrammer

Дата 29.8.2007, 13:46 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 43
Регистрация: 18.7.2006

Репутация: нет
Всего: нет

lukas,
Спасибо большое!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »