Текстовые файлы посчитать сколько символов используется в поле

[leest]

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

// название // кол // шифр //цена
stul siniy 6 6 6
stol krasniy 778 7878 56757
divan zeleniy 5 5 5
stul krasniy 1234 5 5
taburet siniy 55 23 234


как мне посчитать сколько символов используется в(количестве, шифре, цене), если я знаю заранее, что первая цифра "количества" начинается, например, с 51 символа, шифра-с 61, цены-с71.
т.е. например, стол красный:3 символа в количестве, 4 символа в шифре, 5 символов в цене.

заранее огромное спасибо тем, кто отзовется, да и тем кто просто зашел посмотреть, тоже свое время тратите)))

[leest]

p.s. структура текстового файла сбилась, но это не важно...мы же знаем с какого символа начинается та или иная информация(количество, шифр, цена).

[Serge_Bliznykov]

если я правильно понял вопрос..

while Not Eof(MyFile) do
begin
  ReadLn(MyFile, S);
  Nazanie := Copy(S, 1, 50);
  Kolicestvo := Copy(S, 51, 61-51);
  Shifr := Copy(S, 61, 71-61);
  Cena := Copy(S, 71, 255); {больше длины строки S всё равно не будет!}
end;

[Stilet]

Если это в Делфи нужно то лучше применить TStringList к каждос строке, установив пробел разделителем.

[Serge_Bliznykov]

то лучше применить TStringList к каждос строке, установив пробел разделителем.

Stilet, извините, пожалуйста, но, имхо, в данном случае, Вы не правы.. ;-(
если вы обратите внимание на приведённый в #1 пример - то увидите, что в названиях пробел уже присутствует. В приведённом примере название состоит из двух слов, но нигде не сказано, что оно не может быть из одного слова или из трёх-четырёх...
Кроме того, насколько я понял условие, там фиксированная ширина полей...

А вот то, что школяры/студенты не уточняют на Паскале им нужно решение или на Дельфи — это действительно большой им минус!

[leest]

извиняюсь, что не написал на чем делать надо...А сделать надо на Дэлфи.то что вы написали дает мне только то, сколько символов в определенном разделе(название, количество...).А мне нужно узнать сколько символов(численных, например 753-значит 3 символа и 7 пробелов...вот именно эти 3 символа мне и надо узнать).помогите пожалуйста скоро курсовик надо будет сдавать, а я никак эту проблему решить не могу, хотя постоянно думаю и ищу информацию об этом...а Stringlist не знаю как использовать, да и препод сказал использовать обычный текстовый файл!!!

[leest]

поля фиксированные!

[puporev]

Мне кажется здесь нужно что-то типа этого:

while Not Eof(MyFile) do 
    begin ReadLn(MyFile, S);
         kol:=0;
         for i:=51 to 60 do
         if s[i] in [0..9] then kol:=kol+1;
         shifr:=0;
         for i:=61 to 70 do
         if s[i] in [0..9] then shifr:=shifr+1;
         cena:=0;
         for i:=71 to lendth(s) do
         if s[i] in [0..9] then cena:=cena+1;
    end;

[leest]

спасибо, буду пробовать...наверное так должно получиться....что получится, напишу....все равно спасибо!!!!!!!!!!!!