How do i find out the free space available in a 2D array

[Hellouser]

Hi All,

I have a 2D array with maximum users of 10000 ($maxuser[10000][6]) ,I am writing a network program where all the clients will connect to the server application.Server application has a capacity of 10000 users. When the clients are start connecting to the server it will automatically increment the array index value and push the values into the respective array locations.When the same users is again trying to connect again ,everytime i am checking the array whether any values are present with the same data.If the data is present there then the program will delete the previous data and it will add the new data..

Here the problem i am facing is , Every time i need run one additional loop to check for any previous data .This is reducing the program performance.Can it possible to get the maximum index of the array ? .So that i can start the loop from 1 to Maxindex. Or If there any possibility to get the number of vacant spaces in the array ? or Can anyone modify the below code.I tried all the possibilities but i am not able to figure it out.

i am not able to sort the array also.Because some parameter are required for future processing.

Please Help.!!

Func _DelSocket($Monitoring_Ip)

For $x = 0 To $MaxUsers

If $User_List[$x][1] = $Monitoring_Ip Then

$User_List[$x][0] = ""

$User_List[$x][1] = ""

$User_List[$x][2] = ""

$User_List[$x][3] = ""

$User_List[$x][4] = ""

$User_List[$x][5] = ""

EndIf

Next

EndFunc

[water]

Usually you don't predefine the size of the array. You use ReDim to extend the array everytime you need a new entry.

Global $User_List[1][2] = [[0,0]]

; Test if the IP exists in the array
$bFound = 0
For $iCount = 1 To $User_List[0][0]
    If $User_List[$iCount][0] = $Monitoring_Ip Then
        $User_List[$iCount][1] = "Your user value"
        $bFound = 1
    EndIf
Next

; IP doesn't exist in the array, append
If $bFound = 0 Then
    ReDim $User_List[UBound($User_List,1)+1][UBound($User_List,2)]
    $iCount = UBound($User_List,1)-1
    $User_List[$iCount][0] = $Monitoring_Ip
    $User_List[$iCount][1] = "Your user value"
    $User_List[0][0] = $iCount
EndIf

Edited November 30, 2009 by water

[jvanegmond]

I hope you are not trying to write a TCP server with 10,000 clients. Because in all likelihood, you will fail catastrophically.

[water]

I've expanded the script a bit. If you don't need an IP-address any more in your array free the space so it can be reused. In my example I simply replace the IP-address with space.

If speed matters I would search the forum for binary trees.

expandcollapse popup

#include <array.au3>
Global $User_List[1][2] = [[0,0]]
Global $IP_Table[5] = ["10.11.12.13","10.99.120.13","10.101.12.13","10.11.127.13","10.11.12.130"]
Global $bDelete = 0

; Insert all values into the array
For $i = 1 To 5
    $Monitoring_Ip = $IP_Table[$i-1]
    _InsertArray($Monitoring_Ip,$i,$bDelete)
Next
_ArrayDisplay($User_List)

; Delete 2nd entry
_InsertArray("10.99.120.13","",1)
_ArrayDisplay($User_List)

; Insert new entry. It uses the free entry
_InsertArray("10.22.12.130","XX",0)
_ArrayDisplay($User_List)

Func _InsertArray($Ip, $Value, $Delete)

    ; Test if the IP exists in the array
    $bFound = 0
    For $iCount = 1 To $User_List[0][0]
        If $User_List[$iCount][0] = $IP Then
            If $Delete Then
                $User_List[$iCount][0] = "" ; Delete a value = set the first entry of the row to ""
            Else
                $User_List[$iCount][1] = $Value
            EndIf
            $bFound = 1
        ElseIf $User_List[$iCount][0] = "" Then
            $User_List[$iCount][0] = $IP
            $User_List[$iCount][1] = $Value
            $bFound = 1
        EndIf
        If $bFound Then ExitLoop
    Next

    ; IP doesn't exist in the array, append
    If $bFound = 0 Then
        ReDim $User_List[UBound($User_List,1)+1][UBound($User_List,2)]
        $iCount = UBound($User_List,1)-1
        $User_List[$iCount][0] = $IP
        $User_List[$iCount][1] = $Value
        $User_List[0][0] = $iCount
    EndIf

EndFunc