关于二进制文件的读写方法

Question

简单介绍一下 open close put get 等函数的用法，然后简单的举一个读写二进制文件的例子。

Answer 1

打开和关闭一个二进制文件很简单每次使用都是一样的模式:
if((fp=fopen("student.txt","r"))==NULL)
{
printf("\nCannot open this file.\n");
exit(1);
}/*文件的打开*/
............
fclose(fp);/*文件的关闭*/

其中.....就表示文件的读写:
fgetc()/fput()函数可以读取/写入单个字符
要读取多字符可以使用循环或这使用fgets()/fputs()等字符串读写函数!

这里只能简单的介绍一下
你可以在网上找一些c语言的视频教程看啊 有些老师讲的很好的!

Answer 2

打开：Open “文件名” For Binary As [#] 文件号 [Len=记录长度]

关闭：Close #文件号

读操作：Get [#]文件号，[记录号]，变量名

写操作：Put [#]文件号，[记录号]，变量名

例:
Open "FileName" For Binary As #1
Get #1,a
Put #1,b
Close #1

参考资料：http://219.219.90.5/jcy/%B6%FE%BC%B6%BF%BC%CA%D4%B8%A8%B5%BC%D7%CA%C1%CF/VB/vbweb/study/

本回答被提问者采纳

Answer 3

vb.net
Sub WriteData()
Dim MyRecord As Person
Dim recordNumber As Integer
Dim numFile As Integer
numFile = FreeFile()
FileOpen(numFile, MapPath(\"TESTFILE\"), OpenMode.Random)
For recordNumber = 1 To 2
Seek(1)
MyRecord.ID = recordNumber
MyRecord.Name = \"My Name\" & recordNumber
FilePut(numFile, MyRecord)
Next recordNumber
FileClose(numFile)
End Sub
Sub ReadData()
Dim MyRecord As Person
Dim recordNumber As Integer
Dim numFile As Integer
numFile = FreeFile()
FileOpen(numFile, MapPath(\"TESTFILE\"), OpenMode.Random)
Do While Not EOF(numFile)
Seek(1)
FileGet(numFile, MyRecord)
Response.Write(MyRecord.ID.ToString() +\"<BR>\")
Response.Write(MyRecord.Name +\"<BR>\")
Response.Write(\"==================<BR>\")
Loop
FileClose(numFile)
End Sub