请教：写入文件后，文件内容怎么会不一样？

[guww]

请教：写入文件后，文件内容怎么会不一样？

Private Sub outputfile()
Dim i As Integer
Dim TempVal As Double
Dim OutText() As Byte
ReDim OutText(400)
If bSend Then
OutText(0) = &H9
OutText(1) = &H10
OutText(2) = &H19
OutText(3) = &H20
OutText(4) = &H0
OutText(5) = &H0
OutText(6) = &H0
OutText(7) = &H0
OutText(8) = &H0

For i = 0 To 40
DDATA(i).Text = Rnd * 100
Next i

For i = 0 To DataNum - 1
TempVal = Val(DDATA(i).Text)
CopyMemory ByVal VarPtr(OutText(OffsetVal + 8 * i)), ByVal VarPtr(TempVal), 8
' CopyMemory ByVal VarPtr(ddd ), ByVal VarPtr(Db(0)) , 8

Next i
Open "c:\a.bin" For Output As #1
Print #1, OutText
Close #1
End If
End Sub

调试时发现检测到的OutText里的内容正常，但写到a.bin里的内容却不一样，为什么？

[ftz820127]

你的数据里包函了CHR（0），不要以文本方式写文件，应该以二进制写文件就不会有问题了

[砸死牛顿的苹果]

寫文件:
Open "c:\a.bin" For Binary As #1
put #1, OutText
Close #1

讀文件:
Open "c:\a.bin" For Binary As #1
redim outtext(lof(1)-1)
get #1, OutText
Close #1

[嗷嗷叫的老马]

路过,顶小刀~~~

[goosen]

路过,顶老马^^^^

[砸死牛顿的苹果]

老馬 在北京闖得怎么樣了 吊到幾個馬子了?

我上面代碼少2個逗號呢~

put #1, ,OutText

get #1, ,OutText

[嗷嗷叫的老马]

这种语法问题他直接一调试就可以出来

只需要明白你的思路就行

现在工作还没稳定呢,哎~~