Find tomt array(x)

Så vidt jeg ved, sammentrækkes værdierne i et array.

Dvs, hvis der er 11 brugere. Nr 10 er Hansen. Nr 11 er Jensen.
Hansen logger af. Jensen bliver så nr 10, da der så kun er 10 brugere.

Faktisk er der nummere + 1, idet arrays starter ved 0, og ikke 1.

Hvordan gør jeg det så?
Den skal altid bare tage det næste ledige...
arrUsers(X) = arrSplit(1) & "|" & Index

Vis noget mere kode.. det der ser forvirrende ud :-)

De(t) "næste ledige" vil altid være:

De sidste "MaxAntalBruger - AntalBrugerOnline"

dvs, hvis MAB = 11, og ABO = 9, så er de ledige: nr 10 og 11

Eller hva'? :-)

arrSplit(1) er det brugernavn som den smidder i, og Index er winsock forbindelse nummer...

Den næste ledige er: Ubound(arrUsers) + 1

Eller Ubound(arrSplit) + 1
Hvis arrSplit er en array, og ikke en variabel, der senere hen skal splittes..

Har lige lavet den her kode, og den virker...
Jeg ville bare gerne bruge en som er smartere... :-)
                Dim DidAdd As Boolean
                For x = 1 To IntMax
                    If arrUsers(x) = "" Then
                        If DidAdd <> True Then
                            DidAdd = True
                            arrUsers(1) = arrSplit(1) & "|" & Index & "|" & rs!Country
                        End If
                    End If
                Next

Hvis den virker: fint :-)

Du kom stadig med den første løsning.... :P
Send svar :D

OK.. men hvilken løsning var det? :-)

Hvad mener du? 22:04:21

Den tjekker bare alle arrays igennem, og snubber det første tomme...

Du skrev: "Du kom stadig med den første løsning" :-)

Hvilken løsning er det?

Nååh... Ubound(arrUsers) + 1

Det var vel en løsning? :-)

Ja, det kan man vel godt sige :-)

Så siger jeg takker for points :-)

Keine probleme.. ;)

Så kan du måske lige svare mig på en enkelt ting....
hvordan laver jeg en funktion som jeg kan bruge overalt i min form...
For eks. sætte Connection = UserConnection("CroncK")
så den funktion returnerer Integer?
Her er som jeg har lavet den indtil videre...
Function UserConnection(strUser As String)
Dim arrSplit() As String
Dim strData As String
For x = 1 To 400
    strData = arrUsers(x)
    arrSplit() = Split(strData, "|")
    If arrSplit(1) = "strUser" Then
        'Hvad skal jeg skrive her?
    End If
Next
End Function

Når man skal returnere noget, hvilket er grunden til at man bruger en funkion, skriver man funktionens navn = værdien.

I dit tilfælge:

UserConnection = værdi

f.eks.

UserConnection = 100

Glemte lige at der ikke skal være "" når jeg henter strUser, men hvad gør jeg?

Hmm...
Kan jeg ikke kalde min funktion for eks. sådan her:
Winsock(UserConnection CroncK).SendData "Bla Bla"

Eksempel (kilde http://www.tek-tips.com/gviewthread.cfm/pid/709/qid/882577 ):

Public Function CheckNull(strCheck As String) As String
  If strCheck = "" Then
    CheckNull = "yes" 'dummy filler code for checking
  End If
End Function

"yes" sendes tilbage..

funktionen skulle gerne returnere forbindelse nr. arrSplit(1) hvis jeg spørger funktionen efter for eks. Cronck...
Havde skrevet forkert i funktionen, den if, skal være arrSplit(0)

og det er fordi at der står as string efter parantesen?

Ja, det skal stå uden ""..

men det skal nok være noget i stil med:

tmp = UserConnection ("CroncK")
Winsock(tmp).SendData "Bla Bla"

mht "strUser" -> Function UserConnection(strUser As String)

strUser er en variabel, og skal derfor ikke i "".. gør man det, bruger man ikke "strUser" som en variabel, men som tekst. Derved kan man ikke bruge, det variablen indeholder..

Ved det... :-)

thesurfer: Måske du er manden til at løse den her: http://www.eksperten.dk/spm/524236 :D