Replacing Text

[Nexis]

Hello everyone!

I have created a fairly basic application in vb6 which is able to open a text file, load it into a text box control and successfully save it again. So far so good...

What I need to do is find text in this text file and replace it with something new. This part isn't too hard for me, but what is hard is that I have to search for a specific word then replace the integer after it but multiply it first... As lost as I am? Here's what I mean:

I have a text file with a list of variables.

var1=12345
var2=12345
var3=12345
etc.

So what I need to do it find var2 and change just the integers after it. But before I change them, I have a text box in which the user will input a number. Then the var2=# need to be multiplied by text box number. So if the user enters, "5" then it should search for var2 and multiply 12345 * 5 and return a value of 61725. (for example)

So again, the user can load a text file full of variables, then set a number to multiply a specific variable by and the program will find all the variables with that name in the file and replace them with the new value.

If anyone can help me dive in to this one it would be greatly appreciated...

[jcis]

Split your textbox content using vbNewLine, Loop the resulting array.
Split each string inside the loop using '=', the first item of the array retuned is the Variable name, if its the one you are looking for, take the second item of the array (12345), multiply it by the number.
put the Varname & "=" & the result obtained in that position of your original array.
Clear the text box and fill it again with the content of your original array (the first).

[Nexis]

Split your textbox content using vbNullString, Loop the resulting array.
Split each string inside the loop using '=', the first item of the array retuned is the Variable name, if its the one you are looking for, take the second item of the array (12345), multiply it by the number.
put the Varname & "=" & the result obtained in that position of your original array.
Clear the text box and fill it again with the content of your original array (the first).

Thanks for the response jcis. Although, I have another question regarding your reply. The text file I am editing is very large, around 3mbs to be exact. And there are over 1500+ of these variables. So my question is, upon "refreshing" the loaded text would this cause serious performance issues, and what would be the most efficient way of temporarily storing this large data? Thanks again!

[jcis]

Ok, I'll give you half of it, you complete it

Private Sub ChangeValue(pvarName As String, pMultiply As Long)
Dim lposVar         As Long
Dim lposValue       As Long
Dim lposEndLine     As Long
Dim lValue          As Long
 
    lposVar = InStr(1, Text1.Text, pvarName) 'Get the position of the Variable
    lposEqualSign = InStr(lposVar, Text1.Text, "=") 'get the position of = sign
    lposEndLine = InStr(lposEqualSign, Text1.Text, vbNewLine) 'Get the end of the line position
    
    lValue = CLng(Mid$(Text1.Text, lposEqualSign + 1, lposEndLine - lposEqualSign)) 'Get your Value
    
    '.. Multiply your Value
 
    ' Use Left$, your Value and Right$ to finish
End Sub

EDIT: 1500 lines in a txt file could never reach 3 MB, if the file size is 3 MB there must be something else inside that file.

[Nexis]

EDIT: 1500 lines in a txt file could never reach 3 MB, if the file size is 3 MB there must be something else inside that file.

Sorry, I mean there are over 1500+ variables that I need to change. There is much more text that just what I am changing. Also I am working on implementing this code now, I will update the progress asap. Thank you or your time.

[Nexis]

Ok so, I have it working. I just used the replace funtion:

Public Sub ChangeValue(pvarName As String, pMultiply As Long)
Dim lposVar         As Long
Dim lposValue       As Long
Dim lposEndLine     As Long
Dim lValue          As Long
Dim lNewValue       As Long
 
    lposVar = InStr(1, txtScript.Text, pvarName) 'Get the position of the Variable
    lposequalsign = InStr(lposVar, txtScript.Text, "=") 'get the position of = sign
    lposEndLine = InStr(lposequalsign, txtScript.Text, vbNewLine) 'Get the end of the line position
    
    lValue = CLng(Mid$(txtScript.Text, lposequalsign + 1, lposEndLine - lposequalsign)) 'Get your Value
    
    lNewValue = lValue * MultiValue
    
    txtScript.Text = Replace(txtScript.Text, pvarName & "=" & CStr(lValue), pvarName & "=" & CStr(lNewValue))
 
 
    
End Sub

Ok so now another question... I use common dialog to open the text file. I then load this text file to a text box. All fine, but for some reason this file is so large, it won't all load to the text box. Not even half. Is there a way around this? I even tried rich text box, and I got the same result. Any ideas? Also if you're wondering how I load it, here is the code:

'Uses the With funtion
 
    txtDir.Text = .FileName
    FileName = cd1.FileName
    f = FreeFile
    
    Open FileName For Input As f
    rtb1.Text = Input$(LOF(f), f)
    Close f

Thanks for your time.

[dglienna]

Try using something like this to read the data into a RTB. It has unlimited size, so that can't be the problem.

Private Sub OpenFile()
   ' The RichTextBox control is named "rtfData."
   ' The CommonDialog is named "dlgOpenFile."
   ' Declare a String variable for file name.
   ' Show the Open File dialog box, and set the 
   ' variable to the filename.
   Dim strOpen As String
   dlgOpenFile.ShowOpen
   strOpen = dlgOpenFile.FileName
   ' Use LoadFile method to open the file.
   rtfData.LoadFile strOpen
End Sub

The RTB can save the file as .Txt or .Rtf

[Nexis]

Sorry my mistake. The file I was loading into the program was only a piece of the file. lol So it does actaully load fully. But when I edit the file with the multiplier, it locks up. So, instead of making it try to change all 1500+ variables at once, would it be smarter to put this in a loop so it changes one by one? Maybe with a progress bar?

Public Sub ChangeValue(pvarName As String, pMultiply As Long)
Dim lposVar         As Long
Dim lposValue       As Long
Dim lposEndLine     As Long
Dim lValue          As Long
Dim lNewValue       As Long
 
    lposVar = InStr(1, txtScript.Text, pvarName) 'Get the position of the Variable
    lposequalsign = InStr(lposVar, txtScript.Text, "=") 'get the position of = sign
    lposEndLine = InStr(lposequalsign, txtScript.Text, vbNewLine) 'Get the end of the line position
    
    lValue = CLng(Mid$(txtScript.Text, lposequalsign + 1, lposEndLine - lposequalsign)) 'Get your Value
 
    lNewValue = lValue * MultiValue
    
    txtScript.Text = Replace(txtScript.Text, pvarName & "=" & CStr(lValue), pvarName & "=" & CStr(lNewValue))
 
End Sub

[dglienna]

The RTB has the .Find method that will return the position, as well as select the string. You could also loop thru finding the "=" if those are the only things being changed. Are the variables that you search all the same length?

[Nexis]

The RTB has the .Find method that will return the position, as well as select the string. You could also loop thru finding the "=" if those are the only things being changed. Are the variables that you search all the same length?

No they varry but all hold the same name. eg.

var=5746
var=46252
var=6439
etc

[dglienna]

Just find var, then start from there and find "=", then find the next space.
It's a little more complicated, but not hard to do. My app reads in a rtf that has fields that were saved as [1], [2] ... [45]. These fields were saved in the right columns in 3 different tables that I made in Word. I move thru looking for each number (but you could look for "[" then the first space afterwards.

With frmReceipt.rtbReceipt
      .Find ("[1]")
      If z4 > 0 Then
        .SelText = Space(6 - Len(Format(z4, "##,##0"))) & Format(z4, "##,##0")
      Else
        .SelText = Space(6)
      End If

I then format each field, bold and colorize a few (as they are the selected item at the time. Then I go back and center a few lines at the top and bottom, and then paste an image into the picturebox that I made with Word.
It works great!