pb字符串转换为16进制串

[csharp] view plaincopy

1. //函数功能：取字符串 ls_s 对应的十六进制串  
2. string ls_s = "你好"  
3. char src[]  
4. Integer ln   
5. Integer i  
6. string st  
7. Integer temp  
8. //ln = 100 //这个不要，for循环中用upperbound来取上限  
9. //加一句，对src进行赋值  
10. src = ls_s  
11. For i = 1 To upperbound(src)  
12.   temp = asc(src[i]) / 16  
13.   If temp > 9 Then  
14.         temp = temp + 55  
15.   Else  
16.         temp = temp + 48  
17.   End If  
18.   st = st + char(temp)  
19.       
20.   temp = Mod(asc(src[i]), 16)  
21.   If temp > 9 Then  
22.         temp = temp + 55  
23.   Else  
24.         temp = temp + 48  
25.   End If  
26.   st = st + Char(temp)  
27. Next  
28. messagebox('',st) //“你好”对应的十六进制为“C4E3BAC3”