转：汉字排序

转自：http://topic.csdn.net/t/20050903/11/4247360.html

Function   HZSort(ByVal   txt_DOC   As   String)   As   String  
   
      Dim   m,   n     As   Integer  
      Dim   l           As   Integer  
      Dim   HanZi()       As   String   *   1  
      Dim   tmp_Han       As   String  
      'Dim   txt_DOC       As   String  
       
      'txt_DOC   =   txtHzList.Text  
      l   =   Len(txt_DOC)  
      ReDim   HanZi(l   -   1)   
        
      '剔除非汉字   
      For   m   =   1   To   l  
          tmp_Han   =   Mid(txt_DOC,   m,   1)  
          If   Asc(tmp_Han)   <   0   Then  
                HanZi(n)   =   tmp_Han  
                n   =   n   +   1  
          End   If  
      Next   m  
      l   =   n   -   1   
        
      '排序汉字   
      ReDim   Preserve   HanZi(l)  
      For   m   =   0   To   (l   -   1)  
          For   n   =   (l   -   1)   To   m   Step   -1  
              If   Asc(HanZi(n))   >   Asc(HanZi(n   +   1))   Then  
                    tmp_Han   =   HanZi(n)  
                    HanZi(n)   =   HanZi(n   +   1)  
                    HanZi(n   +   1)   =   tmp_Han  
              End   If  
          Next   n  
      Next   m   
        
      '剔除重复字   
      n   =   0  
      For   m   =   1   To   l  
              If   Asc(HanZi(m))   >   Asc(HanZi(m   -   1))   Then  
                    n   =   n   +   1  
                    HanZi(n)   =   HanZi(m)  
              End   If  
      Next   m  
       
      HZSort   =   ""  
      For   m   =   0   To   n  
              HZSort   =   HZSort   &   HanZi(m)  
      Next   m  
   
  End   Function