Reading text files

Wizbang,

I greatly appreciate your response however, I would say my knowledge of the split function and arrays is limited. Would you be able to supply a sample of the code required to do this?

Again, greatly appreciated.

Regards,

Paul Rosebush

Are you going to have a textbox for each field multiplied for each line?
Better you change your mind and use a flexgrid, instead, with only one textbox for editing...

Gentlemen, I am quite in your debt for your asistance. Wizbang, your attachment was of immense help. I am forced to use text boxes for a reason. You mention filling up the screen with text boxes and taking care to maintain that objects don't run off the screen. My file size will of course determine how many text boxes are required. It appears I will have to create pages/panels to accept the incoming data should the file be larger than the screen permits.

The FileToArray attachment does exactly what I need however, I need to format the text. Assume that each tab in a line represents a field, each line in the file represents another record.

Your attachment returns:
XXXXX|YYYYY|ZZZZZ

I need to display in the textbox:
XXXXX
YYYYY
ZZZZZ

Essentially, the prog must convert a tabbed list to sheets of labels.

I realize you Gentlemen probably have much better things to do however, as I mentioned above, I am in your debt. I am a graphics programmer, do not hesitate to query me.

Regards,

Paul Rosebush

I may require a vbcrlf for each tab however each line in the text file should be treated as a single record, the tabs define the fields in the record. Although the text file is created as tabbed single line records, I need to display each record in its own text box but instead of single line (like the text file) I need to display the records/lines as follows:

TEXT FILE VIEW (as opened in notepad)

Pte. John Hancock <tab> 3rd Div. 1st Bat., RCAF <tab> 1941-1945 <tab> D-Day, France, Germany, N.W. Europe
Pte. B. MacDonald <tab> Queen's Own Rifles <tab> 1942-1946 <tab> Normandy Campaign, KIA Dieppe 1946

The above constitutes two (2) lines of the text file. There may be hundreds of lines in a given file (hence the need for pages).

The following is how the data must be displayed within a textbox in my prog:

[Textbox1]

Pte. John Hancock
3rd Div. 1st Bat., RCAF
1941 - 1945
D-Day, France, Germany, N.W. Europe

[Textbox2]
Pte. B. MacDonald
Queen's Own Rifles
1942 - 1946
Normandy Campaign, KIA Dieppe 1946

In short, each line of the text file must be in its own textbox.
Each textbox must have the tab coverted to a vbcrlf, I think, to achieve the above.

Regards

Wizbang,

I will be away for approx. one week on business and when I return I will give you the details of exactly what this prog must do so you may better understand.

As usual, all help is greatly appreciated.

Regards,

Paul

You may also find out that there is a limit of 255 contorls on a page. One of those being the page.

Wizbang,

The data need only be displayed (non-edit). The displayed data will go to a printer. No saving is required. The printer table is 24"x 22" approx. I'm not sure if there is a better way to do it . I picture a prog that has a page size as above, similar to the page layout of a drawing program, and given the parameters (user supplied label/char size etc.), creates and situates the text labels to maximize the use of the 24x22 printer table. Should the text file size exceed the print table size, another page is created.

The reason for the textbox was purely to create a printable border around the label however, if I'm not mistaken, the line tool is not considered a control but can be printed.

Regarding your last reply, I aggree with the Replace(), though I am confused on the order of things to happen. A single line of the text file must be contained within one printable label. If we Replace() the tabs with crlf's then the last crlf in the line must create the new label, correct me if i am wrong.

Regards,

Paul

tried your code and got a runtime error 9
'Subscript out of range' on the following line;

Label1(0) = Replace(S(0), vbTab, vbCrLf)

Yes, being just an example I didn't attempt to prevent or trap all possible errors. Two things that come to mind are:

1) Opening for Binary will create the file if it does not exist.
2) You can check the UBound of the array to see if it is above -1 before allowing the rest of the code to execute.

(you can edit and delete your own posts)

The extra overhead for the database would far exceed what is needed for such a simple task.

Your last example returned only the first line of the text file, not all lines.
It worked for me. I simply made a file with the two example lines you gave in this thread. Are you sure you had a Cr+Lf at the end of the lines?

The file I made looked like this:
Pte. John Hancock<TAB>3rd Div. 1st Bat., RCAF<TAB>1941 - 1945<TAB>D-Day, France, Germany, N.W. Europe
Pte. B. MacDonald<TAB>Queen's Own Rifles<TAB>1942 - 1946<TAB>Normandy Campaign, KIA Dieppe 1946