форматирование строки

← →
Kley (2006-04-13 10:44) [0]

здравствуйте помогите плиз задача состоит в том чтобы при конвертации поля в exel типа string
содержащего 11 символов первые 4 символа выходили без изменение (содержат год)
а последующие семь символов если встречаются подряд шесть нулей должны исключатся из вывода в поле в поле
и заменятся на символ "/" например: 20060000002 результат должен быть :2006/2
делаю так:
h:= DM1.ISQuery.Fields.Fields[3].Asstring;
v:=copy(h,1,4);//выделяю первые 4 символа
r:=copy (h,5,11);//выделяю последующие 7
if r="0000002" then
r:=copy (r,11,11);

MsExcel.Cells[index,1]:=DM1.ISQuery.Fields.Fields[0].AsSTRING;
MsExcel.Cells[index,2]:=DM1.ISQuery.Fields.Fields[1].Asstring;
MsExcel.Cells[index,3]:=DM1.ISQuery.Fields.Fields[2].Asstring;
MsExcel.Cells[index,4]:= v+"/"+r;
...
if r="0000002"then- как здесь вместо двойки указать любой символ не равный нулю
может ктото подскажет иное решение?

← →
Sergey13 © (2006-04-13 10:53) [1]

> r:=copy (h,5,11);//выделяю последующие 7
if r="0000002" then
Почему бы не выделить последующие 6 и сравнить их с "000000"?

h:= DM1.ISQuery.Fields.Fields[3].Asstring;
v:=copy(h,1,4);//выделяю первые 4 символа
//r:=copy (h,5,11);//выделяю последующие 7 - не 7 а 11 просто в строке столько нет
if copy (h,5,6) = "000000" then
r:=copy (r,11,1);

форматирование строки Найти похожие ветки