forum.vdsworld.com Forum Index forum.vdsworld.com
Visit VDSWORLD.com
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 


@substr and or REPEAT UNTIL error

 
Post new topic   Reply to topic    forum.vdsworld.com Forum Index -> General Help
View previous topic :: View next topic  
Author Message
vtol
Valued Contributor
Valued Contributor


Joined: 05 Feb 2004
Posts: 622
Location: Indiana

PostPosted: Mon Oct 06, 2008 7:22 am    Post subject: @substr and or REPEAT UNTIL error Reply with quote

Hi
I get error 33 at line 24 intermittingly with below code, could you try it, because I still have a lot of bugs here on all my computers after the VDS6 upgrade, where most say my code works OK on thier computer.
thanks

Code:
OPTION DECIMALSEP, "."
OPTION DECIMALSEP, "."
LIST CREATE,1
LIST CREATE,2

LIST loadtext,2
"312364535
"114555362
"265135412
"151516435
"113466246

%a = "99"
%%counter = 0

rem   RANDOM @datetime(ssnnss)
REPEAT
 %r = @RANDOM(0,4)
 wait "0.1"
 LIST SEEK,2,%r
 %s = @RANDOM(1,8)
 %x = @item(2)
 %t = @SUCC(%s)
 %n = @SUBSTR(%x,%s,%t)
 info @CR()%x@CR()%s@CR()%t@CR()%n
 LIST append,1,%n
 %%null = @next(2)
 %%counter = @succ(%%counter)
rem    LIST SEEK,2,0
 wait "0.1"
UNTIL @equal(%%counter,%a)

info @CR()@TEXT(1)

LIST CLOSE,1
LIST CLOSE,2

EXIT
Back to top
View user's profile Send private message Visit poster's website AIM Address
vtol
Valued Contributor
Valued Contributor


Joined: 05 Feb 2004
Posts: 622
Location: Indiana

PostPosted: Mon Oct 06, 2008 10:54 pm    Post subject: Reply with quote

I updated the code, it had too many loops before, annoying - sorry.
Please try it and let me know if it works on your XP home or XP pro computer.
Thanks

Code:
OPTION DECIMALSEP, "."
LIST CREATE,1
LIST CREATE,2

LIST loadtext,2
"312364535
"114555362
"265135412
"151516435
"113426247

%a = "14"
%%counter = 0

rem   RANDOM @datetime(ssnnss)
REPEAT
 %r = @RANDOM(0,4)
 wait "0.1"
 LIST SEEK,2,%r
 %s = @RANDOM(1,8)
 %x = @item(2)
 %t = @SUCC(%s)
 %n = @SUBSTR(%x,%s,%t)
 info @CR()Random line of the list %r@CR()Selected item from list %x@CR()Start spot %s@CR()End spot %t@CR()Intended "2" digit result %n
 LIST append,1,%n
 %%counter = @succ(%%counter)
 wait "0.1"
UNTIL @equal(%%counter,%a)

info @CR()@TEXT(1)

LIST CLOSE,1
LIST CLOSE,2

EXIT
Back to top
View user's profile Send private message Visit poster's website AIM Address
DaveR
Valued Contributor
Valued Contributor


Joined: 03 Sep 2005
Posts: 413
Location: Australia

PostPosted: Tue Oct 07, 2008 8:33 am    Post subject: Re: @substr and or REPEAT UNTIL error Reply with quote

vtol wrote:
I get error 33 at line 24 intermittingly with below code,

Only intermittently? You should be getting the error all the time.

On line 25, change your LIST append,1,%n to LIST add,1,%n

_________________
cheers

Dave
Back to top
View user's profile Send private message Visit poster's website
vtol
Valued Contributor
Valued Contributor


Joined: 05 Feb 2004
Posts: 622
Location: Indiana

PostPosted: Tue Oct 21, 2008 5:07 am    Post subject: Reply with quote

I've not messed with VDS enough lately, outta practice.

Yeah I noticed that (LIST append - LIST add) awhile back, just couldnt get time to come back to the forum, sorry.

But, believe it or not the error was popping up intermittingly, that was what made me not notice the LIST append problem till later on.

Thanks for investigating the problem Dave
Back to top
View user's profile Send private message Visit poster's website AIM Address
Display posts from previous:   
Post new topic   Reply to topic    forum.vdsworld.com Forum Index -> General Help All times are GMT
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You can attach files in this forum
You can download files in this forum

Twitter@vdsworld       RSS

Powered by phpBB © 2001, 2005 phpBB Group