ExcelBanter - View Single Post - Trying to NOT import some records in a large text file

Dave Peterson

It's not a subroutine--it's a label that's used for branching.

Do Until EOF(fNum)

If (Left(inputline, 3) = "AAJ") Then GoTo ContinueFromEnd:

''''''''''''''''''''''''''''''''''''''''''
' Increment counters.
''''''''''''''''''''''''''''''''''''''''''
InputCounter = InputCounter + 1
RowsThisSheet = RowsThisSheet + 1
'more code that does real stuff

ContinueFromEnd:
Loop

=======
I like the if/then/else structure better.

"Francois via OfficeKB.com" wrote:

Hi incre-d,

Thanks for the quick reply, I tried this (I took out the GOTO bit, but it
still imported the AAJ line.

I assume the ContinueFromEnd is an empty sub routine.

Any Idea where I might be going wrong Thanks again

incre-d wrote:
Do Until EOF(fNum)

If (Left(inputline, 3) = "AAJ") Then GoTo ContinueFromEnd

lots of code

ContinueFromEnd
Loop

Hi All,

[quoted text clipped - 17 lines]

Thanks in advance for any help

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200809/1

--

Dave Peterson