大家好，我个VB新手，请问Binary是怎么用的？

文件能添加成功，但是用string变量类型获取的内容是空的，用int、long只能获得一些数字，请问要怎么才能完成的取得文件的内容？

Private Sub Command1_Click()    '获取文件内容
Dim a As String
Open "e:\e.txt" For Binary As #1
Get #1, 1, a
Label1.Caption = a
Close #1
End Sub

Private Sub Command2_Click()  '添加文件内容
Dim e As String
Open "e:\e.txt" For Binary As #1
e = Text1.Text
Put #1, 1, e
Close #1
End Sub

---

使用 byte() 数组。

---

Open "e:\e.txt" For input As #1
    input #1,a
    Label1.Caption = a
Close #1

---

VB code:
Private Sub Command1_Click() '获取文件内容
Dim a() As Byte, i As Long
i = FileLen("e:\e.txt")
ReDim a(i - 1)
Open "e:\e.txt" For Binary As #1
Get #1, , a
Label1.Caption = StrConv(a, vbUnicode)
Close #1
End Sub

Private Sub Command2_Click() '添加文件内容
Dim e() As Byte
Open "e:\e.txt" For Binary As #1
e = StrConv(Text1.Text, vbfromUnicode)
Put #1, 1, e
Close #1
End Sub

---

Binary 是 VB 中“对文件操作方式的一种描述”，它把整个文件看着一系列的无任何格式定义的字节流。

在 读/写 文件时，也直接按内存数据的形式进行 输入/输出 操作（当然字符串是按 ANSI字节序列 来处理）。