Question

vb如何修改TXT文件？

我要用VB在一个已有的TXT文件内添加两行内容。窗口内有一个按钮，两个文本框，第一个文本框定义文件位置，第二个文本框定义添加的内容。
我要填完空格后一按按钮自动完成

Answer 1

dim a,b,sl,sr
open "******文件名********" for input as #1
29 line input #1,a
b=b & a
if eof(1)=false then goto 29
close #1
sl=mid(d,1,val(text1.text))
sr=mid(d,val(text1.text))
open "******文件名********" for output as #1
print #1,sl & text2.text & sr
close #1

Answer 2

on error goto Err
open text1.text for append as #1 'append 打开方式 是在文件末尾追加数据
print #1,text2.text
close #1
Err:
MsgBox "file not found!" & vbCrLf & "or error found!", vbExclamation + vbSystemModal, "Error"