7,789
社区成员
发帖
与我相关
我的任务
分享一个关于代码页的问题，大家帮忙看看
一个写二进制文件的过程：
Private Sub Command1_Click()
Dim str As String
str = Chr(196)
Open "c:\1.pos" For Binary As #1
Put #100, 1, str
Close #1
End Sub
在英文环境下执行后，用ultraedit查看生成的文件，以16进制方式查看效果如下
00000000h: C4
而在中文环境下，却为如下效果
00000000h: 00
我想问的是，如何在中文环境下达到与英文环境下一样的效果。
Private Sub Command1_Click()
Dim str As String
str = Chr(196)
Open "c:\1.pos" For Binary As #1
Put #100, 1, str
Close #1
End Sub
在英文环境下执行后，用ultraedit查看生成的文件，以16进制方式查看效果如下
00000000h: C4
而在中文环境下，却为如下效果
00000000h: 00
我想问的是，如何在中文环境下达到与英文环境下一样的效果。
...全文
请发表友善的回复…
发表回复
Z10N0101 2003-10-23
- 打赏
- 举报
结果不一样 :(
xueyi0008 2003-10-23
- 打赏
- 举报
关注！
Micro_Sheng 2003-10-22
- 打赏
- 举报
ASCII表的值是从0-127（共128个字符），而你现在用的是196
你现在把196换成97试试，看看是不是得到同一个结果！
你现在把196换成97试试，看看是不是得到同一个结果！
