[solved] XML import to Lianja table

[gcjm]

Hi Georg

unbenannt1 Should be unbennant1

Change the name of the file in the prg.

Ok, thank you very much. Now it's ok.

Sorry!
Either you understand German better than I do or my eyesight is bad, or both ;-)

[gcjm]

Hi Barry,
many thanks again!
Your following prg is the only one helping me to create a table from an xml file.
It should get added to a docu as an example!
Georg

olddate = set("DATE")
set date german

// drop table btest
// if exists create table if not exists btest (datum date, vtext varchar)

if !file("btest.dbf")
create table btest (datum date, vtext varchar)
endif

use btest

// following line brings error => "ARRAY name was expected"
orows = xml_decode_file("unbennant1.xml", "ooo_sheet", "ooo_row")

foreach orows as orow
insert into btest (datum, vtext) values(ctod(orow.column_1), strconv(orow.column_2))
endfor
set date &olddate
use btest
list datum, etos(vtext)

Remark:
etos(vtext) doesn't show the whole vtext (only 256 char)