Program hangs, caused by strttoupper

token

Member
Licensed User
Hello,

as soon as I uncomment the line "'r = StrToUpper(r)" in the attached program, it hangs when I try to execute it in the desktop-ide. Don't know why.

Perhaps someone can help me.

Thanks in advance!

Kind regards:

Token
 
Last edited:

Erel

Administrator
Staff member
Licensed User
B4X:
        Do Until r = EOF
            sum = sum + 1
            r = FileRead (c1)
            'r = StrToUpper(r)
            ChanPos = StrIndexOf  (r , "Chan := ",0)
            If ChanPos > 0 Then
                ChanText = SubString (r,ChanPos + 8, 2)
                textbox1.Text=SubString(RemoveSpaces(r),0,11)
                If SubString(RemoveSpaces(r),0,11) = "My_RetValue" Then
                    r = FileRead(c1)
                    Table1.AddRow (ChanText,r)
                End If                    
            End If
        Loop
EOF is a string mark. If you change 'r' with StrToUpper, r will never be equal to EOF.
 

token

Member
Licensed User
B4X:
        Do Until r = EOF
            sum = sum + 1
            r = FileRead (c1)
            'r = StrToUpper(r)
            ChanPos = StrIndexOf  (r , "Chan := ",0)
            If ChanPos > 0 Then
                ChanText = SubString (r,ChanPos + 8, 2)
                textbox1.Text=SubString(RemoveSpaces(r),0,11)
                If SubString(RemoveSpaces(r),0,11) = "My_RetValue" Then
                    r = FileRead(c1)
                    Table1.AddRow (ChanText,r)
                End If                    
            End If
        Loop
EOF is a string mark. If you change 'r' with StrToUpper, r will never be equal to EOF.
Many thanks, Erel.
 
Top