您好朋友，感謝您關注xiaosilent，我在blogjava的博客已經停止更新，請訪問http://kuan.fm了解我的最新情況，謝謝！




          
	
		
		
          

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

          
	

          

          
	
					


          
	
	
		
          ?
          
		
          
				
				Function
				?toUTF8(szInput)?
          ????          
				Dim
				?wch,?uch,?szRet?
          ????          
				Dim
				?x?
          ????          
				Dim
				?nAsc,?nAsc2,?nAsc3?
          ????          
				'
				如果輸入參數為空，則退出函數?
				
						
          
						
				          
				????
				If
				?szInput?
				=
				?
				""
				?
				Then
				?
          ????????toUTF8?          
				=
				?szInput?
          ????????          
				Exit
				?
				Function
				?
          ????          
				End
				?
				If
				?
          ????          
				'
				開始轉換?
				
						
          
						
				          
				?????
				For
				?x?
				=
				?
				1
				?
				To
				?
				Len
				(szInput)?
          ????????          
				'
				利用mid函數分拆GB編碼文字?
				
						
          
						
				          
				????????wch?
				=
				?
				Mid
				(szInput,?x,?
				1
				)?
          ????????          
				'
				利用ascW函數返回每一個GB編碼文字的Unicode字符代碼?
				
						
          
						
				          
				????????
				'
				注：asc函數返回的是ANSI?字符代碼，注意區別?
				
						
          
						
				          
				????????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之間采用三字節模版?
				
						
          
						
				          
				????????????????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 閱讀(864) 評論(0)  編輯  收藏  所屬分類: 閑言碎語 
          

          







          
	    
    




          








          

				

          







    







          
        
	




主站蜘蛛池模板：
松江区|
五台县|
长丰县|
和田县|
阳城县|
盐池县|
尼玛县|
大冶市|
五指山市|
邹平县|
华安县|
应用必备|
湛江市|
泾源县|
永修县|
水城县|
乐都县|
时尚|
通榆县|
无锡市|
宜丰县|
登封市|
荣成市|
新乡县|
东台市|
偏关县|
吉木萨尔县|
淮安市|
前郭尔|
淳化县|
武穴市|
洛宁县|
杭州市|
杂多县|
江阴市|
色达县|
沛县|
松潘县|
饶阳县|
祁阳县|
哈密市|