vb stringÀàÐͱäÁ¿ÔÚÄÚ´æµÄ±íʾ£¿
vb stringÀàÐͱäÁ¿ÔÚÄÚ´æµÄ±íʾ£¿
1
Ò»°ãÀ´Ëµ£¬vb×Ö·û´®¶¼Ê¹ÓÃUNICODE±íʾ£¬²»¹Üºº×Ö»¹ÊÇÓ¢ÎÄ×Ö·û¶¼Ó¦¸ÃÊÇÁ½¸ö×Ö½Ú¡£
eg.Ò»¸ö×Ö·û´®ÔÚÄÚ´æÖУ¬Õ¼µÄ×Ö½ÚÊýÓ¦¸ÃÊÇ ×ÜÄÚ´æ=×Ö·û¸öÊý*2×Ö½Ú
2
ÄÚ´æ·Ö²¼Ó¦¸ÃÊǺº×ÖÁ½¸ö×Ö½Ú£¬Ó¢ÎÄÒ»¸ö×Ö½Ú
eg.
dim string*10
¡°ÎÒ123456789¡±
ÄÚ´æ·Ö²¼Ó¦¸ÃÊÇ£º
ÄÚ´æµ¥Ôª 0 1 2 3 4 5 6 7 8 9
-50 -17 0 50 0 51 0 52 0 53
£¿ £¿ 2 3 4 5
ʵ¼ÊÉÏÄÚ´æ·Ö²¼ÊÇÒÔÏÂÑùʽ£º
-50 -17 50 51 52 53 54 55 56 57
ÒÔ×Ö·ûÏÔʾ£º£¿ £¿ 2 3 4 5 6 7 8 9
Ϊʲô»áÕâÑùÄØ£¿
VBÖеÄ×Ö·û´®ÊÇÒ»ÖÖ½ÐBSTRµÄ½á¹¹¡£ÔÚÄÚ´æÖеķֲ¼Îª ³¤¶È+ʵ¼Ê×Ö·û+Áã×Ö·û.
×Ö·û²ÉÓÃUnicodeÖеÄucs-16±àÂ룬ÎÞÂÛʲô×Ö·û¶¼ÓÃÁ½¸ö×Ö½Ú±íʾ£¨ÊÂʵÉÏÓÐЩÓÃËĸö×Ö·û±íʾ£©¡£
ÆäÖеij¤¶ÈÊÇ×Ö·ûÊý¶ø²»ÊÇ×Ö½ÚÊý£¬²¢ÇÒ²»°üÀ¨Ä©Î²µÄÁã×Ö·û¡£
VBÖеĿɱ
Ïà¹ØÎÊ´ð£º
ÎÒÏë°Ñ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
......
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......
dim a as string,b as string£¬c as string
a="¹¤³Ì±àºÅ,µ¥Î»¹¤³ÌÃû³Æ,·Ö²¿¹¤³Ì±àºÅ"
b="µ¥Î»¹¤³ÌÃû³Æ"
c="µ¥Î»"
Ôõô²ÅÄÜÅжϳöa×Ö·û´®ÖдæÔÚb×Ö·û´®£¬¶ø²»´æÔÚc×Ö·û´®
¿´¿´i ......
ÈçÌ⣬VBÖÐÈçºÎʵÏÖÒ»PC¿ØÖÆN̨PC»úµÄ¿ª¹Ø»ú»òÕ߯äËûÃüÁîÄØ£¿
Õâ¸öÎÊÌâÓеã´óŶ.Èç²»ÄÜÔÚÆäËü»úÆ÷ÉÏÒ²×°³ÌÐòµÄ»°,ÄÇÖ»Òª¿´ËûÃÇÓÐûÅäÖÃÓÐÔ¶³Ì¿ØÖÆ¿ª¹Ø»úÁË
Èç¹ûÊÇÄÇÖÖ¿Í»§/·þÎñ¶ËµÄ·½Ê½ £¬¾ÍÊDZ»¿ØÖÆPCÒ²ÐèÒª°²× ......