《Visual Basic NET程序设计》课件第7章 文件系统.pptx

7.1文件的概念;7.1.2VB.NET文件分类

按内容分：程序文件和数据文件；

按存储信息的形式分：字符编码文件(如ASCII码文件)和二进制文件；

按访问模式分：顺序文件、随机文件和二进制文件。

;;;;;7.2顺序文件;;2.读写文件

(1)写操作

顺序文件的写操作有两种输出数据的格式：标准格式和紧凑格式。标准格式以长度为14个字符大小为单位的输出域对齐输出数据。输出域边界限制了数据项的起始位置(第n*14列，n=0,1,2,…)，从而区分输出数据项。紧凑格式则用分隔符(逗号)来分隔数据项。

例如，输出语句：

Print(1,TAB(10),TAB(9),TAB(-2),ThirdLinen,TAB(),SecondZone)

Write(1,TAB(10),TAB(9),TAB(-2),123,TAB()，NextColurnn,True)

;;;7.2.2顺序文件的使用

例7.1设计一个能将用户输入信息保存到顺序文件的程序。程序运行界面如图7-3所示。

;;程序代码如下:

PublicClassForm1

DimiAsInteger

PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click

IfRadioButton1.Checked=TrueThen

FileOpen(1,d:\test_file.txt,OpenMode.Output)

Else

FileOpen(1,d:\test_file.txt,OpenMode.Append)

EndIf

Button1.Enabled=False

Button2.Enabled=True

ToolStripStatusLabel1.Text=在1#缓存区打开文件d:\test_file.txt

i=0

EndSub

;PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click

i=i+1

IfRadioButton4.Checked=TrueThen

WriteLine(1,i,TextBox1.Text,TextBox2.Text,Val(TextBox3.Text))

Else

PrintLine(1,i,TextBox1.Text,TextBox2.Text,Val(TextBox3.Text))

EndIf

Button3.Enabled=True

ToolStripStatusLabel1.Text=第i条记录写入文件d:\test_file.txt

EndSub

?

PrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.Click

FileClose(1)

Button3.Enabled=False

Button2.Enabled=False

Button1.Enabled=True

i=0

ToolStripStatusLabel1.Text=文件d:\test_file.txt已关闭

EndSub

?

PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load

RadioButton1.Checked=True

RadioButton3.Checked=True

Button2.Enabled=False

Button3.Enabled=False