Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.12.03;
Скачать: CL | DM;

Вниз

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

 
lobach ©   (2006-11-17 17:58) [0]

Здравствуйте мастера!!!
У меня такая задачка:
Есть текстовый файл такой структуры:
дд.мм.гг чч:мм произвольный текст
дд.мм.гг чч:мм произвольный текст
дд.мм.гг чч:мм произвольный текст
то есть:
дата время данные
как мне отделить дату и время от данных?
Есть ли в delphi такие фишки, как разделители,
например:
дд.мм.гг чч:мм|||произвольный текст
чтоб ||| было разделителем?


 
clickmaker ©   (2006-11-17 18:01) [1]

P := Pos(#9, s);
D := Copy(s, 1, P); // то что до
DD := Copy(s, P+1, Length(s) - P); // то что после
примерно так.
в качестве разделителя здесь табуляция


 
Jeer ©   (2006-11-17 18:02) [2]


> такие фишки,


такие "фишки" есть в любом языке - что назначишь разделителем, то и будет.


 
lobach ©   (2006-11-17 20:52) [3]

Помогите с функцией readln. Мне надо прочитать строку из текстового файла f в строковую переменную str.
Пробовал так:
Readln(f, str);
выдаёт ошибку I/O 104
помогите.


 
Anatoly Podgoretsky ©   (2006-11-17 20:54) [4]

> lobach  (17.11.2006 20:52:03)  [3]

Здесь порядок, ошибка в другом месте.


 
lobach ©   (2006-11-17 20:58) [5]


> Anatoly Podgoretsky

Спасибо, разобрался:
reset(f);
readln(f, str);


 
grisme ©   (2006-11-17 21:08) [6]

вообще, начни с какой-нибудь книжицы такой не особо замудренной. иначе, блин, не дело imho :|


 
Kolan ©   (2006-11-17 21:36) [7]

> lobach ©  

Пользуй TStringList
Пример:
var
 Strings: TStrings;
begin
 Strings := TStringList.Create;
 try
   Strings.LoadFromFile("C:\t.txt");
   Copy(Strings[0], 1, 1);// Так обращаются
 finally
   Strings.Free;
 end;
end;



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

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

Наверх




Память: 0.48 MB
Время: 0.032 c
2-1163451529
HRust
2006-11-13 23:58
2006.12.03
Веб приложение


4-1153640003
FFx01
2006-07-23 11:33
2006.12.03
Dll в EXE. модули windows, messages //маленький размер


2-1163438458
Troan_81
2006-11-13 20:20
2006.12.03
Работа с директориями


2-1163409817
ORMADA
2006-11-13 12:23
2006.12.03
Пересечение окон


15-1163714546
Юрий Зотов
2006-11-17 01:02
2006.12.03
И я тоже не хочу никого обидеть!