您好朋友，感謝您關注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)  編輯  收藏  所屬分類: 閑言碎語 
          

          







          
	    
    




          








          

				

          







    







          
        
	




主站蜘蛛池模板：
中西区|
呼和浩特市|
海口市|
耒阳市|
将乐县|
禹城市|
大邑县|
大冶市|
慈溪市|
周口市|
溧水县|
马公市|
鹿邑县|
科尔|
扬中市|
津南区|
宣城市|
织金县|
三门县|
美姑县|
河曲县|
南康市|
元氏县|
虹口区|
含山县|
山东省|
宿州市|
溧阳市|
二连浩特市|
沛县|
汤原县|
阜宁县|
满洲里市|
文安县|
瑞丽市|
许昌市|
营口市|
开江县|
新乡县|
武清区|
射洪县|