ÎÒÊÇXML²ËÄñ¡£
ÎÒ´òËãÓÃXMLÎļþÀ´Ìæ»»Êý¾Ý¿â(×âÓÃÊý¾Ý¿â·þÎñÆ÷Ì«¹óÁË£¬ITÿÄêÏòÎÒÃÇÊÕ+200KµÄ¹ÜÀí·Ñ)£¬ÓÃÓÚ´æ´¢Éú²úÊý¾Ý£¬Ê×ÏÈÎÒÏÈÓÃPerlдһ¶Î´úÂëÓÃÓÚ¶¨Ê±´ÓÉú²úÉ豸ÉÏץȡÊý¾Ý²¢´æ·ÅÔÚÒ»¸öÖ¸¶¨XMLÎļþÖУ¬È»ºóͨ¹ýExcel·ÃÎÊÕâ¸öXMLÎļþÀ´²éÕÒ·ÖÎöÕâЩÊý¾Ý£¬²»ÖªµÀ¿É²»¿ÉÒÔ£¿
Èç¹ûÖ»ÊÇ×÷ΪÊý¾Ý´æ´¢Ó㬻¹ÐèÒªÓõ½DT ......
¸ù¾ÝÒÔÏÂͨѶ¼XMLÎļþд³öÒ»¸öDTDÎĵµ»òSchema¼Ü¹¹¡¢Ò»¸öCSSÎļþ»òXSLTÎļþ¡£
<?xml version = "1.0" encoding="GB2312"?>
<ÁªÏµÈËÁÐ±í ¹«Ë¾="´óµØ¹«Ë¾">
<ÁªÏµÈË>
<ÐÕÃû>ÕÅÈý </ÐÕÃû>
<ID>001 </ID>
<¹«Ë¾>A¹«Ë ......
ÄúºÃ,
¼Ù設ÎÒÒª×öÒ»個動態µÄ網頁, ÐèÇóÈçÏÂ,
Ê×ÏÈÄØ, Ïȶ¨義Ò»個¹Ì¶¨範圍µÄ區塊, ½ÓÖøÒª動態µØ將ÔªËØÎï¼þ(ÀýÈç圖Ƭ)·ÅÈë該區塊(¿ÉÄÜÒ»開ʼÔÚXML內±ãÒѶ¨義 ......
procedure TFHelpConfig.FormShow(Sender: TObject);
var Stream:TMemoryStream;
begin
try
try
with ADOQuery2 do
begin
Close;
SQL.Clear;
SQL.Add('select top 1 * from AceHelpIni Order by ModifyTime');
Open;
end;
Stream := TM ......
¿ª·¢¹¤¾ß£ºVB6.0
ÏÖÓÐÈçÏ´úÂ룬Çë¸÷·¸ßÊִͽ̣¡Ð¡µÜ²»Ê¤¸Ð¼¤~~ÈçÓÐÔ´Âë¸üºÃ£¡
Private Sub Command1_Click()
Dim xmlStr As String
xmlStr = getXML
'ÇëÎÊÈçºÎ°ÑxmlStrת³ÉÒ»¸öxmlÎĵµ?
End Sub
Public Function getXML() As String
&nbs ......
XML code:
<?xml version="1.0"?>
<root>
<status>ok</status>
<body><root><prozl>1</prozl><prol><div><a href="/webcn/UploadFiles/Shop/201001201456080338.jpg" target="_blank" class="highslide ......