Lesen von .txt Datei und trennen

  • VB.NET
  • .NET (FX) 4.0

Es gibt 181 Antworten in diesem Thema. Der letzte Beitrag () ist von Lightsource.

    Momentan den zweiten. Sobald Du einen RadioButton anwählst, muss in dessen CheckedChangedEventHandler die ItemListe geleert und mit den Items der gewählten Rolle gefüllt werden.
    Eh … Moment. Das passiert ja schon, wenn ich mir Post#136 anschaue. Ist dieser Methoden-Aufbau bei allen RadioButtons prinzipiell gleich? Dann sollte es auch keine Probleme mit der Auswahl geben, da ja beim Anklicken der RollenRadioButtons die dazugehörige Datei geladen und in die ItemComboBox und die EQAAdventurer-Liste geschrieben werden. Hm …
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    VaporiZed schrieb:

    EQAAdventurer-Liste

    Das ist nicht ganz korrekt.
    Jede Klasse ist einzeln.

    VB.NET-Quellcode

    1. 'Make EQAAdventurer "Public" to use
    2. Private ReadOnly EQAAdventurer As New List(Of String)
    3. Private Sub GunaRadioButton_EQAAdventurer_CheckedChanged(sender As Object, e As EventArgs) Handles GunaRadioButton_EQAAdventurer.CheckedChanged
    4. CreateNewCommandText()
    5. 'Read File & Split EQAAdventurer
    6. Dim lines() = System.IO.File.ReadAllLines("Files\EQArmours\Adventurer.txt")
    7. EQAAdventurer.Clear()
    8. ComboBox_EQAItem.Items.Clear()
    9. TextBox_EQACommand.Clear()
    10. For Each line In lines
    11. Dim parts() = line.Split(","c)
    12. ComboBox_EQAItem.Items.Add(parts(0))
    13. EQAAdventurer.Add(parts(1))
    14. Next
    15. ComboBox_EQAItem.SelectedIndex = -1
    16. ComboBox_EQARarity.SelectedIndex = 2
    17. ComboBox_EQAUpgrade.SelectedIndex = 0
    18. '<<<------>>>
    19. GunaImageButton_ClipEQA.Visible = False
    20. End Sub
    22. 'Make EQASwordsman "Public" to use
    23. Private ReadOnly EQASwordsman As New List(Of String)
    24. Private Sub GunaRadioButton_EQASwordsman_CheckedChanged(sender As Object, e As EventArgs) Handles GunaRadioButton_EQASwordsman.CheckedChanged
    25. CreateNewCommandText()
    26. 'Read File & Split EQASwordsman
    27. Dim lines() = System.IO.File.ReadAllLines("Files\EQArmours\Swordsman.txt")
    28. EQASwordsman.Clear()
    29. ComboBox_EQAItem.Items.Clear()
    30. TextBox_EQACommand.Clear()
    31. For Each line In lines
    32. Dim parts() = line.Split(","c)
    33. ComboBox_EQAItem.Items.Add(parts(0))
    34. EQASwordsman.Add(parts(1))
    35. Next
    36. ComboBox_EQAItem.SelectedIndex = -1
    37. ComboBox_EQARarity.SelectedIndex = 2
    38. ComboBox_EQAUpgrade.SelectedIndex = 0
    39. '<<<------>>>
    40. GunaImageButton_ClipEQA.Visible = False
    41. End Sub
    43. 'Make EQAArcher "Public" to use
    44. Private ReadOnly EQAArcher As New List(Of String)
    45. Private Sub GunaRadioButton_EQAArcher_CheckedChanged(sender As Object, e As EventArgs) Handles GunaRadioButton_EQAArcher.CheckedChanged
    46. CreateNewCommandText()
    47. 'Read File & Split EQAAdventurer
    48. Dim lines() = System.IO.File.ReadAllLines("Files\EQArmours\Archer.txt")
    49. EQAArcher.Clear()
    50. ComboBox_EQAItem.Items.Clear()
    51. TextBox_EQACommand.Clear()
    52. For Each line In lines
    53. Dim parts() = line.Split(","c)
    54. ComboBox_EQAItem.Items.Add(parts(0))
    55. EQAArcher.Add(parts(1))
    56. Next
    57. ComboBox_EQAItem.SelectedIndex = -1
    58. ComboBox_EQARarity.SelectedIndex = 2
    59. ComboBox_EQAUpgrade.SelectedIndex = 0
    60. '<<<------>>>
    61. GunaImageButton_ClipEQA.Visible = False
    62. End Sub
    64. 'Make EQAMage "Public" to use
    65. Private ReadOnly EQAMage As New List(Of String)
    66. Private Sub GunaRadioButton_EQAMage_CheckedChanged(sender As Object, e As EventArgs) Handles GunaRadioButton_EQAMage.CheckedChanged
    67. CreateNewCommandText()
    68. 'Read File & Split EQAAdventurer
    69. Dim lines() = System.IO.File.ReadAllLines("Files\EQArmours\Mage.txt")
    70. EQAMage.Clear()
    71. ComboBox_EQAItem.Items.Clear()
    72. TextBox_EQACommand.Clear()
    73. For Each line In lines
    74. Dim parts() = line.Split(","c)
    75. ComboBox_EQAItem.Items.Add(parts(0))
    76. EQAMage.Add(parts(1))
    77. Next
    78. ComboBox_EQAItem.SelectedIndex = -1
    79. ComboBox_EQARarity.SelectedIndex = 2
    80. ComboBox_EQAUpgrade.SelectedIndex = 0
    81. '<<<------>>>
    82. GunaImageButton_ClipEQA.Visible = False
    83. End Sub
    85. 'Make EQAMartialArtist "Public" to use
    86. Private ReadOnly EQAMartialArtist As New List(Of String)
    87. Private Sub GunaRadioButton_EQAMartialArtist_CheckedChanged(sender As Object, e As EventArgs) Handles GunaRadioButton_EQAMartialArtist.CheckedChanged
    88. CreateNewCommandText()
    89. 'Read File & Split EQAAdventurer
    90. Dim lines() = System.IO.File.ReadAllLines("Files\EQArmours\Martial Artist.txt")
    91. EQAMartialArtist.Clear()
    92. ComboBox_EQAItem.Items.Clear()
    93. TextBox_EQACommand.Clear()
    94. For Each line In lines
    95. Dim parts() = line.Split(","c)
    96. ComboBox_EQAItem.Items.Add(parts(0))
    97. EQAMartialArtist.Add(parts(1))
    98. Next
    99. ComboBox_EQAItem.SelectedIndex = -1
    100. ComboBox_EQARarity.SelectedIndex = 2
    101. ComboBox_EQAUpgrade.SelectedIndex = 0
    102. '<<<------>>>
    103. GunaImageButton_ClipEQA.Visible = False
    104. End Sub

    Moin @MrSKY ich misch mich mal kurz ein :)
    Schreib das lieber so:

    VB.NET-Quellcode

    1. Dim lines As String() = System.IO.File.ReadAllLines("Files\EQArmours\Adventurer.txt")

    also mit Typ-Angabe. Ist einfacher zu lesen. Und vorher kannst du prüfen, ob die Datei existiert.

    VB.NET-Quellcode

    1. Private Sub B2_Click(sender As Object, e As EventArgs) Handles B2.Click
    2. CreateNewCommandText()
    3. 'Read File & Split EQAAdventurer
    4. If Not System.IO.File.Exists("Files\EQArmours\Adventurer.txt") Then
    5. MessageBox.Show("Die Datei »Files\EQArmours\Adventurer.txt« wurde nicht gefunden.", "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
    6. Return
    7. End If
    8. Dim lines As String() = System.IO.File.ReadAllLines("Files\EQArmours\Adventurer.txt")
    9. '....
    10. End Sub


    und hier auch mit Typ:

    For Each line As String In lines
    Dim parts As String() = line.Split(","c)
    ComboBox_EQAItem.Items.Add(parts(0))
    EQAAdventurer.Add(parts(1))
    Next

    Bartosz schrieb:

    Und mit Typendeklaration ist er einfacher zu lesen

    Ist Ansichtssache.
    Ich finde es übersichtlicher ohne.

    Aber vor allem, wenn du aus deinem String-Array mal eine List(Of String) machen willst, hast du mehrere Änderungen und ich nur eine.
    Typsicher sind beide Varianten.
    Insofern: Jeder wie er mag.
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    ich komme langsam auf die Idee: Für Anfänger ist nützlich, die Typen noch hinzuschreiben.
    Mit der Zeit weiss man aber, dass zB. String.Split() String() zurückgibt, und weiss auch, was das(String()) ist.
    Und man hat gelernt, solch im Zweifelsfalle in 3 Sekunden nachzugucken: Video-Tut: Welchen Datentyp hat das Objekt?
    Dann wird wichtiger, dass man seine Zeilen kurz hat, und dass man Datentypen einfach umändern kann, ohne an mehreren Stellen nachbessern zu müssen.

    @MrSKY: Dann must Du eben in der CreateNewCommandText mithilfe eines If-Blocks (oder alternativ Select Case Block) schauen, welcher RadioButton gewählt ist und dann eben in CommandText den entsprechenden Eintrag aus der jeweiligen Rollenliste entnehmen. Also so ungefähr:

    VB.NET-Quellcode

    1. Dim CommandText = "$ci "
    2. Select Case True
    3. Case GunaRadioButton_EQAAdventurer.Checked: CommandText &= EQAAdventurer(ComboBox_EQAItem.SelectedIndex)
    4. Case GunaRadioButton_EQASwordsman.Checked: CommandText &= EQASwordsman(ComboBox_EQAItem.SelectedIndex)
    5. …

    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Na sehr schön. Die Zeile, in der der Fehler auftritt, ist auf dem Screenshot nicht mehr zu sehen. :|
    Welchen Wert hat ComboBox_EQAItem.SelectedIndex? Wieviele Einträge hat EQASwordsman?
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    @MrSKY: Schau Dir bitte nochmal Deinen Post#142 an und zwar, wann Du beim Click der RadioButtons die CreateNewCommandText-Sub aufrufst. Dann dürfte klar werden, warum Dir das um die Ohren fliegt.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    VaporiZed schrieb:

    wann Du beim Click der RadioButtons die CreateNewCommandText-Sub aufrufst


    VB.NET-Quellcode

    1. ​ 'Make EQAAdventurer "Public" to use
    2. Private ReadOnly EQAAdventurer As New List(Of String)
    3. Private Sub GunaRadioButton_EQAAdventurer_CheckedChanged(sender As Object, e As EventArgs) Handles GunaRadioButton_EQAAdventurer.CheckedChanged
    5. 'Read File & Split EQAAdventurer
    6. Dim lines As String() = System.IO.File.ReadAllLines("Files\EQArmours\Adventurer.txt")
    7. EQAAdventurer.Clear()
    8. ComboBox_EQAItem.Items.Clear()
    9. TextBox_EQACommand.Clear()
    10. For Each line As String In lines
    11. Dim parts As String() = line.Split(","c)
    12. ComboBox_EQAItem.Items.Add(parts(0))
    13. EQAAdventurer.Add(parts(1))
    14. Next
    15. ComboBox_EQAItem.SelectedIndex = -1
    16. ComboBox_EQARarity.SelectedIndex = 2
    17. ComboBox_EQAUpgrade.SelectedIndex = 0
    18. '<<<------>>>
    19. CreateNewCommandText()
    20. GunaImageButton_ClipEQA.Visible = False
    21. End Sub


    Hab das nun unten eingefügt anstatt oben.

    Dennoch löst es leider das Problem nicht.
    Nun liest er wenigstens die richtige .txt ein und wenn man diese auswählt kommt auch die richtige "ID" in die TextBox.
    Jedoch auch nur die ersten 6 Einträge und auch nur nachdem ich Adventurer ausgewählt habe.
    Wenn ich bei Programmstart Swordsman auswähle passiert gar nichts.

    Bitte die aktuelle Version der Private Sub GunaRadioButton_EQASwordsman_CheckedChanged und der CreateNewCommandText() posten. Würde mich nicht wundern, wenn sich da ein Flüchtigkeitsfehler eingeschlichen hat. Zur Sicherheit auch noch einen Screenshot mit der Ausgabe wie in Posts#151. Wie Du gemerkt hast, können solche Ausgaben die Fehlersuche schnell das Problem/Ziel eingrenzen.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    VaporiZed schrieb:

    Private Sub GunaRadioButton_EQASwordsman_CheckedChanged


    VB.NET-Quellcode

    1. 'Make EQASwordsman "Public" to use
    2. Private ReadOnly EQASwordsman As New List(Of String)
    3. Private Sub GunaRadioButton_EQASwordsman_CheckedChanged(sender As Object, e As EventArgs) Handles GunaRadioButton_EQASwordsman.CheckedChanged
    5. 'Read File & Split EQASwordsman
    6. Dim lines As String() = System.IO.File.ReadAllLines("Files\EQArmours\Swordsman.txt")
    7. EQASwordsman.Clear()
    8. ComboBox_EQAItem.Items.Clear()
    9. TextBox_EQACommand.Clear()
    10. For Each line As String In lines
    11. Dim parts As String() = line.Split(","c)
    12. ComboBox_EQAItem.Items.Add(parts(0))
    13. EQASwordsman.Add(parts(1))
    14. Next
    15. ComboBox_EQAItem.SelectedIndex = -1
    16. ComboBox_EQARarity.SelectedIndex = 2
    17. ComboBox_EQAUpgrade.SelectedIndex = 0
    18. '<<<------>>>
    19. CreateNewCommandText()
    20. GunaImageButton_ClipEQA.Visible = False
    21. End Sub




    btw


    Wenn ich den Haltepunkt eins darunter setze und bei Programmstart Swordsman auswähle passiert nichts.
    Der kommt da gar nicht vorbei.

    Mir fällt grad ein: Setz mal in jeder RadioButton_CheckedChanged-Methode zu Beginn noch ne Startbedingung:

    VB.NET-Quellcode

    1. Private Sub GunaRadioButton_EQAAdventurer_CheckedChanged(sender As Object, e As EventArgs) Handles GunaRadioButton_EQAAdventurer.CheckedChanged
    2. If Not GunaRadioButton_EQAAdventurer.Checked Then Return
    4. '…
    5. Private Sub GunaRadioButton_EQASwordsman_CheckedChanged(sender As Object, e As EventArgs) Handles GunaRadioButton_EQASwordsman.CheckedChanged
    6. If Not GunaRadioButton_EQASwordsman.Checked Then Return
    8. 'usw.

    Denn sonst werden die ganzen Methoden auch ausgeführt, wenn der jeweilige RadioButton seine Selektion (den Auswahlpunkt) verliert.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    An der Stelle kann ich wohl nicht weiterhelfen. Du musst wohl alles Schritt für Schritt durchgehen, notfalls überall dort Haltepunkte setzen, wo Du der Meinung bist, dass der Compiler vorbeikommen muss. Und wenn er irgendwo anders abbiegt, dann schauen, warum.
    Ich hab den bisherigen Code für Adventurer und Swordsman genommen und ausprobiert. Klappt, siehe Screenshot (auch wenn die ItemDaten und der CommandText inhaltlich sicherlich nicht zu Deinem Spiel passen).
    Da Du den Inhalt der Form1.vb nicht posten willst, ist erstmal an dieser Stelle bei mir Schluss, da ich auf Anhieb nicht mehr wüsste, woran es liegen kann.
    Bilder

    • Result.png

      24,31 kB, 691×512, 18 mal angesehen
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    VaporiZed schrieb:

    Da Du den Inhalt der Form1.vb nicht posten willst


    Die hat über 2000 Zeilen Code.
    Nur um diese Funktion wo du mir hilfst ist nur dieser Part:

    VB.NET-Quellcode

    1. ​'Make EQAAdventurer "Public" to use
    2. Private ReadOnly EQAAdventurer As New List(Of String)
    3. Private Sub GunaRadioButton_EQAAdventurer_CheckedChanged(sender As Object, e As EventArgs) Handles GunaRadioButton_EQAAdventurer.CheckedChanged
    4. If Not GunaRadioButton_EQAAdventurer.Checked Then Return
    5. 'Read File & Split EQAAdventurer
    6. Dim lines As String() = System.IO.File.ReadAllLines("Files\EQArmours\Adventurer.txt")
    7. EQAAdventurer.Clear()
    8. ComboBox_EQAItem.Items.Clear()
    9. TextBox_EQACommand.Clear()
    10. For Each line As String In lines
    11. Dim parts As String() = line.Split(","c)
    12. ComboBox_EQAItem.Items.Add(parts(0))
    13. EQAAdventurer.Add(parts(1))
    14. Next
    15. ComboBox_EQAItem.SelectedIndex = -1
    16. ComboBox_EQARarity.SelectedIndex = 2
    17. ComboBox_EQAUpgrade.SelectedIndex = 0
    18. '<<<------>>>
    19. CreateNewCommandText()
    20. GunaImageButton_ClipEQA.Visible = False
    21. End Sub
    23. Private Sub ComboBox_EQAItem_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox_EQAItem.SelectedIndexChanged
    25. 'Get Entry EQAAdventurer from ComboBox and write in TextBox
    26. If (ComboBox_EQAItem.SelectedIndex >= EQAAdventurer.Count) Then
    27. Return
    28. End If
    29. '<<<------>>>
    30. CreateNewCommandText()
    32. End Sub
    34. Private Sub ComboBox_EQARarity_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox_EQARarity.SelectedIndexChanged
    36. 'Get Entry EQAAdventurer from ComboBox and write in TextBox
    37. If (ComboBox_EQAItem.SelectedIndex >= EQAAdventurer.Count) Then
    38. Return
    39. End If
    40. '<<<------>>>
    41. CreateNewCommandText()
    43. End Sub
    45. Private Sub ComboBox_EQAUpgrade_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox_EQAUpgrade.SelectedIndexChanged
    47. 'Get Entry EQAAdventurer from ComboBox and write in TextBox
    48. If (ComboBox_EQAItem.SelectedIndex >= EQAAdventurer.Count) Then
    49. Return
    50. End If
    51. '<<<------>>>
    52. CreateNewCommandText()
    54. End Sub
    56. 'Make EQASwordsman "Public" to use
    57. Private ReadOnly EQASwordsman As New List(Of String)
    58. Private Sub GunaRadioButton_EQASwordsman_CheckedChanged(sender As Object, e As EventArgs) Handles GunaRadioButton_EQASwordsman.CheckedChanged
    59. If Not GunaRadioButton_EQASwordsman.Checked Then Return
    60. 'Read File & Split EQASwordsman
    61. Dim lines As String() = System.IO.File.ReadAllLines("Files\EQArmours\Swordsman.txt")
    62. EQASwordsman.Clear()
    63. ComboBox_EQAItem.Items.Clear()
    64. TextBox_EQACommand.Clear()
    65. For Each line As String In lines
    66. Dim parts As String() = line.Split(","c)
    67. ComboBox_EQAItem.Items.Add(parts(0))
    68. EQASwordsman.Add(parts(1))
    69. Next
    70. ComboBox_EQAItem.SelectedIndex = -1
    71. ComboBox_EQARarity.SelectedIndex = 2
    72. ComboBox_EQAUpgrade.SelectedIndex = 0
    73. '<<<------>>>
    74. CreateNewCommandText()
    75. GunaImageButton_ClipEQA.Visible = False
    76. End Sub
    78. 'Make EQAArcher "Public" to use
    79. Private ReadOnly EQAArcher As New List(Of String)
    80. Private Sub GunaRadioButton_EQAArcher_CheckedChanged(sender As Object, e As EventArgs) Handles GunaRadioButton_EQAArcher.CheckedChanged
    81. If Not GunaRadioButton_EQAArcher.Checked Then Return
    82. 'Read File & Split EQAAdventurer
    83. Dim lines As String() = System.IO.File.ReadAllLines("Files\EQArmours\Archer.txt")
    84. EQAArcher.Clear()
    85. ComboBox_EQAItem.Items.Clear()
    86. TextBox_EQACommand.Clear()
    87. For Each line As String In lines
    88. Dim parts As String() = line.Split(","c)
    89. ComboBox_EQAItem.Items.Add(parts(0))
    90. EQAArcher.Add(parts(1))
    91. Next
    92. ComboBox_EQAItem.SelectedIndex = -1
    93. ComboBox_EQARarity.SelectedIndex = 2
    94. ComboBox_EQAUpgrade.SelectedIndex = 0
    95. '<<<------>>>
    96. CreateNewCommandText()
    97. GunaImageButton_ClipEQA.Visible = False
    98. End Sub
    100. 'Make EQAMage "Public" to use
    101. Private ReadOnly EQAMage As New List(Of String)
    102. Private Sub GunaRadioButton_EQAMage_CheckedChanged(sender As Object, e As EventArgs) Handles GunaRadioButton_EQAMage.CheckedChanged
    103. If Not GunaRadioButton_EQAMage.Checked Then Return
    104. 'Read File & Split EQAAdventurer
    105. Dim lines As String() = System.IO.File.ReadAllLines("Files\EQArmours\Mage.txt")
    106. EQAMage.Clear()
    107. ComboBox_EQAItem.Items.Clear()
    108. TextBox_EQACommand.Clear()
    109. For Each line As String In lines
    110. Dim parts As String() = line.Split(","c)
    111. ComboBox_EQAItem.Items.Add(parts(0))
    112. EQAMage.Add(parts(1))
    113. Next
    114. ComboBox_EQAItem.SelectedIndex = -1
    115. ComboBox_EQARarity.SelectedIndex = 2
    116. ComboBox_EQAUpgrade.SelectedIndex = 0
    117. '<<<------>>>
    118. CreateNewCommandText()
    119. GunaImageButton_ClipEQA.Visible = False
    120. End Sub
    122. 'Make EQAMartialArtist "Public" to use
    123. Private ReadOnly EQAMartialArtist As New List(Of String)
    124. Private Sub GunaRadioButton_EQAMartialArtist_CheckedChanged(sender As Object, e As EventArgs) Handles GunaRadioButton_EQAMartialArtist.CheckedChanged
    125. If Not GunaRadioButton_EQAMartialArtist.Checked Then Return
    126. 'Read File & Split EQAAdventurer
    127. Dim lines As String() = System.IO.File.ReadAllLines("Files\EQArmours\Martial Artist.txt")
    128. EQAMartialArtist.Clear()
    129. ComboBox_EQAItem.Items.Clear()
    130. TextBox_EQACommand.Clear()
    131. For Each line As String In lines
    132. Dim parts As String() = line.Split(","c)
    133. ComboBox_EQAItem.Items.Add(parts(0))
    134. EQAMartialArtist.Add(parts(1))
    135. Next
    136. ComboBox_EQAItem.SelectedIndex = -1
    137. ComboBox_EQARarity.SelectedIndex = 2
    138. ComboBox_EQAUpgrade.SelectedIndex = 0
    139. '<<<------>>>
    140. CreateNewCommandText()
    141. GunaImageButton_ClipEQA.Visible = False
    142. End Sub
    144. Private Sub CreateNewCommandText()
    145. If Not GunaRadioButton_EQAAdventurer.Checked AndAlso Not GunaRadioButton_EQASwordsman.Checked AndAlso Not GunaRadioButton_EQAArcher.Checked AndAlso Not GunaRadioButton_EQAMage.Checked AndAlso Not GunaRadioButton_EQAMartialArtist.Checked OrElse ComboBox_EQAItem.SelectedIndex = -1 OrElse ComboBox_EQARarity.SelectedIndex = -1 OrElse ComboBox_EQAUpgrade.SelectedIndex = -1 Then Return
    146. Dim CommandText = "$ci "
    147. Select Case True
    148. Case GunaRadioButton_EQAAdventurer.Checked : CommandText &= EQAAdventurer(ComboBox_EQAItem.SelectedIndex)
    149. Case GunaRadioButton_EQASwordsman.Checked : CommandText &= EQASwordsman(ComboBox_EQAItem.SelectedIndex)
    150. End Select
    151. If ComboBox_EQARarity.SelectedItem.ToString <> "0" Then
    152. CommandText &= " " & ComboBox_EQARarity.SelectedItem.ToString
    153. If ComboBox_EQAUpgrade.SelectedItem.ToString <> "0" Then CommandText &= " " & ComboBox_EQAUpgrade.SelectedItem.ToString
    154. ElseIf ComboBox_EQAUpgrade.SelectedItem.ToString <> "0" Then
    155. CommandText &= " 0 " & ComboBox_EQAUpgrade.SelectedItem.ToString
    156. End If
    157. TextBox_EQACommand.Text = CommandText
    158. End Sub
    160. Private Sub TextBox_EQACommand_TextChanged(sender As Object, e As EventArgs) Handles TextBox_EQACommand.TextChanged
    161. 'When Empty don't show Clipboard Icon
    162. If TextBox_EQACommand.Text = "" Then
    163. GunaImageButton_ClipEQA.Visible = False
    164. End If
    165. '<<<------>>>
    167. 'Show Clipboard Icon & Hide Checkmark Icon
    168. GunaImageButton_ClipEQA.Visible = True
    169. GunaImageButton_CheckmarkEQA.Visible = False
    170. '<<<------>>>
    171. End Sub

Facebook
Telefonspende