[RESOLVED] search untile empty line

[om-yousif]

small Q1:
how can i stop searching a .txt file if i reach an empty line?


small Q2:
if i got what i'm searching

If UCase(Left(tmp(x), 14)) = Text3.Text Then

how can i add a char ,for example ">" in position 15 in the file

[ganeshmoorthy]

Q1: what is the code you are using to search the .txt file...

[Rob123]

For question 1:

Private Sub Form_Load()
Dim data As String
Open "C:\test.txt" For Input As #1
    Do While EOF(1) <> True
        Line Input #1, data
        If Len(Replace(data, " ", "")) = 0 Then Exit Do
        Debug.Print data
    Loop
Close #1
End Sub

[bushmobile]

@Rob123: you'd probably be better using Trim$ for that line:

If Len(Trim$(Data)) = 0 Then Exit Do

[westconn1]

If UCase(Left(tmp(x), 14)) = Text3.Text Then tmp(x) = left(tmp(x), 14) & ">" & mid(tmp(x), 15)

the above should work if you want the whole string with > inserted at that position, if you just want the first part and the > then leave off the mid part

[om-yousif]

hi westconn1
OK this code is adding the char to tmp(x)
i checked that by this code

text1.text=tmp(x)

now how it can be copied to the text file?

[westconn1]

assuming the array tmp is a split of the file you opened and that you just want to overwrite it, then open the same (or other) file for output, join the array and print to file
this is after all substitutions are done, so that you only write to file once

Open myfile For Output As 1
Print #1, Join(tmp, vbNewLine)
Close 1

[om-yousif]

thanks alot westconn1
i've done it