Question

vb6写入TXT的问题

一个text ，我要将text里的内容写入TXT里，不是替换TXT第一行的内容！ 如果TXT第一行有内容，则自动写到第二行，第二行如果有内容自动写入第三行。。。。

Answer 1

我学的C# 。。VB没学过。这属于 对文本操作吧帮你搜了个列子 你自己研究下： 统计D盘Mydir文件夹中文本文件data.txt中字符“R”出现的次数。并将统计结果写入到文本文件D:\Mydir\res.txt

'已完成并调试成功，代码如下：

'注意为使用FSO需先引用Microsoft Scripting Runtime
Public FSO As New FileSystemObject

Private Sub Command2_Click()
Dim ObjTS As TextStream, ObjFile As File, StrTemp As String, n As Integer

'读取文件的内容。
Set ObjFile = FSO.GetFile("D:\Mydir\data.txt") '(App.Path & "\data.txt")
Set ObjTS = ObjFile.OpenAsTextStream(ForReading)
StrTemp = ObjTS.ReadAll

'统计R的个数。
n = 0
For i = 1 To Len(StrTemp)
If Mid(StrTemp, i, 1) = "R" Then n = n + 1
Next i

ObjTS.Close

'将统计出来的R的个数数据写入文件中
Dim TxtFile
Set TxtFile = FSO.CreateTextFile("D:\Mydir\res.txt", True) '(App.Path & "\res.txt", True)
TxtFile.WriteLine (CStr(n))
TxtFile.Close

End Sub

Answer 2

你的问题问得不清楚。text和TXT你指的是什么？是txt文件还是控件？
rem 下面这一段代码是将控件的内容写入txt文件
dim a$
a=text1.text
open "c:\1.txt" for append as #1
print #1,a
clsoe #1

Answer 3

用追加写入法