K
kerwin
Unregistered / Unconfirmed
GUEST, unregistred user!
我现在要做个项目，但是项目中有一些文本是用“文字信息采用GB 13000的UCS-2进行存储”的，我想把这些信息通过delphi程序进行转换，并显示成汉字！！！
哪位大哥能帮帮小弟，小弟先谢了！！！
文本信息如下：體? 1 0 1 1 9 7 8 0 4 2 5 S琋^wm續:S櫃q/?譭Qg4 鱏3 4 |i1 钑1 0 1 鱏 1 1 0 1 0 8 1 9 7 8 0 4 2 5 0 7 1 2 S琋^lQ塠@/wm續R@/ 2 0 0 5 0 9 2 5 2 0 2 5 0 9 2 5
我可以提供VB的解决方案，谁能帮我用Delphi改写一下！！
Dim tmp1 As Byte
Dim tmp2 As Byte
Dim rddata As String
Open "C:/wz.txt" For Binary As #1
Do While Not EOF(1) ' 检查文件尾。
Get #1, , tmp1
Get #1, , tmp2
rddata = rddata + ChrW(tmp2 * CLng(256) + tmp1)
Loop
Close #1
'姓名
nametmp = Mid(rddata, 1, 15)
'性别
sextmp = Mid(rddata, 16, 1)
哪位大哥能帮帮小弟，小弟先谢了！！！
文本信息如下：體? 1 0 1 1 9 7 8 0 4 2 5 S琋^wm續:S櫃q/?譭Qg4 鱏3 4 |i1 钑1 0 1 鱏 1 1 0 1 0 8 1 9 7 8 0 4 2 5 0 7 1 2 S琋^lQ塠@/wm續R@/ 2 0 0 5 0 9 2 5 2 0 2 5 0 9 2 5
我可以提供VB的解决方案，谁能帮我用Delphi改写一下！！
Dim tmp1 As Byte
Dim tmp2 As Byte
Dim rddata As String
Open "C:/wz.txt" For Binary As #1
Do While Not EOF(1) ' 检查文件尾。
Get #1, , tmp1
Get #1, , tmp2
rddata = rddata + ChrW(tmp2 * CLng(256) + tmp1)
Loop
Close #1
'姓名
nametmp = Mid(rddata, 1, 15)
'性别
sextmp = Mid(rddata, 16, 1)