Problem mit splitten und vergleichen

  • VB.NET

Es gibt 17 Antworten in diesem Thema. Der letzte Beitrag () ist von klavierduo.

    Problem mit splitten und vergleichen

    hi
    hab ein problem : wenn ich eine variable den wert "splitted.count" gebe also die anzahl der splits, gibt das programm an, dass es 3 splittungen gibt, obwohl es nur 2 sein sollten.
    und wenn ich die variablen vergleiche, was ich mit einer schleife und einen zähler tue, sagt das programm, dass die variable und das gesplittete nicht zusammenpasst, obwohl es dieselben sind!!
    Der code:

    VB.NET-Quellcode

    1. ENTFERNT

    ich verzweifle da schon vollkommen
    Wer Rechtschreibfehler findet darf sie behalten :)

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

    ja aba das hilft mir wenig beim vergleichen der variablen denn splitted(1)= myhnwid
    aba das programm nimmts nit!!
    Hier der neue code:

    VB.NET-Quellcode

    1. Private Sub databaseid()
    2. Dim splitted As String() = hwnidlist.Split(CChar(":"))
    4. Dim count As Integer
    5. count = splitted.Count
    8. Dim counter As Integer
    10. For i = 1 To count
    13. If splitted(counter) = myhwnid Then
    14. dpid = CStr(Val(counter) + Val("1"))
    15. MsgBox("ja")
    16. Exit For
    17. End If
    19. counter = CInt(counter + Val("1"))
    20. Next i
    21. Label5.Text = dpid
    22. End Sub


    Ps:

    VB.NET-Quellcode

    1. If joniator = "wird nicht geholfen" then
    2. joniator="dreht durch"
    3. else
    4. joniator = "is happy"
    5. end if
    Wer Rechtschreibfehler findet darf sie behalten :)

    dann setzt mal einen haltepunkt und schau was splitted(1) für einen Wert hat und welchen wert myhnwid hat. Poste das, wenn dir kein Fehler auffällt oder mache einen Screenshot.

    Edit: Gebe uns mal beispieldaten für hwnidlist und myhwnid. thx

    myhnwid=
    Spoiler anzeigen

    VB.NET-Quellcode

    1. <Flags()> _
    2. Private Enum DockInfo
    3. DOCKINFO_DOCKED = &H2
    4. DOCKINFO_UNDOCKED = &H1
    5. DOCKINFO_USER_SUPPLIED = &H4
    6. DOCKINFO_USER_DOCKED = &H5
    7. DOCKINFO_USER_UNDOCKED = &H6
    8. End Enum
    10. <StructLayout(LayoutKind.Sequential)> _
    11. Public Class HW_PROFILE_INFO
    12. <MarshalAs(UnmanagedType.U4)> _
    13. Public dwDockInfo As Int32
    15. <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=39)> _
    16. Public szHwProfileGuid As String
    18. <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=80)> _
    19. Public szHwProfileName As String
    20. End Class
    22. <DllImport("advapi32.dll", SetLastError:=True)> _
    23. Private Shared Function GetCurrentHwProfile(ByVal lpHwProfileInfo As IntPtr) As Boolean
    24. End Function
    26. Declare Function GetVolumeInformationA Lib "kernel32" ( _
    27. ByVal PathName As String, _
    28. ByVal VolumeNameBuffer As StringBuilder, _
    29. ByVal VolumeNameSize As UInt32, _
    30. ByRef VolumeSerialNumber As UInt32, _
    31. ByRef MaximumComponentLength As UInt32, _
    32. ByRef FileSystemFlags As UInt32, _
    33. ByVal FileSystemNameBuffer As StringBuilder, _
    34. ByVal FileSystemNameSize As UInt32) As Long
    36. Private Shared Function ProfileInfo() As HW_PROFILE_INFO
    37. Dim profile As HW_PROFILE_INFO
    38. Dim profilePtr As IntPtr = IntPtr.Zero
    39. Try
    40. profile = New HW_PROFILE_INFO()
    41. profilePtr = Marshal.AllocHGlobal(Marshal.SizeOf(profile))
    42. Marshal.StructureToPtr(profile, profilePtr, False)
    44. If Not GetCurrentHwProfile(profilePtr) Then
    45. Throw New Exception("Error cant get current hw profile!")
    46. Else
    47. Marshal.PtrToStructure(profilePtr, profile)
    48. Return profile
    49. End If
    50. Catch e As Exception
    51. Throw New Exception(e.ToString())
    52. Finally
    53. If profilePtr <> IntPtr.Zero Then
    54. Marshal.FreeHGlobal(profilePtr)
    55. End If
    56. End Try
    57. End Function
    59. Private Shared Function GetVolumeSerial(ByVal strDriveLetter As String) As String
    60. Dim serNum As UInteger = 0
    61. Dim maxCompLen As UInteger = 0
    62. Dim VolLabel As New StringBuilder(256)
    63. Dim VolFlags As New UInt32()
    64. Dim FSName As New StringBuilder(256)
    65. strDriveLetter += ":\"
    66. Dim Ret As Long = GetVolumeInformationA(strDriveLetter, VolLabel, CType(VolLabel.Capacity, UInt32), serNum, maxCompLen, VolFlags, _
    67. FSName, CType(FSName.Capacity, UInt32))
    68. Return Convert.ToString(serNum)
    69. End Function
    71. Shared Function getHWID() As String
    72. Dim info As HW_PROFILE_INFO = ProfileInfo()
    73. Dim GUID As String = info.szHwProfileGuid.ToString()
    74. Dim volumeserial As String = GetVolumeSerial(Environment.SystemDirectory.Substring(0, 1))
    76. Dim md5Hasher As MD5 = MD5.Create()
    77. Dim data As Byte() = md5Hasher.ComputeHash(Encoding.Default.GetBytes(GUID & volumeserial))
    78. Dim sBuilder As New StringBuilder()
    80. For i = 0 To data.Length - 1
    81. sBuilder.Append(data(i).ToString("x2"))
    82. Next i
    84. getHWID = sBuilder.ToString()
    85. End Function

    var von hnwid=

    Quellcode

    1. testtesttesttesttesttesttesttest:3bb431380ea5b184d16dfb89dc74ae0a

    var von myhnwid:

    Quellcode

    1. 3bb431380ea5b184d16dfb89dc74ae0a
    Bilder

    • Unbenannt.png

      9,76 kB, 257×159, 93 mal angesehen
    Wer Rechtschreibfehler findet darf sie behalten :)

    FreakJNS schrieb:

    verstehe ich das richtig, dass du eine auflistung von hnwid's hast und herausfinden willst in welcher zeile myhnwid steht?
    Wenn nicht, dann bitte mal genau erklären. Btw hnwid ist nicht hnwidlist oder?

    ja du siest es richtig
    ich will eine liste vergleichen und die id (die zahl in der reihenfolge bsp: 1,2,3,4,5,6 und die id is z.b. 4)
    will jz eig nur wissen warum das programm falsch vergleicht...
    Wer Rechtschreibfehler findet darf sie behalten :)

    okay - sind die hnwid's auch durch doppelpunkte getrennt - also:

    aaa:bbb:aaa:bbb:aaa:bbb

    oder durch leerzeilen:

    aaa:bbb
    aaa:bbb
    aaa:bbb

    erzähl mal etwas mehr - dein code ist aufjedenfall merkwürdig^^

    Edit: Damit eine Zeichenfolge unterschiedlich "erkannt" wird reicht schon ein einzelnes anderes Zeichen - ein Leerzeichen z.B.

    jo - welche Zeile hört sich nach einem vbCrLf (also dem Befehl für eine Neue Zeile anzufangen) an.

    Du musst zuerst Zeilenweise einlesen und dann jede Zeile beim ":"c splitten. Splittest du nur beim Doppelpunkt, dann passiert murks weil der NewLine-Befehl (vbCrLf oder Environment.newLine) teil der Zeichenkette ist. ich vermute da liegt der Fehler. Poste doch mal einen Datenbankauszug - die Kristallkugel ist gestern runtergefallen^^

    aaa:bbb NewLine
    ccc:ddd NewLine
    eee:fff NewLine

    Aber bitte, bitte, bitte verbessere Deinen Programmierstil und setz Dich mit den Datentypen auseinander. Bitte.
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o

    ehrlich, nehm den Tipp ernst. Ieinen Kaudawelsch zusammenproggen kann jeder - sich dann wundern, warum man das Programm abschmiert wenn man "5 Piraten + die wurzel aus "hax0r" minus apfel" rechnet auch. Die Datentypen wurden ja nicht umsonst erfunden^^

    zeichenkette splitten

    ich weiß nicht, ob ich Dich richtig verstanden habe. Am einfachsten geht es vielleicht so

    Dim t AsString
    t =
    "das ist ein test"
    Dim s() AsString    s = Split(t, " ")
    MsgBox(UBound(s))

    hier wird die Zeichenkette nach Leezeichen aufgetrennt. In der Feldvariablen s() stehen dann die einzeilen Ketten. In Ubound(s) also die Dimension des Feldes.