Jump to content
Xtreme .Net Talk

Code not returning or looping or something right? Take a look please


Recommended Posts

Posted

Here is my code ...

 

WHat it should do ... is loop through array with addresses in it then display them on a richtextbox

 

However, it loops through does the first one .... then I have to click the button event again for it to get the 2nd one BUT THEN when I click button the 3rd time it doesnt do the third address it simply repeats number 2

 

Ok, I have moved myInt around ... I even tried putting the whole thing in a do while and then a do until HOwevr I may not hav done eithe of thos right either

 

Please help

 

I just need it to go through each and do to each what its supposed to

 

Oh ... I am going to include my xml file so you can see what its pulling from and to s if you might have any sugestions as to how to do this more efficiently

My XML

<?xml version ="1.0" encoding ="utf-8"?>
<Tulsa>
 <Streets>
   <Riverside S61="193,499,100" S71="276,708,1300" S81="400,916,1600" S91="530,1126" S101="589,1334">S Riverside Pkwy</Riverside>
   <Peoria S61="277,498,1300" S71="271,680,1300">S Peoria Ave</Peoria>
   <Lewis S61="485,498,2400" S71="485,707,2400" S81="485,916,2400" S91="553,1126,2500">S Lewis Ave</Lewis>
   <Delaware S61="595,470,2800" S71="595,706,2800" S81="588,916,2800" S91="589,1335,2800">S Delaware Ave</Delaware>
   <Harvard S61="" S71="" S81="692,916,3300" S91="" S101="">S Harvard Ave</Harvard>
   <Yale S61="" S71="" S81="901,916,4900" S91="" S101="">S Yale Ave</Yale>
   </Streets>
</Tulsa>

My CODE [

 
Dim myXML As XDocument
       myXML = XDocument.Load(myXMLPath)

       Dim myTempArr() As String
       Dim stString() As String = {"6100 S Riverside Pkwy", "8100 S Yale Ave", "6100 S Peoria Ave"}
       Dim myString As String = ""
       Dim myEl() As String


       myInt += 1
       

       For i = 0 To UBound(stString)

           If myInt > stString.Count - 1 Then
               Exit For
           Else
               myString = stString(myInt)
           End If
       Next

       myEl = myString.Split(" ")


       For Each xa In myXML.Descendants

           For i = 0 To myEl.Count - 1
               If myEl(i).ToString() = xa.Name.ToString() Then
                   ' MsgBox(myEl(i)) ' <<<<< Msgbox for testing code
                   If xa.Name = myEl(i) Then
                       myString = Microsoft.VisualBasic.Left(myString, 6).ToString()

                       Dim Sst As String = Microsoft.VisualBasic.Right(myString, 1)
                       Dim streetNum As String = Microsoft.VisualBasic.Left(myString, 4)
                       Dim tAtt As String = Sst & Microsoft.VisualBasic.Left(streetNum, 2)
                       ' MsgBox("String equals - " & tAtt) ' <<<<< Msgbox for testing code
                       myTempArr = xa.Attribute(tAtt).Value.Split(",")
                       For myInt = 0 To UBound(myTempArr)
                           rtb1.Text = rtb1.Text & "Mouse Coordinates Are: " & myTempArr(0) & ", " & myTempArr(1) & vbCrLf _
                                & "The Hundred Block is " & myTempArr(2) & " E " & vbCrLf & _
                                "Which is " & myEl(i) & " & " & Microsoft.VisualBasic.Right(tAtt, 2) _
                                & "st ST" & vbCrLf & vbCrLf
                           Exit For ' Not sure about this Exit For .....
                       Next


                   End If

               End If
           Next



       Next

 

The future end result of this will be to remove the rtb code all together and replace it with code that will mark the addresses on a map ... I hav that code already written and it works great just ned to be able to search my xml with the addresses contained in the array and mark each point that it finds

 

 

Mark

Visual Basic 2008 Express Edition!

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...