[RESOLVED] Find (partial string) and replace (whole string)

[rdcody]

Hey All,

I have a text file that looks like this...

0000001001 eeee
0000001002 aaaa
0000001003 bbbb
0000001004 cccc
0000001005 dddd


How can I search for just the numbers on the left, but replace the whole
string when I find it? In other words, the letters on the right will change,
and I will not know what they are.

(example) I need to change the line "0000001003 bbbb" to "0000001003 zzzz"
but the only info I have is the numbers "0000001003".

Thanks in advance,
Ron

I'm using VB5.


Here is some code I found on here that almost works, except when I use it
it just puts the z's in front of the b's (0000001003 zzzz bbbb)...

Public Function ReplaceStringInFile(ByVal StrFileName As String, _
            ByVal StrFind As String, ByVal strReplace As String) As String

Dim strTest As String


Open StrFileName For Binary As #1
    strTest = Space(LOF(1))
    Get #1, , strTest

    strTest = Replace(strTest, StrFind, strReplace)
    Put #1, 1, strTest
Close #1

ReplaceStringInFile = strTest

End Function

Private Sub Command1_Click()

ReplaceStringInFile "C:\test.txt", "0000001003", "0000001003 zzzz"

End Sub

And since I'm using VB5, I'm using this Replace function...

Public Function Replace(ByVal sIn As String, ByVal sFind As _
    String, ByVal sReplace As String, Optional nStart As _
     Long = 1, Optional nCount As Long = -1, _
     Optional bCompare As VbCompareMethod = vbBinaryCompare) As _
     String

    Dim nC As Long, nPos As Long
    Dim nFindLen As Long, nReplaceLen As Long

    nFindLen = Len(sFind)
    nReplaceLen = Len(sReplace)
    
    If (sFind <> "") And (sFind <> sReplace) Then
        nPos = InStr(nStart, sIn, sFind, bCompare)
        Do While nPos
            nC = nC + 1
            sIn = Left(sIn, nPos - 1) & sReplace & _
             Mid(sIn, nPos + nFindLen)
            If nCount <> -1 And nC >= nCount Then Exit Do
            nPos = InStr(nPos + nReplaceLen, sIn, sFind, _
              bCompare)
        Loop
    End If

    Replace = sIn
End Function

[westconn1]

you can try, replace
strTest = Replace(strTest, StrFind, strReplace)

with
if instr(strtest, strfind) > 0 then strtest = strreplace

you will then not be using the replace function at all

[rdcody]

Hey westconn1, thanks for responding...

It replaced the first line not 0000001003 bbbb ...

0000001003 zzzz
0000001002 aaaa
0000001003 bbbb
0000001004 cccc
0000001005 dddd

[rdcody]

I got it to work by adding another function to find the full string,
and then the replace function worked properly...

Private Function FindText(ByVal start_at As Integer)
    Dim pos As Integer
    Dim target As String

    Open "C:\test.txt" For Binary As #1
    txtBody.Text = Input$(LOF(1), #1)
    Close #1

    target = txtTarget.Text  '= 0000001003
    pos = InStr(start_at, txtBody.Text, target)
    If pos > 0 Then
        ' We found it.
        TargetPosition = pos
        txtBody.SelStart = TargetPosition - 1
        txtBody.SelLength = 15  'Len(target)
        txtBody.SetFocus
        txtFullString.Text = txtBody.SelText
    Else
        ' We did not find it.
        MsgBox "Not found."
        txtBody.SetFocus
    End If
End Function

and calling it like this...

Private Sub Command1_Click()
    FindText 1
    DoEvents
    ReplaceStringInFile "C:\test.txt", txtFullString.Text, txtReplace.Text
End Sub