如何把Unicode码转换为GB码?

mikejakeson 2003-10-09 12:16:10

如何把Unicode码转换为GB码?

...全文

92 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

catyou 2004-02-05

打赏
举报

是纯C的吗还是用VC的，我都做过。如果只有VC的，那我在天堂鸟论坛发过一个贴子，你去看看就清楚了。

GBlueMan 2004-02-03

打赏
举报

'//将UNICODE转换中文 --VB代码
Public Function Unicode2AscII(ByVal s As String)
On Error Resume Next
Dim i As Integer
Dim r As String
For i = 1 To Len(s) Step 4
r = r + ChrB("&H" & Mid(s, i + 2, 2)) & ChrB("&H" & Mid(s, i, 2))
Next
Unicode2AscII = r
End Function

mikejakeson 2003-10-10

打赏
举报

用C语言如何实现呀？

mikejakeson 2003-10-10

打赏
举报

WideString 是什么东东

mikejakeson 2003-10-09

打赏
举报

能COPY点代码来瞧瞧吗？

tiexinliu 2003-10-09

打赏
举报

手机短信息SMS的程序开发
详见:
http://www.8860.net/delphicode/dispdoc.asp?id=49

tiexinliu 2003-10-09

打赏
举报

中文编码的实现过程通过Delphi的WideString类型转换，可以巧妙地实现GB2312到Unicode的编码转换（注意代码页和操作系统相关联）。下面是实现中文编码的部分Delphi 5代码：
// 中文格式编码，s为Unicode String
function Encode2(var s:WideString):String;
var
i,len:Integer;
cur:Integer;
t:String;
begin
Result:='';
len:=Length(s);
i:=1;
while i<=len do
begin
cur:=ord(s[i]); //BCD转换
FmtStr(t,'4.4X',[cur]);
Result:=Result+t;
inc(i);
end;
end;