VB×Ö·û´®×ªXMLÎļþ
¿ª·¢¹¤¾ß£ºVB6.0
ÏÖÓÐÈçÏ´úÂ룬Çë¸÷·¸ßÊִͽ̣¡Ð¡µÜ²»Ê¤¸Ð¼¤~~ÈçÓÐÔ´Âë¸üºÃ£¡
Private Sub Command1_Click()
Dim xmlStr As String
xmlStr = getXML
'ÇëÎÊÈçºÎ°ÑxmlStrת³ÉÒ»¸öxmlÎĵµ?
End Sub
Public Function getXML() As String
Dim xml As String
xml = xml + " <?xml version='1.0' encoding='UTF-8'?>"
xml = xml + " <FREIGHTCPIC>"
xml = xml + " <HEADER>"
xml = xml + " <TYPE>IN </TYPE>"
xml = xml + " <WORKTYPE>0 </WORKTYPE>"
xml = xml + " <CLASSESTYPE>1 </CLASSESTYPE>"
xml = xml + " <LOGINUSERNAME>ayyt </LOGINUSERNAME>"
xml = xml + " <LOGINPASSWORD>ayyt </LOGINPASSWORD>"
xml = xml + " </HEADER>"
xml = xml + " </FREIGHTCPIC>"
getXML = xml
End Function
´ú¿ª¸÷ÐÐÒµ¡¾増Ö±/鐠ͨ¡¿
Ïà¹ØÎÊ´ð£º
ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îÇ°£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......
txt ºÍXML ¸ñʽÏàÓ¦
²»½èÖúDataSet
µ¼Èë¶ÁÈ¡TXTÎļþ
È»ºóÖ±½ÓдÈëXML(ͬһÎļþ,²»Í¬Êý¾Ý,µÝÔöÔÊý¾ÝûÓб»¸²¸ÇÇé¿öÏÂÔö¼ÓÊý¾Ý.)
½Ì¸öÒªµã»ò×îºÃÊÇÓиö´úÂëÌáʾµÄ
¹ý·ºÃºº °ï¸öæÈö^^
²»»á£¬°ïÂ¥Ö÷ ......
°ïÎÒ¸Ä¸Ä ÎÒ×ܾõµÃÓÐÎÊÌâ
Type ID
number As Single
score As Integer
name As String * 6
End Type
Dim personl As ID, i%
Private Sub Command1_Click()
i = 0
&nbs ......
ÓÃvc±àдµÄdllÔÚdebugģʽºÍreleaseģʽÏÂÆô¶¯vbµÄexe³ÌÐòµ÷ÓÃvcµÄdll¿ÉÒԵõ½ÕýÈ·½á¹û£¬µ«ÊÇÈç¹ûÖ±½ÓË«»÷vbµÄexe³ÌÐòµ÷ÓÃdll±¨´í£¬ÔÚdllÄÚ²¿Ìí¼Ómessageboxºó·¢ÏÖÖ»ÒªÔÚº¯ÊýÄÚ²¿ÉùÃ÷std::stringÀàÐ͵ıäÁ¿¾Í»á³öÏÖÄ ......
ÎÒÔÚ±àдһ¸öwince5.0µÄ³ÌÐò£¬ÏëʵÏÖ°ÑPDAÉϵÄÒ»¸öLIST <STRING>ÀàÐ͵ÄÊý¾ÝÐòÁл¯ÎªXML£¬È»ºóÔÚPCÉϵÄÒ»¸öwebserviceÄõ½Õâ¸öXML£¬×ª»¯ÎªDataset£¬¸üÐÂPCÉϵÄÊý¾Ý¿â£¬ÎÒÏëÎÊÔõô°ÑXML´«¸øwebserviceµÄÄØ£¿
......