forum.vdsworld.com

Author Message
Vic D'Elfant
Past Contributor

Joined: 26 Jun 2002
Posts: 673
Location: The Netherlands

Posted: Tue Sep 14, 2004 2:40 pm    Post subject: Find number of double occurences in a list

Hey guys,

Skit asked me if I could write a script that was able to count the number of double occurences of a list item in a list... I though I could share the script as well

 Code: # # © 2004 Vic D'Elfant #--------------------------------------------------------      option decimalsep, ","      list create, 1      list create, 2      list create, 3            list loadtext, 1, "Window1 "Window2 "Window4 "Window4a "Window1 "Window1 "Window5 "Window4a      # List 1: list with double items      # List 2: temporary list      # List 3: will contain | after running the code below            list seek, 1, 0      list assign, 2, 1                  while @ok()          %%Search_Item = @item(1)          %%Match_Count = 0              list seek, 2, 0          while @both(@match(2, %%Search_Item), @ok())              if @equal(%%Search_Item, @item(2))                  %%Match_Count = @succ(%%Match_Count)              end                            if @unequal(@count(2), @succ(@index(2)))                  list seek, 2, @succ(@index(2))              else                  error -1              end          wend                    %%Causes_Double =                    if @not(@zero(@count(3)))              list seek, 3, 0                            while @both(@ok(), @not(%%Causes_Double))                 parse "%%Window_Name", @item(3)                 if @equal(%%Window_Name, %%Search_Item)                    %%Causes_Double = 1                 end                                 if @unequal(@count(3), @succ(@index(3)))                      list seek, 3, @succ(@index(3))                  else                      error -1                  end              wend          end                    if @not(%%Causes_Double)              list add, 3, %%Search_Item|%%Match_Count          end                    if @unequal(@count(1), @succ(@index(1)))              list seek, 1, @succ(@index(1))          else              error -1          end      wend            info @text(3)

Vic

_________________
phpBB Development Team
FreezingFire

Joined: 23 Jun 2002
Posts: 3508

 Posted: Thu Sep 16, 2004 8:23 pm    Post subject: Cool _________________FreezingFire VDSWORLD.com Site Admin Team
Vic D'Elfant
Past Contributor

Joined: 26 Jun 2002
Posts: 673
Location: The Netherlands

 Posted: Thu Sep 16, 2004 8:25 pm    Post subject: Thanks Vic_________________phpBB Development Team
 Display posts from previous: All Posts1 Day7 Days2 Weeks1 Month3 Months6 Months1 Year Oldest FirstNewest First
 All times are GMT Page 1 of 1

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