您好朋友，感謝您關(guān)注xiaosilent，我在blogjava的博客已經(jīng)停止更新，請?jiān)L問http://kuan.fm了解我的最新情況，謝謝！




          
	
		
		
          

隨筆-82 
評論-133 
文章-0 
trackbacks-0

          
	

          

          
	
					


          
	
	
		
          ?
          
		
          
				
				Function
				?toUTF8(szInput)?
          ????          
				Dim
				?wch,?uch,?szRet?
          ????          
				Dim
				?x?
          ????          
				Dim
				?nAsc,?nAsc2,?nAsc3?
          ????          
				'
				如果輸入?yún)?shù)為空，則退出函數(shù)?
				
						
          
						
				          
				????
				If
				?szInput?
				=
				?
				""
				?
				Then
				?
          ????????toUTF8?          
				=
				?szInput?
          ????????          
				Exit
				?
				Function
				?
          ????          
				End
				?
				If
				?
          ????          
				'
				開始轉(zhuǎn)換?
				
						
          
						
				          
				?????
				For
				?x?
				=
				?
				1
				?
				To
				?
				Len
				(szInput)?
          ????????          
				'
				利用mid函數(shù)分拆GB編碼文字?
				
						
          
						
				          
				????????wch?
				=
				?
				Mid
				(szInput,?x,?
				1
				)?
          ????????          
				'
				利用ascW函數(shù)返回每一個(gè)GB編碼文字的Unicode字符代碼?
				
						
          
						
				          
				????????
				'
				注：asc函數(shù)返回的是ANSI?字符代碼，注意區(qū)別?
				
						
          
						
				          
				????????nAsc?
				=
				?AscW(wch)?
          ????????          
				If
				?nAsc?
				<
				?
				0
				?
				Then
				?nAsc?
				=
				?nAsc?
				+
				?
				65536
				?
          ?????
          ????????          
				If
				?(nAsc?
				And
				?
				&
				HFF80)?
				=
				?
				0
				?
				Then
				?
          ????????????szRet?          
				=
				?szRet?
				&
				?wch?
          ????????          
				Else
				?
          ????????????          
				If
				?(nAsc?
				And
				?
				&
				HF000)?
				=
				?
				0
				?
				Then
				?
          ????????????????uch?          
				=
				?
				"
				%
				"
				?
				&
				?
				Hex
				(((nAsc?
				\
				?
				2
				?
				^
				?
				6
				))?
				Or
				?
				&
				HC0)?
				&
				?
				Hex
				(nAsc?
				And
				?
				&
				H3F?
				Or
				?
				&
				H80)?
          ????????????????szRet?          
				=
				?szRet?
				&
				?uch?
          ????????????          
				Else
				?
          ???????????????          
				'
				GB編碼文字的Unicode字符代碼在0800?-?FFFF之間采用三字節(jié)模版?
				
						
          
						
				          
				????????????????uch?
				=
				?
				"
				%
				"
				?
				&
				?
				Hex
				((nAsc?
				\
				?
				2
				?
				^
				?
				12
				)?
				Or
				?
				&
				HE0)?
				&
				?
				"
				%
				"
				?
				&
				?_?
          ????????????????????????????          
				Hex
				((nAsc?
				\
				?
				2
				?
				^
				?
				6
				)?
				And
				?
				&
				H3F?
				Or
				?
				&
				H80)?
				&
				?
				"
				%
				"
				?
				&
				?_?
          ????????????????????????????          
				Hex
				(nAsc?
				And
				?
				&
				H3F?
				Or
				?
				&
				H80)?
          ????????????????szRet?          
				=
				?szRet?
				&
				?uch?
          ????????????          
				End
				?
				If
				?
          ????????          
				End
				?
				If
				?
          ????          
				Next
				?
          ?????????
          ????toUTF8?          
				=
				?szRet?
          
				End?Function
		
          

	
          posted on 2008-08-12 17:55 xiaosilent 閱讀(871) 評論(0)  編輯  收藏  所屬分類: 閑言碎語 
          

          







          
	    
    




          








          

				

          







    







          
        
	




主站蜘蛛池模板：
丘北县|
泽普县|
江西省|
双辽市|
桐城市|
大渡口区|
吴川市|
镇原县|
海宁市|
安西县|
永吉县|
郸城县|
福鼎市|
秦安县|
忻州市|
阿拉善盟|
漳平市|
弋阳县|
扎鲁特旗|
建德市|
巴林左旗|
双辽市|
张家口市|
兖州市|
阳朔县|
肥东县|
连城县|
报价|
项城市|
正镶白旗|
凤山县|
朝阳区|
连城县|
洱源县|
宜兴市|
潍坊市|
平远县|
元江|
外汇|
呼和浩特市|
广西|