怎么用VB写一个可以改变一个文本的内容的程序

Question

比如我打开桌面的“1.txt”文本，里面第一行是“111”，用VB怎么写个程序，可以定时改变“111”为“222”，再隔段时间变成“333”，怎么写 .....
对正在运行的文本有效吗，对正在运行的文本能不能马上看到变化（看到111变成222）   能说得具体点吗，本人不太会VB

Answer 1

dim ts as string 
dim allts as string 
open youtextfilename for input as #1
do until eof(1)
line input #1,ts
if ts=111 and time=xx:xx:xx then ts=222
if allts="" then
allts=ts
else
allts= allts & vbcrlf & ts
endif
loop
close #1if  dir(youtextfilename)="" then kill youtextfilename
open youtextfilename for output as #1
print #1,allts
close #1大概就是这个意思

Answer 2

用VB的OPEN语句就可以完成,你在窗体上加个TIMER,时间你自己定,interval事件写入
dim a as string
open "c:\1.txt" for input as #1
 intput line a,#1
close(#1)if a="111" then
a="222"
else if a="222" then
a="333"
...
end ifopen "c\1.txt" for output as #1
 print a
close(#1)以上代码在WINXP+VB6环境下没有经过试,自己调试,谢谢..
还有,TXT文本的打开方式不是以独占方式打开的,意思就是就算有别的程序(如记事本)打开这个TXT文件,你也可以编辑它...然后就是自动显示变化的功能..记事本没有 UC的话会提示..