работа с *.txt

[мимо]

Подскажите!
есть текстовый файл с содержанием:

Петров
//телефон
абракадабра
Сидоров
//адрес
абракадабра
...

необходимо вытаскивать из него в другой файл только фамилию и //
хоть где про это можно прочитать или посмотреть примеры. в гугле уже устал искать (
Помогите советом.

[5naip]

вот программка.
1.Переименовываем ваш файл в "base.txt"
2.Пихаем его в папку с программкой
3.Запускаем программку
4.Жмем кнопку
5.Когда в самом правом белом окошке(memo1) появятся только фамили - закрываем программку.
6.Забираем из папки файл "_base.txt".

З,Ы, Обязательно сделайте бэкап.

[vovk]

ну можно чтото вроде этого

var
tf:TextFile;
i:integer;
begin

 AssignFile(tf,'c\:1.txt');

   Reset(tf);
memo1.clear;
    i:=1;
    while not Eof(TF)  do
     begin
       
       Readln(TF, str);
          
         case i of
           1:     memo1.Lines.Add(str);
  
           2:     memo1.Lines.Add('//');
 
           3:     i:=0;
           end;
   
         Inc(i);
       end;

  CloseFile(tf);
end;

Это если на вскидку, но подозреваю что всё не так просто, допустим пропускать надо не обязательно строку кратную 3, и во второй записывать совсем не '//' Но тут уж как спросили

[vovk]

Сообщение от 5naip

вот программка.
.........................

а зачем текстфайл и сё такое, если всё равно в листбокс пихаеш?
можно просто

ListBox1.Items.LoadFromFile('1.txt');

[5naip]

загадочная русская душа
ну или просто торопился, и сделал не самый оптимальный вариант...что скорее всего...

[мимо]

спасибо всем. посмотрю.

[Impuls1989]

Почему-то никто не высказал предположение что файл является типизированным. Ведь абракадабра как раз и является признаком типизированности. Нужно брать f:file of zapis;
Где, насколько я могу судить:

zapis = record
           surname:string[length_string];
           phone:string[length_string];
           ....
           ну и далее какие-то поля
         end;

К сожалению трудно узнать длины строк и какие еще там поля. Хотя, если поэкспериментировать, это возможно.
Да и было бы неплохо увидеть сам файл.

[vovk]

Я думаю топикстартер знал бы если файл был бы типизированым. И есть небольшое отличие типизированых файлов, скорее всего всё относяшееся к одному обьекту распологалось бы в нём на 1 строке, как записи в БД, о чё м вы и говорите как раз

[Impuls1989]

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

Я думаю топикстартер знал бы если файл был бы типизированым. И есть небольшое отличие типизированых файлов, скорее всего всё относяшееся к одному обьекту распологалось бы в нём на 1 строке, как записи в БД, о чё м вы и говорите как раз

Ну насчет знал бы: я с вами не соглашусь. Если человек всю сознательную жизнь пишет на C? Там ведь нету такой штуки. Все ручками
А насчет одной строчки - полностью согласен. Все записи в типизированном файле действительно идут примерно по строкам. Но всеже немного напрягает кракозябры в самом файле. Мне бы определенно хотелось увидеть данный файлик))

[мимо]

насчет файлика....
вот в принципе пример.
из него надо вытащить:
что-то здесь написано = asdasd@mail.ru|123
что-то здесь написано = asdasd@mail.ru|123
обязательно, чтобы после = было значение и после | есть значение. вот.
primer.txt