writing / reading text files

[Burn3r]

Hi I just want to know how to write to a .txt file, I don't really care if it's ansi or unicode format, as long as I can save text to it.
And I want to edit normal .txt files but with a different extension (.rul).
I couldn't find a good example code on the net and for some reason my search on this forum keeps exceeding the maximum amount of time (30 secs.)
So I'm sorry if someone already posted an answer somewhere on this forum.

[DSJ]

Option Explicit
'Set a reference to Microsoft Scripting Runtime then this
'Will work:
Private Sub Command1_Click()
    Dim fs As FileSystemObject
    Dim ts As TextStream
     
    Set fs = New FileSystemObject
    'To write
    Set ts = fs.OpenTextFile("C:\mytestfile.txt", ForWriting, True)
    ts.WriteLine "blah blah blah line1"
    ts.WriteLine "blah bla bla blah line2"
    ts.Close
     
    'To Read
    If fs.FileExists("C:\mytestfile.txt") Then
        Set ts = fs.OpenTextFile("C:\mytestfile.txt")
         
        Do While Not ts.AtEndOfStream
            MsgBox ts.ReadLine
        Loop
        ts.Close
    End If
    Set ts = Nothing
    Set fs = Nothing
End Sub

[sateesh_raps]

How to save data in the text file as binary code. Reply as soon as possible(urgent)


thanx
sateesh

[Shuja Ali]

How to save data in the text file as binary code. Reply as soon as possible(urgent)


thanx
sateesh

Here is an example from MSDN

Private Type Record   ' Define user-defined type.
        ID As Integer
        Name As String * 20
End Type

Private Function writeToFile()
    Dim MyRecord As Record, RecordNumber   ' Declare variables.
    ' Open file for random access.
    Open "C:\TESTFILE" For Random As #1 Len = Len(MyRecord)
        For RecordNumber = 1 To 5   ' Loop 5 times.
            MyRecord.ID = RecordNumber   ' Define ID.
            MyRecord.Name = "My Name" & RecordNumber   ' Create a string.
            Put #1, RecordNumber, MyRecord   ' Write record to file.
        Next RecordNumber
    Close #1   ' Close file.
End Function


Private Function readFromFile()
    Dim MyRecord As Record, Position   ' Declare variables.
    ' Open sample file for random access.
    Open "C:\TESTFILE" For Random As #1 Len = Len(MyRecord)
    ' Read the sample file using the Get statement.
    Position = 3   ' Define record number.
    Get #1, Position, MyRecord   ' Read third record.
    Close #1   ' Close file.
    Debug.Print MyRecord.ID
    Debug.Print MyRecord.Name
End Function

Public Sub Main()
    writeToFile
    readFromFile
End Sub

[Burn3r]

Thanks for the help, the code seems to work fine.

[Japslock]

And how to read the characters inside the .txt? Example, count all the "a"s from the file?