Задача поставлена немного некорректно, если , например имеем ODB файл, в него записана графика (только с текстом), одним списком, то скрипт может выглядеть так
myODB = ODB.Open(myPath.AsFileName)' -здесь вместо mypath имя odbфайла
s1 = myODB.Get(0) 'считываем из него список графики
myVTab.Make (myPath.AsFileName, TRUE, FALSE)'-здесь вместо mypath имя создаваемой таблицы
'создаем поля таблицы
myVTab.AddFields( Field.Make ("ObjName, #FIELD_CHAR, 255, 0) )
idV = myVTab.FindField( "ObjName" )
myVTab.AddFields( Field.Make ("ObjVal, #FIELD_CHAR, 255, 0) )
objV = myVTab.FindField( "ObjVal" )
'каждый объект добросовестно переписываем во вновь созданную таблицу
for each theobj in s1
newRec = myFTab.AddRecord
myFTab.SetValue( idV, newRec, theobj.GetName )
myFTab.SetValue( objV, newRec, theObj.GetText )
end
Закрываем файлы, сохраняем изменения.
Дело в том, что объекты могут быть записаны не одним списком, а по отдельности, например, и масса других вариантов.
Савенко Альберт