🚀 go-pugleaf

I'm having some much fun with these text files. I was hoping someone can
help me. I have a text file (http://www.swandust.com/IN.txt) that I want to
input. I would like it to output as a .csv file with the following format:

        Cust,Stock,Quant
        438,24 INCH TREATED DUST MOP,11
        ,42 INCH TREATED DUST MOP,10
        ,FRAME FOR DUST MOP-24",5
        ,FRAME FOR DUST MOP-42",5

        1267,24 INCH TREATED DUST MOP,8
        ,FRAME FOR DUST MOP-24",5

        1274,42 INCH TREATED DUST MOP,14
        ,FRAME FOR DUST MOP-42",2

        etc...

Keep in mind the number of items in the stock count can change depending on
the customer. According to my cound, I made a stock() array from 0-9,
because I didn't think they'd have more than 9 items. If there is a better
way of doing this, I'd love to know. I'm a beginner with VB, so I tend to
get into trouble quite easily. I want to improve my skills in big way. My
code looks like below, but it prints out only the "customer number" and
"stock item name". It also prints out some other spaces and text that I
don't want. If someone can help me get the above output, that would be
awesome. Thanks in advance.


Private Sub Command1_Click()

    Dim mystring As String, j As Long
    Dim cusnum As String, printtofile As Boolean
    Dim stock(10) As String
    Dim fileno1 As Integer, fileno2 As Integer

    fileno1 = FreeFile

    Open "c:\IN.txt" For Input As fileno1

    fileno2 = FreeFile

    Open "c:\OUT2.csv" For Output As fileno2

    Print #fileno2, "Cust"; ","; "Stock"; ","; "Qty"

    Do While Not EOF(fileno1)
        printtofile = False 'reset

        Line Input #fileno1, mystring

        If InStr(mystring, "Customer Number") > 0 Then
            cusnum = Trim$(Mid$(mystring, 23, 6))
        End If

        If InStr(mystring, "===  ========
========================================  =====  =  ========  ========") > 0
Then

            For j = 0 To 9
                Line Input #fileno1, mystring

                Call Replace_String

                stock(j) = Trim$(mystring)

            Next j

            printtofile = True

        End If


'now write to file
        If printtofile = True Then

            Print #fileno2, cusnum; ","; Trim$(Mid$(stock(0), 13, 46))

            For j = 1 To 9
                If stock(i) = "" Then Exit For

                Print #fileno2, ","; Trim$(Mid$(stock(j), 13, 46))

            Next j

           Print #fileno2, 'print blank line

    End If

Loop

Close fileno1, fileno2

Print "finished!"

End Sub



Private Sub Replace_String()

    mystring = REPLACE$(mystring,
"**************************************************************************"
, "")

End Sub