LER LINHA A LINHA UMA TEXTBOX MULTILINE
Preciso saber comoo faço para ler uma TextBox Multiline linha a linha para mostrar o resultado de cada linha em outras TextBoxes.
Até mais.
Até mais.
For Each Linha As String In Me.TextBox1.Lines
MessageBox.Show(Linha)
Next
Olá, Jonathan, é o seguinte. Eu preciso fazer com que a primeira linha da TextBox seja colocada em outra TextBox, a segunda linha em outra TextBox e assim por diante, até acabar todo o texto que existe na TextBox principal.
Por exemplo: Tenho uma TextBox assim:
LOCAL DE ENTREGA:
RUA DAS PIONEIRAS, 25
BAIRRO LARANJEIRAS
MACATUBA = SP
Aà tenho que transferir esses dados para outras TextBox. Cada linha dessas será transferida para outras TextBoxes correspondentes. Então eu teria que pegar o conteúdo de cada linha, separadamente e [Ô]jogar[Ô] nos campos desejados.
Deu para entender?
Até mais.
Por exemplo: Tenho uma TextBox assim:
LOCAL DE ENTREGA:
RUA DAS PIONEIRAS, 25
BAIRRO LARANJEIRAS
MACATUBA = SP
Aà tenho que transferir esses dados para outras TextBox. Cada linha dessas será transferida para outras TextBoxes correspondentes. Então eu teria que pegar o conteúdo de cada linha, separadamente e [Ô]jogar[Ô] nos campos desejados.
Deu para entender?
Até mais.
A ideia é a mesma. Trabalhe com a propriedade Lines(Index).
Me.TextBox2.Text = Me.TextBox1.Lines(0)
Me.TextBox3.Text = Me.TextBox1.Lines(1)
Me.TextBox4.Text = Me.TextBox1.Lines(2)
Valeu, Jonathan, vou testar e depois te respondo.
Até mais.
Até mais.
Olá, colega
Desculpe o trabalho que eu dou, é que o pessoal aqui a toda hora muda de opinião.
Agora eu preciso passar o conteúdo de cada linha da TextBox para um arquivo texto, fazendo assim não funciona:
For Each Linha As String In TxtObservacao.Lines
sw.WriteLine(Space(2) & TxtObservacao.Lines(0))
sw.WriteLine(Space(2) & TxtObservacao.Lines(1))
sw.WriteLine(Space(2) & TxtObservacao.Lines(2))
sw.WriteLine(Space(2) & TxtObservacao.Lines(3))
sw.WriteLine(Space(2) & TxtObservacao.Lines(4))
Next
Como ficaria?
Desculpe o trabalho que eu dou, é que o pessoal aqui a toda hora muda de opinião.
Agora eu preciso passar o conteúdo de cada linha da TextBox para um arquivo texto, fazendo assim não funciona:
For Each Linha As String In TxtObservacao.Lines
sw.WriteLine(Space(2) & TxtObservacao.Lines(0))
sw.WriteLine(Space(2) & TxtObservacao.Lines(1))
sw.WriteLine(Space(2) & TxtObservacao.Lines(2))
sw.WriteLine(Space(2) & TxtObservacao.Lines(3))
sw.WriteLine(Space(2) & TxtObservacao.Lines(4))
Next
Como ficaria?
Em relação ao trabalho, ninguém é obrigado a responder. Certo?
Ou seja, cada um responde quando sobra tempo e por vontade própria.
Na minha opinião, essa é a ideia de um fórum.
Eu gosto de ajudar porque é nessas horas que mais aprendo.
Já em relação a sua dúvida, para jogar cada linha do TextBox em um arquivo de Texto, faça dessa forma:
Ou seja, cada um responde quando sobra tempo e por vontade própria.
Na minha opinião, essa é a ideia de um fórum.
Eu gosto de ajudar porque é nessas horas que mais aprendo.
Já em relação a sua dúvida, para jogar cada linha do TextBox em um arquivo de Texto, faça dessa forma:
For Each Linha As String In TxtObservacao.Lines
sw.WriteLine(Space(2) & Linha)
Next
Valeu, Jonathan, agora sim, deu certinho.
Mais uma vez muito obrigado pela ajuda.
Eu também gostaria muito de ajudar os colegas, mas pelo pouco conhecimento que tenho, fica difÃcil, né?
Mas quem sabe um dia eu chego lá.
Até mais.
Mais uma vez muito obrigado pela ajuda.
Eu também gostaria muito de ajudar os colegas, mas pelo pouco conhecimento que tenho, fica difÃcil, né?
Mas quem sabe um dia eu chego lá.
Até mais.
Agora, e se eu precisar limitar a TextBox para apenas 5 linhas, tem como fazer isso?
tente assim
Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged
If CType(sender, TextBox).Lines.Length > 5 Then
Array.Resize(TextBox1.Lines, 5)
End If
End Sub
é isso mesmo, valeu, muito obrigado.
Até mais.
Até mais.
Tópico encerrado , respostas não são mais permitidas