Please take a look at this code

[jschuchert]

Below are 5 lines of comma-delimited text which I wish to manipulate with the code below it. The lines of text constitute the file 'strfilename'

1,1000,1000,none
2,1027.699,1030.228,none
3,5000,5000,iron rod
4,993.547,6987.254,none

Sub Globals
    'Declare the global variables here.
    Public dblnorth1,dbleast1,dblndiff,dblediff,dblbearing,dblbearingdms
    Public dblnorth2,dbleast2
    Dim firstpt,secondpt
    Dim coord(4)  '<font color="red">array for variable 'coord'</font>
     radian=cPI/180
     radianreverse=180/cPI
End Sub


Sub startinverse8(strbearing)
FileClose(c)
FileOpen(c, main.strfilename,cRead)
pintcntr = StrIndexOf(strBearing, "*",0) <font color="red">strbearing=1*2</font>
firstpt = SubString(strBearing, 0, pintcntr)
secondpt = SubString(strBearing, pintcntr+1,StrLength(strbearing)-pintcntr)
lineoftext=""
Do Until lineoftext = EOF
lineoftext=FileRead(c)   '<font color="red"> reads each line consecutively</font>
coord()=StrSplit(lineoftext,",")
If coord(0)= secondpt Then  '<font color="red"> first character in the line of text </font>
dblnorth2=coord(1) 
dbleast2=coord(2)
Exit    '<font color="red"> exit the loop when coord(0)=2 (second pt)</font>
End If
Loop
-
-
-

I have verified that the variable 'secondpt' has the value of 2 (I set a break point and observed it)

Here is the issue: The program loops through the lines of text and parses the first character (coord(0)) in the order it should but WILL NOT execute the next line of code when it compares 'secondpt' with 2. If I use the actual number 2, then it works. It has no problem with 'firstpt' which is 1 ( I didn't include the code for that). I looked for a 'trim' or 'strtrim' thinking that maybe a leading space was causing the problem but couldn't find one. My app will be using this method a lot so I need to solve the problem. Thanks for all the past support your have given.

Jim

[jschuchert]

I found solution. If I use "int" before the variable, it works. Apparently this is the only type changing keyword. I thought everything was a variant and the program would 'type' it within its context.

[agraham]

It is not a typing issue, the real problem is an "off by one" here

secondpt = SubString(strBearing, pintcntr+1,StrLength(strbearing)-pintcntr)

You are asking for one more character than exists in the string so SubString is padding it with an extra space at the end. The If is doing a string comparison between "2" and "2 " and failing.

Your Int() is transforming "2 " to "2", forcing any arithmetic operation will in fact make it work like "secondpt * 1". The real fix is to get the length right in the first place.

secondpt = SubString(strBearing, pintcntr+1,StrLength(strbearing)-pintcntr<font color="Red"><b>-1</b></font>)

[jschuchert]

Yes, that is true and I think the '0' index was confusing me. Here was my thinking: pintcntr=2 (because the '*' is the second character) but with 0 as the index it is 1. (too much use of "mid" in other programs) Strlength(strbearing) was 3 ... pintcntr+1 (2+1) was 3 also and "strlength(strbearing) - pintcntr(2)" = 1...hence secondpt would be the value of "2" if I had used the correct index.

Your "off by one" is accurate and a good catch. After your analysis, I did some checking on the lengths of points 1 and 2 when I assigned them by the substring method earlier and found the same problem with "2". As a matter of fact, the length of strbearing was 4 (1*2 ) because of that. Thanks again for your eagle eye and great help. I really value your opinions and expertise.

Jim