ASP 16进制转换文本字符串

\u5982\u4f55\u628a16\u8fdb\u5236\u5b57\u7b26\u4e32\u8f6c\u6362\u6210\u76f8\u5e94\u768416\u8fdb\u5236\u6570

\u3000\u3000\u4e3b\u8981\u6709\u4e24\u4e2a\u65b9\u6cd5\uff0c\u5176\u5b9e\u90fd\u662f\u5bf9\u73b0\u6709\u51fd\u6570\u7684\u4f7f\u7528\uff1a
\u3000\u3000
\u3000\u3000\u65b9\u6cd51: sscanf()
\u3000\u3000
\u3000\u3000\u51fd\u6570\u540d: sscanf
\u3000\u3000\u529f \u80fd: \u4ece\u5b57\u7b26\u4e32\u683c\u5f0f\u5316\u8f93\u5165
\u3000\u3000\u7528 \u6cd5: int sscanf(char *string, char *format[,argument,...]);
\u3000\u3000
\u3000\u3000\u4ee5\u4e0a\u7684 format \u4e3a %x \u5c31\u662f\u5c06\u5b57\u7b26\u4e32\u683c\u5f0f\u5316\u4e3a 16 \u8fdb\u5236\u6570
\u3000\u3000
\u3000\u3000\u4f8b\u5b50\uff1a
\u3000\u3000
\u3000\u3000#include
\u3000\u3000void main()
\u3000\u3000{
\u3000\u3000char* p = "0x1a";
\u3000\u3000int nValude = 0;
\u3000\u3000sscanf(p, "%x", &nValude);
\u3000\u3000printf("%d\r\n", nValude);
\u3000\u3000}

\u3000\u3000\u8f93\u51fa\uff1a
\u3000\u300026

\u3000\u3000
\u3000\u3000\u65b9\u6cd52: strtol()
\u3000\u3000
\u3000\u3000\u51fd\u6570\u540d: strtol
\u3000\u3000\u529f \u80fd: \u5c06\u5b57\u7b26\u4e32\u8f6c\u6362\u4e3a\u957f\u6574\u6570
\u3000\u3000\u7528 \u6cd5: long strtol(char *str, char **endptr, int base);
\u3000\u3000
\u3000\u3000\u4e0a\u9762\u7684base\u5c31\u662f\u6211\u4eec\u8981\u8f6c\u6362\u4e3a\u51e0\u8fdb\u5236\u6570
\u3000\u3000\u4f8b\u5b50\uff1a
\u3000\u3000
\u3000\u3000#include
\u3000\u3000#include
\u3000\u3000void main()
\u3000\u3000{
\u3000\u3000char* p = "0x1b";
\u3000\u3000char* str;
\u3000\u3000long i = strtol(p, &str, 16);
\u3000\u3000printf("%d\r\n", i);
\u3000\u3000}
\u3000\u3000
\u3000\u3000\u8f93\u51fa\uff1a
\u3000\u300027
\u3000\u3000
\u3000\u3000\u5176\u5b9e\u8fd8\u6709\u4e00\u79cd\u65b9\u6cd5\uff0c\u5c31\u662f\u7528\u4e00\u4e2a\u521d\u59cb\u5316\u4e3a0~9~a~f\u7684\u5b57\u7b26\u4e32\u6570\u7ec4\uff0c\u4e5f\u5c31\u662f\u4e00\u4e2a\u5341\u516d\u8fdb\u5236\u5bf9\u5e94\u8868\uff0c\u7528\u8fd9\u4e2a\u5bf9\u5e94\u8868\u5373\u53ef\u7b97\u51fa\u4e00\u4e2a\u5341\u516d\u8fdb\u5236\u5b57\u7b26\u4e32\u7684\u6570\u503c\uff0c\u4f46\u8fd9\u79cd\u53d1\u53d1\u592a\u9ebb\u70e6\u4e86\uff0c\u4e0d\u63a8\u8350\u4f7f\u7528\u3002

