Delphi xmlÎļþµÄÐÞ¸Ä
ÎļþÄÚÈÝÈçÏ£º
<?xml version="1.0" encoding="utf-8"?>
<caches>
<cache name="µØÇøÐÅÏ¢" dll_name="BLLPack.bpl" method="CacheRegion" size="325" necessary="1" cache_way="1">
<tables>
<item name="region" update_date="2010-02-02 12:12:12:000" />
<item name="hospital_region" update_date="2010-02-02 12:12:12:000" />
</tables>
</cache>
<caches>
ÈçºÎÄÜÐÞ¸Äupdate_dateµÄÖµ
uses
XMLIntf, XMLDoc;
procedure TForm1.Button2Click(Sender: TObject);
var
xmlDoc: IXMLDocument;
Node: IXMLNode;
NodeList: IXMLNodeList;
begin
xmlDoc := TXMLDocument.Create(nil);
xmlDoc.Active := true;
xmlDoc.Version := '1.0';
xmlDoc.Encoding := 'GB2312';
xmlDoc.LoadfromFile('c:\a.xml');
NodeList := xmldoc.DocumentElement.ChildNodes['cache'].ChildNodes['tables'].ChildNodes;
Node := NodeList.First ;
Node.SetAttribute('update_date', 'abc');
xmlDoc.SaveToFile('c:\a.xml');
xmlDoc := nil;
end;
¿ÉÒÔÓÃXML°ó¶¨£¬È»ºóÖ±½ÓÓð󶨶ÔÏó¼ÓÔØ£¬È»ºóÐ޸ľͿÉÒÔÁË£¬ÕâÑù·Ç³£¼òµ¥¡£
¹Ø×¢...............
¶¥1Â¥
²»¹ý£¬Èç¹û1Â¥´úÂ뱨´í
¿ÉÄÜ1£ºÉ¾³ý xmlDoc.Version :=
Ïà¹ØÎÊ´ð£º
¾ÍÊÇÒ»¸ö·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë£¬Àï±ßÓÐһЩ¹²Óõ¥Ôª £¬ÎÒÔÚ ¹¤³ÌµÄSEARCH PATHÀïÉèÖõÄ·¾¶£¬
Àï±ßÓиö½á¹¹Ì壬ÎÒÔÚ·þÎñ¶Ë´ò¿ª£¬¼ÓÁ˳ÉÔ±£¬µ«ÊÇÎÒÔÚ¿Í»§¶ËÆäËûµ¥Ôª·ÃÎʲ»µ½ÎÒмӵģ¬ÎÒÔÚ¿Í»§¶Ë´ò¿ªÄǸöµ¥Ôª£¬È·Êµ¼ÓÁ ......
<?xml version="1.0" encoding="utf-8" ?>
- <LinearLayout xmlns:android="http://schemas.android.com/apk/res/android" android:orientation="vertical&q ......
ÎÒÔÚ±àдһ¸öwince5.0µÄ³ÌÐò£¬ÏëʵÏÖ°ÑPDAÉϵÄÒ»¸öLIST <STRING>ÀàÐ͵ÄÊý¾ÝÐòÁл¯ÎªXML£¬È»ºóÔÚPCÉϵÄÒ»¸öwebserviceÄõ½Õâ¸öXML£¬×ª»¯ÎªDataset£¬¸üÐÂPCÉϵÄÊý¾Ý¿â£¬ÎÒÏëÎÊÔõô°ÑXML´«¸øwebserviceµÄÄØ£¿
......
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......
ΪʲôÎҵijÌÐòµ÷ÓÃXMLÅäÖÃÎļþÖеİ¢À²®ÎÄÏÔʾ²»³öÀ´£¿ÆäËûµÄÓïÖÖ¶¼¿ÉÒÔ£¬ÈçÖÐÎÄ£¬Ó¢ÎÄ£¬µÂÎͼ¿É¡£
ÎÒ½«XMLµÄ±àÂë¸ÄΪutf-8ºÍunicodeµÄµ½µÃ½á¹û¶¼Ò»Ñù.
°¢À²®ÎĵÄ×Ö¿âÄãÓÐô£¿
ÓÐ,ÎÒµÄEXEÊÇ·ÅÔÚpc»úÉÏÖ´Ðе ......