- 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


