Re: replacing text in textfile

Tech Tip: Click here to run a free scan for Windows Errors and optimize PC performance

Ok... I believe I am getting somewhere. I scoured the net and found the
following code. I created a sample form with 3 text boxes (Text1,Text2,Text3)
I created 2 buttons(replace text and replacefile)
Replacetext give me and error 2185 focus error
ReplaceFile does indeed creat the replacement file - but nothing is in it.
Can someone Please take a look at the code and give me a clue as to what may
be going on. I am really trying to learn and am not asking to have code
rewritten.

Thanks, Again
Jack
Code Follows:

This is a simple text replacement example. It will also work on Binary files
since I included the description on how to make it reusable from a form with
3 text boxes and how to read in a full binary or ascii file as a single
string. Usage:

Private Sub cmdReplaceText_Click()
'replaces all occurances of Text2 in Text1 with Text3
Call ReplaceTextInTextBox(Text1, Text2, Text3)
End Sub
Private Sub cmdReplaceFile_Click()
'replaces all occurances of "hello" with "goodbye" in c:\test.txt, and
saves the new file as c:\test_replace.txt
Call ReplaceInFile("c:\test.txt", "c:\test_replace.txt",
"hello","goodbye")
End Sub

Place the code below in a module

Public Function ReplaceTextInTextBox(MyTextBox As Object,_ TextOld As
Object, TextNew As Object)
'The object reference is made form the form
'you use to call this module.
'Assumed you have a text1, text2 and text3 text box on your form
'where 1 is used for the text you wish to replace text in
'2 is the one containing text you are searching for
'3 is the new text you wish to see entered in its place.
'The replacement function being called

Call ReplaceText(MyTextBox.Text, TextOld.Text, TextNew.Text)

'Replace textview and refresh your form

MyTextBox.Text = ReturnValue
MyTextBox.Refresh

End Function



Public Function ReplaceInFile(InputFile As String, _
OutputFile As String, OldT As String, NewT As String) As String
Dim Fnum As Integer ' get a FreeFile number
Dim FileLength As Long 'Just in case its really big
Dim TheString As String

'I open the file as binary to avoid some
'complications with reading in a full file.
'This just so I can skip some trouble shooting with
'some special characters in certain exe files.
'It might be that character you wish to replace.

Fnum = FreeFile
Open InputFile For Binary As #Fnum ' Open file.
FileLength = LOF(Fnum) ' Get length of file.

