VB.NETæå¼äºè¿å¶æ件ç¨fileopenå®æï¼æå¼äºè¿å¶æ件çå½¢å¼ä¸ºï¼openmode.binary
读åäºè¿å¶æ件ç¨çæ¯filegetæ¹æ³ï¼åå
¥äºè¿å¶æ件ç¨çæ¯fileputæ¹æ³ã
åºç¨ç¤ºä¾ï¼å°ä¸æ¹
éæºæ°ä¿åå¨ä¸ä¸ªdatæ件ä¸ï¼ç¶ååå°å
¶æåå°ææ¬æ¡ä¸ã
äºè¿å¶æ件ç读åä¸æ¹éæºæ°çååï¼ç¨åºä¸ºï¼
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim x, i, fn As Integer
Dim s As String = ""
fn = FreeFile()
FileOpen(fn, "d:\data.dat", OpenMode.Binary)
For i = 1 To 8
x = Int(Rnd() * 100)
s = s + Str(x)
FilePut(fn, x)
Next
FileClose(fn)
TextBox1.Text = s
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim x, fn As Integer
Dim s As String = ""
fn = FreeFile()
FileOpen(fn, "d:\data.dat", OpenMode.Binary)
Do While Not EOF(fn)
FileGet(fn, x)
s = s + Str(x) + " "
Loop
FileClose(fn)
TextBox1.Text = s
End Sub