易语言实现 字节集数据的到全角与到半角转换 不受空字符(\0)符号的影响 (返回字节集)

CNWTEPRG

1. .版本 2
   
2. 
   
3. .程序集 程序集1, , , 2024-02-27
   
4. 
   
5. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
6. 
   
7. 
   
8. _临时子程序 ()
   
9. 返回 (0)
   
10. 
    
11. .子程序 _临时子程序
    
12. 
    
13. 写到文件 (“b.txt”, 字节集_到全角 (读入文件 (“a.txt”)))
    
14. 写到文件 (“c.txt”, 字节集_到半角 (读入文件 (“b.txt”)))
    
15. 
    
16. .子程序 字节集_到全角, 字节集, 公开, 将字节集中的半角字母、空格或数字变换为全角，返回变换后的结果字节集。
    
17. .参数 欲变换的字节集, 字节集, , 不受空字符(\0)符号的影响
    
18. .局部变量 分割, 字节集, , "0"
    
19. .局部变量 计数, 整数型
    
20. .局部变量 文件号, 整数型
    
21. .局部变量 返回值, 字节集
    
22. 
    
23. 分割 ＝ 分割字节集 (欲变换的字节集, { 0 }, )
    
24. 文件号 ＝ 打开内存文件 ()
    
25. .计次循环首 (取数组成员数 (分割), 计数)
    
26.     写出文本 (文件号, 到全角 (到文本 (分割 [计数])))
    
27.     写出字节集 (文件号, { 0 })
    
28. .计次循环尾 ()
    
29. 移动读写位置 (文件号, #文件首, 0)
    
30. 返回值 ＝ 读入字节集 (文件号, 取文件长度 (文件号) － 1)
    
31. 关闭文件 (文件号)
    
32. 返回 (返回值)
    
33. 
    
34. 
    
35. .子程序 字节集_到半角, 字节集, 公开, 将字节集中的半角字母、空格或数字变换为半角，返回变换后的结果字节集。
    
36. .参数 欲变换的字节集, 字节集, , 不受空字符(\0)符号的影响
    
37. .局部变量 分割, 字节集, , "0"
    
38. .局部变量 计数, 整数型
    
39. .局部变量 文件号, 整数型
    
40. .局部变量 返回值, 字节集
    
41. 
    
42. 分割 ＝ 分割字节集 (欲变换的字节集, { 0 }, )
    
43. 文件号 ＝ 打开内存文件 ()
    
44. .计次循环首 (取数组成员数 (分割), 计数)
    
45.     写出文本 (文件号, 到半角 (到文本 (分割 [计数])))
    
46.     写出字节集 (文件号, { 0 })
    
47. .计次循环尾 ()
    
48. 移动读写位置 (文件号, #文件首, 0)
    
49. 返回值 ＝ 读入字节集 (文件号, 取文件长度 (文件号) － 1)
    
50. 关闭文件 (文件号)
    
51. 返回 (返回值)
    
52. 
    

复制代码