TheString = Input(FileLength, #Fnum)

Close #Fnum ' Close file.

'OldT = Whatever text you send form a form or function to search for
'NewT = Whatever text you wish to replace OldT with

'Call the function to replace text

Call ReplaceText(TheString, OldT, NewT)

'Now print the result to a new file
'so you dont overwrite your original

Fnum = FreeFile
Open OutputFile For Output As #Fnum ' Open file.
Print #Fnum, ReturnValue ' the ReturnValue from the replacement
Close #Fnum ' Close file.

End Function


Public Function ReplaceText(CleanThis As String, _
OldText As String, _
NewText As String)

'To get the len of the string
Dim StrLn As Long

'To split the string
Dim PartA As String, PartB As String

'If search string is found, get its start position
Dim FoundP As Long
Dim OldLn As Long
On Error GoTo ErrHandle

'Set a value for the len of the old text to be replaced
OldLn = Len(OldText)
StrLn = Len(CleanThis)

'Loop through the string until all occurences are eliminated

Do While InStr(1, CleanThis, OldText) <> 0
FoundP = InStr(1, CleanThis, OldText)

'Get PartA of the string (before found occurance)
PartA = Left(CleanThis, FoundP - 1)

'Get PartB of the string (after found occurance)
PartB = Right(CleanThis, StrLn - FoundP - OldLn + 1)

'*NOTE ON THE ADDITION AND SUBTRACTION**
'******************************************************
'+ 1 to avoid a skip in adding found len and old len
'The previous line could also be written
'
'PartB = Right(CleanThis, StrLn - (FoundP + OldLn - 1))
'******************************************************
'REBUILD THE STRING BEFORE NEXT LOOP
'This adds a space before and after NewText
'and trims out unneccessary spaces too!

CleanThis = Trim(PartA) & " " & _
Trim(NewText) & " " & _
Trim(PartB)
'GET NEW LEN BEFORE LOOPING
StrLn = Len(CleanThis)
Loop

'Set result of the function
ReplaceInString = CleanThis


'Avoid error handling
Exit Function
'Add your own error code hereafter
ErrHandle:
Select Case Err.Number
Case Err.Number
MsgBox "Your function executed with an error " & Err.Number _
& vbCrLf & vbCrLf & Err.Description, vbExclamation, _ "Error "
& Err.Number
Err.Clear
End Select
Resume Next
End Function


"Jack" wrote:

> Tim,
> Thank you for the reply. These are TRULY fixed targets. Generally the
> ##replace1## field within the txt file needs to replaced with one - three
> words MAX. If this was a onesy twosey (did i spell that right:) )I wouldnt
> have a problem. But 100+ pages need to be updated with every file having
> different data. I created a template, went through and made the targets
> ##replace1##, ##replace2## and ##replace3##. I then saved this as a text
> file.
>
> During my endless attempts to figure out how to do this. I have taken the
> following steps. I just need assistance putting it together.
>
> I created a table named tbl_replace - 3 text fields named replace1,2,etc I
> added a fourth field as to what I will need the output filename to be.
> I created a form with a command button and inserted the following code.
>
> Sub ReplaceFile(Tempfile As String, ReplaceFile As String, Offset As Integer)
> On Error GoTo Err_ReplaceFile
>
> Dim db As DAO.Database
> Dim Directory As String
> Dim MyString As String
> Dim NewString As String
> Dim MyChar As String
> Dim TagFound As Boolean
> Dim i As Integer
>
> Set db = CurrentDb
> Directory = Mid(db.Name, 1, Len(db.Name) - Len(Dir(db.Name)))
>
> Open Directory & "\" & Tempfile For Input As #1 !This works fine
> Open Directory & "\" & ReplaceFile For Output As #2! I havent figured out
> how to get access to loop through all of my records. Maybe a d lookup?
> TagFound = False
>
>
> 'loop through text file
> Do While Not EOF(1)
> NewString = ""
> 'read one line
> Line Input #1, MyString
> Do Until instr(MyString) = 0
> 'walk down the line
> !This is part I am confused about
> something like:
>
> replace(mystring,##replace1##,[field from tbl_replace])
> replace(mystring,##replace2##,[field from tbl_replace])
> replace(mystring,##replace3##,[field from tbl_replace])
> Loop
> 'Output the line Record
> Print #2, NewString ! is this best way to do this?
> Loop
>
> MsgBox "Done"
>
> Exit_ReplaceFile:
> Close #2
> Close #1
> Set db = Nothing
> Exit Sub
>
> Err_ReplaceFile:
> If Err.Number = 62 Then
> Resume Exit_ReplaceFile
>
> Else
> MsgBox Err.Number
> MsgBox Err.Description
> Resume Exit_ReplaceFile
> End If
>
> End Sub
>
>
>
> Any assistance would be greatly appreciated.
> Thanks again,
> Jack
>
> "Tim Ferguson" wrote:
>
> > "=?Utf-8?B?SmFjaw==?=" <Jack@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in
> > news:724F28F5-E267-41FC-9BC9-F737A09BB559@xxxxxxxxxxxxx:
> >
> > > I am looking for a very similar procedure.
> >
> > I don't think it is very similar: the OP, as I remember it, had incredibly
> > tight requirements that made it easy to offer a simple, but hopelessly
> > importable, solution.
> >
> > My first reaction to any kind of generic text manipulation, especially when
> > it comes to html tags and the like, is to get the PERL book out. If you
> > really want to use VB and its cousins, the built in Scripting.Regex is
> > nearly as flexible, but be prepared for a steep learning curve.
> >
> > If you have really fixed targets, you can use Instr() and Replace() to find
> > them. The other problem with html type text is that you cannot expect to
> > find nice line-endings in appropriate places, and you have to work very
> > hard to make sure you don't miss having more than one target in the same
> > line.
> >
> > Best of luck
> >
> >
> > Tim F
> >
> >
.

Quantcast