vb先任意用记事本生成两个文本文件,再编程将这两个文本文件合并成一个文本文
1个回答
展开全部
给你一些操作要点:
'写入一个文本文件
Open 文件标识符 For Output As #1 '以写的方式打开文件
Print #1, TxtStr '将变量TxtStr的内容写入文本文件
Close #1
注意Output方式:当同名文件不存在就创建一个新文件,当同名文件存在就覆盖原文件。
'追加写入一个文本文件
Open 文件标识符 For Append As #1 '以写的方式打开文件
Print #1, TxtStr '将变量TxtStr的内容追加到文本文件的尾部
Close #1
注意Append方式:当同名文件不存在就创建一个新文件,当同名文件存在就把新写入内容追加在原文件的尾部。
'逐行读取文本文件,并显示在文本框里
Open 文件标识符 For Input As #1 '以读的方式打开文件
Do While Not EOF(1) '循环至文件尾
Line Input #1, txtStr '读入一行文本
Text1.Text = Text1.Text & txtStr & vbCrLf
Loop
Close #1 ' 关闭文件。
'写入一个文本文件
Open 文件标识符 For Output As #1 '以写的方式打开文件
Print #1, TxtStr '将变量TxtStr的内容写入文本文件
Close #1
注意Output方式:当同名文件不存在就创建一个新文件,当同名文件存在就覆盖原文件。
'追加写入一个文本文件
Open 文件标识符 For Append As #1 '以写的方式打开文件
Print #1, TxtStr '将变量TxtStr的内容追加到文本文件的尾部
Close #1
注意Append方式:当同名文件不存在就创建一个新文件,当同名文件存在就把新写入内容追加在原文件的尾部。
'逐行读取文本文件,并显示在文本框里
Open 文件标识符 For Input As #1 '以读的方式打开文件
Do While Not EOF(1) '循环至文件尾
Line Input #1, txtStr '读入一行文本
Text1.Text = Text1.Text & txtStr & vbCrLf
Loop
Close #1 ' 关闭文件。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询