VB在文本中添加一行内容

sub

command1_click()

const

目标内容

=

"大小"

const

路径

=

"

"

'这里自己添加内容

const

文件名

=

"

"

'这里自己添加内容

open

路径

&

"\"

&

文件名

&

".txt"

for

append

as

#1

do

while

not

eof(1)

line

input

#1,

一行内容

loop

if

一行内容

=

目标内容

then

msgbox

"原文件最后一行是要检测的目标内容",

vbinformation

else

print

#1,

目标内容

msgbox

"已经在原文件最后添加了目标内容",

vbinformation

end

if

close

#1

鼠标挪到所要添加的位置点击右键选择添加就可以插入新的一行代码。

列表框控件(ListBox)和组合框控件(ComboBox)则有Clear方法，意思是清除项目。这个则是符合现代编程理念的。