Re: Need some help please ! !

Tech Tip: Click here to run a free scan for Windows Errors and optimize PC performance

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
Counter =1
'
Do While Not EOF(1)
'
Counter = Format$(Counter, "00")
Line Input #1, A$
NumberOfLines = Mid(A$, 17, 2)
If Counter <> NumberOfLines Then
Print #2, Left(A$, 18)
Counter = Counter + 1
'End If
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.


Hi,

Instead of "If Counter <> NumberOfLines Then", which is only executed once,
you probably want:

Do Until Counter = NumberOfLines

I would suggest something similar to:

Option Explicit
Dim NumberOfLines As Integer
Dim Counter As Integer
Dim A As String

Do Until EOF(1)
Line Input #1, A
NumberOfLines = CInt(Mid(A, 17, 2))
Counter = 0
Do Until Counter = NumberOfLines
Print #2, Left(A, 18)
Counter = Counter + 1
Loop
Loop

--
Richard
Microsoft MVP Scripting and ADSI
Hilltop Lab - http://www.rlmueller.net


.

Relevant Pages

  • 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)
  • 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)
  • Re: Need some help with duplicating lines.
    ... I can workout the program completely now. ... are giving in the input file in charcter 17 till 18 ... Dim Counter ... NumberOfLines = Mid ...
    (comp.lang.basic.visual.misc)
  • Re: Need some help with duplicating lines.
    ... Henkie wrote: ... are giving in the input file in charcter 17 till 18 ... Dim NumberOfLines ...
    (comp.lang.basic.visual.misc)