asp\u4e2d\u53ef\u4ee5\u7528\u4ee5\u4e0b\u51fd\u6570\u8fdb\u884c\u5b57\u7b26\u4e32\u548c16\u8fdb\u5236\u7684\u8f6c\u6362\u3002
1\u3001\u4f20\u5982\u5b57\u7b26\u4e32\uff0c\u8c03\u7528StrToHex\u53ef\u4ee5\u8f6c\u6362\u6210\u5341\u516d\u8fdb\u5236\u6570\u3002
<%
'\u5b57\u7b26\u4e32\u8f6c\u5341\u516d\u8fdb\u5236
Function StrToHex(ByRef Str)
Dim Length
Dim Max
Dim strHex
Max = Len(Str)
For Length = 1 To Max
strHex = strHex & Right("0" & Hex(Asc(Mid(Str, Length, 1))), 2)
Next
StrToHex = strHex
End function
2\u3001\u4f20\u5165\u5341\u516d\u8fdb\u5236\u53ef\u4ee5\u8f6c\u6362\u6210\u5b57\u7b26\u4e32\uff1a
'\u5341\u516d\u8fdb\u5236\u8f6c\u5b57\u7b26\u4e32
Function HexToStr(ByRef strHex)
Dim Length
Dim Max
Dim Str
Max = Len(strHex)
For Length = 1 To Max Step 2
Str = Str & Chr("&h" & Mid(strHex, Length, 2))
Next
HexToStr = Str
End function
%>
3\u3001\u6d4b\u8bd5\u4f8b\u5b50\uff1a
<%
Dim y,h,s
y = "5F24E863C33D8237C9DEC4AAD17CFCE10832C2255B2301AFC168B9781E273823ADB8E2D4B2A867BE1891CC95A8998C42"
h = StrToHex(y)
s = HexToStr(h)
Response.Write(y &"")
Response.Write(h &"")
Response.Write(s &"")
%>

最佳答案

String newStr = new String(oldStr.getBytes("utf8"), "gb2312");
不过,你是不是要自己写一个方法实现编码转换啊?

还果真是被我猜中了?你是要自己实现吗?要是真这样的话我就去帮你看看,要是不是呢,你就以后自己琢磨琢磨,:-D

你要想实现并不难,其实就是参考Java的源码,哎,这就是开源的好处啊~~
其实我想说的是,设计Java的人固然是牛,但他又不是个神人,他能实现的我们肯定也能,只是也许我们设计出来的没有他那么全面,没他考虑的那么透彻。
也许我们现在要参考源码之类的,但是等咱们吧底层的都给抓牢了,以后什么问题解决不了!
就像以前老师让咱做文件上传下载,老师说这简单,我们全笑了,因为俺们觉得难~~你猜我们那老师怎么说,笑什么呢,是很简单啊,不就一读写文件操作嘛,你们都学到这份上了,看到问题还觉得会有很大问题吗?
唉,俺们老师不知道啊,俺们看到什么都是觉得难啊,主要是俺们没底啊~~
呵呵,远了远了,见笑啦~~

ss="E4 B8 AD E5 9B BD"
Function HexToStrs(x) '十六进制转换字符串
str=split(x," ")
For i=0 to ubound(str)
v=eval("&h" & str(i))
HexToStrs = HexToStrs & Chr(v)
Next
End Function
Response.Write HexToStrs(ss)

扩展阅读:16进制转文本 在线 ... 字符转16进制 c语言 ... asp文本编辑器 ... 16进制计算器 ... 2 8 10 16进制之间的转换 ... 16进制转文本转换器 ... 16进制在线转换器 ... 中文转换16进制字符 ... ascii码转16进制 ...

本站交流只代表网友个人观点,与本站立场无关
欢迎反馈与建议,请联系电邮
2024© 车视网