Powerbuilder-PB用于全角,半角互相转换的函数

ehxz

免费乐捐，感谢支持

PB2021全角转半角测试通过。

1. /*
   
2. *    Script Name:    Script - Full2Half(string in_str,integer iflag)
   
3. *    Description:    用于全角,半角互相转换的函数
   
4. *    Arguments:        string   strInfo //需要转换的字符串   
   
5.                         int       iFlag //     1-全角-》半角 2-半角》全角   
   
6. 
   
7. *    Returns:         string
   
8. *    Author:            Date:    2009-02-26 09:08:58
   
9. */
   
10. String ls_rtn
    
11. Char c[]
    
12. long ll_length,ll_i
    
13. If IsNull(in_str) Or in_str = "" Then Return ""
    
14. 
    
15. 
    
16. ll_length = len(in_str)
    
17. 
    
18. if iflag=1 then //1-全角-》半角
    
19. 
    
20.     For ll_i = 1 To ll_length
    
21.    
    
22.     c[ll_i] = char(mid(in_str, ll_i, 1))
    
23.       
    
24.         If (Asc(c[ll_i]) = 12288)  Then
    
25.       
    
26.         c[ll_i] = Char(32)
    
27.       
    
28.         Continue
    
29.       
    
30.         End If
    
31.       
    
32.         If (Asc(c[ll_i]) > 65280  and Asc(c[ll_i]) < 65375) Then
    
33.       
    
34.         c[ll_i] = Char(Asc(c[ll_i]) - 65248)
    
35.       
    
36.         End If
    
37.    
    
38.     Next
    
39. elseif iflag=2 then//2-半角》全角   
    
40. 
    
41. 
    
42.     For ll_i = 1 To ll_length
    
43.    
    
44.         c[ll_i] = char(mid(in_str, ll_i, 1))
    
45.       
    
46.         If (Asc(c[ll_i]) = 32)  Then
    
47.       
    
48.         c[ll_i] = Char(12288)
    
49.       
    
50.         Continue
    
51.       
    
52.         End If
    
53.       
    
54.         If (Asc (c[ll_i]) < 127) Then
    
55.       
    
56.         c[ll_i] = Char(Asc(c[ll_i]) + 65248)
    
57.       
    
58.         End If
    
59.       
    
60.     Next
    
61. end if
    
62. ls_rtn = c
    
63. 
    
64. Return ls_rtn
    
65. 
    

复制代码