VPF::Из тектового файла в Excel - Форум программистов

sgentstuff

Дата 29.6.2006, 09:58 (ссылка)

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

Загрузка ...

Шустрый

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

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

тектовый файл с таким содержанием
как считать из файла и записать в ячейки excel как надо

=======================
CODE   CUSTOMER NAME     MAX
=======================
95015         name1                3
70526         name2                4

TOTAL                                    7

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

Тот, кто ищет миллионы, весьма редко их находит, но тот, кто их не ищет, не находит никогда.

comtat

Дата 29.6.2006, 10:13 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1310
Регистрация: 2.5.2006
Где: Россия, Казань

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

Ну читать можно так

Код


type
  TTreb=record
     code: integer;
     name: string;
     max: integer;
  end;
..
procedure loadData(
                   fileName: string;
                   var detailAmount: integer;
                   var details: array of TTreb);

..

var
  details: array[1..MAX_TREB_AMOUNT] of TTreb;

//чтение
procedure loadData(fileName: string;
                   var detailAmount: integer;
                   var details: array of TTreb);
var
   i: integer;
   in_file: textFile;
begin
   assignFile(in_file, fileName);
   reset(in_file);
   read(in_file, detailAmount);
   for i:=0 to detailAmount-1 do
   begin
      read(in_file, details[i].code);
      read(in_file, details[i].name);
      read(in_file, details[i].max);
   end;
   closeFile(in_file);
end;

Чета типа того ...
А насчет записи в Excel смотри ЗДЕСЬ smile

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

Рожденный в СССР !!!
ExtJS - мой фреймворк

sgentstuff

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

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

Загрузка ...

Шустрый

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

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

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

CUSTOMER N

Код


begin    
      read(in_file, details[i].code);    
      read(in_file, details[i].name);    
      read(in_file, details[i].max);    
end;

AME - записывает в ячейку и т.д

а вот тут например что будет details[i].code, details[i].name, details[i].max, помоему не то что надо, мне бы по подробнее, просто не знаю как это примерно сделать

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

Тот, кто ищет миллионы, весьма редко их находит, но тот, кто их не ищет, не находит никогда.

comtat

Дата 29.6.2006, 11:26 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1310
Регистрация: 2.5.2006
Где: Россия, Казань

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

Ну если текстовый файл сделать таким

CODE   CUSTOMER_NAME     MAX
95015         name1                3
70526         name2                4

TOTAL                                    7

Слова разделять не пробелом а Tab то все считается хорошо

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

Рожденный в СССР !!!
ExtJS - мой фреймворк

Alexeis

Дата 29.6.2006, 16:00 (ссылка)

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

Загрузка ...

Амеба

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

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

comtat, строчка read(in_file, details[i].name); - "сожрет" и значения max.

Добавлено @ 16:05
sgentstuff, ваша задача также из области регулярных выражений (рядом есть тема о поиске в бинарном файле).
Можно, конечно, извернутся и сделать ручками, но это будет не гибко - любое изменение формата файла приведет к большим мучениям по коректировке кода, тогда как регулярные варажения позволят вам все изменения проводить с легкостью.
p.s. Ищите по форуму.

Добавлено @ 16:09
Вот ссылка - человек решал почти такую же задачу
http://forum.vingrad.ru/index.php?showtopi...%BD%D0%AB%D0%B5

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

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

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

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

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