kOt Contributor
Joined: 19 Jan 2004 Posts: 89 Location: Fyffe, AL
|
Posted: Fri Mar 03, 2006 9:59 pm Post subject: |
|
|
Ok.. this works KIND-OF
if i set the %%Topitem to something higher than the seen amount it
scroll down but always to the same spot
else if always goes to 1 which is top of the table
%%topitem always 1 less than what i put as seen number which i set to
33
Here's the code if it helps
P.S. any help on speed or clean up on the code i would be thankful
Code: |
rem LVM_GETTOPINDEX = $01039
%%TopItem = @sendmsg(~Table1,$01039,0,0)
rem Add the amount of items a user can see to %P
%%TopItem = @fadd(%%TopItem,33)
dialog title,WSS - Refreshing Servers (Please Wait)
list clear,table1
list clear,1
list add,1,@internet(http,content,1)
if @file(@path(%0)serverlist.wss)
file rename,@path(%0)serverlist.wss,@path(%0)old_serverlist.wss
end
list savefile,1,@path(%0)serverlist.wss
list clear,1
### NEW NEW NEWNWENW:ELKRJWPELKRJW:ELKJFW:LEKFJWPOEIFJW:LKEFJPOWKEJF:LWKEJF
list create,8
list loadfile,8,@path(%0)serverlist.wss
list create,9
list seek,8,2
%%len = @len(@item()
%%charnum = 0
%%start = 1
%%end = 0
repeat
%%char = @substr(@item(,%%charnum,@fadd(2,%%charnum))
if @equal(%%char,"<r ")
%%start = %%charnum
%%end = @fsub(%%start,1)
%%endcharnum = %%charnum
repeat
%%endcharnum = @succ(%%endcharnum)
%%endchar = @substr(@item(,%%endcharnum,@fadd(2,%%endcharnum))
if @equal(%%endchar,@chr(34)"/>")
%%end = %%endcharnum
list add,9,@substr(@item(,%%start,%%end)
end
until @equal(%%endchar,@chr(34)"/>")
# if @greater(%%end,%%end)
# list add,table1,%%server
# %%server = @substr(@item(,%%start,%%end)
# list add,9,%%server
# end
end
%%charnum = @succ(%%charnum)
until @equal(%%charnum,%%len)
OPTION FIELDSEP,@chr(34)
list savefile,9,@path(%0)serverlist.wss
list clear,8
list clear,9
list close,8
list close,9
###KJSDFPOIJSD:FLKJSPODIFJS:LDKFHPSODIGH:SDLKJFPSOIDJG:LSKDGJPSODIGJ:SLDKJFPSODI
list loadfile,1,@path(%0)serverlist.wss
repeat
%a = @match(1,"<r n")
list seek,1,@index(1)
%b = @item(1)
parse "%x;%%servername;%x;%%type;%x;%%status;%x;%%population",@item(1)
%%servername = @GetServerName(%%servername)
%%type = @GetServerType(%%type)
%%status = @GetServerStatus(%%status)
%%population = @GetServerPop(%%population)
if @null(%%servername)
#nothing
else
list add,table1,%%servername@tab()%%population@tab()%%type@tab()%%status@chr(34)"#"%%status
end
%n = @next(1)
until @null(@item(1))
OPTION FIELDSEP,|
dialog title,%%title
%%ret = @sendmsg(~Table1,$01013,%%TopItem,0)
info RET: %%ret@cr()Topitem: %%topitem
goto evloop
|
_________________ Visual Dialogscript 5 |
|