Listbox Eintrag bearbeiten

  • VB.NET

Es gibt 20 Antworten in diesem Thema. Der letzte Beitrag () ist von Schlammy.

    Listbox Eintrag bearbeiten

    hallo Leute wollte ein Tool machen um aus einer bestimmten Datei Einträge mit einem bestimmten wert zu ändern. Ich filtere mir die items mit regex und bearbeite diese mit replace . Doch sobald ich dieses item ändern möchte, macht er einfach ein neues item

    siehe anhang

    Testtext
    Spoiler anzeigen

    <object id="object (Beach1_LAs0fg) (1)" interior="0" collisions="true" alpha="255" doublesided="false" model="4842" scale="1" dimension="0" posX="-421.09961" posY="538.7998" posZ="46" rotX="0" rotY="0" rotZ="0"></object>
    <object id="object (Beach1_LAs0fg) (5)" interior="0" collisions="true" alpha="255" doublesided="false" model="4842" scale="1" dimension="0" posX="-548" posY="747.59998" posZ="45.9" rotX="0" rotY="0" rotZ="297.746"></object>
    <object id="object (Beach1_LAs04) (1)" interior="0" collisions="true" alpha="255" doublesided="false" model="4844" scale="1" dimension="0" posX="-538.20001" posY="820.59998" posZ="44.3" rotX="0" rotY="0" rotZ="252"></object>
    <object id="object (Beach1_LAs04) (2)" interior="0" collisions="true" alpha="255" doublesided="false" model="4844" scale="1" dimension="0" posX="-483.89999" posY="981.09998" posZ="44.4" rotX="0" rotY="0" rotZ="257.999"></object>
    <object id="object (Beach1_LAs04) (3)" interior="0" collisions="true" alpha="255" doublesided="false" model="4844" scale="1" dimension="0" posX="-445.60001" posY="1144.09998" posZ="44.3" rotX="0" rotY="0" rotZ="265.997"></object>


    Mein Quellcode:
    pastebin.com/P3H6m8qZ

    Problem bei z. 79 | 83
    Bilder

    • problem.png

      168,79 kB, 1.648×500, 119 mal angesehen

    Mach eine List(Of String), pack dort Deine Daten rein und häng diese als DataBinding an Deine Listbox.
    So geht es erst mal mit einem Gewalt-Update:

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private myList As New List(Of String)
    3. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    4. myList.Add("gg")
    5. myList.Add("cc")
    6. myList.Add("tt")
    7. Me.ListBox1.DataSource = myList
    8. End Sub
    10. Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
    11. myList(2) = "bla"
    12. Me.ListBox1.DataSource = Nothing
    13. Me.ListBox1.DataSource = myList
    14. End Sub
    15. End Class
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Gib Deinem Projekt zunächst Option Strict On.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    OK, ich bin über diese Zeile gestolpert:

    VB.NET-Quellcode

    1. Dim myTextList = mytext.Split(CChar(vbNewLine))
    Was ist mit diesem Code?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Schlammy schrieb:

    Damit möchte ich einen zeilenumbruch nehmen
    Dann mach doch gleich ReadAllLines().
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    VB.NET-Quellcode

    1. If t.ShowDialog = vbOK Then
    2. Dim pfad As String = t.FileName
    3. 'Dim mytext As String = My.Computer.FileSystem.ReadAllText(pfad)
    4. 'Dim myTextList = mytext.Split(CChar(vbNewLine))
    5. Dim myTextList = IO.File.ReadAllLines(pfad)
    6. For Each line In myTextList
    7. 'ListBox1.Items.Add(line)
    8. 'ListBox2.Items.Add(line)
    9. myList.Add(line)
    11. Next
    12. Me.ListBox1.DataSource = myList
    13. End If


    geändert doch das wird meinem Problem sicher nicht weiterhelfen ^^

    EDIT
    Artentus

    Danke es funkt

    Weil wenn der Code so lang ist, mache ich lieber pastebin als alles vollzuspammen ^^



    Sry wegen doppelport muss aber den Thread wieder öffnen.

    Neuer Code:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Option Strict On
    4. Imports System.Net
    5. Imports System.IO
    6. Imports System.Text.RegularExpressions
    7. Imports System.Text
    8. Imports System.Web
    9. Imports System
    12. Public Class Form1
    13. Private meinRegex As New Regex(".*?model=""(.*?)"".*?posZ=""(.*?)"".*?></object>", RegexOptions.Multiline)
    15. Dim curStatus As String = "-"
    16. Dim integerwert As Integer = 0
    18. Private myList As New List(Of String)
    20. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    26. ListBox1.Items.Clear()
    27. Dim t As New OpenFileDialog
    28. If t.ShowDialog = vbOK Then
    29. Dim pfad As String = t.FileName
    30. 'Dim mytext As String = My.Computer.FileSystem.ReadAllText(pfad)
    31. 'Dim myTextList = mytext.Split(CChar(vbNewLine))
    32. Dim myTextList = IO.File.ReadAllLines(pfad)
    33. For Each line In myTextList
    34. 'ListBox1.Items.Add(line)
    35. 'ListBox2.Items.Add(line)
    36. myList.Add(line)
    38. Next
    39. Me.ListBox1.DataSource = myList
    40. End If
    41. End Sub
    43. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    44. RadioButton2.Select()
    45. Control.CheckForIllegalCrossThreadCalls = False
    46. End Sub
    48. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    50. Try
    51. Dim ntext As Integer = CInt(TextBox1.Text)
    52. Try
    53. integerwert = CInt(TextBox2.Text)
    54. Catch ex2 As Exception
    55. Return
    56. End Try
    57. Catch ex As Exception
    58. Return
    60. End Try
    62. If RadioButton1.Checked = True Then
    63. curStatus = "+"
    64. Else
    65. curStatus = "-"
    66. End If
    68. Dim it As New Threading.Thread(AddressOf startFishing)
    69. it.Start()
    71. End Sub
    73. Public Sub startFishing()
    75. Dim groups1 As GroupCollection
    76. ListBox2.Items.Clear()
    77. For i As Integer = 0 To (myList.Count - 1)
    79. Me.ListBox1.DataSource = Nothing
    80. ProgressBar1.Maximum = (myList.Count - 1)
    81. ProgressBar1.Value = i
    82. Dim item As String = myList.Item(i)
    84. ' Hier abfragen
    85. Dim MC1 As MatchCollection = meinRegex.Matches(CStr(item))
    90. If MC1.Count > 0 Then
    91. For Each items As Match In MC1
    93. groups1 = items.Groups
    94. Dim sell As Integer = groups1.Count()
    95. If (groups1.Item(1).Value()) = TextBox1.Text Then
    96. Dim curDIm As Integer = CInt(groups1.Item(2).Value())
    97. If curStatus = "-" Then
    98. Dim newvalue As Integer = (curDIm - integerwert)
    99. 'ListBox2.Items.RemoveAt(mydex)
    101. 'ListBox2.Items.Add(groups1.Item(0).Value.Replace("dimension=""" & curDIm & """", "dimension=""" & newvalue & """"))
    102. myList(i) = groups1.Item(0).Value.Replace(" posZ=""" & curDIm & """", " posZ=""" & newvalue & """")
    103. 'myList.RemoveAt(i)
    104. 'myList.Add(groups1.Item(0).Value.Replace(" posZ=""" & curDIm & """", " posZ=""" & newvalue & """"))
    105. ListBox2.Items.Add(groups1.Item(0).Value.Replace(" posZ=""" & curDIm & """", " posZ=""" & newvalue & """"))
    106. 'Threading.Thread.Sleep(250)
    107. Else
    108. Dim newvalue As Integer = (curDIm + integerwert)
    109. 'ListBox2.Items.RemoveAt(mydex)
    110. 'myList.RemoveAt(i)
    111. 'myList.Add(groups1.Item(0).Value.Replace(" posZ=""" & curDIm & """", " posZ=""" & newvalue & """"))
    112. ListBox2.Items.Add(groups1.Item(0).Value.Replace(" posZ=""" & curDIm & """", " posZ=""" & newvalue & """"))
    113. myList(i) = groups1.Item(0).Value.Replace(" posZ=""" & curDIm & """", " posZ=""" & newvalue & """")
    114. 'ListBox2.Items.Add(groups1.Item(0).Value.Replace("dimension=""" & curDIm & """", "dimension=""" & newvalue & """"))
    117. 'Threading.Thread.Sleep(250)
    118. End If
    119. End If
    121. Next
    122. End If
    123. Next
    124. Me.ListBox1.DataSource = myList
    125. ProgressBar1.Value = 0
    126. End Sub
    128. Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
    129. 'Try
    130. ' TextBox3.Text = ListBox1.SelectedItem.ToString
    131. 'Catch ex As Exception
    133. 'End Try
    134. End Sub
    136. Private Sub ListBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox2.SelectedIndexChanged
    137. Try
    138. TextBox3.Text = ListBox2.SelectedItem.ToString
    139. Catch ex As Exception
    141. End Try
    142. End Sub
    143. End Class


    die listbox2 ist nur für debug zwecke

    Er ersetzt nur machn mal die zahl die meisten bleiben so wie sie waren was mache ich falsch?

    Edit by hal2000:
    - Expander eingefügt.
    - Doppelpost zusammengefügt.

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

    Setz einen Haltepunkt rein und überzeuge Dich vom ordnungsgemäßen Programmablauf.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    RodFromGermany schrieb:

    VB.NET-Quellcode

    1. Me.ListBox1.DataSource = Nothing
    2. Me.ListBox1.DataSource = myList
    Deswegen erst Nothing und danach auf den Wert :!:
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    VB.NET-Quellcode

    1. If MC1.Count > 0 Then
    2. For Each items As Match In MC1
    4. groups1 = items.Groups
    5. Dim sell As Integer = groups1.Count()
    6. If (groups1.Item(1).Value()) = TextBox1.Text Then
    7. Dim curDIm As Integer = CInt(groups1.Item(2).Value())
    8. Me.ListBox1.DataSource = Nothing
    9. Me.ListBox1.DataSource = myList
    10. If curStatus = "-" Then
    11. Dim newvalue As Integer = (curDIm - integerwert)
    12. 'ListBox2.Items.RemoveAt(mydex)
    14. 'ListBox2.Items.Add(groups1.Item(0).Value.Replace("dimension=""" & curDIm & """", "dimension=""" & newvalue & """"))
    15. myList(i) = groups1.Item(0).Value.Replace("posZ=""" & curDIm.ToString & """", "posZ=""" & newvalue.ToString & """")
    16. 'myList.RemoveAt(i)
    17. 'myList.Add(groups1.Item(0).Value.Replace(" posZ=""" & curDIm & """", " posZ=""" & newvalue & """"))
    18. ListBox2.Items.Add(groups1.Item(0).Value.Replace("posZ=""" & curDIm.ToString & """", "posZ=""" & newvalue.ToString & """"))
    19. 'Threading.Thread.Sleep(250)
    20. Else
    21. Dim newvalue As Integer = (curDIm + integerwert)
    22. 'ListBox2.Items.RemoveAt(mydex)
    23. 'myList.RemoveAt(i)
    24. 'myList.Add(groups1.Item(0).Value.Replace(" posZ=""" & curDIm & """", " posZ=""" & newvalue & """"))
    25. ListBox2.Items.Add(groups1.Item(0).Value.Replace("posZ=""" & curDIm.ToString & """", "posZ=""" & newvalue.ToString & """"))
    26. myList(i) = groups1.Item(0).Value.Replace("posZ=""" & curDIm.ToString & """", "posZ=""" & newvalue.ToString & """")
    27. 'ListBox2.Items.Add(groups1.Item(0).Value.Replace("dimension=""" & curDIm & """", "dimension=""" & newvalue & """"))
    30. 'Threading.Thread.Sleep(250)
    31. End If
    32. End If
    34. Next
    35. End If


    So? (z. 8/9)

Facebook
Telefonspende