Frage zum Thema "Arrays in Verbindung mit .Contains"

  • VB.NET

Es gibt 13 Antworten in diesem Thema. Der letzte Beitrag () ist von picoflop.

    Frage zum Thema "Arrays in Verbindung mit .Contains"

    Hallo Leute!

    Wie verwende ich das Folgende richtig :

    VB.NET-Quellcode

    1. Dim felder(3) as string
    2. felder(0) = "a1"
    3. felder(1) = "a2"
    4. felder(2) = "a3"
    6. 'dann
    8. If tmp.Contains(felder(3)) Then
    9. SendToAllClients("geht")
    10. End If


    Denn so :

    VB.NET-Quellcode

    1. If tmp.Contains("a1") Then
    2. SendToAllClients("geht")
    3. End If


    Gehts...

    Und kann ich die felder() auch ausserhalb eines Methodentextes Festlegen ?
    Weil wenn ich das oben versuche also bei Dim fragen(3) as string geht das nicht...

    BITTE um Antwort !

    Viele Dank schonmal !
    Polling is trolling!

    Achtung: Ich habe die komische Angewohnheit, simple Dinge zu verkomplizieren..

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Rootbob91“ ()

    das müsste schon gehn..
    Du hast aber 3 Felder im Array (ACHTUNG! Arrayelemente fangen bei 0 an) und sprichst mit felder(3) das 4. Feld an. Das verursacht ein Fehler, da der index nicht existiert.

    ergo: 1. arrayelement = index 0, usw.
    "Wenn jemand in einem Betrieb unverzichtbar ist, dann ist dieser Betrieb falsch organisiert." - Roberto Niederer

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „milaim“ ()

    Rootbob91 schrieb:

    Hallo Leute!

    Wie verwende ich das Folgende richtig :

    VB.NET-Quellcode

    1. Dim felder(3) as string
    2. felder(0) = "a1"
    3. felder(1) = "a2"
    4. felder(2) = "a3"
    6. 'dann
    8. If tmp.Contains(felder(3)) Then
    9. SendToAllClients("geht")
    10. End If


    Denn so :

    VB.NET-Quellcode

    1. If tmp.Contains("a1") Then
    2. SendToAllClients("geht")
    3. End If


    Gehts...

    Und kann ich die felder() auch ausserhalb eines Methodentextes Festlegen ?
    Weil wenn ich das oben versuche also bei Dim fragen(3) as string geht das nicht...

    BITTE um Antwort !

    Viele Dank schonmal !
    Hi,
    Das was du sagst ist eine List(of String) denke ich und dann mit List.Item(0)
    Mfg
    Loadsoft

    VB.NET-Quellcode

    1. If tmp.EndsWith(felder(2)) Then
    2. SendToAllClients("geht")
    3. End If

    So gehts leider immer noch nicht T.T

    ich schick euch mal den "ganzen" Code bzw den nötigen :

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Module Module1
    2. Private server As TcpListener
    3. Private client As New TcpClient
    4. Private ipendpoint As IPEndPoint = New IPEndPoint(IPAddress.Any, 8000) ' eingestellt ist port 8000. dieser muss ggf. freigegeben sein!
    5. Private list As New List(Of Connection)
    6. Dim felder(120) As String
    8. Private Structure Connection
    9. Dim stream As NetworkStream
    10. Dim streamw As StreamWriter
    11. Dim streamr As StreamReader
    12. Dim nick As String ' natürlich optional, aber für die identifikation des clients empfehlenswert.
    14. End Structure
    16. Sub Main() ' main thread
    17. Console.WriteLine("Der Server läuft!")
    18. server = New TcpListener(ipendpoint)
    19. server.Start()
    20. felder(0) = "a1"
    21. felder(1) = "a2"
    22. felder(2) = "a3"
    24. While True ' wir warten auf eine neue verbindung...
    25. client = server.AcceptTcpClient
    27. Dim c As New Connection ' und erstellen für die neue verbindung eine neue connection...
    28. c.stream = client.GetStream
    29. c.streamr = New StreamReader(c.stream)
    30. c.streamw = New StreamWriter(c.stream)
    31. c.nick = c.streamr.ReadLine ' falls das mit dem nick nicht gewünscht, auch diese zeile entfernen.
    32. list.Add(c) ' und fügen sie der liste der clients hinzu.
    33. Console.WriteLine("[" & TimeOfDay & "]" & " <" & c.nick & "> " & " has joined.")
    34. ' falls alle anderen das auch lesen sollen können, an alle clients weiterleiten.
    36. Dim t As New Threading.Thread(AddressOf ListenToConnection)
    37. t.Start(c)
    38. End While
    39. End Sub
    41. Private Sub ListenToConnection(ByVal con As Connection)
    42. Do
    43. Try
    44. Dim tmp As String = con.streamr.ReadLine ' warten, bis etwas empfangen wird...
    45. Console.WriteLine("[" & TimeOfDay & "] " & con.nick & " :" & tmp)
    46. SendToAllClients("[" & TimeOfDay & "] " & con.nick & " :" & tmp)
    47. If tmp.StartsWith("/a") Then
    48. If tmp.EndsWith(felder(2)) Then
    49. SendToAllClients("geht")
    50. End If
    51. End If
    53. Catch ' die aktuelle überwachte verbindung hat sich wohl verabschiedet.
    54. list.Remove(con)
    55. Console.WriteLine("[" & TimeOfDay & "] " & con.nick & " has left the chat.")
    56. SendToAllClients("[" & TimeOfDay & "] " & con.nick & " has left the chat.")
    57. Userlist()
    58. Exit Do
    59. End Try
    61. Loop
    62. End Sub
    64. Private Sub SendToAllClients(ByVal s As String)
    65. For Each c As Connection In list ' an alle clients weitersenden.
    66. Try
    67. c.streamw.WriteLine(s)
    68. c.streamw.Flush()
    69. Catch
    70. End Try
    71. Next
    72. End Sub
    73. Public Sub Userlist()
    74. Dim users As String = ""
    75. For Each Connections In list
    76. users = users & Connections.nick.ToString & ","
    77. SendToAllClients("/u " & users)
    78. Next
    79. End Sub
    81. Private Sub Sendtoperson(ByVal s As String, ByVal Nick As String)
    82. For Each Connection In list
    83. Try
    84. If Connection.nick = Nick Then
    85. Connection.streamw.WriteLine(s)
    86. Connection.streamw.Flush()
    87. End If
    88. Catch
    89. End Try
    90. Next
    91. End Sub
    92. End Module


    @ Load-soft.ch.vu :
    Ich weiss zwar nicht so genau was du damit meinst aber danke schonmal für die Anwort .
    Polling is trolling!

    Achtung: Ich habe die komische Angewohnheit, simple Dinge zu verkomplizieren..

    milaim schrieb:

    das müsste schon gehn..
    Du hast aber 3 Felder im Array (ACHTUNG! Arrayelemente fangen bei 0 an) und sprichst mit felder(3) das 4. Feld an. Das verursacht ein Fehler, da der index nicht existiert.

    ergo: 1. arrayelement = index 0, usw    .



    VERGISST DAS HIER SCHNELL WIEDER!!

    Hab ja völlig vergessen, dass bei Visual basic der Index bei der definition angegeben wird.

    Hast doch 4 elemente...!!

    Jedoch darf der Parameter nicht Nothing sein, den du bei Contains übergibst.

    //Edit: Das heisst du musst beim letzten element was reinschreiben im array.
    "Wenn jemand in einem Betrieb unverzichtbar ist, dann ist dieser Betrieb falsch organisiert." - Roberto Niederer

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „milaim“ ()

    VB.NET-Quellcode

    1. Dim felder(2) as string
    2. felder(0) = "a1"
    3. felder(1) = "a2"
    4. felder(2) = "a3"


    aber das letzte Element (2) ist doch beschrieben mit a3 ?

    Oder verstehe ich das jetzt falsch?


    EDIT*

    Bin ich dämlich...

    VB.NET-Quellcode

    1. If tmp.Contains(felder(2)) Then
    2. SendToAllClients("geht")
    3. End If

    Hiermit spreche ich ja das "2te" feld an... wenn ich dann a3 eingebe ist das richtig...

    Aber wie mache ich das das gesamte array überprüft wird?
    Polling is trolling!

    Achtung: Ich habe die komische Angewohnheit, simple Dinge zu verkomplizieren..

    Dim arr(3) As String ergibt:
    arr(0), arr(1), arr(2), arr(3) -> 4 elemente.

    d.h. felder(3) ist bei dir Nothing, also musst du felder(3) = "a4" eingeben, damit contains keine Exception wirft.
    "Wenn jemand in einem Betrieb unverzichtbar ist, dann ist dieser Betrieb falsch organisiert." - Roberto Niederer

    Das ist alles schon richtig deklariert bzw "beschrieben"

    Sonst würde es ja auch nicht gehen wenn ich
    einfach a3 schreibe was felder(2) entspricht !

    Nur der überprüft nicht alles sondern nur genau felder(2)
    Der soll aber das ganze array überprüfen .
    Hier

    VB.NET-Quellcode

    1. If tmp.Contains(felder(2)) Then
    2. SendToAllClients("geht")
    3. End If




    Nur wenn ichs so schreibe :

    VB.NET-Quellcode

    1. If tmp.Contains(felder()) Then
    2. SendToAllClients("geht")
    3. End If


    Dann kommt : Die Indexanzahl ist kleiner als die Anzahl der Dimensionen bla bla...
    Polling is trolling!

    Achtung: Ich habe die komische Angewohnheit, simple Dinge zu verkomplizieren..

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Rootbob91“ ()

    Es wird per Client ein string gesendet ( tmp )

    Wenn der empfangen wird soll geprüft werden ob ein string vom array felder,
    mit tmp übereinstimmt .


    VB.NET-Quellcode

    1. Dim felder(2) as string
    2. felder(0) = "a1"
    3. felder(1) = "a2"
    4. felder(2) = "a3"
    Polling is trolling!

    Achtung: Ich habe die komische Angewohnheit, simple Dinge zu verkomplizieren..

    Dann probiers mal so:

    VB.NET-Quellcode

    1. Dim arrayIndex As Integer = -1
    3. For i=0 to felder.Length-1
    4. If tmp.Contains(felder(i)) Then
    5. arrayIndex = i
    6. Exit For
    7. End If
    8. Next
    10. If arrayIndex <> -1 Then
    11. 'was auch immer du machen willst...
    12. End If

    Wenn ich das so lese, fällt mir irgendwie "three blind mice" ein ...

    Beispiel-Lösung:

    VB.NET-Quellcode

    1. Private Class ergebnis
    2. Public index As Integer
    3. Public wort As String
    4. End Class
    6. Private Sub foo()
    8. Dim tmp As String = "the quick brown fox jumps over the lazy dog"
    9. Dim a() As String = Split("mein brown hut der hat drei fox ecken", " ")
    11. Dim r As IEnumerable(Of ergebnis) = From s In a Where tmp.Contains(s) Select New ergebnis With {.index = tmp.IndexOf(s), .wort = s}
    12. For Each e As ergebnis In r
    13. Debug.Print(String.Format("Der String enthält {0} an Position {1}", e.wort, e.index))
    14. Next
    16. End Sub


    findet alle Wörter in "a()", die in tmp enthalten sind und gibt sie aus.

    Output:

    Quellcode

    1. Der String enthält brown an Position 10
    2. Der String enthält fox an Position 16

Facebook
Telefonspende