Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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ÖеĿɱ


Ïà¹ØÎÊ´ð£º

vb - 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
......

vb¶ÁÈ¡ÓÃwordת»»³ÉµÄxmlÀïµÄÊý¾Ý - VB / »ù´¡Àà

Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£
ReDim MyString(LOF(1) - 1)
  Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......

vb ÖÐ - VB / »ù´¡Àà

dim a as string,b as string£¬c as string
a="¹¤³Ì±àºÅ,µ¥Î»¹¤³ÌÃû³Æ,·Ö²¿¹¤³Ì±àºÅ"
b="µ¥Î»¹¤³ÌÃû³Æ"
c="µ¥Î»"
Ôõô²ÅÄÜÅжϳöa×Ö·û´®ÖдæÔÚb×Ö·û´®£¬¶ø²»´æÔÚc×Ö·û´®

¿´¿´i ......

VBÖÐÈçºÎʵÏÖÒ»PC¿ØÖÆN̨PC»úÄØ£¿ - VB / ¶àýÌå

ÈçÌ⣬VBÖÐÈçºÎʵÏÖÒ»PC¿ØÖÆN̨PC»úµÄ¿ª¹Ø»ú»òÕ߯äËûÃüÁîÄØ£¿
Õâ¸öÎÊÌâÓеã´óŶ.Èç²»ÄÜÔÚÆäËü»úÆ÷ÉÏÒ²×°³ÌÐòµÄ»°,ÄÇÖ»Òª¿´ËûÃÇÓÐûÅäÖÃÓÐÔ¶³Ì¿ØÖÆ¿ª¹Ø»úÁË

Èç¹ûÊÇÄÇÖÖ¿Í»§/·þÎñ¶ËµÄ·½Ê½ £¬¾ÍÊDZ»¿ØÖÆPCÒ²ÐèÒª°²× ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