Load URL from List?

General
1

Hey folks,

There is probably a simple way to do this but its escaping me!

Im trying to load URL’s from a button press to load in a DesktopHTMLViewer. But each time the button is pressed it I need it to load the next URL in a list.

I have a list of urls in a text file but it doesnt nessessarly need to get its information from the .txt file. I have around 40 URLS i need it to cycle through.

Could anyone point me in the right direction to get started?

Many many thanks in advanced!!

Robin

2

have an array of strings as a property of the window.
Fill the array with your URLs.

In the button pressed/action event,

if there are any values in the array,
showURL thearray(0)
thearray.remove(0) // RemoveAt(0) in API2

2 Likes
3

Thank you Jeff!

I had a bit of brain fart and found another way.

I used a property in the window called “URLS1 as integer and default set at 0”

and in the button i used select case as below.

Select Case Self.URLS1 
  
Case 0
  
  HTMLViewer1.LoadURL("https://www.example1.com")
  
Case 1
  
  HTMLViewer1.LoadURL("https://www.example2.com")
  
Case 2
  
  HTMLViewer1.LoadURL("https://www.example3.com")
  
Case 3
  
  HTMLViewer1.LoadURL("https://www.example4.com")
  
Case 4
  
  HTMLViewer1.LoadURL("https://www.example5.com")
  
End Select

URLS1 = URLS1 + 1

if URLS1 > 4 then
  URLS1 = 0
  
end if
4

Fair enough.
You didn’t say you wanted to rotate the list.

I’ll offer you this mod:

Window property
URLS() as string

In window open event:

URLS.append "https://www.example1.com"
URLS.append "https://www.example3.com"
URLS.append "https://www.example2.com"
URLS.append "https://www.example7.com"
URLS.append "https://www.example9.com"
URLS.append "https://www.example17.com"

In the button action event:

static nextURL as integer
HTMLViewer1.LoadURL(URLS(nextURL))
nextURL = (nextURL +1) mod 6    // 6 or however many URLs you have
//adds 1 until you reach 6, when it becomes 0 again
2 Likes
5

What’s wrong with:

urlstr = thearray(0)
showURL (urlstr)  // or whatever the syntax is
thearray.removeAt(0)
thearray.add(urlstr)

ad infinitum.

1 Like
6

Also valid. I like it.