写入操作.frm

Visual Basic 的一些典型例题的VB程序和结果

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "lt9-1"
   ClientHeight    =   2805
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   5160
   LinkTopic       =   "Form1"
   ScaleHeight     =   2805
   ScaleWidth      =   5160
   StartUpPosition =   3  '窗口缺省
   Begin VB.TextBox mytxt 
      Height          =   1935
      Left            =   360
      MultiLine       =   -1  'True
      TabIndex        =   0
      Text            =   "写入操作.frx":0000
      Top             =   240
      Width           =   4215
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Click()
'假定文本框的名称为Mytxt，文件名为Myfile.txt。
'方法1: 把整个文本框的内容一次性地写入文件。
'    Open "c:\Myfile.txt" For Output As #1
'    Print #1, mytxt.Text
'    Close #1

'方法2: 把整个文本框的内容一个字符一个字符地写入文件。
    Open "c:\Myfile.txt" For Output As #1
    For i = 1 To Len(mytxt.Text)
       Print #1, Mid(mytxt.Text, i, 1);
    Next i
    Close #1

End Sub