PowerBuilder 風雲再起 - PowerBuilder 使用者家族

全形與半形應該只會發生在數字及大小寫英文字上
依據此理論可使用一個比較簡單的理論來實作,如下
1.問題:
   希望將 １２３大123４５寫６456ＡＢ字Ｃabc
   轉換成 １２３大１２３４５寫６４５６ＡＢ字Ｃａｂｃ
2.程式參考如下
string ls_char
string ls_result
string ls_string = '１２３大123４５寫６456ＡＢ字Ｃabc'
string ls_data1 = '０１２３４５６７８９ＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚ'
string ls_data2 = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz'
integer i , li_pos
for i = 1 to len(ls_string)
   ls_char = mid( ls_string , i , 1 )
   if asc(ls_char) > 127 then
     ls_result += mid( ls_string , i , 2 )
     i ++
   else
     if (asc( ls_char ) >= 48 and asc( ls_char ) <= 57) or (asc( ls_char ) >= 65 and asc( ls_char ) <= 90) or (asc( ls_char ) >= 97 and asc( ls_char ) <= 122) then
     li_pos = pos( ls_data2 , ls_char )
     if li_pos > 0 then
     ls_result += mid( ls_data1 , (li_pos * 2 - 1) , 2 )
     else
     ls_result += mid( ls_string , i , 1 )
     end if
     else
     ls_result += mid( ls_string , i , 1 )
     end if
   end if
next
messagebox( 'Result' , ls_result )