Valhalla Legends Archive

Quote from: Dayclone on July 15, 2003, 07:35 PMexactly how would i do this .... i'm starting to get sick and tired of doing this bot and i want answer just thrown at me

Programming requires patience; if you cannot deal with this relatively simple problem, then perhaps programming is not for you.
Sometimes responses to your problem wont help. That's part of being in a community. If you dont like it, get out.

Quote from: Dayclone on July 15, 2003, 07:35 PM
One prob I GOT NO CLUE WHAT YOUR TALKING ABOUT

exactly how would i do this .... i'm starting to get sick and tired of doing this bot and i want answer just thrown at me

Very well.  As you wish.

The following code is tested and works.

   On Error Resume Next
   Static strUniqueKey As String
   Dim lKeyVal As Long
   Dim strToAdd As String
   lKeyVal = Val(Split(strUniqueKey, "*")(1))
   lKeyVal = lKeyVal + 1
   strUniqueKey = "Key*" & lKeyVal
   strToAdd = strUniqueKey
   myCol.Add strToAdd, strUniqueKey


Hope this helps as much as I think it will.

Thnx Grok you been great help i guess the other lazy bums don't really like help ppl lol no offence or anything hrmm i've been wait like 3 weeks for help then i fianlly turn to Valhalla Legend and they help alot.

hrmm

On Error Resume Next
   Static strUniqueKey As String
   Dim lKeyVal As Long
   Dim strToAdd As String
   lKeyVal = Val(Split(strUniqueKey, "*")(1))
   lKeyVal = lKeyVal + 1
   strUniqueKey = "Key*" & lKeyVal
   strToAdd = strUniqueKey
   myCol.Add strToAdd, strUniqueKey



ok now next newbie question where do i put this lol

Quote from: Dayclone on July 15, 2003, 09:32 PM
Thnx Gork you been great help i guess the other lazy bums don't really like help ppl lol no offence or anything hrmm i've been wait like 3 weeks for help then i fianlly turn to Valhalla Legend and they help alot.

I'm sure this Gork person you speak of is glad to help.

hehehe i got everything to work thank-you guys whoops i ment Grok