base.TypeInfo 从程序值创建DOM文档
方法:
类方法
create(variable) RETURNING om.DomNode 返回DOM文档
使用步骤:
不需要先创建对象,直接调用该类的方法
示例:
view plaincopy to clipboardprint?
#base.TypeInfo.4gl
MAIN
DEFINE nod om.DomNode
DEFINE XML RECORD
KEY INTEGER,
NAME CHAR(20),
VALUE DATE
END RECORD
LET xml.KEY = 'lee'
LET xml.NAME= 'yihui'
LET xml.VALUE=MDY(2,13,1986)
LET nod = base.TypeInfo.create(xml) #RECORD变量生成XML
CALL nod.writeXml("../4gl/employee.xml")
LET nod = base.TypeInfo.create(xml.key) #单变量生成XML
CALL nod.writeXml("../4gl/key.xml")
END MAIN
#base.TypeInfo.4gl
MAIN
DEFINE nod om.DomNode
DEFINE XML RECORD
KEY INTEGER,
NAME CHAR(20),
VALUE DATE
END RECORD
LET xml.KEY = 'lee'
LET xml.NAME= 'yihui'
LET xml.VALUE=MDY(2,13,1986)
LET nod = base.TypeInfo.create(xml) #RECORD变量生成XML
CALL nod.writeXml("../4gl/employee.xml")
LET nod = base.TypeInfo.create(xml.key) #单变量生成XML
CALL nod.writeXml("../4gl/key.xml")
END MAIN
运行:<topprod:/u1/usr/lee/4gl/42m> fglrun 4gl_base.TypeInfo.42m
结果:可以在../4gl目录下面已经生成了xml文件employee.xml、key.xml,内容如下:
<?xml version='1.0' encoding='UTF-8'?>
<Record> <!--RECORD变量生成XML -->
<Field type="INTEGER" value="0" name="KEY"/><!--注意KEY为INTEGER,赋值为字符所以默认为了0-->
<Field type="CHAR(20)" value="yihui" name="NAME"/>
<Field type="DATE" value="86/02/13" name="VALUE"/>
</Record>
<?xml version='1.0' encoding='UTF-8'?> <!--单变量生成XML -->
<Field type="INTEGER" value="0" /> <!--注意KEY为INTEGER,赋值为字符所以默认为了0 -->
转载请注明:赫非域 » BDL-FGL_BASE基本语法(base.TypeInfo)