VBµ÷ÓÃDLLÖеĺ¯Êý - VB / ¿Ø¼þ
ÎÒÏëʵÏÖÕâÑùÒ»¸ö¹¦ÄÜ£¬ÎÒÓÐÒ»¸öXMLÎļþ¸ñʽÈçÏÂ
<Field cnName="ÕʺÅ" fieldType="varchar" fieldLen="40" fieldScale="" ></Field>
<Field cnName="ÕË»§Ãû³Æ" fieldType="varchar" fieldLen="80" fieldScale="" ></Field>
<Field cnName="²¿ÃÅ " fieldType="varchar" fieldLen="4" fieldScale="" ></Field>
<Field cnName="¹ñÔ±×é " fieldType="char" fieldLen="2" fieldScale=""></Field>
cnName= ×Ö¶ÎÃû³Æ fieldType=×Ö¶ÎÀàÐÍ fieldLen=×ֶγ¤¶È fieldScale=СÊýµãµÄλÊý
ÎÒÏë°ÑXMLµÄ¸÷¸ö×Ö¶ÎÊôÐÔ¶ÁÈë±£´æµ½Êý×éÖУ¬È»ºó°ÑÊý×é×÷Ϊ²ÎÊý´«µÝ¸øActivex DLLÖк¯Êý£¬VBͨ¹ýµ÷Óøú¯Êý£¬°Ñ¸÷¸ö×ֶγÉÒ»¸öÄ£°å£¨Ö»Òª°Ñ×Ö¶ÎÒ»´Î´«¸ø¸Ãº¯ÊýµÄ²ÎÊý¼´¿É£©
DLLÃû³ÆÎªmakerdf.dll ÆäÖÐÀàΪ IdeaRDF
º¯ÊýΪAppendField(name As String,desc As String, vartype As Integer, Length As Integer, dec As Integer, impliedDec As Boolean, parameter As String))
name //×Ö¶ÎÃû³Æ>
desc //×Ö¶Î˵Ã÷>
vartype // 1-×Ö·û 2-Êý×Ö 5-ÈÕÆÚ Ê±¼ä 0-ÎÞЧÀàÐÍ>
offset //Æ«ÒÆ ¹Ì¶¨Îª0>
length //³¤¶È>
dec /СÊýλÊý> impliedDec //Èç¹ûÔ´Êý¾Ý°üÀ¨Ð¡Êýλȡfalse ²»°üÀ¨È¡true>
parameter //¸ñʽÑÚÂë ÈçÈÕÆÚÐ͵ĸñʽ¡°ÄêÄêÄêÄêÔÂÔÂÈÕÈÕ¡±
ÎÒдµÄ³ÌÐòÈçÏ£º£¨Ö»Ð´Á˶ÁÈëXML£¬ºÍÒýÓÃDLL²¿·Ö£¬µ÷Óò¿·ÖÂé·
Ïà¹ØÎÊ´ð£º
¿ÉÒÔÂð
ºÃÆæ¹ÖµÄÌâÄ¿¶î£¡£¡
¿ÉÒÔ¸æËßÎÒÃÇÄãµ½µ×ÏëÎÊʲô £¿
2·Ö¸øÎҵϰ¾Í¿ÉÒÔ¡£
........................¿ÉÒÔÂð
¿ÉÒÔ!
¾À½á£¬
29. vb¿ÉÒÔÕâÑù×ö²»£¿ ( H )¡Ì
A. ......
ÎÒÏë°ÑwordÁí´æÎªxmlÖ®ºó£¬ÓÃvb¶ÁÈ¡Õâ¸öxmlµÄÄÚÈÝ£¬ÇëÎÊÈçºÎʵÏÖ£¿
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......
xmlDoc1.loadXML(h)×ÜÊÇ·µ»Øfalse£¬ÎªÊ²Ã´£¿Ð»Ð»°ïæ»Ø´ðÒ»ÏÂ
hÊÇÊ²Ã´ÄØ¡£¡£¡£¡£¡£¡£¡£¡£¡£
hÊÇxml¸ñʽµÄ×Ö·û´®
ÄãÊÇÏë´ò¿ª¡£XML¸ñʽµÄÎļþ°É£¿
ÎÒÊǰÑh·ÅÔÚxmlDoc1ÀÓÃxmlDoc1.loadXML(h)£¬È»ºóÈ¡xmlDo ......
¸Õ½¨ÁËÒ»¸öȺ:ÖÐɽVB±à³Ì(105787219)
ÓÐÔÚÖÐɽ¼°ÖÐɽÖܱߵijÌÐòÔ±Çë¼ÓÈë.´ó¼ÒÒ»Æð̽ÌÖÎÊÌâ.ºÏ×÷ÏîÄ¿.
¾¡¹Ü°³²»ÊÇÖÐɽµÄ£¬Ò²½øÀ´²ä·Ö¡¡
·ðɽµÄÐÐÂð,¹ãÖݵÄÐÐÂð?
ÓÑÇéÖ§³Ö
»Ø¸´ÄÚÈÝÌ«¶ÌÁË£¡
°ï¶¥ ......