callsub error

[wolko]

Can you help me solving this error?

Callsub ("recherch",val(i),m)
Error description
Length cannot be less than zero.
Parameter name : Length.

BR - Serge

[klaus]

Have you declared val() ?

What value does i have ?

Do you have some more code to look at ?

Best regards.

[wolko]

Originally Posted by klaus

Have you declared val() ?

What value does i have ?

Do you have some more code to look at ?

Best regards.

THIS IS THE CODE, thanks for your kind help.
Enter this nr in textbox1 : 10324197
then click OK
then chose anything from COMBOBOX1
the error occurs at that moment.

BR
Serge

[Erel]

I'm sorry if I'm annoying but it will be much easier to test your code if you'll compress your files to one zip.

[wolko]

Originally Posted by Erel

I'm sorry if I'm annoying but it will be much easier to test your code if you'll compress your files to one zip.

Sorry, this is the zipped files :

BR
Serge

[klaus]

I had a look at your code:

1) The "Recherch" routine is not finished ! There is no End Sub line

<font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">FileClose</font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2"> (c1)</font></font>
</font></font><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">FileClose</font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2"> (buf)</font></font>
</font></font><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">FileCopy</font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2"> (</font></font></font></font><font face="Courier New"><font size="2"><font color="#800000"><font face="Courier New"><font size="2"><font color="#800000"><font face="Courier New"><font size="2"><font color="#800000">"Datab.txt"</font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2">, </font></font></font></font><font face="Courier New"><font size="2"><font color="#800000"><font face="Courier New"><font size="2"><font color="#800000"><font face="Courier New"><font size="2"><font color="#800000">"Data.txt"</font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2">)</font></font>
</font></font><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">End</font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2"> Recherch </font></font>
</font></font><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">Msgbox</font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2">(</font></font></font></font><font face="Courier New"><font size="2"><font color="#800000"><font face="Courier New"><font size="2"><font color="#800000"><font face="Courier New"><font size="2"><font color="#800000">"269"</font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2">) </font></font>
<font size="2"><font face="Courier New">nonTrouv�:</font></font>
<font size="2"><font face="Courier New">textbox2.Text = </font></font></font></font><font face="Courier New"><font size="2"><font color="#800000"><font face="Courier New"><font size="2"><font color="#800000"><font face="Courier New"><font size="2"><font color="#800000">"NON TROUVE"</font></font></font>
</font></font></font></font></font></font><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">FileClose</font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2"> (c1)</font></font>
</font></font><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">FileClose</font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2"> (buf)</font></font></font></font>

What is End Recherch supposed to do ?

2) You call Recherch with CallSub ("Recherch",val(i),m)
but your variables are global variables, you don't need to transfer those in the calling line , just Recherch is enough to call the routine, like?

<font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">Sub </font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2">ComboBox1_SelectionChanged (Index, Value)</font></font>
<font size="2"><font face="Courier New">  i = </font></font></font></font><font face="Courier New"><font size="2"><font color="#800080"><font face="Courier New"><font size="2"><font color="#800080"><font face="Courier New"><font size="2"><font color="#800080">0</font></font></font>
</font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2">  val(i) = value</font></font>
<font size="2"><font face="Courier New">  m=</font></font></font></font><font face="Courier New"><font size="2"><font color="#800080"><font face="Courier New"><font size="2"><font color="#800080"><font face="Courier New"><font size="2"><font color="#800080">2</font></font></font>
</font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2">  Recherch</font></font>
</font></font><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">  Msgbox</font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2">(</font></font></font></font><font face="Courier New"><font size="2"><font color="#800000"><font face="Courier New"><font size="2"><font color="#800000"><font face="Courier New"><font size="2"><font color="#800000">"SSS"</font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2">)</font></font>
</font></font><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">End Sub</font></font></font></font></font></font></font></font></font>

3) In routine Button1_Click you use following line:

<font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">If</font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2"> sentence = </font></font></font></font><font face="Courier New"><font size="2"><font color="#800080"><font face="Courier New"><font size="2"><font color="#800080"><font face="Courier New"><font size="2"><font color="#800080">EOF </font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">Then </font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">Goto</font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2"> nonTrouv�</font></font></font></font>

You try to jump outsides the routines, this is NOT allowed in Basic4PPC.

4) Following code

  <font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">If</font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2"> mots(</font></font></font></font><font face="Courier New"><font size="2"><font color="#800080"><font face="Courier New"><font size="2"><font color="#800080"><font face="Courier New"><font size="2"><font color="#800080">0</font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2">)= Textbox1.Text </font></font></font></font><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">Then </font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">Goto</font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2"> MAJ </font></font></font></font><font face="Courier New"><font size="2"><font color="#008000"><font face="Courier New"><font size="2"><font color="#008000"><font face="Courier New"><font size="2"><font color="#008000">'Else Msgbox ("non trouv�")</font></font></font>
</font></font></font></font></font></font><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">Loop</font></font></font>
</font></font></font></font></font></font>
<font size="2"><font face="Courier New"><font size="2"><font face="Courier New">MAJ:</font></font></font></font>

can be replaced by:

  <font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">If</font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2"> mots(</font></font></font></font><font face="Courier New"><font size="2"><font color="#800080"><font face="Courier New"><font size="2"><font color="#800080"><font face="Courier New"><font size="2"><font color="#800080">0</font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2">)= Textbox1.Text </font></font></font></font><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">Then </font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">Exit</font></font></font></font></font></font></font></font></font>
<font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">Loop</font></font></font></font></font></font></font></font></font>

Try to make the changes suggested above and post the new version and we can look at it again.

Are you 'translating' the code from another basic ?

Best regards.

[klaus]

I had a second look at your program.

Attached a modifyed version, I have shortened the code.
- replaced all your ComboBox filling routines by just one.
- deleted a lot of none necessary variables used for the ComboBox filling
- replaced the ComboBoxX_SelectionChanged routines by one.

As I don't know exactly what you want to do I made some assumptions.
- I am not shure if you really need the array val(100), a single variable would probably do it.
- in the ComboBox_SelectionChanged is m = i + 1 or could it be different
-- if yes m = i + 1 is OK
-- otherwise you must use the Select / case structure

If you have any questions about these changes don't hesitate to ask.

Best regards.

[wolko]

Many thanks for your kind help.
I will use your simplification in my original code.
I also found the line causing the error, wich is :
ligne = StrReplace (oldsentence,mots(m),val(i))

As I cannot find the cause of the error, I am looking for a turn around.
I have to read a line record of 13 words separated by commas (,) , change one of these words (the 3rd one for instance), then write the line record with the change to update the file.

In case you have an idea ....

Serge

Originally Posted by klaus

I had a second look at your program.

Attached a modifyed version, I have shortened the code.
- replaced all your ComboBox filling routines by just one.
- deleted a lot of none necessary variables used for the ComboBox filling
- replaced the ComboBoxX_SelectionChanged routines by one.

As I don't know exactly what you want to do I made some assumptions.
- I am not shure if you really need the array val(100), a single variable would probably do it.
- in the ComboBox_SelectionChanged is m = i + 1 or could it be different
-- if yes m = i + 1 is OK
-- otherwise you must use the Select / case structure

If you have any questions about these changes don't hesitate to ask.

Best regards.

[klaus]

The problem is that in the lines you have many ";" with nothing in between.
10324197;RES ALPINA II;Voice & Data RM LCE NEB-GSM;;;;;;;;;11;;;;;;;;

That means that, when you split your sentence into words, many words have nothing, in they are empty.
Then in your line ligne = StrReplace(oldsentence,words(m),val(i)) you try to serch for an empty word in the sentence, that's what the program doesn't like.

In the attached program you have a code that works:
- it is looking if words(m) is empty
- if yes it searches for the for the mth ";" and inserts the text there.
- if no it replaces the text.

The line you speak of is:
ligne = StrReplace(oldsentence,mots(m),val(i))

In the source code I have the line is
ligne = StrReplace(oldsentence,words(m),val(i))

In the Recherche routine you use both, in the second part of the routine do you want to use words(i) or mots(i) ?

Best regards.