Jeff
Well What do you know it worked Stupid machine. Well Jeff i am very thankfull to you. Now the next problem i have 30 file that need to be read same thing and append all of these into one file any ideas?
Thank you once again.
Jeff
It reads the second header but then exit the loop. No blank line i double checked.I am using the same sample file i posted.I tested as you told me . i think as you said it is having dificulity recognising a change to header.Its not even close to EOF. Please advise.
Jeff
you are correct. I did put break point it is reading first header and its records but when 2 header is reached getting out of the loop. Plz advise me how can i fix that.
Dim TextLine As String
Dim header As String
Dim Detail As String
Dim record As String
'TESTFILE = "c:\test.txt"
Open...
Jeff
I got file to read as i wanted but the problem is it only reads first header and its records not the rest is there any way we can fix that.here is my code
Dim TextLine
Dim header As String
Dim detail As String
'TESTFILE = "c:\test.txt"
Open "c:\test.txt" For Input As #1 ' Open file...
Thank you very much i was also think some thing simillar but didn't know should i read a line or char by char. My i ask for a favor from you guys little code will help make my life little simpler havn't done any coding in 2 years though i know c++ and vb.
its both header and detail.
first digit 0 or 1 is the check digit. 0---> header
and 1---> detail.
I have posted file defination in cobol for the file. May be that will help a little.Plz let me know if you need any more info.
Thank you very much.
Hello everybody
Needing some help with a problem. I have a file with a header and details records but file can have multiple header. Here is a sample
0720040050720H32B75W
10161007178541051100010
10161007178541055900010
10161007178541510900010
10161007178541057000010...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.