Text files 1

[Mats]

Does anybody have code for directly writing and reading text-files from Access? What I would want to do is write txt-files line by line or read a specific line from a text-file. I know how to import/export files in access, but I'm looking for a simpler way of e.g. doing a find and replace in a textfile without running it through access.

Thanks,
Mats

 

[Durkin]

The following routine will open a file and replace every instance of 'BadString' that it finds with 'GoodString'.

Public Sub Opener()
Dim FFile As Integer
Dim FileString As String

    FFile = FreeFile
    Open "C:\YourTextFile.txt" For Input As #FFile
    
    FileString = Input(LOF(FFile), #FFile)
    
    Close #FFile
    
    FileString = Replace(FileString, "BadString", "GoodString")
    
    Open "C:\YourTextFile.txt" For Output As #FFile
    Print #FFile, FileString
    
    Close #FFile
    
End Sub

if you want to go through a file one line at a time use the

 Line Input

statement. Durkin