Модератор: Дед Пахом
Михаил, спасибо за помощь!
Rafael, ты ведь тоже спрашиваешь - для того и создан форум
Код: Выделить всё
MEMGRP FILE,DRIVER('DOS'),NAME(GLO:FileMem),PRE(MEM),CREATE,BINDABLE,THREAD
Record RECORD,PRE()
Field BYTE
END
END
Код: Выделить всё
set(memgrp)
loop
next(memgrp)
if errorcode() or chr(mem:field)<>'G' then break.
loop i#=1 to 11
if mem:field=0
MM:Name[i#]=' '
else
MM:Name[i#]=chr(mem:field)
end
next(memgrp)
end
loop i#=1 to 21
next(memgrp)
end
loop i#=1 to 5
if mem:field=0
MM:Group[i#]=' '
else
MM:Group[i#]=chr(mem:field)
end
next(memgrp)
end
add(MemQ)
end
Да, наверное, не тот пример нарыл. Вот другой, тут прям текстовый текстовый
Код: Выделить всё
TXT FILE,DRIVER('ASCII'),NAME(GLO:PathFile),PRE(TXT),CREATE,BINDABLE,THREAD
Record RECORD,PRE()
Field STRING(255)
END
Код: Выделить всё
importtxt routine
free(TXTQ)
clear(TXTQ)
GLO:PathFile=clip(LOC:PathImport)
TXT{PROP:OEM}=LOC:OEMimport
open(TXT)
doc#=0
set(TXT)
loop
next(TXT)
if errorcode() then break.
a#=instring('=',TXT:Field,1,1)
b#=len(clip(TXT:Field))
if a#>1 and b#>a#
TXTQ:Rec=lower(TXT:Field[1 : a#-1])
TXTQ:Val=TXT:Field[a#+1 : b#]
if lower(clip(TXTQ:Rec))='секциядокумент'
doc#+=1
end
if lower(clip(TXTQ:Rec))='расчсчет' and doc#=0
RSQ.RSchet=clip(TXTQ:Val)
add(RSQ)
else
TXTQ:Doc=doc#
add(TXTQ)
end
end
end
sort(TXTQ,TXTQ:Doc,TXTQ:Rec)
sort(RSQ,+RSQ.RSchet)
loop LOC:Rec=1 to doc#
LOC:DAT=deformat(clip(getval('дата',LOC:Rec)),@d6.)
if ~LOC:Dat then cycle.
if getval('Сумма',LOC:Rec)=0 then cycle.
RSQ.RSchet=getval('ПлательщикСчет',LOC:Rec)
get(RSQ,+RSQ.RSchet)
if errorcode()
LOC:NameFile='oplata'
LOC:Pre='Плательщик'
else
LOC:NameFile='oplatan'
LOC:Pre='Получатель'
end
LOC:OKPO_I=getval(LOC:Pre&'ИНН',LOC:Rec)
LOC:Name_I=getval(LOC:Pre&'1',LOC:Rec)
if clip(LOC:Name_I)='' then LOC:Name_I=GetName(clip(getval(LOC:Pre,LOC:Rec))).
LOC:Count_I=getval(LOC:Pre&'Счет',LOC:Rec)
LOC:Bank_I=getval(LOC:Pre&'Банк1',LOC:Rec)
LOC:KorrSchet=getval(LOC:Pre&'Корсчет',LOC:Rec)
LOC:KPP=getval(LOC:Pre&'КПП',LOC:Rec)
...
Код: Выделить всё
GetVal procedure(string Rec_, long Doc_)
code
TXTQ:Rec=lower(clip(Rec_))
TXTQ:Doc=Doc_
get(TXTQ,+TXTQ:Doc,+TXTQ:Rec)
if errorcode()
return ''
else
return TXTQ:Val
end
GetName procedure(string Name_)
code
a#=instring(clip(LOC:OKPO_I),Name_,1,1)
if a#=0
return Name_
else
b#=instring(' ',Name_,1,a#)
if b#
return Name_[b#+1 : len(Name_)]
else
return ''
end
end
Получаешь в текстовую переменную Str строку из файлаDeveloper писал(а): VariableFixedLegth Value Variable Legth Определённый тест.................... неопределённое значение произвольной длиныКак найти определённое значение сопоставимой с переменной значением и записать в переменную Clarion значение переменной неопределённой длины?Типа того:VariableFixedLegth - это Определённый тест....................VariableFixedLegth = 'неопределённое значение произвольной длины'Может кто решал такую задачу?
Где скачать для ознакомления?
Я уже давал в этой теме ссылку на готовый класс iphlpapi, но ему же нужно универсальное решение для "распарсить всё!"
