VB ²Ù×÷XML ÎÊÌâ - VB / COM/DCOM/COM+
<?xml version="1.0" encoding="UTF-8" ?>
- <task guid="00000123460E9E684DF1EC79F8E7683B" title="»ù´¡Êý¾Ý" description="²É¼¯»ù´¡Êý¾Ý" version="2" instanceGuid="9C7FDC8A500E4C668A4E505285153F69" mode="1" stage="1" status="2" defineOrgCode="103" defineOrgName="ÈËÃñ¼ì²ìÔº" canAllOrgLoad="true" taskType="0" defineOrgGuid="000001261CB23C6276340034E765AB65" taskMakerCode="admin" taskMakerGuid="97979797000000000000000000000000">
<allowLoadOrgs />
- <businessTasks>
- <baseDataTask name="baseDataTask" title="»ù´¡Êý¾ÝÈÎÎñ">
- <tables>
- <table name="JC_AssetPlace" title="´æ·ÅµØµã" tableType="0" tailSql="">
<dataFilePath />
<dataFilePath1 />
+ <columns>
<column name="OverDueTime" title="½ØÖ¹Ê±¼ä" scale="0" size="0" dataType="4" />
<column name="OrgID" title="×éÖ¯ID" scale="0" size="0" dataType="4" />
<column name="RwVrsn" title="Ðа汾" scale="0" size="0" dataType="4" />
Ïà¹ØÎÊ´ð£º
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......
vbÖÐ ÏÖÔÚÎÒÒª°ÑÊý¾Ý¿âÀï´æ´¢µÄÒ»¸ö¸½¼þµÄÄÚÈÝÌæ»»ÁË£¬Ôõô×ö£¬Ö»ÊÇÌæ»»ÎÒÖ¸¶¨µÄλÖ㬲»ÊÇÈ«²¿Ìæ»»
Ç뽫ÎÊÌâ˵Ã÷°×£¬´æ´¢×ֶθñʽ£¬Èç¹ûÊÇBinary¸ñʽµÄ±È½ÏÂé·³£¬Èç¹ûÊÇ×Ö´®£¬Ö±½ÓÌæ»»¡£×îºÃ²»Òª½øÐÐÖ¸¶¨Î»ÖÃÌæ»»¡ ......
dim a as string,b as string£¬c as string
a="¹¤³Ì±àºÅ,µ¥Î»¹¤³ÌÃû³Æ,·Ö²¿¹¤³Ì±àºÅ"
b="µ¥Î»¹¤³ÌÃû³Æ"
c="µ¥Î»"
Ôõô²ÅÄÜÅжϳöa×Ö·û´®ÖдæÔÚb×Ö·û´®£¬¶ø²»´æÔÚc×Ö·û´®
¿´¿´i ......
ËÄܰïÎÒ°ÑÏÂÃæÕâЩ´úÂë¸Ä³ÉVBÐÎʽµÄ£¬¶àлÁË£¬¼±ÓÃ~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[],float g ......
ͦ·±Ëö£¬Ö®Ç°·¢µÄÌû×Ó£¬·Öֵ̫µÍÏÖÔÚÖØ·¢Ò»¸ö¡£»¶Ó¸÷λ´óÏÀ~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[] ......