Storing A Username and IP address in an array

[brian728s]

I am working on a chat program, and have the UDP server set up, but I need a way (unlike mine) that can store, retrieve, and delete usernames and IP addresses from an array. The array is named

IPList

and has the dimensions
(1 to 2, 1 to 100000)

1 is the Username, 2 is the IP address.

My current way can store one username, but has a problem with the second one. It seems to erase both of them. If you could give me a new algorithm, I would really appreciate it.

And then, with BSChat working, I shall take over the world...er...not.

-brian728s
[email protected]

[Bruce Fox]

Can you post the code ur using to write to the Array.

[brian728s]

Public IPList(1 To 2, 1 To 100000) As String

Public Function FindIndex(Search As String) As Double
Dim i As Double
FindIndex = -1
For i = 1 To 100000
If IPList(1, i) = Search Then
FindIndex = i
Exit Function
End If
Next i
End Function

Public Function NewUser(Name As String, IP As String) As Boolean
Dim a As Double
Dim Name2 As String
Name2 = Replace(Name, Chr(1), "")
a = FindBlankIndex()
If FindIndex(Name2) = -1 Then
a = FindBlankIndex
IPList(1, a) = Name
IPList(2, a) = IP
NewUser = True
Else
NewUser = False
End If
End Function

Public Sub LogOut(Name As String)
Dim a As Double
a = FindIndex(Name)
If a <> -1 Then
IPList(1, a) = ""
IPList(2, a) = ""
End If
End Sub

Public Function FindBlankIndex() As Double
FindBlankIndex = -1
Dim i As Double
For i = 1 To 100000
If IPList(1, i) = "" Then
FindBlankIndex = i
Exit Function
End If
Next i
End Function

FindBlankIndex Works and returns the index of the first blank record in IP list. Findindex works as far as I know. NewUser and logout are the ones that are driving me insane. They apparantly can store and retrieve the first one, but don't work with any ones over that.

[Mc Brain]

Next time, paste your code between vbcode tags. It's easier to read. I'll paste his code again:

Public Function FindIndex(Search As String) As Double
    Dim i As Double
    FindIndex = -1
    For i = 1 To 100000
        If IPList(1, i) = Search Then
            FindIndex = i
            Exit Function
        End If
    Next i
End Function
 
Public Function NewUser(Name As String, IP As String) As Boolean
    Dim a As Double
    Dim Name2 As String
    Name2 = Replace(Name, Chr(1), "")
    a = FindBlankIndex()
    If FindIndex(Name2) = -1 Then
        a = FindBlankIndex
        IPList(1, a) = Name
        IPList(2, a) = IP
        NewUser = True
    Else
        NewUser = False
    End If
End Function
 
Public Sub LogOut(Name As String)
    Dim a As Double
    a = FindIndex(Name)
    If a <> -1 Then
        IPList(1, a) = ""
        IPList(2, a) = ""
    End If
End Sub
 
Public Function FindBlankIndex() As Double
    FindBlankIndex = -1
    Dim i As Double
    For i = 1 To 100000
        If IPList(1, i) = "" Then
            FindBlankIndex = i
            Exit Function
        End If
    Next i
End Function

[Mc Brain]

I would redim the array un run-time as needed, if you like to improve it.

Try this code, I remove the FindBlankIndex function... and didn't test it so I don't know if it works.

Public Function FindIndex(Search As String) As Double
    Dim i As Double
    FindIndex = -1
    For i = 1 To 100000
        If IPList(1, i) = Search Or IPList(1, i) = "" Then
            FindIndex = i
            Exit Function
        End If
    Next i
End Function
 
Public Function NewUser(Name As String, IP As String) As Boolean
    Dim a As Double
    Dim Name2 As String
    Name2 = Replace(Name, Chr(1), "")
 
    a = FindIndex(Name2)
 
    If IPList(1, a) = "" Then        
        IPList(1, a) = Name
        IPList(2, a) = IP
        NewUser = True
    Else
        NewUser = False
    End If
End Function
 
Public Sub LogOut(Name As String)
    Dim a As Double
    a = FindIndex(Name)
    If IPList(1, a) <> "" Then
        IPList(1, a) = ""
        IPList(2, a) = ""
    End If
End Sub

[filburt1]

FYI, if these are username/ip pairs, then IMHO this would be MUCH easier than a matrix:

Public Type UsernameIPPair
    Username As String
    IP As String
End Type
 
Dim Users(0 To SomeBigNumber) As UsernameIPPair
Msgbox Users(0).Username
Msgbox Users(x).IP
.
.
.

[Mc Brain]

I know that... but maybe that means to change a lot of code. I didn't mean to change it that much.

[filburt1]

True, I'm just saying for future reference...one of my programs uses a matrix and it makes it really hard to code

[brian728s]

Thank you! I used type once before, but couldn't remember it for this one. I will post a link to my website with a free download once I get it working.

[Mc Brain]

This is a correction to the code

Public Function NewUser(Name As String, IP As String) As Boolean
    Dim a As Double
    Dim Name2 As String
    Name2 = Replace(Name, Chr(1), "")
 
    a = FindIndex(Name2)
 
    [b]If a > 0 Then[/b]
        If IPList(1, a) = "" Then        
            IPList(1, a) = Name
            IPList(2, a) = IP
            NewUser = True
        Else
            NewUser = False
        End If
    [b]Else
        MsgBox "Sorry, the list is full"
    End If[/b]
End Function