I can not find the error

Question

1.00/5 (2 votes)

See more:

"Count cannot be less than zero."
i get this error and i can not resolve please if somebody can help me!

Dim encoding__1 As Encoding = Encoding.GetEncoding("windows-1251")
           If File.Exists(Me.TextFile) Then
               File.Delete(Me.TextFile)
           End If
           Dim streamWriter As New StreamWriter(Me.TextFile, False, encoding__1)
           streamWriter.Write(" 01" & vbTab & "1" & vbTab & vbTab & "0" & vbTab & vbCr & vbLf)
           Dim num1 As Integer = 0
           Dim enumerator As List(Of Article).Enumerator
           Try
               enumerator = Me.Stavki.GetEnumerator()
               While enumerator.MoveNext()
                   Dim current As Article = enumerator.Current
                   Strings.Chr(CInt(current.VAT))
                   Dim num2 As Short = CShort(1)
                   Select Case current.VAT
                       Case VATgroup.А
                           num2 = CShort(1)
                           Exit Select
                       Case VATgroup.Б
                           num2 = CShort(2)
                           Exit Select
                       Case VATgroup.В
                           num2 = CShort(3)
                           Exit Select
                       Case VATgroup.Г
                           num2 = CShort(4)
                           Exit Select
                   End Select
                   If num1 Mod 2 = 0 Then
                       streamWriter.Write(String.Format("#1{0}" & vbTab & "{3}" & vbTab & "{1}" & vbTab & "{2}" & vbTab & "0" & vbTab & vbTab & vbTab, DirectCast(current.Name.Remove(20, current.Name.Length - 20), Object), DirectCast(Me.FormatNumber(current.Price, 2), Object), DirectCast(Me.FormatNumber(current.Amount, 3), Object), DirectCast(num2, Object)) + vbCr & vbLf) ' ERROR IS HERE
                   Else
                       streamWriter.Write(String.Format(" 1{0}" & vbTab & "{3}" & vbTab & "{1}" & vbTab & "{2}" & vbTab & "0" & vbTab & vbTab & vbTab, DirectCast(current.Name.Remove(20, current.Name.Length - 20), Object), DirectCast(Me.FormatNumber(current.Price, 2), Object), DirectCast(Me.FormatNumber(current.Amount, 3), Object), DirectCast(num2, Object)) + vbCr & vbLf)
                   End If
                   num1 += 1

               End While
           Finally
               enumerator.Dispose()
           End Try
           streamWriter.Write(String.Format("&5{0}" & vbTab & vbTab, DirectCast(PaidMode, Object)) + vbCr & vbLf)
           streamWriter.Write("%8")
           streamWriter.Flush()
           streamWriter.Close()

Posted 3-Mar-15 2:52am

Atmir

Add a Solution

Comments

ZurdoDev 3-Mar-15 8:58am

Is there a reason you cannot debug it?

Atmir 3-Mar-15 9:00am

Really i can not i am working for 12 hours now i dont hane idea please can you help me!

CHill60 3-Mar-15 9:15am

On which line does the error occur?

Atmir 3-Mar-15 9:16am

in this line:
streamWriter.Write(String.Format("#1{0}" & vbTab & "{3}" & vbTab & "{1}" & vbTab & "{2}" & vbTab & "0" & vbTab & vbTab & vbTab, DirectCast(current.Name.Remove(20, current.Name.Length - 20), Object), DirectCast(Me.FormatNumber(current.Price, 2), Object), DirectCast(Me.FormatNumber(current.Amount, 3), Object), DirectCast(num2, Object)) + vbCr & vbLf)

CHill60 3-Mar-15 9:41am

current.Name has less than 20 characters in in perhaps???

ZurdoDev 3-Mar-15 9:17am

Just put a breakpoint and see where the error happens. I can't help you by just guessing what's happening.

Atmir 3-Mar-15 9:22am

Count cannot be less than zero

Atmir 3-Mar-15 9:23am

this is error:
An unhandled exception of type 'System.ArgumentOutOfRangeException' occurred in mscorlib.dll

Additional information: Count cannot be less than zero.

ZurdoDev 3-Mar-15 9:33am

It's likely in your Remove() code. Again, all you have to do is debug it. We can't see your data and know for sure what's happening. This is something you'll have to do.

Atmir 3-Mar-15 9:52am

ok i will try without Remove()

ZurdoDev 3-Mar-15 9:56am

No, that isn't what I was saying. You need to debug it and find what is causing the error and then fix it.

It's probably the Remove() function because the parameter you're passing when you subtract 20 is likely causing it to be negative.

Sergey Alexandrovich Kryukov 3-Mar-15 9:31am

1) write code accurately, not the way it is written now; 2) use the debugger.
Range exception is quite trivial and one of the easiest to locate and fix.
—SA

Santosh K. Tripathi 3-Mar-15 23:02pm

_SA is right.

As per MSDN ( https://msdn.microsoft.com/en-us/library/ff926074.aspx )
1. Write only one statement per line.
2. Write only one declaration per line.

this will easy and save your time during debugging/ Maintenance.

1 solution

Add a Solution

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Kornfeld Eliyahu Peter · Accepted Answer · 2015-03-03T07:43:00

Solution 1

Obviously, (current.Name.Length - 20) yields a less then zero value!
See the possible errors of String.Remove[^] method...

Posted 3-Mar-15 7:43am

Kornfeld Eliyahu Peter

I can not find the error

1 solution

Solution 1

Add your solution here

Preview 0

I can not find the error

1 solution

Solution 1

Add your solution here

Preview 0

Existing Members

...or Join us