VB 二进制保存问题，求大神

Question

TXTBOX框里面的内容是“大家好”
把这个框里面的内容按二进制保存到文本文件“123.txt”中
代码应该怎么写呢？
我在网上找了两天了，没有发现好的办法啊

Answer 1

f=freefile()
open "123.txt" for output as #f
print #f,TXTBOX.Text
close #f

Answer 2

推荐使用WinHex软件查看硬盘或文件或内存中的原始字节内容。

Answer 3

猜你意思
是不是想把文本转为二进制ASCII代码再明文保存到TXT里？比如输入A
Ascii(A)= Hex(41)=Bin(1000001)
TXT文本里保存的就是1000001

Answer 4

“按二进制保存”是什么意思？所有的数据都是以二进制代码保存和传输的。无非是记事本等软件在打开 .txt 文件时缺省地将数据按 ASCII 编码解释而已，所以我们看到了文字。你用 UltraEdit 等软件打开它，选择二进制编码显示，就看到它的真面目了。

Answer 5

Open "123.txt" For Binary As #1
Put #1, , TXTBOX.Text
Close #1

Answer 6

    Dim fd As Integer, _
        byArray() As Byte
    '// 将字符串转换到字节数组中
    byArray = StrConv(text1.Text, vbFromUnicode)
    '// 取得有效的文件号
    fd = FreeFile()
    '// 以二进制方式打开指定文件，文件不存在则创建文件
    Open "yourfile.txt" For Binary As #fd
    '// 输出字节数组的数据到文件当前读写的位置（默认为文件开始处）
    Put #fd, , byArray
    '// 关闭文件
    Close #fd

Answer 7

下面这个文章中有一个自定义函数名为SaveTextFile，你可以看一下
http://blog.csdn.net/supermanking/article/details/5989227