七年级语文上期期末复习--文言文阅读+默写苏教版.docVIP

vb读取txt的方法-写入txt的方法 Private Sub Command1_Click 写文件示例 Dim strFileName As String 文件名 Dim lngHandle As Long 句柄 Dim strWrite As String 要写入的文本内容 strFileName App.Path /a.txt App.Path /a.txt相对路径 c:/w.txt绝对路径 lngHandle FreeFile 取得句柄 准备要写入的内容 strWrite Text1.Text 或者 strWrite 这些文字将被写入文件。 For后面的参数表示以何种方式打开文件，Input是读取，Output是覆盖写入，Append是追加写入 append是每次在文件末尾写入,不删除其它已经存在的文件.如果换成output则删除其它文件后再写入 print#1,text1.text 如果print换成write则写进txt中后自动加双引号 Open strFileName For Output As lngHandle 打开文件 Print #lngHandle, strWrite 写入文本 Close lngHandle 关闭文件 End Sub Private Sub Command2_Click 读文件示例 Dim strFileName As String 文件名 Dim lngHandle As Long 文件句柄 Dim strAll As String 所读取的文本文件的所有内容 Dim strLine As String 在循环中存放每行的内容 strFileName App.Path /a.txt 获得文件的句柄 lngHandle FreeFile For后面的参数表示以何种方式打开文件，Input是读取，Output是覆盖写入，Append是追加写入 Open strFileName For Input As lngHandle 循环直到文件尾 Do While Not EOF lngHandle 每次读取一行存放在strLine变量中 Line Input #lngHandle, strLine 每次读取都把所读到的内容连接到strAll变量，由于Line Input去掉了换行符，所以这里补上 strAllstrAll strAll strLine vbCrLf Loop 显示得到的全部分内容 MsgBox strAll End Sub Private Sub Command1_Click Open App.Path /a.txt For Output As #1 Print #1, Text1.Text 这里可以是数据本身也可以是目标控件的属性 Close #1 关闭打开的文件 End Sub For后面的参数表示以何种方式打开文件，Input是读取，Output是覆盖写入，Append是追加写入