Wait for user click in EOF loop?

[Psurge]

I'm writing a program that will allow you to sift through a text file, one line at a time, and write to a new text or .mdb file. The problem I am having is that I cannot see how to stop the loop to wait for a user command. I am sure that it is something relatively simple, but I am completely new to VB (three months or so), and my VB skills are pretty small. Here's the code that I'm using:


Private Sub cmdStart_Click()
Open SelectedFile For Input As #1
Do While Not EOF(1) ' Loop until end of file.
Input #1, txtString
txtTextString.Text = txtString

'Wait here until user presses one of a few command
'buttons to determine what to do with the string.


Loop
Close #1
End Sub


Any help would be greatly appreciated.

PSurge

[Guinness]

Use some form-level variable to let you know what was clicked. When the button is clicked, set the variable
accordingly.

=======================================
Dim actionInt As Integer



Private Sub cmdStart_Click()

actionInt = 0

Open SelectedFile For Input As #1
Do While Not EOF(1) ' Loop until end of file.
Input #1, txtString
txtTextString.Text = txtString



Do While actionInt = 0
DoEvents
Loop

If actionInt = 1 Then
...your code here
ElseIf actionInt = 2 Then
...your code here

...etc...

End If



Loop
Close #1
End Sub


Then, when any button is pressed, simply set actionInt:

Private Sub cmdAction1_Click()
actionInt = 1
End Sub

Private Sub cmdAction2_Click()
actionInt = 2
End Sub

...etc...

Hope this is of some help.

Guinness

[Static]

Try this...
Set a checker variable:

Dim Cont as integer ' (Continue)

then...

Private Sub cmdStart_Click() 
Cont = 0
Open SelectedFile For Input As #1 
Do While Not EOF(1) ' Loop until end of file. 
Input #1, txtString 
txtTextString.Text = txtString 

Do Until Cont = 1
 DoEvents
Loop
Cont = 0

'In the command buttons that are the choices
'Add Cont =1 as the last thing it does (so that code occurs before it triggers the continue) 


Loop 
Close #1 
End Sub

this in command button:

Private sub Command1_Click()

'code
'code
'code

Cont = 1
end sub

Hope this helps!

[redbird77]

Here's some pseudo code that demonstrates another way. The idea is to read the whole file at one time, close it, then deal with the lines as array elements.

- read the whole file into a string

- split that string into an array consisting of the lines
of files (using the Split function)

- then in the command button's click event you can deal with the current line of the file

- you can keep track of the current line number by using either a static variable (a var that does not get re-initialized to zero after each button click) or a global variable

Amanda

[Psurge]

geoff_xrx, Guinness

Thanks for all your help! Both of the Ideas
worked perfectly, but I tend to prefer geoffs method.
I didn't even know about the DoEvents function before,
but it seems that this is exactly what I was looking
for. It's interesting to note that if I search the
help for "wait", I don't get DoEvents, but I do get
it with "yield". Hmm...

Thanks Again!

PSurge