Delphi 7生成XML
文件格式为：
Day 制1課 U12 ASSY01 Wrist 1009 0 2018/05/18 09:35:59
Day 制1課 U12 ASSY02 Wrist 1010 0 2018/05/18 09:36:01
Day 制1課 U12 ASSY03 Wrist 1011 0 2018/05/18 09:36:03
Day 制1課 U12 ASSY04 Wrist 1012 0 2018/05/18 09:36:05
Day 制1課 U12 ASSY05 Wrist 1013 0 2018/05/18 09:36:07
Day 制1課 U12 ASSY06 Wrist 1014 0 2018/05/18 09:36:10
Day 制1課 U12 ASSY07 Wrist 1015 0 2018/05/18 09:36:12
Day 制1課 U12 ASSY08 Wrist 1016 0 2018/05/18 09:36:14
Day 制1課 U12 ASSY09 Wrist 1017 0 2018/05/18 09:36:16
2.把此文件转成XML(用Delphi7):
procedure TForm1.Button1Click(Sender: TObject);
var
lst,lstfield :TStringList;
xml:TXMLDocument;
node :IXMLNode;
i,j:integer;
begin
xml := TXMLDocument.Create(nil);
try
xml.Active := True;
xml.Version := '1.0';
xml.Encoding := 'UTF-8';
xml.DocumentElement := xml.CreateElement('ESDDATA','ESD');
xml.Options:=[doNodeAutoIndent];
xml.NodeIndentStr :=#;
lstfield := TStringList.Create;
try
lst := TStringList.Create;
try
lst.LoadFromFile('ESDStatus.txt');
Memo1.Text := lst.Text;
for i:= to lst.Count- do
begin
lstfield.Clear; ExtractStrings([Char(VK_TAB)],[' '], PChar(lst[i]), lstfield) ; if lstfield.Count> then
begin
node := xml.DocumentElement.AddChild('item');
{node.AddChild('SHIFT_NAME').Text :=lstfield[0]; --加子元素
node.AddChild('PRODUCT_ROOM').Text :=lstfield[1];
node.AddChild('PDLINE_NAME').Text :=lstfield[2];
node.AddChild('POSITION').Text :=lstfield[3];
node.AddChild('CATEGORY').Text :=lstfield[4];
node.AddChild('NO').Text :=lstfield[5];
node.AddChild('STATUS').Text :=lstfield[6];
node.AddChild('PROCESSTIME').Text :=lstfield[7];}
node.Attributes['SHIFT_NAME']:= lstfield[]; //增加元素属性
node.Attributes['PRODUCT_ROOM']:= lstfield[];
node.Attributes['PDLINE_NAME']:= lstfield[];
node.Attributes['POSITION']:= lstfield[];
node.Attributes['CATEGORY']:= lstfield[];
node.Attributes['NO']:= lstfield[];
node.Attributes['STATUS']:= lstfield[];
node.Attributes['PROCESSTIME']:= lstfield[];
end;
end;
finally
lst.Free;
end;
finally
lstfield.Free;
end;
Memo2.Lines.Text:= xml.XML.Text;
finally
node:=nil;
xml.Active := false;
xml.Free;
end; end;
3 生成子元素的内容为：
<?xml version="1.0" encoding="UTF-8"?>
<ESDDATA xmlns="ESD">
<item>
<SHIFT_NAME>Day</SHIFT_NAME>
<PRODUCT_ROOM>鍒?瑾?/PRODUCT_ROOM>
<PDLINE_NAME>U12</PDLINE_NAME>
<POSITION>ASSY01</POSITION>
<CATEGORY>Wrist</CATEGORY>
<NO>1009</NO>
<STATUS>0</STATUS>
<PROCESSTIME>2018/05/18 09:35:59</PROCESSTIME>
</item>
<item>
<SHIFT_NAME>Day</SHIFT_NAME>
<PRODUCT_ROOM>鍒?瑾?/PRODUCT_ROOM>
<PDLINE_NAME>U12</PDLINE_NAME>
<POSITION>ASSY02</POSITION>
<CATEGORY>Wrist</CATEGORY>
<NO>1010</NO>
<STATUS>0</STATUS>
<PROCESSTIME>2018/05/18 09:36:01</PROCESSTIME>
</item>
<item>
<SHIFT_NAME>Day</SHIFT_NAME>
<PRODUCT_ROOM>鍒?瑾?/PRODUCT_ROOM>
<PDLINE_NAME>U12</PDLINE_NAME>
<POSITION>ASSY03</POSITION>
<CATEGORY>Wrist</CATEGORY>
<NO>1011</NO>
<STATUS>0</STATUS>
<PROCESSTIME>2018/05/18 09:36:03</PROCESSTIME>
</item>
<item>
<SHIFT_NAME>Day</SHIFT_NAME>
<PRODUCT_ROOM>鍒?瑾?/PRODUCT_ROOM>
<PDLINE_NAME>U12</PDLINE_NAME>
<POSITION>ASSY04</POSITION>
<CATEGORY>Wrist</CATEGORY>
<NO>1012</NO>
<STATUS>0</STATUS>
<PROCESSTIME>2018/05/18 09:36:05</PROCESSTIME>
</item>
<item>
<SHIFT_NAME>Day</SHIFT_NAME>
<PRODUCT_ROOM>鍒?瑾?/PRODUCT_ROOM>
<PDLINE_NAME>U12</PDLINE_NAME>
<POSITION>ASSY05</POSITION>
<CATEGORY>Wrist</CATEGORY>
<NO>1013</NO>
<STATUS>0</STATUS>
<PROCESSTIME>2018/05/18 09:36:07</PROCESSTIME>
</item>
<item>
<SHIFT_NAME>Day</SHIFT_NAME>
<PRODUCT_ROOM>鍒?瑾?/PRODUCT_ROOM>
<PDLINE_NAME>U12</PDLINE_NAME>
<POSITION>ASSY06</POSITION>
<CATEGORY>Wrist</CATEGORY>
<NO>1014</NO>
<STATUS>0</STATUS>
<PROCESSTIME>2018/05/18 09:36:10</PROCESSTIME>
</item>
<item>
<SHIFT_NAME>Day</SHIFT_NAME>
<PRODUCT_ROOM>鍒?瑾?/PRODUCT_ROOM>
<PDLINE_NAME>U12</PDLINE_NAME>
<POSITION>ASSY07</POSITION>
<CATEGORY>Wrist</CATEGORY>
<NO>1015</NO>
<STATUS>0</STATUS>
<PROCESSTIME>2018/05/18 09:36:12</PROCESSTIME>
</item>
<item>
<SHIFT_NAME>Day</SHIFT_NAME>
<PRODUCT_ROOM>鍒?瑾?/PRODUCT_ROOM>
<PDLINE_NAME>U12</PDLINE_NAME>
<POSITION>ASSY08</POSITION>
<CATEGORY>Wrist</CATEGORY>
<NO>1016</NO>
<STATUS>0</STATUS>
<PROCESSTIME>2018/05/18 09:36:14</PROCESSTIME>
</item>
<item>
<SHIFT_NAME>Day</SHIFT_NAME>
<PRODUCT_ROOM>鍒?瑾?/PRODUCT_ROOM>
<PDLINE_NAME>U12</PDLINE_NAME>
<POSITION>ASSY09</POSITION>
<CATEGORY>Wrist</CATEGORY>
<NO>1017</NO>
<STATUS>0</STATUS>
<PROCESSTIME>2018/05/18 09:36:16</PROCESSTIME>
</item>
</ESDDATA>
4 生成元素属性内容为：
<?xml version="1.0" encoding="UTF-8"?>
<ESDDATA xmlns="ESD">
<item SHIFT_NAME="Day" PRODUCT_ROOM="鍒?瑾? PDLINE_NAME="U12" POSITION="ASSY01" CATEGORY="Wrist" NO="1009" STATUS="0" PROCESSTIME="2018/05/18 09:35:59"/>
<item SHIFT_NAME="Day" PRODUCT_ROOM="鍒?瑾? PDLINE_NAME="U12" POSITION="ASSY02" CATEGORY="Wrist" NO="1010" STATUS="0" PROCESSTIME="2018/05/18 09:36:01"/>
<item SHIFT_NAME="Day" PRODUCT_ROOM="鍒?瑾? PDLINE_NAME="U12" POSITION="ASSY03" CATEGORY="Wrist" NO="1011" STATUS="0" PROCESSTIME="2018/05/18 09:36:03"/>
<item SHIFT_NAME="Day" PRODUCT_ROOM="鍒?瑾? PDLINE_NAME="U12" POSITION="ASSY04" CATEGORY="Wrist" NO="1012" STATUS="0" PROCESSTIME="2018/05/18 09:36:05"/>
<item SHIFT_NAME="Day" PRODUCT_ROOM="鍒?瑾? PDLINE_NAME="U12" POSITION="ASSY05" CATEGORY="Wrist" NO="1013" STATUS="0" PROCESSTIME="2018/05/18 09:36:07"/>
<item SHIFT_NAME="Day" PRODUCT_ROOM="鍒?瑾? PDLINE_NAME="U12" POSITION="ASSY06" CATEGORY="Wrist" NO="1014" STATUS="0" PROCESSTIME="2018/05/18 09:36:10"/>
<item SHIFT_NAME="Day" PRODUCT_ROOM="鍒?瑾? PDLINE_NAME="U12" POSITION="ASSY07" CATEGORY="Wrist" NO="1015" STATUS="0" PROCESSTIME="2018/05/18 09:36:12"/>
<item SHIFT_NAME="Day" PRODUCT_ROOM="鍒?瑾? PDLINE_NAME="U12" POSITION="ASSY08" CATEGORY="Wrist" NO="1016" STATUS="0" PROCESSTIME="2018/05/18 09:36:14"/>
<item SHIFT_NAME="Day" PRODUCT_ROOM="鍒?瑾? PDLINE_NAME="U12" POSITION="ASSY09" CATEGORY="Wrist" NO="1017" STATUS="0" PROCESSTIME="2018/05/18 09:36:16"/>
</ESDDATA>
5:可以把以上的内容做为参数传给数据库进行处理，保证事物的原子性(具休调用待后续提供).
Delphi 7生成XML的更多相关文章
- Delphi中解析Xml的控件-SimDesign NativeXml
Delphi中解析Xml的控件-SimDesign NativeXml 正在学习,感觉应用很方便.无源代码的版本还是免费的. SimDesign.NativeXml是一个delphi和bcb的XML控 ...
- Android 解析XML文件和生成XML文件
解析XML文件 public static void initXML(Context context) { //can't create in /data/media/0 because permis ...
- 让Visual Studio 2013为你自动生成XML反序列化的类
Visual Sutdio 2013增加了许多新功能,其中很多都直接提高了对代码编辑的便利性.如: 1. 在代码编辑界面的右侧滚动条上显示不同颜色的标签,让开发人员可以对所编辑文档的修改.查找.定位情 ...
- Rss 订阅：php动态生成xml格式的rss文件
Rss 简介: 简易信息聚合(也 叫聚合内容)是一种描述和同步网站内容的格式.使用RSS订阅能更快地获取信息,网站提供RSS输出,有利于让用户获取网站内容的最新更新.网络用户可以在客户端借助于支持RS ...
- java 解析并生成 XML
在 java 中使用 Dom4j 解析 XML 对 XML 文件的解析,通常使用的是 Dom4j 和 jdom 作为XML解析工具. 在此只介绍下 Dom4j 对 XML 文件的解析使用方法. 1. ...
- Java生成XML文件
我们在数据库中的数据可以将其提取出来生成XML文件,方便传输.例如数据库中有Admin这张表: 我们写一个java类表示admin数据: package xmlDom.vo; import java. ...
- Android 使用xml序列化器生成xml文件
在<Android 生成xml文件>一文中使用流的形式写入xml格式文件,但是存在一定的问题,那就是在短信内容中不能出现<>之类的括号,本文使用xml序列化器来解决 xml序列 ...
- Android 生成xml文件
生成XML文件备份短信,其格式为: <?xml version="1.0" encoding="UTF-8" standalone="true& ...
- VS2010 生成Xml格式的注释文档
项目, 属性, build, 勾选xml document file, 重新build, 即可生成xml注释文件, 然后还得找工具软件(看到anytao推荐SandCastle) 生成更易读的帮助文档 ...
随机推荐
- springboot与dubbo结合
转:http://www.cnblogs.com/Alandre/p/6490142.html 写的很好! 本文提纲 一.为啥整合 Dubbo 实现 SOA 二.运行 springboot-dubb ...
- iOS 全局变量设置的几种方式~
在iOS开发过程中关于全局变量的几个方法 1. 在APPDelegate中声明并初始化全局变量.AppDelegate可以在整个应用程序中调用,在其他页面中可以使用代码段获取AppDelegate的全 ...
- POJ1182 食物链---(经典种类并查集)
题目链接:http://poj.org/problem?id=1182 食物链 Time Limit: 1000MS Memory Limit: 10000K Total Submission ...
- centos7.6升级ssh7.9、安装PHP7.2、Nginx1.15.9、PHP加密扩展php_screw1.5
1.centos7 安装PHP7.2版本 #查询是否安装过php yum list installed | grep php yum provides php #移除php yum remove ph ...
- 我喜欢的4个VS扩展吧
原文发布时间为:2011-06-09 -- 来源于本人的百度文章 [由搬家工具导入]
- bzoj 1251 裸splay
裸的splay,只需要注意 max[-1]:=-maxlongint 就行了,否则在update的时候子节点的 max值会在max[-1]里选 /*************************** ...
- python基础===正则表达式（转）
正则表达式是一个很强大的字符串处理工具,几乎任何关于字符串的操作都可以使用正则表达式来完成,作为一个爬虫工作者,每天和字符串打交道,正则表达式更是不可或缺的技能,正则表达式的在不同的语言中使用方式可能 ...
- JavaSript中数组方法是否对原数组产生影响
JavaScript中数组方法有很多.某次面试被问到,concat()方法会对影响到原数组吗.当时记得不牢,犹豫地说"会吧...".于是决定总结一下哪些数组方法会对原数组产生影响. ...
- JSP 基础之 JSTL <c:if>用法
<c:if>还有另外两个属性var和scope.当我们执行<c:if>的时候,可以将这次判断后的结果存放到属性var里:scope则是设定var的属性范围.哪些情况才会用到va ...
- 【C++】this指针
来自:黄邦勇帅 this 指针是所有成员函数的隐含指针,每次调用成员函数时,this 指针就指向调用此函数的对象.可以在成员函数类 部使用显使用this 指针. 友元函数不是类的成员函数,所以友元函数 ...