Nevermind I got that working
Now I am dealing with a Out of Bounds Exception on...
Window1.urlsv.RemoveRow urlsv.listindex
When there is nothing else to delete and the user hits Delete again I
get that out of bounds exception.
What are my options
I guess 1: I could disable the buttton
any other ideas?
On Sep 28, 2006, at 8:05 PM, Brian Heibert wrote:
progresswheel1.visible=true
dim i as integer
dim File as FolderItem
dim FileStream as TextInputStream
file=GetOpenFolderItem("")
If file <> Nil and file.exists then
FileStream = file.OpenAsTextFile
If FileStream <> Nil then
Do Until FileStream.EOF
window1.urlsv.AddRow FileStream.ReadLine
Loop
End
Else
MsgBox "File error"
End
It now opens the file but if there are multiple entries it only
shows the first one
heres the save code
dim f as folderItem
dim i as integer
dim t as textOutputStream
dim theLine as string
f = GetSaveFolderItem ("", "URL Database")
if f <> nil then
t = f.createTextFile
if t <> nil then
for i = 0 to window1.urlsv.listCount -1 //repeat with each
row of the listbox
theLine = window1.urlsv.cell(i,0) + chr(9) +
window1.urlsv.cell(i,1)
//theLine is made up of the Name + tab character + the URL
t.writeLine theLine
next
t.close
end if
end if
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
|