如何做一个计数器，要求是文本读写

Question

如何对TXT文件进行读写，要不要添加什么部件

Answer 1

1.最简单的办法用RTF控件.
RichTextBox1.SaveFile "C:\TTT.TXT", 1
RichTextBox1.LoadFile "C:\TTT.TXT", 12.参考一下:
'
'读TEXT文件
'函数:RedTextFile
'参数:FileName 打开的TXT文件名.
'返回值:成功 返回文件内容.失败  返回""
Public Function RedTextFile(Filename As String) As String
     Dim FileID As Long
     Dim InputStr As String
     Dim LineStr As String
     
     On Error Resume Next
     
     InputStr = "": LineStr = ""
     FileID = FreeFile()
     Open Filename For Input As #FileID
          Do While Not EOF(FileID)           ' 循环至文件尾。
             LineStr = ""
             Line Input #FileID, LineStr
             InputStr = InputStr & LineStr
          Loop
     Close #FileID
     RedTextFile = IIf(Err.Number = 0, InputStr, "")
     Err.Clear
End Function'
'写TEXT文件
'函数:WritTextFile
'参数:FileName 目标文件名.WritStr 写到目标的字符串.
'返回值:成功 返回文件内容.失败  返回""
'注:如果同名,目标字符串将覆盖原文件内容.
Public Function WritTextFile(Filename As String, WritStr As String) As Boolean
'/保存文件
    Dim FileID As Long, ConTents As String
    Dim A As Long, B As Long
    
    On Error Resume Next
    
    FileID = FreeFile
    Open Filename For Output As #FileID
         Print #FileID, WritStr
    Close #FileID
    WritTextFile = (Err.Number = 0)
    Err.Clear
End Function

Answer 2

何必那么麻烦!
open "file.txt" for print as #1
close #1

Answer 3

open "File.TXT" For Print As #1
    Print #1,S
    'S是要写入记数的变量
Close #1你要的是这个东西吗?
在回帖!

Answer 4

FileSystemObject是包含在Microsoft脚本运行时间中的一个对象，对象中的函数提供了读写文本文件的功能。  你可以通过调用OpenTextFile方法来读取一个文本文件。OpenTextFile方法的第一个参数是指定打开的文件名；第二个参数是指定文件是读取，增添，或者写入；第三个参数决定当指定的文件名不存在时新的文件是否要建立；第四个参数指定文件的格式是ASCII 还是Unicode。这一方法返回的是一个TextStream对象。下面的代码段将一个文本文件中的内容读入一个TextBox控件。TextStream中的ReadAll方法用于读出文件的内容，然后使用Close方法来关闭文件。Dim objFSO As FileSystemObject
Dim objText As TextStreamSet objFSO = New FileSystemObjectSet objText = objFSO.OpenTextFile(App.Path & "\temp.txt", _
              ForReading, False, TristateUseDefault)
Text1.Text = objText.ReadAll()
Call objText.Close为了能够在一个文本文件中写入内容，可以先打开文件，然后使用TextStream中的Write方法输入需要的值。Set objText = objFSO.OpenTextFile(App.Path & "\temp.txt", _
              ForWriting, False, TristateUseDefault)
Call objText.Write(Text1.Text)
Call objText.Close

Answer 5

FileSystemObject需要定义吗它是不是VB内置的对象