Visual Basic

riced2-May-09 11:50

2-May-09 11:50

Just struck me that I'd put the hack in the wrong place, and I'd not set the dictionary entry for the new spaces. D'Oh! | :doh:

It only needs to be done if an exception is thrown.
Here's the version that might work. Smile | :)

Private Function GetGeneration(ByVal s As String, ByVal resetDict As Boolean) As Integer
   Dim spaceCount As Integer
   Static maxSpaces As Integer = -1
   Static lastGen As Integer = -1
   Static genDict As Dictionary(Of Integer, Integer) = New Dictionary(Of Integer, Integer)

   If (resetDict) Then
      genDict.Clear()
      maxSpaces = -1
      lastGen = -1
   End If

   spaceCount = NbOfCar(s, " ")

   If (spaceCount > maxSpaces) Then
      lastGen += 1
      genDict.Add(spaceCount, lastGen)
      maxSpaces = spaceCount
   End If

   Try
      GetGeneration = genDict(spaceCount)
   Catch
      'START Hack that might deal with example file
         'Find the number of spaces for top level parent
      Dim gen0Spaces As Integer
      For Each k As Integer In genDict.Keys()
         If genDict(k) = 0 Then
            gen0Spaces = k
         End If
      Next k
      'Clear the dictionary and add gen 0 back since we need to keep it
      genDict.Clear()
      genDict.Add(gen0Spaces, 0)
      maxSpaces = gen0Spaces
      lastGen = 0
      'Now add the entry for the 3 space indented line
      genDict.Add(spaceCount, lastGen)
      maxSpaces = spaceCount
      GetGeneration = genDict(spaceCount)
      'END of Hack
   End Try
End Function

Regards
David R

vijay24822-May-09 21:57

2-May-09 21:57

Thanks a lot...
Will check out this code with my input file and let you know...

Message Closed

3-May-09 21:17

Re: IF ELSE or LOOP [modified]

3-May-09 21:17

Message Closed

riced3-May-09 23:02

3-May-09 23:02

That's not unexpected. Smile | :)

