Question

用vb 如何修改文件中的数据

Answer 1

建立一个text文本和两个command按钮，在属性框把text1.multiline文本的属性改为true
private
sub
command1_click()
'打开文本按钮
dim
a
as
string,
b
as
string
open
"c:\documents
and
settings\user\桌面\新建
文本文档
(3).txt"
for
input
as
#1
while
not
eof(1)
input
#1,
a
b
=
b
&
a
&
vbcrlf
wend
close
#1
text1
=
b
end
sub
private
sub
command2_click()
'保存文本按钮
open
"c:\documents
and
settings\user\桌面\新建
文本文档
(3).txt"
for
output
as
#1
print
#1,
text1
close
#1
end
sub