怎么用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的话会提示..
不错的贴
相关问答：
请教一下：我用vb写了一个调用Illustrator的测试程序，代码很简单：Private Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......
vb写的程序编译后,运行若出错,如何知道到在哪一行?
按Ctrl+F5预编译，出错时会跳转到错误行
不是那样的了,我是要求编译成EXE后运行,提示出错能否提示错在哪一行.
我编译后在我的电脑上运行没问题,但� ......
vb中怎么通过xml来解析数据库中的字段值。
没办法用XML解析数据库的字段值，除非数据库中保存的是XML格式的字符串文档。
XML用来展示层次的数据。
数据库一般是二维数据。
数据库中保存的是XML字符串格式� ......
比如说要在1表中的第三列第二行单元中输入“一二三”一要粗体宋体12号字，二 不要粗体 15号字 三斜体5号字
代码应该怎么打？
LZ指的是个什么表格控件呢，貌似只能设置整个表的字体，或者某几行或几列，没有单独设� ......
我这样写对吗？
Printer.Font = "黑体加粗"
Printer.FontSize = 24 '设置文字的大小
Printer.Print "汽车燃料消耗量标识"
VB code:
Private Sub Com ......
