Можно ли в паскале сделать ввод данных в программу из файла excel?

[Nickolay0512]

Задача: Определить ежемесячную (Qw34+Qo34) и накопленную (сумма всех чисел) добычу
Определить max, min значения по Qw34. Программу я написал. Все работает. Вопрос в следующем. Можно ли перенести таблицу с картинки в excel и вводить данные в запись из него?
Вот сама программа:

uses crt;
type zap=record;
     data:string;
     Qo34,Qw34:integer;
     end;
var a:array[1..17] of zap;
    i,s,max,min:integer;
begin
     writeln('Введите данные из таблицы:');
     for i:=1 to 17 do
     begin
          writeln('Строка ',i);
          writeln('Дата:');
          readln(a[i].data);
          writeln('Qo34');
          readln(a[i].Qo34);
          writeln('Qw34');
          readln(a[i].Qw34);
     end;
     writeln('Ежемесячная добыча:');
     for i:=1 to 17 do
          writeln(a[i].data,' - ',a[i].Qo34+a[i].Qw34);
     s:=0;
     for i:=1 to 17 do
         s:=s+a[i].Qo34+a[i].Qw34;
     writeln('Накопительная добыча:',s);
     max:=a[1].Qw34;
     min:=a[1].Qw34;
     for i:=1 to 17 do
     begin
          if a[i].Qw34<min then min:=a[i].Qw34;
          if a[i].Qw34>max then max:=a[i].Qw34;
     end;
     writeln('Максимум Qw34:',max);
     writeln('Минимум Qw34:',min);
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Sciv]

Можно, если паскаль под виндоус. Например, если это консольное приложение дельфи.

Теоретически можно в классическом паскале, но очень много мороки: нужно изучить структуру excel-файла и создать обработчики чтения, парсинга (то бишь разбора данных) и записи вручную (в винде это все уже есть).

[Vanta11a]

Возможно, проще будет использовать текстовый файл, сформированный нужным образом? Например первые 2 строки выглядят так:

№123 №123
Qo34 Qw34

Соответственно, считав их read`ом, вы получите шапку. Следующие строки выглядят так:

МММ.ГГ 123 123

Т.е. 3 буквы месяца слитно с 2я цифрами года, 2 цифры для столбцов.

Считали первые две строки (шапку), а потом читаете и разбираете сроки посредством

while not(eof()) do

[ViktorR]

Вопрос я понял так:
1. Есть картинка, данные из которой хочется передать в программу, которая написана на Паскале (заполнять поля записей).
2. Предполагаем, что данные с картинки можно втащить в Excel и затем передать программе.

А) Данные с картинки в Excel не втянуть. Для этого, как минимум, надо научить Excel распознавать картинку.
B) К чему такое совокупление? Нет никаких проблем преобразовать программу из Паскаля в VBA и вычисления выполнять в Excel.
Данные придется вводить ручками.
Даже в том случае, когда картинка будет преобразована к читабельному виду, придется затрачивать время на контроль такого преобразования и корректировку при ошибках.

Что-то не так понял?


Как-то так, ...