Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Изменение данных в текстовом файле [D7, WinXP]

yurik85 © (2009-01-23 10:26:00)
Подскажите, пожалуйста. Есть текстовый файл. Строка состоит из трех данных через пробел: штрих-код, нименование и количество. Как изменить только количество?

KilkennyCat (2009-01-23 12:53:00) [1]

> Anatoly Podgoretsky ©

штрих-код можно записать текстом. Два варианта: его цифровой аналог; использование спецфонта. 1C, например, использует такой фонт.

Anatoly Podgoretsky (2009-01-23 11:38:00) [2]
> yurik85 (23.01.2009 10:26:00) [0]

Штрих код и текстовый файл, не путаешь где то?

KilkennyCat (2009-01-23 11:02:00) [3]

> charoey_mag (23.01.09 10:37) [3]

есть проще способ.

Stroka : string - изменяемая строка
Kolvo : string - количество

Stroka := Сopy(Stroka , 1, LastDelimiter(' ', Stroka)) + Kolvo;

Возможно, потеряется пробел. Это мелочи :)

charoey_mag (2009-01-23 10:37:00) [4]
s:string;
i:integer;
i:=length(s);
while s[i]<>' ' do
dec(i);
s:=delete(s,1,i); <- останется все что после последненго пробела
i:=StrToInt(s); <- кол-во

KilkennyCat (2009-01-23 10:36:00) [5]
Есть два способа:
Определяем при помощи Pos (или еще одной функции, непомню названиеи, см. в справочнике - определяет первый делиметр справа) последний пробел, копируем (Copy) с первого символа по найденный, прибавляем новое название.
Второй способ : чаще всего там встречается еще и фиксированность размера этих данных. Тогда мы четко можем знать, где "количество", и создаем новую строку новая := Copy(исходная, 1, размерШтрих + размерНаименование) + количество

charoey_mag (2009-01-23 10:34:00) [6]
искать с конца пробел и изменить кол-во

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »