vbs怎样把一些东西写入某个txt?

把文本文件内容写到TextBox：

Dim TempFile As Long

Dim LoadBytes() As Byte

TempFile=FreeFile

Open 文件名 For Binary As #TempFile

Redim LoadBytes(1 To Lof(TempFile)) As Byte

Get #TempFile,,LoadBytes

Close TempFile

Text1.Text=StrConv(LoadBytes,vbUniCode)

把TextBox内容写入文本文件：

Dim TempFile As Long

Dim SaveBytes() As Byte

SaveBytes=StrConv(Text1.Text,vbFromUniCode)

TempFile=FreeFile

Open 文件名 For Binary As #TempFile

Put #TempFile,,SaveBytes

Close TempFile

删除TXT文件里的内容：

Private Function DelLine(strFile As String, RLine As Long, newFile As String, SameLine As Boolean)

Dim s As String, n As String, i As Long

i = 1

'//打开源文件

Open strFile For Input As #1

Do Until EOF(1)

Line Input #1, s

If RLine = i Then '如果是指定的行数就进行下面的 *** 作脊念枝

If SameLine = True Then '是否保持源文件行数不变(以空白字樱敏符替换这一行内容)的提示,True保持源文件的行数,False为直接删除这一行的内容

s = ""

n = n &s &vbCrLf '将空字符串赋给变量n,以保持源文件的行数

' MsgBox strFile &" 文件中,第 " &RLine &" 行内容" &vbCrLf &s &vbCrLf &"已经删除", vbInformation, "消息提示"

End If

' s="也可以把这一高弊行的内容改成自己需要的"

Else '如果不是指定的行数,就将s的内容赋给变量n 以存储数据

n = n &s &vbCrLf '将s的内容赋给n 并以一个回车符号结束....

End If

i = i + 1

Loop

Close #1

'//写入新文件,如果和源文件同名则会覆盖源文件

Open newFile For Output As #2

Print #2, n '将n变量里的数据写入新文件

Close #2

End Function

还是用batch吧，代码输进去，旦哗把后缀搞成bat

就行。用vbs很友迹复杂。需要好迟并调动很多文件。

@echo off

color 2f

mode con cols=25 lines=13

title 请输入文字

:122

set/p u=请输入你要发送的文字

echo %u% >>文档.txt

goto 122

---