Visual Basic

Imports System
Imports System.Text
Imports System.IO

module CSVReader
   public Sub Main()
      Dim theFile As String = "C:\PlayPen\TheData.txt"
      Dim rdr As StreamReader = new StreamReader(theFile)
      Using (rdr)
         Dim theKey As String = ""
         Dim input As String
         Dim recType As String
         
         while (rdr.Peek >= 0)
            input = rdr.ReadLine()       'Should check that not a blank line
            Dim recArray As String()     'if there is one then following fails
            recArray = input.Split(",")
            recType = recArray(0)
            Select Case(recType)
               case "11":
                  theKey = recArray(1)   'Need to change this to get type 11 key
                  Process11(input)
               case "12":
                  Process12(theKey, input)
               case "13":
                  Process13(theKey, input)
               case "14":
                  Process14(theKey, input)
               case else
                  Console.WriteLine("Oops: {0}", input)
            End Select
         End While
      End Using
   End Sub

   private Sub Process11(rec As String)
      Console.WriteLine("Proc11 {0}",rec)
   End Sub

   private Sub Process12(key11 As String, rec As String)
      Console.WriteLine("Proc12 key = {0}: {1}", key11, rec)
   End Sub

   private Sub Process13(key11 As String, rec As String)
      Console.WriteLine("Proc13 key = {0}: {1}", key11, rec)
   End Sub

   private Sub Process14(key11 As String, rec As String)
      Console.WriteLine("Proc14 key = {0}: {1}", key11, rec)
   End Sub
End Module

to attract an answer from the handful of people still using it.

You should put VB6 in your subject line.

Christian Graus wrote:

put VB6 in your subject line to attract an answer from the handful of people still using it

Christian Graus wrote:

I never use VB6

indian143 wrote:

When I compile it, it is compiling but when I run it it is saying compilation error "User-defined type not defined".

indian143 wrote:

When I compile it, it is compiling but when I run it it is saying compilation error "User-defined type not defined".

Private Type udtScannerInfo
    strLoadID As String
    strLoadDate As String
End Type

Private muScannerInfo(1 To 2) As udtScannerInfo

indian143 wrote:

When I added a library and tried for running the application then I got the following message "No creatable public component detected"