InstallShield 写XML和INI配置文件的一些函数

admin

1. InstallShield 操作XML是用的DOM文档对象模型,这东西就比较好弄了。
   
2. 
   
3. prototype CreateXml(STRING);
   
4. prototype DelteXmlNode(STRING);
   
5. prototype UpdateXmlNode(STRING);
   
6. prototype InsertXmlNode(STRING);
   
7. 
   
8. //创建一个XML文档
   
9. function CreateXml(szFile)
   
10.     OBJECT objXml;
    
11.     STRING strXML;
    
12. begin
    
13.     //开始创建XML文档
    
14.     set objXml = CreateObject("MSXML.DOMDocument");//创建一个DOM对象
    
15.     if (IsObject(objXml) = FALSE ) then
    
16.    MessageBox("出错,系统不支持使用DOM对象",SEVERE);
    
17.     endif;
    
18.     objXml.async = FALSE;
    
19.     ///r/n是回车换行 让内容更美观点 呵呵
    
20.     strXML = "<?xml version=/"1.0/" encoding=/"utf-8/" ?>/r/n"
    
21.     + "<INVENTORY>/r/n"
    
22.     +"<BOOK><TITLE src =/"www/">One</TITLE><PRICE>1.0</PRICE></BOOK>/r/n"
    
23.     +"<BOOK><TITLE>Two</TITLE><PRICE>2.0</PRICE></BOOK>/r/n"
    
24.     +"<BOOK><TITLE>Three</TITLE><PRICE>3.0</PRICE></BOOK>/r/n"
    
25.     +"</INVENTORY>/r/n";
    
26.     objXml.loadXML(strXML);//可以用片段很容易就弄一个XML文档出来
    
27.     objXml.save(szFile); //保存
    
28.     set objXml = NOTHING;
    
29. end;
    
30. 
    
31. //插入一个节点值
    
32. function InsertXmlNode(szFile)
    
33. OBJECT objXml;
    
34. OBJECT objRoot,objNode;
    
35. OBJECT objBook,objTitle,objAttributeNode;
    
36. begin
    
37. set objXml = CreateObject("MSXML.DOMDocument");//创建一个DOM对象
    
38.     if (IsObject(objXml) = FALSE ) then
    
39.    MessageBox("出错,系统不支持使用DOM对象",SEVERE);
    
40.     endif;
    
41.     objXml.async = FALSE;
    
42.     objXml.load(szFile);//加载原有XML文档
    
43.     set objRoot = objXml.documentElement; //取根节点   
    
44.     set objBook = objXml.CreateElement("BOOK");
    
45.     //objBook.text = "Free";     
    
46.     set objTitle = objXml.CreateElement("TITLE");
    
47.     objTitle.text = "4";   
    
48.     set objAttributeNode = objXml.CreateNode("attribute","src","");
    
49.     objAttributeNode.text = "ww";
    
50.     objTitle.SetAttributeNode(objAttributeNode);     //添加属性节点
    
51.    
    
52.     objBook.appendChild(objTitle);
    
53.     objRoot.appendChild(objBook); //添加节点
    
54.     objXml.save(szFile); //保存   
    
55.    
    
56.     set objBook = NOTHING;
    
57.     set objTitle = NOTHING;
    
58.     set objXml = NOTHING;
    
59. end;
    
60. 
    
61. //更新某个节点值
    
62. function UpdateXmlNode(szFile)
    
63. OBJECT objXml;
    
64. OBJECT objRoot,objNode;
    
65. begin   
    
66. set objXml = CreateObject("MSXML.DOMDocument");//创建一个DOM对象
    
67.     if (IsObject(objXml) = FALSE ) then
    
68.    MessageBox("出错,系统不支持使用DOM对象",SEVERE);
    
69.     endif;
    
70.     objXml.async = FALSE;
    
71.     objXml.load(szFile);//加载原有XML文档
    
72.     set objRoot = objXml.documentElement; //取根节点
    
73.     //MessageBox(objRoot.xml,SEVERE); //输出所有节点测试
    
74.     set objNode = objRoot.selectSingleNode("BOOK/TITLE");//查找TITLE节点
    
75.     //MessageBox(objNode.text,SEVERE); //输出他的值
    
76.      objNode.text = "Hello";//改变值
    
77.     objXml.save(szFile); //保存
    
78.     set objNode = NOTHING;
    
79.     set objXml = NOTHING;
    
80. end;
    
81. 
    
82. //删除某个节点
    
83. function DelteXmlNode(szFile)
    
84. OBJECT objXml;
    
85. OBJECT objRoot,objNode;
    
86. begin     
    
87. set objXml = CreateObject("MSXML.DOMDocument");//创建一个DOM对象
    
88.     if (IsObject(objXml) = FALSE ) then
    
89.    MessageBox("出错,系统不支持使用DOM对象",SEVERE);
    
90.     endif;
    
91.     objXml.async = FALSE;
    
92.     objXml.load(szFile);//加载原有XML文档
    
93.     set objRoot = objXml.documentElement; //取根节点
    
