困绕我将近五个月的文件读写问题:

Question

Open FileName for Output as #1
  Print #1,"fddasdafdsa"
  '下面还要输出一个表示为？的符号，在HEX下查询起Unicode码为F8 32，我不知道怎样输出该符号。
Close #1

Answer 1

Dim TempFile As Long
Dim SaveBytes() As Byte
Dim a(1) As Byte
   SaveBytes = "fddasdafdsa"
   a(0) = &HF8
   a(1) = &H32
SaveBytes=StrConv(Text1.Text,vbFromUniCode)TempFile=FreeFile
Open 文件名 For Binary As #TempFile
Put #TempFile,,SaveBytes
Put #TempFile,,a(0)
Put #TempFile,,a(1)Close TempFile

Answer 2

Dim SaveBytes() As Byte
Dim a(1) As Byte
   SaveBytes = "fddasdafdsa"
   a(0) = &HF8
   a(1) = &H32
SaveBytes=StrConv(SaveBytes ,vbFromUniCode)TempFile=FreeFile
Open 文件名 For Binary As #1
Put #1,,SaveBytes
Put #1,,a
Close 1

Answer 3

Open FileName For Output As #1
  Print #1, "fddasdafdsa"
  Print #1, "？"
Close #1直接写就可以啦啊

Answer 4

直接PUT #1,"？"不可以吗？

Answer 5

Open FileName for Output as #1
  Print #1,"fddasdafdsa"
  Print #1,chr(&HF8) & chr(&H32)'下面还要输出一个表示为？的符号，在HEX下查询起Unicode码为F8 32。
Close #1

Answer 6

楼主试试头两位朋友的代码吧，后面的朋友很明显都有些误解。
楼主的这个文件应该是unicode格式的，而楼主说的"?"并不是普通的问号符号，而是ascw码是十六进制值F8 32的特殊字符，因为不可显示，所以显示为"?"。反之如果说这个文件是ansi的，那么ascii值是&H32的字符是"2"而不会无法显示。既然是unicode的，那么当然得用数组写入了。如果问题还没解决，希望楼主再把问题描述的更清楚一些，比如"fddasdafdsa"这些用十六进制打开是什么样的等

Answer 7

hlq2p(学于05年3月14日) 得出的是00 32 明显错误
直接PUT #1,"？"不可以吗？不行,得出的是3F
zq972(热)→(大·汗·天·子)
Dim SaveBytes() As Byte
Dim a(1) As Byte
   SaveBytes = "fddasdafdsa"
   a(0) = &HF8
   a(1) = &H32
SaveBytes=StrConv(SaveBytes ,vbFromUniCode)TempFile=FreeFile
Open 文件名 For Binary As #1
Put #1,,SaveBytes
Put #1,,a
Close 1
得出的是
口口 fddasdafdsa
不好看,所以不行.
happy_sea(开心海) ( ) 
"fddasdafdsa"得出的就是分别对应这些字符的ASCII码.

Answer 8

相信下面的代码就是你要的：Private Sub Command1_Click()
    Dim s As String, i As Integer
    s = "fddasdafdsa"
    Dim b1() As Byte, b2(1) As Byte
    For i = 1 To Len(s)
        ReDim Preserve b1(i - 1)
        b1(i - 1) = Asc(Mid(s, i))
    Next i
    b2(0) = &HF8
    b2(1) = &H32
    Open "d:\test.txt" For Binary As #1
    Put #1, , b1
    Put #1, , vbCrLf '如果不换行就删掉这句
    Put #1, , b2
    Close #1
End Sub

Answer 9

还有问一下,一个byte()数组如何通过函数传值??