VB ʹÓÃCÓïÑÔEscapeµÄ·½·¨
ÔÚCÓïÑÔÖУ¬escapeµÄ·ûºÅºÜºÃÓã¬
±ÈÈç
"ÖйúÒ»¶¨Ç¿"
Õâ¸ö×Ö´®¿ÉÒÔд³É£º
"\x4E2D\x56FD\x4E00\x5B9A\x5F3A"
ÓÃ×ÖÔª±àÂë±àд³ÌÐò£¬ÔÚÆäËû²»Í¬ÓïÑÔµÄwindowsÔË×÷ʱ£¬±È½Ï²»»áÓÐÎÊÌâ¡£
£¨ÎÒ¾¡Á¿²»ÏëÔÚ³ÌÐòÖÐдÈëÖÐÎÄ£©
µ«ÊÇvbÈç¹ûÈ«²¿ÒªÓÃ×ÖÔª±àÂëдµÄ»°£¬¾Í»áºÜÂé·³¶øÇÒÒ»¸öÒ»¸ö¶¼ÒªÊÖд³É£º
ChrW(&H4E2D) & ChrW(&H56FD) & ChrW(&H4E00) & ChrW(&H5B9A) & ChrW(&H5F3A)
ËùÒÔÎÒдÁËÒ»Ìõ¶Ì¶ÌµÄfunction:
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Function EscToStr(ByVal c As String) As String
Dim tmp, str1, str2, str3, str4 As String
Dim i, outend1, outend2 As Integer
i = 1
outend1 = 1
Do While outend1 <> 0
str1 = c
outend1 = InStr(i, str1, "\x")
i = outend1 + 1
outend2 = InStr(i, str1, "\x")
If outend2 = 0 Then
outend2 = Len(str1) + 1
End If
str2 = Mid(str1, outend1 + 2, outend2 - outend1 - 2)
str3 = "&H" & str2
str4 = ChrW(str3)
tmp = tmp &
Ïà¹ØÎĵµ£º
---------------------------------------------------
Ãû µÈ¼ÛÖµ º¬ Òå
BLACK 0 ºÚ
BLUE 1 ......
ÏßÐÍ
-----------------------------------------------------
Ãû ³Æ È¡ Öµ º¬ Òå
-----------------------------------------------------
SOLID_LINE 0 & ......
1.fopen()
¡¡¡¡fopenµÄÔÐÍÊÇ£ºFILE *fopen(const char
*filename,const char
*mode)£¬fopenʵÏÖÈý¸ö¹¦ÄÜ£ºÎªÊ¹Óöø´ò¿ªÒ»¸öÁ÷£¬°ÑÒ»¸öÎļþºÍ´ËÁ÷ÏàÁ¬½Ó£¬¸ø´ËÁ÷·µ»ØÒ»¸öFILRÖ¸Õë¡£
¡¡¡¡²ÎÊýfilenameÖ¸ÏòÒª´ò¿ªµÄÎļþÃû£¬mode±íʾ´ò¿ª×´Ì¬µÄ×Ö·û´®£¬Æä
ȡֵÈçÏ£º
¡¡¡¡×Ö·û´® º¬Òå
¡¡¡¡"r" ÒÔÖ»¶Á·½Ê½´ò¿ª ......
ÔÀ´ÊDZ»µ÷ÓõÄdllÓÖµ÷ÓÃÁËÆäËûµÄdll
µÚ¶þ¸ödllÍü¼ÇÁË¿¼µ½¹¤×÷Ŀ¼ÏÂ
µ¼ÖÂÁËc sharpһֱûÄܼÓÔØdll¡£±¨´í£ºÕÒ²»µ½dll
ÏÖÔÚÏëÆðÀ´£¬ËùνµÄdllÕÒ²»µ½£¬Ó¦¸ÃÊÇÕÒ²»µ½µÚ¶þ¸ödll
ÏûºÄʱ¼ä2¸öСʱ£¬ÐÄÇéÉÔ΢ÓеãÊÜÓ°Ïì ......
VB´´½¨ACCESSÊý¾Ý¿âÈ«½â ¶¯Ì¬´´½¨Êý¾Ý¿â¡¢´´½¨±í£¬´´½¨¼Ç¼ ADO¡¢ADOX2009Äê04ÔÂ20ÈÕ ÐÇÆÚÒ» 10:17ÕªÒª£º ±¾ÎIJûÊöÁËÔÚVB³ÌÐòÖÐÀûÓÃADO¶ÔÏó¶¯Ì¬´´½¨Êý¾Ý¿âºÍÊý¾Ý±íµÄ·½·¨£¬ÕâЩ·½·¨ÔÚ¿ª·¢VBÊý¾Ý¿âÓ¦ÓóÌÐòÖкÜÓÐʵÓüÛÖµ£¬Ëü¿ÉÒÔÌá¸ßÊý¾Ý¿â³ÌÐòÁé»îÐÔ¡£
¡¡¡¡¹Ø¼ü´Ê£ºÊý¾Ý¿â¡¢Êý¾Ý±í¡¢ADO¡¢ADOX
¡¡¡¡1: ÎÊÌâµÄÌá³ö
¡¡¡¡Ô ......