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

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

---

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 #1

if  dir(youtextfilename)="" then kill youtextfilename
open youtextfilename for output as #1
print #1,allts
close #1

大概就是这个意思

---

用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 if

open "c\1.txt" for output as #1
print a
close(#1)

以上代码在WINXP+VB6环境下没有经过试,自己调试,谢谢..
还有,TXT文本的打开方式不是以独占方式打开的,意思就是就算有别的程序(如记事本)打开这个TXT文件,你也可以编辑它...然后就是自动显示变化的功能..记事本没有 UC的话会提示..

---

不错的贴