<rt id="bn8ez"></rt>
<label id="bn8ez"></label>
  • 

    • <span id="bn8ez"></span>
    

    <label id="bn8ez"><meter id="bn8ez"></meter></label>
    

    
    

    




    







												


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

    







    
	    
    




    








    

				

    







    







    
        
	



主站蜘蛛池模板：
亚洲欧洲日产国码久在线观看
|
激情综合亚洲色婷婷五月APP|
国产黄在线播放免费观看|
国产一卡二卡≡卡四卡免费乱码|
亚洲人成色777777精品|
毛片免费观看网站|
亚洲乱码中文论理电影|
成年在线观看网站免费|
亚洲狠狠婷婷综合久久|
免费国产综合视频在线看|
污视频网站在线观看免费|
亚洲五月午夜免费在线视频|
国产高清视频免费在线观看
|
亚洲成a人片毛片在线|
国产妇乱子伦视频免费|
亚洲综合丁香婷婷六月香|
女人张开腿等男人桶免费视频
|
日本免费一二区在线电影|
在线观看亚洲专区|
avtt亚洲天堂|
国产午夜精品久久久久免费视
|
国产h视频在线观看网站免费|
亚洲精品网站在线观看你懂的|
日韩视频在线精品视频免费观看|
精品国产成人亚洲午夜福利|
国产精品成人免费综合|
曰韩无码AV片免费播放不卡|
久久亚洲综合色一区二区三区|
免费女人高潮流视频在线观看
|
在线免费观看色片|
深夜福利在线视频免费|
亚洲VA中文字幕无码一二三区|
国产免费不卡视频|
特级毛片A级毛片100免费播放|
中文字幕亚洲日本岛国片|
在线看片免费人成视久网|
亚洲1区2区3区精华液|
亚洲国产第一站精品蜜芽|
成年女性特黄午夜视频免费看|
日本一区二区三区免费高清在线|
亚洲国产综合专区电影在线|