Process text file, line by line

[LesC]

trying to get this code to loop through a text document line by line.

Private Sub Command1_Click()
 
WordFoundFlag = 0
For i = 1 To Len(Text1)
    Char = Mid(Text1, i, 1)
    If Char Like "[A-Za-z-]" And WordFoundFlag = 0 Then
        WordFoundFlag = 1
        StartPos = i
    ElseIf Char Like "[!A-Za-z-]" And WordFoundFlag = 1 Then
    ElseIf Char Like "[!0-9]" And WordFoundFlag = 1 Then
        GoTo BYE
    End If
Next
 
BYE:
 
FindFirstWord = Mid(Text1, StartPos, i - StartPos)
Text1 = Replace(Text1, FindFirstWord, "")
 
End Sub

Any HELP would be great

[Killer42]

It would help if you could give us some idea of what the problem is.

[LesC]

I am trying to remove the line numbers of a text document.

Example:
N10 G01 F720 X0Y0Z0
N20 X0Y0Z0
etc...
N9000 X0Y0Z0
M0

[Killer42]

You've told us what you want to do, but not specifically what the problem is. Also, what version of VB are you using?

[LesC]

i am using vb6 and as i said in my first post, i am trying to use tne code that i posted but can only get it to work on the first line and i need it to do the entire document.

thank you
les

[Killer42]

Well, if you have a look in the index at the top of the VB forum there are a couple of samples showing how to read a text file. One of them reads line by line. So you could take that and adapt it to call your routine for each line.

[LesC]

Thank You, will give it a try