Question

如使用VBS语言，向TXT文件末尾另起一行，加入新的数据呢？

TXT文件原本是有内容的 ，一个新内容另起一行。如使用VBS语言，向TXT文件末尾另起一行，加入新的数据呢？
Dim fso, f1
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.CreateTextFile("c:\testfile.txt", True)
' 写一行。
f1.WriteLine "内容1“
f1.Close
我用这个例子是每次都在这个文件第一行里写入“内容1”，再次运行也不会接着之前的内容写入。
如果可以的话能帮我再写个向EXCEL文件里一行一行写入表格的脚本么？谢谢
谢谢

Answer 1

由于f1是CreatTextFile方法定义的,vbs就将其作为没有内容的文档,因此不提供追加输入(指针?).以下仅供参考:
Set fso = CreateObject("Scripting.FileSystemObject")
set f2=fso.opentextfile("c:\testfile.txt",8,true) '参数8就是一行一行写入.使用循环可以写若干行.
f2.writeline("[1][2]")
f2.close
wscript.quit

Answer 2

Set fso = CreateObject("Scripting.FileSystemObject")
set f2=fso.opentextfile("c:\testfile.txt",8,true) '参数8就是一行一行写入.使用循环可以写若干行.
f2.writeline vbcrlf
f2.writeline "[1][2]"
f2.close
wscript.quit

withQue的答案不错，不过少了一个换行。

Answer 3

简单哪···
首先，初始化···
Set WshShell=WScript.CreateObject("WScript.Shell")
······（你的代码）
······（打开记事本或其他···）
然后····
WshShell.SendKeys "{ENTER}"
接着···
WshShell.SendKeys "你要输入的英文或数字【你输中文试试||反正我不会···】"
···其他代码···
wscript.quit【结束脚本···】

Answer 4

Dim fso, f1
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.OpenTextFile("c:\testfile.txt", 8, True)
'写一行
f1.Write "Hello world!"
f1.Close