把一个磁盘文件的内容读到内存并在文本框中显示出来,然后把该文本框中的内容存人另一个磁盘文件,请填空完成程序。在窗体上建立一个文本框,在属性窗口中把该文本框的Muhiline属性设置为True,然后编写如下的事件过程: Private Sub Fo

admin2009-02-13  35

问题 把一个磁盘文件的内容读到内存并在文本框中显示出来,然后把该文本框中的内容存人另一个磁盘文件,请填空完成程序。在窗体上建立一个文本框,在属性窗口中把该文本框的Muhiline属性设置为True,然后编写如下的事件过程:
     Private Sub Form_Click(   )
        Open"d:\test\smtext1.txt"For lnput As#1
        Text1.Fontsize=14
        Text1.FontName=“幼圆”
        Do While Not EOF(1)
       【  】
          whole$=whole $ aspect $+Chr$(13)+Chr $(10)
        Loop
        Text1.Text=【  】。
        Close
        Open"d:\test\smtexttxt"For Output As#1
        Print #1【  】
        Close
        End Sub

选项

答案Line lnput #1,Aspect$ , whole$ , Text1.Fext

解析 lnput#与Line lnput#句都可以从顺序文件中读人数据。区别在于Input#仅仅读人数据项,后接变量表,读人几项数据就用几个变量来接收。Line lnput#语句用来从顺序文件中读取一个完整的行,并把它赋给一个字符串变量。对于本题,由于要读人一个完整的文件,并使用Do循环将每次读入的数据通过aspect$接受并最终赋给whole$变量,故[8]处应填:Line lnput #1,aspect$。 EOF(1)函数测试文件是否被读取完,当Do循环语句执行完毕后,磁盘文件被完全赋给变量whole$。此时要在文本框中显示,则[9]处应填:whole$。磁盘文件读入文本框后,便执行写入另一磁盘文件的操作。写入用Print#语句。该语句后接两个常用参数:文件号与表达式。本题中“1”表示文件号,即在上一步中打开读人的文件。[10]处应填表达式,即:Text1.Text。表示把Text1.Text中的内容写入到 smtext2.txt中。
转载请注明原文地址:https://kaotiyun.com/show/B91p777K
0

最新回复(0)