Visual Basic

7-May-09 5:05

Thanks in advance.

modified 28-Nov-12 8:14am.

Dave Kreskowiak7-May-09 5:32

Dave Kreskowiak

7-May-09 5:32

Soooooo, what in these headers is going to tell you the field length??

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007, 2008

riced7-May-09 6:58

7-May-09 6:58

I knew this was going to be a problem. Big Grin | :-D

Is there not some specification somewhere that tells you the layout of the files? Why are they different? Confused | :confused:

Regards
David R
---------------------------------------------------------------
"Every program eventually becomes rococo, and then rubble." - Alan Perlis

riced7-May-09 8:46

7-May-09 8:46

Here's a possible solution assuming you want to do it in AppendFiles(). Check the names in GetMaxColPos I'm not sure they're correct.

   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

Regards
David R
---------------------------------------------------------------
"Every program eventually becomes rococo, and then rubble." - Alan Perlis

Message Closed

7-May-09 11:37

7-May-09 11:37

Message Closed

riced7-May-09 12:22

7-May-09 12:22

No. The only changes that should be made are the ones I highlighted.
Think about it - you need two arrays: one to hold the max widths for the output, one to hold the widths for the current input file. So you also need two subs to populate the two arrays. You have to get the max widths before reading through the input files.
There's a potential problem with the output - it probably does not line up. This is because when the input is split up it includes leading/trailing spaces. If so then GetOutputLine needs tweaking.

Where did colPos come from? It should be

columnPositions

.
Is this one big application that concatenates a bunch of files, then outputs a file with parent-child lines? Or are these separate apps that just happen to have same/similar input files? The reason I ask is that the problems you are finding all seem to be related.

Regards
David R
---------------------------------------------------------------
"Every program eventually becomes rococo, and then rubble." - Alan Perlis

Message Closed

8-May-09 0:42

8-May-09 0:42

Message Closed

riced9-May-09 1:18

9-May-09 1:18

This is same problem as before. You need to step through and check that all the values in the column position arrays are positive and increasing. And also that the input line is at least as long as the highest column position.

Regards
David R
---------------------------------------------------------------
"Every program eventually becomes rococo, and then rubble." - Alan Perlis

vijay24829-May-09 3:02

DataGridView CheckBox column

9-May-09 3:02

As you said, i will checkout and let you know.
Thanks for your support

Paul McGann7-May-09 5:00

Paul McGann

7-May-09 5:00

I have a checkbox column in a datagridview.

I only want the user to be able to select one item in the datagridview.

But i don't know where to begin to get a count upon the number of checkboxes that are checked

Any help is much appreciated.

ASP all the way

Henry Minute7-May-09 11:28

Henry Minute

7-May-09 11:28

What is the DataGridView bound to?

I mean, is it a database, a generic list a non-generic list.......

Henry Minute

Do not read medical books! You could die of a misprint. - Mark Twain
Girl: (staring) "Why do you need an icy cucumber?"
“I want to report a fraud. The government is lying to us all.”

Paul McGann7-May-09 13:08

Paul McGann

7-May-09 13:08

It is bound to a datatable populated by a database stored proc

ASP all the way

Henry Minute8-May-09 1:57

Henry Minute

8-May-09 1:57

The only thing I can think of that might work.

Have a int field to track the row index of the 'true' row call it trueRow for illustration.
In either the OnCellClick or OnCellLeave handler, compare the row (e.RowIndex) to trueRow, if the same, return. If not the same, test if the cell (e.CellIndex) is the CheckBoxCell and if so, set the checkboxCell value from trueRow to false, store new row in trueRow.

Sorry not to be of more help.

Good luck! Smile | :)

Problem with sstab control in vb 6.0

Paul McGann8-May-09 3:10

Paul McGann

8-May-09 3:10

i have that working now on the cell click event

thanks man

ASP all the way

Member 30578877-May-09 3:53

Member 3057887

7-May-09 3:53

hi
I am completely new to vb 6.0. I have sstab control in which i have 4 tabs
GSM,GPRS,CDMA,PSTN. Each tab contains should contain a set of controls. The problem starts there. I am not able to put controls in the tabs so that the controls are visible only when the corresponding tab is clicked.

Thanks in advance

Re: Problem with sstab control in vb 6.0 [modified]

Tom Deketelaere7-May-09 4:19

Tom Deketelaere

7-May-09 4:19

Abandon vb6 and do it in .NET

Seriously why do people still program new programs in that language.
It never was any good, the language is dead and has been for several years and its no longer supported.

Dalek Dave7-May-09 4:30

Dalek Dave

7-May-09 4:30

Tom's right, Get VB.Net, it is a free download.

It (VB6) is unsupported and opens you to ridicule and shame!
Smile | :)

------------------------------------

"Children today are tyrants. They contradict their parents, gobble their food and tyrannize their teachers. I despair for the future."
Socrates 400BC

modified on Thursday, May 7, 2009 10:36 AM

Dave Kreskowiak7-May-09 5:30

Dave Kreskowiak

7-May-09 5:30

Member 3057887 wrote:
I am completely new to vb 6.0

Great! Stop while you still can and be completely new to VB.NET before VB6 teaches you a ton of bad habits you have to unlearn to move up to VB.NET!

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007, 2008

Member 30578877-May-09 18:57

Member 3057887

7-May-09 18:57

But the current project is in vb6 and we have an urgent demo. So there is only one option(continue working on this till the demo is complete).So if any one knows the solution kindly let me know

Thanks in advance

Dave Kreskowiak8-May-09 0:29

Dave Kreskowiak

8-May-09 0:29

I couldn't tell you - I haven't used VB6 in 8 years.

I'll warn you now - VB6 has been unsupported by Microsoft for quite a long time now, and its runtime will not be supported under Windows Seven. Your app will work under XP, may or may not work under Vista, and won't work at all under Windows Seven.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007, 2008