Function Virker ikke

Og det første array ser for eks. sådan her ud "Unknown|1|Unknown"

Har du prøvet med "For x = 1 To 400" i stedet for?

kan ikke lige huske om array def: for arr(400) er 0 til 400 eller 1 til 400 eller måske 0 til 399 c",)

Er du sikker på at strData altid har det korrekte format ellers kan du ikke regne med at du kan lave arrSplit(1) da første element ligger på index 0.

Ja, det har jeg også prøvet...
Men nu finder jeg ligepludselig ud af at det måske ikke er der fejlen...
Undersøger det lige nærmere

Hmm... hvordan kan man stoppe For, Next?
Jeg vil for eks. gerne stoppe den ved CheckNull

Vil du stoppe functionen er det jo bare at smide en Exit Function ind

hvis det kun er for løkken du vil stoppe så er det Exit For

Ok... Det var løkken jeg ville stoppe...
Jeg har faktisk fået alt sammen til at virke nu... min bedste ½ time i den seneste tid... :-)

Tubber, du fortjener 10 point, og hubs 20... Svarer i begge 2 :D

Det er helt okay, jeg behøver ikke point, gi dem bare til tubber eller behold dem til en anden god gang c",)

Hmm... Der opstår også pludselige problemer igen... :-)
jeg venter lige med at dele point ud...

*lol*  c",) hva er problemet?

Det er stadig det samme problem... :(
Den skal finde brugernavnet på den som lukker forbindelsen.. Data'en ligger således i arrUsers "Username|WinsockConnection|Blabla..."

Public Function GetConnectionUser(Index As Integer) As String
Dim strData As String
For x = 1 To 400
    strData = arrUsers(x)
    arrSplit() = Split(strData, "|")
    If arrSplit(1) = Index Then
        CheckNull = arrSplit(0)
        Exit For
    End If
Next
End Function

Private Sub winsock_Close(Index As Integer)
    Dim UserName As String
    UserName = GetConnectionUser(Index)
End sub

Hmm jeg kan sku ikke lige umiddelbart se hvor fejlen skulle ligge, er det stadigvæk den samme fejlmeddeleses du får ?

hvad er -> CheckNull ??

og hvornår opstår fejlen? Når den at køre noget af loop'et igennem eller...?

Stadig "Subscript out of range" i linien
    If arrSplit(1) = Index Then

CheckNull? tror jeg nok bliver sat ind "As string" efter funktionen

altså, er det ikke CheckNull der gør at funktionen returnerer en streng?

http://www.eksperten.dk/spm/523475 : 26/07-2004 22:54:06

Ahh.. Man skal bare skrive Function navn = og så returnerer den det.. :)

Du skal skrive navnet på den function du bruger. CheckNull er bare et ex. som blev brugt for at illustrere c",)

se nu lige på mine kommentar..

Public Function GetConnectionUser(Index As Integer) As String
Dim strData As String
For x = 1 To 400
    strData = arrUsers(x)
    arrSplit() = Split(strData, "|") '<- Du jo ikke opdele strData Hvis den er tom.
    If arrSplit(1) = Index Then '<- Klart du for fejl da arrSplit(1) ikke findes
        CheckNull = arrSplit(0)
        Exit For
    End If
Next
End Function

Skulle vist lige ha' opdateret spørgsmålet inden jeg sendte c",)

cronck > Prøv med den her..

Public Function GetConnectionUser(Index As Integer) As String
Dim strData As String
  For x = 1 To 400
    strData = arrUsers(x)
    arrSplit() = Split(strData, "|")
    If UBound(arrSplit) > 0 Then 'Tjekker om arrSplit() er sat..
      If arrSplit(1) = Index Then
        CheckNull = arrSplit(0)
        Exit For
      End If
    End If 'End UBound(..
  Next
End Function

Nu Virker Det! :D

Public Function GetConnectionUser(Index As Integer) As String
Dim strData As String
For x = 1 To 400
    strData = arrUsers(x)
    If strData <> "" Then
        arrSplit() = Split(strData, "|")
        If arrSplit(1) = Index Then
            GetConnectionUser = arrSplit(0)
            Exit For
        End If
    End If
Next
End Function

Godt så c",)

Jeg takker mange gange for jer begge's hjælp...
Hubs, er du stadig ikke interesseret i point?
Splitter lige over hvis at du er....

Nej ellers tak du, behold dem bare til en anden god gang c",)

sjh? tubber? vil i dele?

Nej ikke mig.. behold dem bare selv eller gi dem til tubber..

Tubber?

Nope keep em :)

Hm! :-)

Hmm... Jeg har lavet en ny funktion, og selvfølgelig den medfølgende fejl...
Fejl: Expected Array, og så markerer den '' arrSplit() = ''

Min Kode:

Public Function Chat(Index As String, Text As String, Kind As String)
Dim strData As String
Dim arrSplit As String
AddToLog "Funktion started"
For x = 0 To IntMax
    strData = arrUsers(x)
    If strData <> "" Then
        arrSplit() = Split(strData, "|")
        Select Case Kind
        Case "Chat"
            If arrSplit(0) <> "Unknown" Then
            Winsock(x).SendData EncryptText("Chat|" & User & ": " & Text & "|Chat")
            AddToLog "Sent the message to a user"
        End Select
    End If
Next
End Function

Kan i hjælpe igen så?

Har bemærket at der mangler en "End If" efter linien med AddToLog "Sent the message to a user"

bare glemt det.. oprettet nyt spm... :-)

Dim arrSplit As String er jo en streng og ikke et array ?

nej, havde glemt () efter arrSplit... :D