Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Базы";
Текущий архив: 2006.06.04;
Скачать: [xml.tar.bz2];

Вниз

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

 
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"?


 
sniknik ©   (2006-04-13 10:56) [2]

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);



Страницы: 1 вся ветка

Форум: "Базы";
Текущий архив: 2006.06.04;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.055 c
1-1146030439
ANB
2006-04-26 09:47
2006.06.04
Как в Ворде узнать, какая ячейка выше текущей ?


15-1146817902
Vas86
2006-05-05 12:31
2006.06.04
Залить файл на FTP сервер


3-1144756580
Nic
2006-04-11 15:56
2006.06.04
MS SQL Server: быстрый старт


15-1147078723
QuickFinder
2006-05-08 12:58
2006.06.04
Cpp 2 Pas


2-1147783780
KyRo
2006-05-16 16:49
2006.06.04
Подскажите как убрать сообщение об ошибке





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский