求～～HEX转换 最好是带源码

yuan20147

跟这里有一些类似：http://tool.liehuo.net/hex/
我要的是源码，因为我想写一个打开网站的时候是输入中文，转换后再打开网站，
谢谢能帮下我，谢谢！

冷情

{:3_217:} 楼上的不完美！[attach]1 4581[/attach]

ccini

诺~源码！诺~源码！
1.rar (1.21 KB, 下载次数: 34)

2010-8-23 22:31 上传

点击文件名下载附件

misf

沙发上的给出的源码有一处错误

这是改过来后的代码:

1. .版本 2
   
2. 
   
3. .程序集 窗口程序集1
   
4. 
   
5. .子程序 __启动窗口_创建完毕
   
6. 
   
7. 
   
8. 
   
9. .子程序 _按钮1_被单击
   
10. .局部变量 x, 文本型
    
11. 
    
12. .如果 (寻找文本 (编辑框1.内容, “http://”, , 真) ＝ -1)
    
13. 编辑框2.内容 ＝ HEX转换 (删首尾空 (编辑框1.内容))
    
14. .否则
    
15. x ＝ 子文本替换 (删首尾空 (编辑框1.内容), “http://”, “”, , 1, 假)
    
16. 编辑框2.内容 ＝ “http://” ＋ HEX转换 (x)
    
17. .如果结束
    
18. 
    
19. 
    
20. .子程序 HEX转换, 文本型
    
21. .参数 url_, 文本型
    
22. .局部变量 局部_数据, 字节集
    
23. .局部变量 i, 整数型
    
24. .局部变量 ii, 文本型
    
25. 
    
26. 局部_数据 ＝ 到字节集 (url_)
    
27. .计次循环首 (取字节集长度 (局部_数据), i)
    
28. ii ＝ ii ＋ “%” ＋ 取十六进制文本 (局部_数据 [i])
    
29. .计次循环尾 ()
    
30. 返回 (ii)
    
31. 
    

复制代码

板凳上的修改的源码上也有一个错误

这是改过后的代码:

1. .版本 2
   
2. .支持库 spec
   
3. 
   
4. .程序集 窗口程序集1
   
5. 
   
6. .子程序 __启动窗口_创建完毕
   
7. 
   
8. 
   
9. 
   
10. .子程序 _按钮1_被单击
    
11. .局部变量 x, 文本型
    
12. .局部变量 a, 文本型
    
13. 
    
14. .如果 (寻找文本 (编辑框1.内容, “http://”, , 真) ＝ -1)
    
15. 编辑框2.内容 ＝ HEX转换 (删首尾空 (编辑框1.内容))
    
16. .否则
    
17. x ＝ 子文本替换 (编辑框1.内容, “http://”, “”, , 1, 假)
    
18. 
    
19. a ＝ HEX转换 (删首尾空 (编辑框1.内容))
    
20. 调试输出 (a)
    
21. 调试输出 (取文本长度 (a))
    
22. 编辑框2.内容 ＝ “http://” ＋ 取文本中间 (a, 22, 取文本长度 (a) － 21)
    
23. ' %68%74%74%70%3A%2F%2F 22
    
24. 调试输出 (编辑框2.内容)
    
25. .如果结束
    
26. 
    
27. 
    
28. .子程序 HEX转换, 文本型
    
29. .参数 url_, 文本型
    
30. .局部变量 局部_数据, 字节集
    
31. .局部变量 i, 整数型
    
32. .局部变量 ii, 文本型
    
33. 
    
34. 局部_数据 ＝ 到字节集 (url_)
    
35. .计次循环首 (取字节集长度 (局部_数据), i)
    
36. ii ＝ ii ＋ “%” ＋ 取十六进制文本 (局部_数据 [i])
    
37. .计次循环尾 ()
    
38. 返回 (ii)
    
39. 
    

复制代码