Re: Need some help with duplicating lines.

Hi Randy,

Thanks a lot for your help, this was just the input that
I did need. I can workout the program completely now.

thanks.

Henkie


"Randy Day" <randy.day@xxxxxxxx> schreef in bericht
news:XEdbg.174510$7a.77824@xxxxxxxxxxx
Henkie wrote:
Hello all, I have the following that I can not getting work, for example
my input file is as below

Test01,Bitmap01,01
Test02,Bitmap02,02
Test04,Bitmap04,04
Test05,Bitmap05,05
Test03,Bitmap03,03

The file I want created out of this is as below

Test01,Bitmap01,01
Test02,Bitmap02,02
Test02,Bitmap02,02
Test04,Bitmap04,04
Test04,Bitmap04,04
Test04,Bitmap04,04
Test04,Bitmap04,04
Test05,Bitmap05,05
Test05,Bitmap05,05
Test05,Bitmap05,05
Test05,Bitmap05,05
Test05,Bitmap05,05
Test05,Bitmap05,05
Test03,Bitmap03,03
Test03,Bitmap03,03
Test03,Bitmap03,03

I want for each line in the output as many lines as
are giving in the input file in charcter 17 till 18
I think that is clear how I want te output.

the code I using is here below but that is not
working, i hope that someone can help me
on the good way. I am rather new in VB


Dim NumberOfLines
Dim Counter
Dim X
Counter =1
'
Do While Not EOF(1)
'
Counter = Format$(Counter, "00")
Line Input #1, A$
NumberOfLines = Mid(A$, 17, 2)
for x = 1 to numberoflines
Print #2, Left(A$, 18)
next x
Teller = 1
'
Loop

Now with this code my output file is the same as my input file :-(
Hope that someone can give me some help.

Greetings
Henkie



.

Relevant Pages

  • Re: Need some help please ! !
    ... Henkie wrote: ... are giving in the input file in charcter 17 till 18 ... If Counter NumberOfLines Then ... Dim Counter As Integer ...
    (microsoft.public.vb.syntax)
  • Need some help with duplicating lines.
    ... are giving in the input file in charcter 17 till 18 ... Dim Counter ... If Counter NumberOfLines Then ... Teller = 1 ...
    (comp.lang.basic.visual.misc)
  • Need some help please ! !
    ... are giving in the input file in charcter 17 till 18 ... Dim Counter ... If Counter NumberOfLines Then ... Teller = 1 ...
    (microsoft.public.vb.syntax)