使用delphi读取xml的其中几项数据,并生成一个标准格式的xml,请问应该怎么做啊?最好有源码或主要代码 200
原始格式xml<?xmlversion="1.0"encoding="UTF-8"standalone="yes"?><DATAPACKETVersion="2.0"><...
原始格式xml
<?xml version="1.0" encoding="UTF-8" standalone="yes"?
><DATAPACKET Version="2.0"> <METADATA>
<FIELDS> <FIELD attrname="编码"
fieldtype="string" required="true" WIDTH="16">
<PARAM Name="PROVFLAGS" Value="7" Type="i4"
Roundtrip="True"/> </FIELD>
<FIELD attrname="名称" fieldtype="string"
required="true" WIDTH="100"/> <FIELD
attrname="简码" fieldtype="string" WIDTH="6"/>
<FIELD attrname="上级码长" fieldtype="i2"/>
<FIELD
attrname="销售退回科目" fieldtype="string" WIDTH="20"/>
</FIELDS> <PARAMS READONLY="TRUE"
DEFAULT_ORDER="1" PRIMARY_KEY="1" LCID="0"/> </METADATA>
<ROWDATA> <ROW 编码="1" 名称="电脑" 上级码长="0"
下级码长="2" 商品税目="1502" 税率="0.17" 规格型号="1" 计量单位
="台" 单价="0" 含税价标志="TRUE"/> <ROW 编码="10"
名称="复印纸" 上级码长="1" 下级码长="0" 商品税目="4001" 税率
="0.17" 计量单位="件" 单价="0" 含税价标志="TRUE"/>
<ROW 编码="11" 名称="色带" 上级码长="1" 下级码长="0" 商品税目
="4001" 税率="0.17" 计量单位="根" 单价="0" 含税价标志="TRUE"/>
</ROWDATA></DATAPACKET>
标准xml
<?xml version="1.0" encoding="GB2312"?>
<Data TYPE="SPBIANMA"><FENLEI><Row BM="100" PID="0" MC="一般货物"/><Row BM="101" PID="0" MC="简易征收"/><Row BM="102" PID="0" MC="一般商品13%"/><Row BM="103" PID="0" MC="代码转换"/><Row BM="104" PID="0" MC="劳务"/></FENLEI><SPXX><Row BM="10000006" PID="100" MC="打印机" JM="DYJ" SPSM="000002" SL="0.17" GGXH="FP620K+" JLDW="台" DJ="" HSBZ="1"/></SPXX></Data> 展开
<?xml version="1.0" encoding="UTF-8" standalone="yes"?
><DATAPACKET Version="2.0"> <METADATA>
<FIELDS> <FIELD attrname="编码"
fieldtype="string" required="true" WIDTH="16">
<PARAM Name="PROVFLAGS" Value="7" Type="i4"
Roundtrip="True"/> </FIELD>
<FIELD attrname="名称" fieldtype="string"
required="true" WIDTH="100"/> <FIELD
attrname="简码" fieldtype="string" WIDTH="6"/>
<FIELD attrname="上级码长" fieldtype="i2"/>
<FIELD
attrname="销售退回科目" fieldtype="string" WIDTH="20"/>
</FIELDS> <PARAMS READONLY="TRUE"
DEFAULT_ORDER="1" PRIMARY_KEY="1" LCID="0"/> </METADATA>
<ROWDATA> <ROW 编码="1" 名称="电脑" 上级码长="0"
下级码长="2" 商品税目="1502" 税率="0.17" 规格型号="1" 计量单位
="台" 单价="0" 含税价标志="TRUE"/> <ROW 编码="10"
名称="复印纸" 上级码长="1" 下级码长="0" 商品税目="4001" 税率
="0.17" 计量单位="件" 单价="0" 含税价标志="TRUE"/>
<ROW 编码="11" 名称="色带" 上级码长="1" 下级码长="0" 商品税目
="4001" 税率="0.17" 计量单位="根" 单价="0" 含税价标志="TRUE"/>
</ROWDATA></DATAPACKET>
标准xml
<?xml version="1.0" encoding="GB2312"?>
<Data TYPE="SPBIANMA"><FENLEI><Row BM="100" PID="0" MC="一般货物"/><Row BM="101" PID="0" MC="简易征收"/><Row BM="102" PID="0" MC="一般商品13%"/><Row BM="103" PID="0" MC="代码转换"/><Row BM="104" PID="0" MC="劳务"/></FENLEI><SPXX><Row BM="10000006" PID="100" MC="打印机" JM="DYJ" SPSM="000002" SL="0.17" GGXH="FP620K+" JLDW="台" DJ="" HSBZ="1"/></SPXX></Data> 展开
- 你的回答被采纳后将获得:
- 系统奖励15(财富值+成长值)+难题奖励10(财富值+成长值)+提问者悬赏200(财富值+成长值)
2015-04-26 · 知道合伙人软件行家
关注
展开全部
获取xml文件属性的代码:
procedure TForm1.Button2Click(Sender: TObject);
var
xml: TNativeXml;
node : TXmlNode;
i: Integer;
begin
xml := TNativeXml.Create(nil);
node := xml.Root.NodeByName('ROWDATA');
for i := 0 to node.ElementCount-1 do
begin
ShowMessage(node.Elements[i].AttributeByName['名称'].Value);
end;
xml.Free;
end;
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询