In Part 2 of this series I mentioned that I wanted to reuse my original TXA parsing code to produce something like this:
With my TXA parser class in place (from Part 3) I threw together a new app. I added a global include statement for the class .INC file:
include('DCL_Clarion_TXAParser.inc'),once
I created a new Window procedure and added two data elements
- a string field for the file name
- a queue with a single CString(1000) field.
I added three controls:
- the entry field
- a file lookup control template (filter: *.txa)
- a list box (with the queue as its FROM attribute)
, and in the procedure I declared an instance of the class.