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 &
Ïà¹ØÎĵµ£º
ARM CǶÈëʽ±à³ÌÖеö¹Ø¼ü×Ö
1¡¢·ÃÎʾø¶ÔµØÖ·µÄÄÚ´æÎ»Öãº
#define pISR_EINT0 (*(unsigned *) (_ISR_STRATADDRESS+0x74))
ÉÏÊöÓï¾ä°ÑÎÞ·ûºÅÕûÊý_ISR_STRATADDRESS+0x74Ç¿ÖÆ×ª»»ÎªÖ¸Õ룬ָÏòRAM£¬ÓÃÏÂÃæµÄÓï¾ä¿ÉÒÔ·ÃÎÊËü£º
pISR_EINT0 = (int)Eint0_ISR
& ......
ʲôʱºòÐèÒª´´½¨Ï̳߳ØÄØ£¿¼òµ¥µÄ˵£¬Èç¹ûÒ»¸öÓ¦ÓÃÐèҪƵ·±µÄ´´½¨ºÍÏú»ÙỊ̈߳¬¶øÈÎÎñÖ´ÐеÄʱ¼äÓַdz£¶Ì£¬ÕâÑùÏ̴߳´½¨ºÍÏú»ÙµÄ´øÀ´µÄ¿ªÏú¾Í²»ÈݺöÊÓ£¬ÕâʱҲÊÇÏ̳߳ظóö³¡µÄ»ú»áÁË¡£Èç¹ûÏ̴߳´½¨ºÍÏú»Ùʱ¼äÏà±ÈÈÎÎñÖ´ÐÐʱ¼ä¿ÉÒÔºöÂÔ²»¼Æ£¬ÔòûÓбØÒªÊ¹ÓÃÏ̳߳ØÁË¡£ÏÂÃæÊÇLinuxϵͳÏÂÓÃCÓïÑÔ´´½¨µÄÒ»¸öÏ̳߳ء£Ïß³Ì³Ø ......
µÚ1ÕÂ×Ö·û²âÊÔº¯Êýisalnum(²âÊÔ×Ö·ûÊÇ·ñΪӢÎÄ×Öĸ»òÊý×Ö)isalpha(²âÊÔ×Ö·ûÊÇ·ñΪӢÎÄ×Öĸ)isascii(²âÊÔ×Ö·ûÊÇ·ñΪASCIIÂë×Ö·û)isblank(²âÊÔ×Ö·ûÊÇ·ñΪ¿Õ¸ñ×Ö·û)iscntrl(²âÊÔ×Ö·ûÊÇ·ñΪASCIIÂëµÄ¿ØÖÆ×Ö·û)isdigit(²âÊÔ×Ö·ûÊÇ·ñΪ°¢À²®Êý×Ö)isgraph(²âÊÔ×Ö·ûÊÇ·ñΪ¿É´òÓ¡×Ö·û)islower(²âÊÔ×Ö·ûÊÇ·ñΪСдӢÎÄ×Öĸ)isprint(² ......
·½Ê½ ·ûºÅ³£Á¿ ÏÔʾÁÐ×ÐÐÊýºÍÑÕÉ«
0 BW40 40×25 ºÚ°×ÏÔʾ
1 C40 40×25 ²ÊÉ«ÏÔʾ
2 BW80 80×25 ºÚ°×ÏÔʾ
3 C80 80×25 ²ÊÉ«ÏÔʾ
7 MONO 80×25 µ¥É«ÏÔʾ
-1 LASTMODE ÉÏÒ»´ÎµÄÏÔʾ·½Ê½
Turbo C Ò²¿ÉÒÔÈÃÓû§¸ù¾Ý×Ô¼ºµÄÐèÒªÖØÐÂÉ趨ÏÔʾ´°¿Ú£¬Ò²¾ÍÊÇ˵£¬Í¨¹ýʹÓô°¿ÚÉè
Öú¯Êýwi ......