94.     //MessageBox(objRoot.xml,SEVERE); //输出所有节点测试
    
95.     set objNode = objRoot.selectSingleNode("BOOK/TITLE");//查找TITLE节点
    
96.     //MessageBox(objNode.text,SEVERE); //输出他的值
    
97.     objNode.ParentNode.removeChild(objNode);//删除该节点
    
98.     objXml.save(szFile); //保存
    
99.     set objNode = NOTHING;
    
100.     set objXml = NOTHING;            
     
101. end;
     
102. 
     
103. //一些操作INI文本文件的函数
     
104. 
     
105. prototype CreateIni(STRING);
     
106. prototype ReadIni(STRING);
     
107. prototype SelectIni(STRING,STRING);
     
108. prototype InsertIni(STRING,STRING);
     
109. 
     
110. //创建INI配置文件
     
111. function CreateIni(szFile)
     
112. HWND file;//文件句柄
     
113. begin   
     
114. OpenFileMode(FILE_MODE_APPEND); //打开方式 从末尾写入
     
115. CreateFile(file,"C://",szFile); //创建文件   
     
116.      WriteLine(file , "This is one line"); //写入一行
     
117.      WriteLine(file , "This is two line");
     
118. CloseFile(file);   //关闭文件
     
119. end;   
     
120.    
     
121. //读取配置
     
122. function ReadIni(szFile)
     
123. HWND file;
     
124. STRING szLine;
     
125. begin   
     
126. OpenFileMode(FILE_MODE_NORMAL); //打开方式 读取从头开始
     
127. OpenFile(file,"C://",szFile); //创建文件   
     
128. GetLine(file,szLine);
     
129. MessageBox(szLine,SEVERE);
     
130. CloseFile(file);   //关闭文件
     
131. end;   
     
132. 
     
133. 
     
134. //查找某行
     
135. function SelectIni(szFile,Selectstr)
     
136. STRING szLine;
     
137. NUMBER szNum;
     
138. begin      
     
139. OpenFileMode(FILE_MODE_NORMAL); //打开方式
     
140. FileGrep(szFile,Selectstr,szLine,szNum,RESTART);
     
141. //MessageBox(szLine,SEVERE);//弹出内容
     
142. return szNum; //返回行号
     
143. end;
     
144. 
     
145. //插入一行
     
146. function InsertIni(szFile,Selectstr)
     
147. NUMBER szNum ;
     
148. STRING str;
     
149. begin
     
150. szNum = SelectIni(szFile,Selectstr); //取行号
     
151. NumToStr(str,szNum);
     
152. MessageBox(str,SEVERE);//行号
     
153. FileInsertLine(szFile,"The Free Line",szNum,AFTER);
     
154. end;
     
155. 
     
156. //////////////////////////////////////////////////////////
     
157. //
     
158. //     改写文件属性，去掉只读或隐藏属性！(这是别人写的一个函数 保存在此)
     
159. //
     
160. /////////////////////////////////////////////////////////////
     
161. 
     
162. export prototype ChangefileInfo(STRING);
     
163. function ChangefileInfo(FileNames)
     
164. STRING szFiles,szPath,svResult;
     
165. NUMBER nvResult;
     
166. begin
     
167.    
     
168.    if (GetFileInfo(FileNames,FILE_ATTRIBUTE, nvResult, svResult)=0) then;
     
169. 
     
170.     if (nvResult = FILE_ATTR_NORMAL) then
     
171.         //do nothing;
     
172.     else
     
173.         if (FILE_ATTR_HIDDEN & nvResult) then
     
174.             SetFileInfo (FileNames,FILE_ATTRIBUTE,FILE_ATTR_NORMAL,"");
     
175.         endif;
     
176.         if (FILE_ATTR_READONLY & nvResult) then
     
177.             SetFileInfo (FileNames,FILE_ATTRIBUTE,FILE_ATTR_NORMAL,"");
     
178.         endif;
     
179.     endif;
     
180.    endif;
     
181. end;
     
182. 
     
183. <网上找的一段代码,很有用>
     
184. InstallShield脚本中通常需要增加的内容
     
185. 在开始复制文件之前的提示框里，显示给用户自己设置的内容以确认是一个不错的习惯。。。
     
186. ListAddString(listStartCopy, "目标路径：" + INSTALLDIR, AFTER);
     
187. ListAddString(listStartCopy, "", AFTER);
     
188. ListAddString(listStartCopy, "您选择了以下组件：", AFTER);
     
189. list = ListCreate(STRINGLIST);
     
190. FeatureListItems(MEDIA, "Services", list);
     
191. nResult = ListGetFirstString(list, svItem);
     
192. while (nResult != END_OF_LIST)
     
193.     if FeatureIsItemSelected(MEDIA, svItem) then
     
194.         FeatureGetData (MEDIA, svItem, FEATURE_FIELD_DISPLAYNAME, nvResult, svResult);
     
195.         ListAddString(listStartCopy, " " + svResult, AFTER);
     
196.     endif;
     
197.     nResult = ListGetNextString(list, svItem);
     
198. endwhile;
     
199. ListDestroy(list);

复制代码