实验十二 文件

实验十二 文件实验目得:1、 掌握顺序文件、随机文件与二进制文件得特点与使用。2、 掌握文件得打开、关闭与读写操作。3、 学会文件在应用程序得使用。实验内容:1、 初始窗体上有四个命令按钮两个文本框(如下图)。 要求:1)建立文件名为“t1、txt”得顺序文件,内容来自文本框 Text1。要求:每按一次回车键则将文本框 Text1 得内容写入文件,并清除文本框 Text1得内容,直到文本框 Text1 内输入“END”字符串(不区分大小写),关闭文件。2)单击“复制文件”按钮,则把“t1、txt”得顺序文件得内容全部复制到新文件“t2、txt”中,并给出相应提示。(只能使用一个变量,不能使用控件。)(如下图)3)单击“合并文件”按钮,则将“t2、txt”内容合并“t1、txt”末尾,给出相应提示。4)单击“显示”按钮,则把“t1、txt”得内容读出来显示在 Text2 中。注意:程序运行过程中,临时不用得控件要隐藏或不可用(如下图)。 Private Sub Form_Loadmand1、Enabled = Falsemand2、Enabled = Falsemand3、Enabled = FalseText1、Text = ""Text2、Text = ""Text2、Visible = FalseEnd SubPrivate Sub text1_keypress(keyascii As Integer)If (keyascii = 13) ThenIf UCase(Text1、Text) = "END" Thenmand1、Enabled = TrueText1、Visible = False ElseOpen "h:/t1、txt" For Append As #1 Print #1, Text1、Text Text1、Text = "" Close #1End IfEnd IfEnd SubPrivate Sub mand1_ClickDim ch Open "h:/t1、txt" For Input As #1 Open "h:/t2、txt" For Output As #2 Do While Not EOF(2) Line Input #1, ch Print #2, ch LoopMsgBox "已复制文件" Closemand2、Enabled = TrueEnd SubPrivate Sub mand2_ClickDim s$Open "h:/t1、txt" For Append As #1Open "h:/t2、txt" For Input As #2Do While Not EOF(2) Input #2, ch Print #1, ch Loop Close MsgBox "已完成合并" mand3、Enabled = True End SubPrivate Sub mand3_ClickText2、Visible = TrueOpen "h:\t1、txt" For Input As #1 Do While Not EOF(1) Line Input #1, ch Text2、Text = Text2、Text + ch + vbCrLf Loop Close #1End SubPrivate Sub mand4_ClickEndEnd Sub2、 窗体上有五个命令按钮标题分别为“建立文件”、“读取文件”、“计算”、“添加到文...