Запись в массив( do while)
Добавлено: 16 июл 2017, 02:18
всем доброго вечера! помогите правильно прописать условие
Есть vpp который обрабатывает банковскую выписку
в выписке есть поля
^Nazn=^
^Nazn2=^
и получается так что поле Nazn(назначение платежа очень длинное поле которое может перескакивает и на 3 строки
поэтому при импорте в галактику берется только первая строка
( например
^Nazn=Здравствуйте я пишу здесь любой......................................
текст и в галактику попадет........................................................
только^
^Nazn2=что нибудь ещё......^
А в галактике в поле назначение платежа в первой строке"Здравствуйте я пишу здесь любой"
а во второй строке " что нибудь ещё......"
в коде объявлен массив t[1..24]
а поля эти прописываются
if ( substr(s,1,6) = '^Nazn=')
t[11] := replace (replace(s,'^',''),'Nazn=','')+sym;
if ( substr(s,1,7) = '^Nazn2=')
t[12] := replace (replace(s,'^',''),'Nazn2=','')+sym;
пробовала прописать do while но тогда фейс зависает(((((
Есть vpp который обрабатывает банковскую выписку
в выписке есть поля
^Nazn=^
^Nazn2=^
и получается так что поле Nazn(назначение платежа очень длинное поле которое может перескакивает и на 3 строки
поэтому при импорте в галактику берется только первая строка
( например
^Nazn=Здравствуйте я пишу здесь любой......................................
текст и в галактику попадет........................................................
только^
^Nazn2=что нибудь ещё......^
А в галактике в поле назначение платежа в первой строке"Здравствуйте я пишу здесь любой"
а во второй строке " что нибудь ещё......"
в коде объявлен массив t[1..24]
а поля эти прописываются
if ( substr(s,1,6) = '^Nazn=')
t[11] := replace (replace(s,'^',''),'Nazn=','')+sym;
if ( substr(s,1,7) = '^Nazn2=')
t[12] := replace (replace(s,'^',''),'Nazn2=','')+sym;
пробовала прописать do while но тогда фейс зависает(((((