Indetectables

Bueno lo que trato de hacer es lo siguiente.

Es un programa contenga dos Richtextbox; En uno se ingresen los datos en el siguiente formato:

abcd@efgh
1234@5678
a1a2@a3a4

Y en el segundo Richtextbox estos datos se organizen de la siguiente manera:

Case 1
    TextBox1.Text = "abcd"
    TextBox2.Text = "efgh"

Case 2
    TextBox1.Text = "1234"
    TextBox2.Text = "5678"

Case 3
    TextBox1.Text = "a1a2"
    TextBox2.Text = "a3a4"

Y que los "case" se ajusten a la data por ejemplo alli fueron 3 datos pero digamos que introdusco 10 datos los "case" deberian llegar a 10.

La verdad pregunto porque no tengo ni una remota idea de como hacerlo, intente en vb6 usando split para dividir las cadenas tomando el "@" como referencia y divido las cadenas pero no logro hacer que los datos se estructuren de esa manera.

De antemano muchas gracias.

Saludos

No se entiende :S

Podrías usar algo así.

Dim separado() As String
separado = Split(Replace(RichTextBox1.Text, vbNewLine, "@"), "@")
For i = 0 To UBound(separado)
MsgBox (separado(i))
Next

saludos

Pink escribió:Podrías usar algo así.

Dim separado() As String
separado = Split(Replace(RichTextBox1.Text, vbNewLine, "@"), "@")
For i = 0 To UBound(separado)
MsgBox (separado(i))
Next

saludos

Eso hacia hace un rato y no se puede asi :S

Bueno ya he hecho esto:

[Enlace externo eliminado para invitados]

Funciona casi como quiero pero el problema es que no puede leer mas de una linea a la vez y ya no se me ocurre nada mas

Saludos

Es lo que te digo ¬¬

Sub SplitIt(strText As String)
Dim separado() As String
Dim i As Long
Dim j As Long
j = 1
separado = Split(Replace(strText, vbNewLine, "@"), "@")
For i = 0 To UBound(separado) Step 2
xx.Text = xx.Text & "case " & j & vbNewLine & "textbox1.text = " & separado(i) & vbNewLine & "textbox2.text = " & separado(i + 1) & vbNewLine
j = j + 1
Next
End Sub

Private Sub Command1_Click()
SplitIt (zzz.Text)
End Sub

Private Sub Form_Load()
zzz.Text = "abcd@efgh" & vbNewLine & "1234@5678" & vbNewLine & "a1a2@a3a4"
End Sub

saludos

Pink escribió:Es lo que te digo ¬¬

Sub SplitIt(strText As String)
Dim separado() As String
Dim i As Long
Dim j As Long
j = 1
separado = Split(Replace(strText, vbNewLine, "@"), "@")
For i = 0 To UBound(separado) Step 2
xx.Text = xx.Text & "case " & j & vbNewLine & "textbox1.text = " & separado(i) & vbNewLine & "textbox2.text = " & separado(i + 1) & vbNewLine
j = j + 1
Next
End Sub

Private Sub Command1_Click()
SplitIt (zzz.Text)
End Sub

Private Sub Form_Load()
zzz.Text = "abcd@efgh" & vbNewLine & "1234@5678" & vbNewLine & "a1a2@a3a4"
End Sub

saludos

Exelente! era justo lo que buscaba! Muchas gracias Pink

Saludos