stringvergleich

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von sarasa.

    stringvergleich

    hallo ich hab 2 strings die ich vergleichen möchte

    VB.NET-Quellcode

    1. txtDisplay.AppendText(t)
    2. Dim reboot As String = "[]reboot now"

    habe eine if abfrage versucht zu machen

    VB.NET-Quellcode

    1. if t = reboot then


    aber die funktioniert nicht

    ok ich habe gedacht mit meiner abfrage stimmt was nicht.

    da liegt es wohl am programm....

    hab ein socket chat und wollte vom client an den server z.b reboot senden.
    dort ist eine abfrage :

    eingehender text = reboot then ....

    aber geht nicht :( woran kann es liegen? oder bei welchem ereigniss muss ich die if abfrage machen?

    VB.NET-Quellcode

    1. Private mobjClient As TcpClient
    2. Private marData(1024) As Byte
    3. Private mobjText As New StringBuilder()
    6. Private Sub btnSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSend.Click
    7. If txtSend.Text = "" Then
    8. MsgBox("KEIN TEXT")
    9. Else
    10. Send("[" & My.Settings.uname & "]" & " " & txtSend.Text)
    11. txtSend.Text = ""
    12. End If
    13. End Sub
    15. Private Sub Send(ByVal t As String)
    16. Dim w As New IO.StreamWriter(mobjClient.GetStream)
    17. w.Write(t & vbCr)
    18. w.Flush()
    19. End Sub
    21. Private Sub DoRead(ByVal ar As IAsyncResult)
    22. Dim intCount As Integer
    24. Try
    25. intCount = mobjClient.GetStream.EndRead(ar)
    26. If intCount < 1 Then
    27. MarkAsDisconnected()
    28. Exit Sub
    29. End If
    31. BuildString(marData, 0, intCount)
    33. mobjClient.GetStream.BeginRead(marData, 0, 1024, AddressOf DoRead, Nothing)
    34. Catch e As Exception
    35. MarkAsDisconnected()
    36. End Try
    38. End Sub
    40. Private Sub BuildString(ByVal Bytes() As Byte, ByVal offset As Integer, ByVal count As Integer)
    41. Dim intIndex As Integer
    43. For intIndex = offset To offset + count - 1
    44. If Bytes(intIndex) = 10 Then
    45. mobjText.Append(vbLf)
    47. Dim params() As Object = {mobjText.ToString}
    48. Me.Invoke(New DisplayInvoker(AddressOf Me.DisplayText), params)
    50. mobjText = New StringBuilder()
    51. Else
    52. mobjText.Append(ChrW(Bytes(intIndex)))
    53. End If
    54. Next
    56. End Sub
    58. Private Sub MarkAsDisconnected()
    60. End Sub
    61. Dim sola As String
    62. Private Sub DisplayText(ByVal t As String)
    63. txtDisplay.AppendText(t)
    64. sola = t
    65. If Me.WindowState = FormWindowState.Minimized Then
    66. NotifyIcon1.ShowBalloonTip(5000)
    67. Timer1.Enabled = True
    68. Timer1.Interval = 2000
    69. Timer1.Start()
    71. End If
    73. End Sub
    75. Private Sub VerbindenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VerbindenToolStripMenuItem.Click
    77. Dim newip As String
    78. Dim Addresslist() As IPAddress = Dns.Resolve("x.dyndns.org").AddressList
    80. Dim IPs As IPAddress
    82. For Each IPs In Addresslist
    83. newip = (IPs.ToString)
    84. Next IPs
    87. mobjClient = New TcpClient(newip, 5000)
    88. DisplayText("Connected to host" & vbCrLf)
    90. mobjClient.GetStream.BeginRead(marData, 0, 1024, AddressOf DoRead, Nothing)
    92. Send(My.Settings.uname & " ist jetzt Online")
    93. If mobjClient.Connected Then
    95. VerbindenToolStripMenuItem.Enabled = False
    96. TrennenToolStripMenuItem.Enabled = True
    97. txtSend.ReadOnly = False
    98. btnSend.Enabled = True
    99. End If
    100. End Sub
    101. Private Sub TrennenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrennenToolStripMenuItem.Click
    102. txtSend.ReadOnly = True
    103. btnSend.Enabled = False
    104. VerbindenToolStripMenuItem.Enabled = True
    105. TrennenToolStripMenuItem.Enabled = False
    106. Send(My.Settings.uname & " ist jetzt Offline")
    108. mobjClient.Close()
    109. End Sub
    111. Private Sub EXITToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EXITToolStripMenuItem.Click
    112. txtSend.ReadOnly = True
    113. btnSend.Enabled = False
    114. VerbindenToolStripMenuItem.Enabled = True
    115. TrennenToolStripMenuItem.Enabled = False
    116. Send(My.Settings.uname & " ist jetzt Offline")
    118. mobjClient.Close()
    119. Me.Close()
    122. End Sub
    124. Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
    126. If Me.WindowState = FormWindowState.Minimized Then
    127. ShowInTaskbar = False
    128. NotifyIcon1.Visible = True
    130. End If
    131. End Sub
    133. Private Sub NotifyIcon1_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseDoubleClick
    134. Me.WindowState = FormWindowState.Normal
    135. NotifyIcon1.Visible = False
    136. ShowInTaskbar = True
    137. Timer1.Stop()
    140. End Sub
    142. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    143. ToolTip1.SetToolTip(btnSend, "Button zum Senden des Text")
    144. NotifyIcon1.BalloonTipText = "Neue Nachricht"
    145. NotifyIcon1.BalloonTipTitle = " Chat"
    146. ToolTip1.SetToolTip(txtSend, "Hier den Text zum Senden eingeben.")
    147. txtSend.ReadOnly = True
    148. btnSend.Enabled = False
    150. End Sub
    154. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    155. NotifyIcon1.Icon = New System.Drawing.Icon(Application.StartupPath & "\h1.ico")
    156. Thread.Sleep(2000)
    157. NotifyIcon1.Icon = New System.Drawing.Icon(Application.StartupPath & "\h.ico")
    158. Thread.Sleep(2000)
    160. End Sub
    163. Private Sub ExitToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem1.Click
    164. Me.Close()
    166. End Sub
    167. End Class


    Edit by Lupus: Es ist nicht nötig, den ganzen Designercode mit reinzubringen, wenn deine Frage nur was mit dem eigentlichen Code zu tun hat!

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Lupus“ ()

Facebook
Telefonspende