I’m currently using this code below (Thanks Maco for that) to replace multiple text file without opening and replace them manually. It work pretty well, but I want it to be able to replace something like, for example, sometime the content contaning error, like:
I just want to remove the enter mark at the end of the line and the dash so that the word “exemtion” is correct. A simple macro in Notepad++ can do it easily but then you have to open each file manually to do it, not so efficient for hundred of file. Can somebody help me modified this code with Regex in it? I do some “research” about it but still don’t know where to put it in thatthe code below. Thanks.
Sub ReplaceStringInFile() Dim objFSO As Object, objFil As Object, objFil2 As Object Dim StrFileName As String, StrFolder As String, strAll As String, newFileText As String Set objFSO = CreateObject("scripting.filesystemobject") StrFolder = "c:macro" StrFileName = Dir(StrFolder & "*.txt") Do While StrFileName <> vbNullString Set objFil = objFSO.opentextfile(StrFolder & StrFileName) strAll = objFil.readall objFil.Close Set objFil2 = objFSO.createtextfile(StrFolder & StrFileName) 'change this to that in text newFileText = Replace(strAll, "THIS", "THAT") 'change from to to in text newFileText = Replace(newFileText, "from", "to") 'write file with new text objFil2.Write newFileText objFil2.Close StrFileName = Dir Loop
This question is not yet answered, be the first one who answer using the comment. Later the confirmed answer will be published as the solution.