Option Explicit
Dim fsys As New FileSystemObject
Dim txtstream As TextStream
Dim outstream As TextStream
 
 
 
Private Sub cmdclick_Click()
 Dim j As Integer  
 Dim searchline As String ' inputline to read txtstream
 Dim filename As String   ' to dynamically generate filename
 Dim homeid As String    ' to have homeid
 Dim prevhomeid As String  ' to compare to homeid
 Dim channelname As String ' to store channelname
 Dim channelcount As Integer ' to count the numbers of unique channels
 Dim channelarray(0 To 100000) As String   'to store the homeid and channelname
 Dim prevchannelarray(0 To 100000) As String
 Dim csort As String
 'Dim prevcarray As String
 Dim i As Integer
 
 
    For j = 0 To lstmarket.ListCount - 1
     If lstmarket.Selected(j) = True Then
 
 
           If Len(Trim(txtyear.Text)) > 2 Or IsNumeric(Trim   (txtyear.Text)) = False Then
              MsgBox "this should be 2 digit number "
              txtyear.Text = ""
              txtyear.SetFocus
           Exit Sub
           End If
 
           If Trim(txtweek) <= 9 And Len(Trim(txtweek)) < 2 Or IsNumeric(txtweek.Text) = False Then
              txtweek = "0" & Trim(txtweek)
           End If
 
           If Trim(txtday) > 7 Or IsNumeric(txtday) = False Then
                MsgBox "Please enter number which is equal to or less than 7"
                txtday.Text = ""
                txtday.SetFocus
           Exit Sub
           End If
 
           filename = lstmarket.List(j) & Trim(txtyear) & Trim(txtweek) & Trim(txtday) & ".swd"
              MsgBox ("you have selected the following" & filename)
     End If
   Next j
 
  '********main code for listing all the channels that the house id watch*******
 
             If fsys.FileExists("C:\rohit program\exercise\SWD\" & filename) = True Then
               MsgBox "file is open"
             Else
               MsgBox "file not found"
             End If
 
               'prevchannelname = ""
               prevhomeid = ""
              channelcount = 0
              prevchannelarray(k) = ""
    Set outstream = fsys.OpenTextFile("c:\channelcount.txt", ForWriting, True)
     Set txtstream = fsys.OpenTextFile("C:\rohit program\exercise\SWD\" & filename, ForReading, False)
               Do Until txtstream.AtEndOfStream
                   searchline = txtstream.ReadLine
                     homeid = Mid(searchline, 1, 10)
                      channelname = Mid(searchline, 13, 5)
                       channelarray(i) = homeid & channelname
                         If channelarray(i) <> channelarray(i + 1) Then
                           'do nothing
                            channelarray(k) = channelarray(i)
                            If InStr(1, channelarray(i), channelname, vbTextCompare) = False Then
                                channelcount = channelcount + 1
                            'outstream.WriteLine (channelarray(k))
                             outstream.WriteLine (channelarray(i)) & channelcount
                            End If
                         End If
                           channelarray(i + 1) = channelarray(i)
 
 
 
 
 
 
 
 
               Loop
                   MsgBox "process completed"