Edit Text file

[jammerdk]

Hi Guys

I'm trying to edit the recent updated file in a certain directory.(Remove blanks, Remove line containing "-" in a certain position)

So fare I have this but this only remove blanks in a certain file.

Sub RemoveBlanks()

Dim Filename As String

Const ForReading = 1
Const ForWriting = 2

Filename = Worksheets("Sheet1").Range("B2").Value

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(Filename, ForReading)

Do Until objFile.AtEndOfStream
strline = objFile.Readline
strline = Trim(strline)
If Len(strline) > 0 Then
strNewContents = strNewContents & strline & vbCrLf
End If
Loop

objFile.Close

Set objFile = objFSO.OpenTextFile(Filename, ForWriting)
objFile.Write strNewContents
objFile.Close

End Sub

Hope you guys can lead me on the right track

 

[Andrew Poulsom]

Check out the Instr function in VBA Help.

 

[Weaver]

Since you're getting your file name from a cell in a sheet, have a look at the 'DIR() command, as this gets filenames from a given folder. From this, you can get each file from the folder (presumably *txt), and then put your current code inside a loop that cycles through all the files of a given type in this folder.

d = dir("c:\myfolder\*.txt")
do while d <> "" then 'd is the name of the first file found
  'do my thing here
  d = dir 'finds the next qualifying file name
loop

HTH