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 &
Ïà¹ØÎĵµ£º
Ô½½çÊÇ×îÄѲéµÄ£¬×¢Òâmemcpy strcpy,strncpyÕâЩº¯ÊýʹÓÃǰһ¶¨Òª¼ì²é±ß½ç
¡¡ÌرðÊÇÄãÌṩº¯Êý¸ø±ðÈËÓÃʱ£¬ÄãµÄº¯ÊýÖÐÓõ½ÁËÕâЩ¶«Î÷£¬Ò»¶¨Òª¼ì²é±ðÈË´«¸øÄãµÄÖ¸ÕëµÄ
¡¡±ß½ç
2¡¢±äÁ¿³õʼ»¯
¡¡ÕâÖÖÎÊÌâ񻄿³ÉºÃϰ¹ß£¬·ñÔò³öÀ´Å¼È»ÐÔÎÊÌ⣬·Ç³£ÄѲé
3¡¢¶àÏß³ÌÖ¸Õë¹ÜÀí
¡¡ÔÚ¶àÏ̻߳·¾³ÏÂʹÓÃÖ¸Õëʱ£¬×îºÃ²ÉÓÃÒýÓü ......
ÏßÐÍ
-----------------------------------------------------
Ãû ³Æ È¡ Öµ º¬ Òå
-----------------------------------------------------
SOLID_LINE 0 & ......
1¡¢Ñ¡ÔñºÏÊʵÄËã·¨ºÍÊý¾Ý½á¹¹
Ñ¡ÔñÒ»ÖÖºÏÊʵÄÊý¾Ý½á¹¹ºÜÖØÒª£¬Èç¹ûÔÚÒ»¶ÑËæ»ú´æ·ÅµÄÊýÖÐʹÓÃÁË´óÁ¿µÄ²åÈëºÍɾ³ýÖ¸ÁÄÇʹÓÃÁ´±íÒª¿ìµÃ¶à¡£Êý×éÓëÖ¸ÕëÓï¾ä¾ßÓÐÊ®·ÖÃÜÇеĹØÏµ£¬Ò»°ãÀ´Ëµ£¬Ö¸Õë±È½ÏÁé»î¼ò½à£¬¶øÊý×éÔò±È½ÏÖ±¹Û£¬ÈÝÒ×Àí½â¡£¶ÔÓڴ󲿷ֵıàÒëÆ÷£¬Ê¹ÓÃÖ¸Õë±ÈʹÓÃÊý×éÉú³ÉµÄ´úÂë¸ü¶Ì£¬Ö´ÐÐЧÂʸü¸ß¡£
ÔÚÐí¶àÖÖÇ ......
c/sÊǿͻ§¶ËºÍ·þÎñÆ÷£¬b/sÊÇä¯ÀÀÆ÷ºÍ·þÎñÆ÷¡£
c/sÔÚ¿Í»§¶ËÒª°²×°Èí¼þµÄ£¬b/sÖ»ÒªÓÐIE¾Í¿ÉÒÔä¯ÀÀ¡£
c/sµÄÀ©Õ¹Éý¼¶±È½ÏÀ§ÄÑ£¬b/s¾ÍºÜÈÝÒ׵ġ£
c/sµÄ°²È«ÐÔºÃһЩ£¬b/s¾ÍûÓÐc/sµÄ¸ß¡£
c/sÒ»°ãÓÃÔÚ¾ÖÓòÍø£¬b/sÒ»°ãÓÃÔÚ¹ãÓòÍø¡£
------------------------------------------------
C/SÔËÓÃÔÚÓÐרÓÃÐԵij¡ºÏ¡£±ÈÈç ......