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

Вниз

Данные из файла в последовательность...   Найти похожие ветки 

 
Delpher   (2003-05-07 16:49) [0]

Здравствуйте мастера Delphi!
У меня к вам такой вопрос:
Как из файла, в котором данные хранятся таким образом:
Иванов Ул.Прибрежная144-89 55-58-99 1960 Петров Ул.Центральная324-99 34-56-78 1958
Нужно ввести эти данные в последовательность, создан новый класс:
type
list=record
fam,adr,tel,god:string;
end;
TPerson = class
pV:list;
А последовательность как раз и состоит из класса TPerson, а как заполнить
массив TPerson данными из файла, чтобы у TPerson[i] fam=Иванов, adr=УлПрибрежная...,у
TPerson[2] fam=Петров adr=Ул.Центральная.....и т.д.?
Заранее огромное спасибо!!!


 
jel ©   (2003-05-07 16:59) [1]

Читать из файла построчно и разбирать строку по пробелам.


 
default ©   (2003-05-07 19:01) [2]

можешь использовать типизированный файл


 
hjgeworl   (2003-05-07 19:28) [3]


> можешь использовать типизированный файл

Не поможет. Длина-то у всех разная


 
default ©   (2003-05-07 19:33) [4]

согласен поторопился
тогда делать как написал jel


 
Andrew.   (2003-05-07 22:45) [5]

Читай строчку с конца.
Год всегда 4 цифры! Определив год, отрезай его и все пробелы перед ним.
Теперь читай телефон. Это 6 цифр ("-" и пробелы убирай).
Всё что осталось это адрес!
P.S. Наверняка, если данные набивались руками будут лишние пробелы и способ jel не всегда прокатит. :-( Ну мой, по-моему достаточно простой в реализации и, скорее всего тебя устроит.


 
evvcom ©   (2003-05-07 23:15) [6]

Если это разовая работа, то гораздо удобнее это сделать в Excel. Кроме того там есть автофильтр - очень удобно для выявления ошибок.



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

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

Наверх




Память: 0.47 MB
Время: 0.014 c
4-59986
AlexRush
2003-03-18 13:25
2003.05.19
своя GetModuleHandle


4-59980
крот
2003-03-19 08:53
2003.05.19
Что - то с памятью моей стало...(HeapSize)


7-59965
Andy78
2003-03-21 10:59
2003.05.19
Формат отображения даты


3-59601
Alpine
2003-04-24 13:58
2003.05.19
Посоветуйте компоненты для доступа к базе MS SQL.


14-59927
русский
2003-04-29 21:36
2003.05.19
Письмо Борланду