Visual Basic

Ankit Aneja wrote:

With dr
_GrossWeight = .GetDouble("GrossWeight")
where _GrossWeight has also datatype as double
it's not working fine

   Private Sub AppendFiles(ByVal inputPath As String, ByVal outputFile As String)
      Dim columnPositions(10) As Integer
      Dim theDir As DirectoryInfo = New DirectoryInfo(inputPath)
      Dim theFiles As FileInfo() = theDir.GetFiles("*.txt")
      Dim doHeaders As Boolean = Not File.Exists(outputFile)
      Dim maxColPos(10) As Integer

      Call GetMaxColPos(maxColPos, theFiles)
      Using sw As StreamWriter = New StreamWriter(outputFile, True, System.Text.Encoding.Default)
           ....... 
               'Now read and write the data lines   
               While sr.Peek() >= 0
                  inputLine = sr.ReadLine()
                  outputLine = GetOutputLine(inputLine, createdAt, maxColPos)
                  sw.WriteLine(outputLine)
               End While
            End Using
         Next fileCount
      End Using
   End Sub

   Private Sub GetMaxColPos(ByVal p As Integer(), ByVal files As FileInfo())
      Dim inLine As String
      Dim fieldLen As Integer
      For Each fi As FileInfo In files
         Using sr As StreamReader = New StreamReader(fi.FullName(), System.Text.Encoding.Default)
            inLine = sr.ReadLine()
            fieldLen = inLine.IndexOf("Nom du Modèle")
            If (fieldLen > p(0)) Then p(0) = fieldLen
            fieldLen = inLine.IndexOf("AEC_COMPATIBILITY")
            If (fieldLen > p(1)) Then p(1) = fieldLen
            fieldLen = inLine.IndexOf("AEC_STANDARD_DESCRIPTION_FRENCH")
            If (fieldLen > p(2)) Then p(2) = fieldLen
            fieldLen = inLine.IndexOf("AEC_FREE_DESCRIPTION_FRENCH")
            If (fieldLen > p(3)) Then p(3) = fieldLen
            fieldLen = inLine.IndexOf("AWW_STANDARD_DESCRIPTION")
            If (fieldLen > p(4)) Then p(4) = fieldLen
            fieldLen = inLine.IndexOf("AEC_FREE_DESCRIPTION_ENGLISH")
            If (fieldLen > p(5)) Then p(5) = fieldLen
            fieldLen = inLine.IndexOf("AEC_ECN")
            If (fieldLen > p(6)) Then p(6) = fieldLen
            fieldLen = inLine.IndexOf("DNF")
            If (fieldLen > p(7)) Then p(7) = fieldLen
            fieldLen = inLine.IndexOf("REP_DNF")
            If (fieldLen > p(8)) Then p(8) = fieldLen
            fieldLen = inLine.IndexOf("REP_ASM")
            If (fieldLen > p(9)) Then p(9) = fieldLen
         End Using
      Next
   End Sub

columnPositions

Member 3057887 wrote:

I am completely new to vb 6.0