The hack was to deal with the big file you sent in a previous post (and as I said I'm not certain it would actually work 100%, even for that file).
If you check the two input files I suspect you'll find that the one that worked has consistent spacing for each generation; the one that failed did not. Or the one that worked had spacing that the hack could deal with.
The problem is that for each file that fails you have to examine the file and find out how the spacing changes, then devise a hack that deals with it (and that may not be possible). That's why consistent spacing is so important.
The hack relies on the file being in two blocks as shown in this edited extract (^ represents space in Generation column).

 Name etc                                            Generation
 01260709.ASM                    unité moteur        ^Parent
     4296458M91.ASM              ENS MOTEUR 74       ^^^^^Child           'Start of first block
     4296454M1.ASM               MOTEUR 74           ^^^^^Child
       BLOC_MOTEUR_SRT2.ASM      --                  ^^^^^^^Grand Child
         832760664_SANS_SRT2.ASM --                  ^^^^^^^^^Great Grand Child
--- removed lots of lines in file -------            
     4282023M91.ASM              ENS. VOLANT MOTEUR  ^^^^^Child
       4282024M1.PRT             VOLANT D'INERTIE    ^^^^^^^Grand Child
       1619032M1.PRT             COURONNE DEMARREUR  ^^^^^^^Grand Child
   4282010M1.PRT                 --                  ^^^Child             'Start of second block
   3786094M93.ASM                ENS DEMARREUR ISKR  ^^^Child
     3823621M94.PRT              DEMARREUR ISKRA     ^^^^^Grand Child
     3786093M1.PRT               --                  ^^^^^Grand Child
     3788193M1.PRT               --                  ^^^^^Grand Child
     3786092M1.PRT               --                  ^^^^^Grand Child
   4292572M1.PRT                 GARANT DE COLLECTE  ^^^Child
--- removed lots of lines in file -------

The first block has 5 spaces for child lines; the second has 3 spaces. When the first line with 3 spaces is found it throws the error that is caught and used to reset the dictionary. If the two blocks had been in reverse order (i.e. 3 space child lines then 5 space child lines) there would be no possible hack.

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

modified on Monday, May 4, 2009 5:09 AM

Message Closed

3-May-09 23:32

3-May-09 23:32

Message Closed

vijay24823-May-09 23:42

3-May-09 23:42

I found out the reason for the error..;

the error appeared because the of this

Dim parentStack(5) As String

now i have changed to

Dim parentStack(10) As String

because there may be generations more than 5...

Thank David for all your support and help...

Vijay

riced3-May-09 23:45

3-May-09 23:45

You beat me to it!
I'd just set it to 5 as being reasonable and meant to mention it before as a possible problem. Smile | :)

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

Message Closed

3-May-09 23:53

3-May-09 23:53

Message Closed

riced4-May-09 0:45

Re: IF ELSE or LOOP [SOLVED]

4-May-09 0:45

I'd do something like this

outputLine = parentStack(generation - 1).Trim()
outputLine = outputLine & Space( 40 - outputLine.Length()) & name.Trim()
outputLine = outputLine & Space( 80 - outputLine.Length()) & desF.Trim()
outputLine = outputLine & Space(120 - outputLine.Length()) & desAF.Trim()
etc....
sw.WriteLine(outputLine)

Where you need to change the 80, 120 to suit your spacing.
The secret is to build the output line a bit at a time then write it out.
This way of doing it is inefficient because the outputLine variable is constantly being recreated (because strings are immutable).
If that proves a problem because of performance, take a look at StringBuilder in the help system or any VB.Net book.

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

vijay24824-May-09 1:33

The operation could not be completed. Not enough storage is available to complete this operation.

4-May-09 1:33

The code I used based on your suggestion...
Code:

parentStack(generation) = name
                    If (generation > 0) Then
                        outputLine = parentStack(generation - 1).Trim()
                        outputLine = outputLine & Space(40 - outputLine.Length()) & name.Trim()
                        outputLine = outputLine & Space(80 - outputLine.Length()) & desF
                        sw.WriteLine(outputLine & desAF & desA & desAA & ecn & dnf & baloon)
                        'sw.WriteLine(parentStack(generation - 1) & name) 'ORIGINAL LINE  
                    Else
                        'Do you need to do this for lines that have no parent?    
                        outputLine = parentStack(generation).Trim()
                        outputLine = outputLine & Space(40 - outputLine.Length()) & name.Trim()
                        outputLine = outputLine & Space(80 - outputLine.Length()) & desF
                        sw.WriteLine(outputLine & desAF & desA & desAA & ecn & dnf & baloon)
                    End If

Works fine now.
Thanks a lot

modified on Monday, May 4, 2009 7:43 AM

nishkarsh_k28-Apr-09 23:14

nishkarsh_k

28-Apr-09 23:14

Hello every one,

I have a VB 2005 express application. I was changing the interface in IDE (VB 2005 Express By Microsoft). On compiling it gave an error

"The operation could not be completed. Not enough storage is available to complete this operation."

This error was shown on Msgbox(OK Only), on click of "Ok" it opened Save file dialog. I did not saved it. After trying 1-2 more times and googling a bit i decided to close (Without saving) and open the application again.

When i opened the application, the form i was working in is shown blank. I opened the .designer.vb file and resx file. Bot have data in it.

Any idea what has gone wrong and how can i get the thing up back again.

Regards
Nishkarsh

Re: The operation could not be completed. Not enough storage is available to complete this operation.

Henry Minute28-Apr-09 23:51

Henry Minute

28-Apr-09 23:51

You could try closing the designer tab for the form, then reopening it, this sometimes works, although not if closing and opening the solution did not cure the problem.

Otherwise, it is a case of going through the .designer.vb code line by line, and fixing any problems manually.

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.”

GetScreenResolution of client

p_196028-Apr-09 22:44

p_1960

28-Apr-09 22:44

Hi,
i have a html file in webserver and when client tries to invoke html thru url...
i need to display(message box) the screenresolution of client using vbscript....Pls help me out..

Re: GetScreenResolution of client

Jay Royall28-Apr-09 22:55

Jay Royall

28-Apr-09 22:55

Why VBScript and not Java Script? Using Java Script you can use

screen.width

and

screen.height

VBScript will only work in IE.

Re: GetScreenResolution of client

p_196028-Apr-09 23:44

p_1960

28-Apr-09 23:44

Thanks for ur response ......

but im using only vbscript..pls let me know....

Re: GetScreenResolution of client

Jay Royall28-Apr-09 23:48

Jay Royall

28-Apr-09 23:48

But why? Is the script running in a browser? If so then Java Script will run in any browser, VB Script will only run in Microsoft browsers.

Sorry but I don't how to do it in VB Script.

Project ideas in vb

innocent mwila28-Apr-09 21:54

innocent mwila

28-Apr-09 21:54

Im now doing final year of my studies and im required to come up with a project. pls help me to come up with a project and help me with some ideas that i can develop into a project in vb. Thanks

Re: Project ideas in vb

Zaegra28-Apr-09 22:08

Zaegra

28-Apr-09 22:08

To start, what things are YOU interested in? Because writing a program that doens't interest you at all, beats up morale Laugh | :laugh:

Motivation is the key to software development.

Re: Project ideas in vb

Smithers-Jones30-Apr-09 4:14

Smithers-Jones

30-Apr-09 4:14

It's your project, not our's. If you can't even come up with an idea what to do, drop the whole thing immediately.

Re: Project ideas in vb

innocent mwila5-May-09 4:36

innocent mwila

5-May-09 4:36

What i want to develop is an industrial manpower management system. A system that should effectively manage the manpower of an industry to improve the performance ( production, manafacturing and all tasks involved in managing manpower) of that industry. Thanks

License Key generation.

vedaharika28-Apr-09 18:59

vedaharika

28-Apr-09 18:59

I have developed a vb6.0 application with ms access.
Now I want to sell it for trial version.
I want to generate a license key & also i want license agreement.
I want source code for this.
Please any body help me.
thanks in advance

Harika

Christian Graus28-Apr-09 21:10

Christian Graus

28-Apr-09 21:10

vedaharika wrote:
I have developed a vb6.0 application with ms access.

Why ? Are you a masochist ?

vedaharika wrote:
I want source code for this.

Did you write the other source yourself ? you'll have a hard time, what with VB6 being obsolete, unsupported, and rubbish. Why didn't you use a real language ?

Christian Graus

Driven to the arms of OSX by Vista.

"I am new to programming world. I have been learning c# for about past four weeks. I am quite acquainted with the fundamentals of c#. Now I have to work on a project which converts given flat files to XML using the XML serialization method" - SK64 ( but the forums have stuff like this posted every day )

Zaegra28-Apr-09 22:07

Zaegra

28-Apr-09 22:07

If you wrote an entire application in MS Access you're either dumb or genious. Can't determine which one you are though. License agreements should be written by yourself, and mostly include do's or dont's with your program. You should also consider (when really bringing your Access program on the market) using Copyright.

License keys can be made at random, it just needs a specific 'algorithm'. E.g Number-Numer-Letter-Letter. Then write a program that can generate that sort of keys. Please note that license keys can easily be cracked, when not using internet verification.

Hope this helps you out a bit,

Zaegra

Motivation is the key to software development.

Alex@UEA28-Apr-09 22:46

Alex@UEA

28-Apr-09 22:46

I have a vague recollection of something called Activelock for VB6.
Have google for for that