- la parte del boton.
Código:
la parte donde quiero imprimir los datos.Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim ok As String = "OK" If Not capOline Is Nothing Then If capOline <> "" Then listOline = "" split = capOline.Split(";") For i = 0 To split.Length - 1 If (i) = (19) Then split(i) = ok End If listOline = listOline + split(i) + ";" Next oTextoNew.Add(listOline) End If End If MsgBox("Codigo OK") TextBox1.Text = "" TextBox1.Focus() TextBox2.Text = "" End Sub
Código:
el tema es que cada ves que apreto el boton "ok" se me desordena todo el array orginal (oTexto). Necesito ayuda urgente. Dim bol As Boolean For Each Me.oLine In oTexto For Each Me.capOline In oTextoNuevo If oLine.Equals(capOline) Then arr.Add(listOline) bol = True ElseIf Not bol Then arr.Add(oLine) End If Next Next Dim Cont As Integer = 0 Dim MiContenido As String For indice As Integer = 0 To arr.Count - 1 Step 1 MiContenido = arr(indice) MessageBox.Show(MiContenido) Next