Место общения программистов, форум разработчиков БД на Clarion
https://forum.clarionlife.net/
Так Вы патриот …
Но дело в том, что в Clarion XML нет проблем с Win1251, я это уже несколько раз рассказывал …
И так сто миллионов раз для файла в пару сотен Мб...Игорь Столяров писал(а): ↑19 Июнь 2019, 10:40Загружаем XML в строку, заменяем "Win1251" на "UTF-8", конвертим строку в UTF-8 и распарсиваем её …
С точностью - до наоборот. Здесь всего одна файловая операция - загрузка в строку.
)А вот это один раз делать надо... Бывают, конечно, более сложные ситуации, чем просто загрузка в очередь или группу. Например, вложенные структуры с повторяющимися тэгами. Тогда немного ручками приходится поработать. Находим в сети пример скрипта и пишем что-то наподобии приведенного ниже фрагмента. Результат все равно в очередь. Пример, кстати, рабочий. Использует xPath.
Код: Выделить всё
readMarka_r routine
DATA
lor:queueMarka queue, pre() !марки
lor:numBoxM like(DEdiM:NumBox), name('box')
lor:alcoCodeM like(DEdiM:AlcoCode), name('alcocode')
lor:spraM like(DEdiM:IDSpravkaA), name('spra')
lor:sprbM like(DEdiM:IDSpravkaB), name('sprb')
lor:sprbrM like(DEdiM:IDSpravkaBReg), name('sprbr')
lor:markaM like(DEdiM:AlcoPDF), name('marka')
.
CODE
fsXmlPar.init(Loc:NameTmp,Loc:NameVbsTmp,Loc:NameOutTmp)
fsXmlPar.EgaisNameSpace(3,0)
fsXmlPar.LoadQueueHand('lor:queueMarka',lor:queueMarka) !строки накладной
fsXmlPar.AddScriptInt('Set NodeList = Root.SelectNodes("//ns:Document/ns:WayBill_v3/wb:Content/wb:Position")')
fsXmlPar.AddScriptInt('For Each Elem In NodeList')
fsXmlPar.AddScriptInt(' SET per = Elem.SelectSingleNode("wb:Identity")')
fsXmlPar.AddScriptInt(' sprbr = per.text')
fsXmlPar.AddScriptInt(' SET per = Elem.SelectSingleNode("wb:Product/pref:AlcCode")')
fsXmlPar.AddScriptInt(' alcocode = per.text')
fsXmlPar.AddScriptInt(' SET per = Elem.SelectSingleNode("wb:FARegId")')
fsXmlPar.AddScriptInt(' spra = per.text')
fsXmlPar.AddScriptInt(' SET per = Elem.SelectSingleNode("wb:InformF2/ce:F2RegId")')
fsXmlPar.AddScriptInt(' sprb = per.text')
fsXmlPar.AddScriptInt(' Set NodeList2 = Elem.SelectNodes("wb:InformF2/ce:MarkInfo/ce:boxpos")')
fsXmlPar.AddScriptInt(' For Each Elem2 In NodeList2')
fsXmlPar.AddScriptInt(' SET per = Elem2.SelectSingleNode("ce:boxnumber")')
fsXmlPar.AddScriptInt(' if not per is Nothing then')
fsXmlPar.AddScriptInt(' numBox = per.text')
fsXmlPar.AddScriptInt(' end if')
fsXmlPar.AddScriptInt(' Set NodeList3 = Elem2.SelectNodes("ce:amclist/ce:amc")')
fsXmlPar.AddScriptInt(' For Each Elem3 In NodeList3')
fsXmlPar.AddScriptInt(' marka = Elem3.text')
fsXmlPar.AddScriptInt(' outFile.WriteLine "box=" & numBox')
fsXmlPar.AddScriptInt(' outFile.WriteLine "alcocode=" & alcocode')
fsXmlPar.AddScriptInt(' outFile.WriteLine "spra=" & spra')
fsXmlPar.AddScriptInt(' outFile.WriteLine "sprb=" & sprb')
fsXmlPar.AddScriptInt(' outFile.WriteLine "sprbr=" & sprbr')
fsXmlPar.AddScriptInt(' outFile.WriteLine "marka=" & marka')
fsXmlPar.AddScriptInt(' outFile.WriteLine "@add"')
fsXmlPar.AddScriptInt(' Next')
fsXmlPar.AddScriptInt(' Next')
fsXmlPar.AddScriptInt('Next')
fsXmlPar.AddScriptInt('Set NodeList = Nothing')
fsXmlPar.AddScriptInt('Set NodeList2 = Nothing')
fsXmlPar.AddScriptInt('Set NodeList3 = Nothing')
fsXmlPar.AddScriptInt('')
fsXmlPar.MakeScript(1)
if fsXmlPar.ErrorCode<>0
FsMessagePr('Ошибка! ' & clip(fsXmlPar.ErrorMessage))
lor:err=1
.
fsXmlPar.kill
Т.е. все 50 Мб - в одну строку?
Да. Либо вручную создать динамическую строку New() нужного размера, либо использовать
Удивительного ничего нет. Просто, в С6 STRING максимум 4 М.б. CSTRING - можно больше через NEW. Уже разница.