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
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
Imagen
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
Imagen
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
Responder

Volver a “VB/.NET”