+ ou - isto, na realidade você determina quando quebrar a string em paragrafo eexemplo:
você possui o seguinter texto salvo desta forma
Ainda que eu ande pelo vale
da sombra e da morte não
temerei mal algum.
A forma de se enviar este arquivo texto para o RichTextBox seria esta:
pegar linha por linha e enviar para o RichTextBox, mas se isto fosse feito desta forma:
Open Caminho For Input As arq
Do Until EOF(arq)
Line Input #arq, linha
RichTextBox.text=linha
Loop
Na Richtext seria exibido assim:
temerei mal algum ' ou seja somente a ultima linha, pois uma seria gravada em cima da outra
Outra forma seria esta:
Open Caminho For Input As arq
Do Until EOF(arq)
Line Input #arq, linha
RichTextBox.text=RichTextBox.text + linha
Loop
Porém o resultado não seria o esperado, pois seria exibido desta forma:
Ainda que eu ande pelo vale da sombra e da morte não temerei mal algum.
Tudo em uma unica linha:
Por isso o fato de se quebrar em paragráfos, está função é feita pelas Chr$(13) + Chr$(10), estas agem como a tecla enter, ou seja pega aprimeira linha e pressiona enter, pega segunda linha e enter, assim por diante:
No seu caso é aqui que a função age:
If codigo = "010" Then ' se o 010 for encontrado na linha
totallinhas = totallinhas + 1 ' soma-se 1 a totallinhas
If totallinhas = 1 Then Form1.RichTextBox1.Text = Linha ' e se totallinhas for 1 então salve esta
' linha no RichTextBox
If totallinhas > 1 Then
' agora as demais linhas serão acrescidas porém antes será dado o enter
Form1.RichTextBox1.Text = Form1.RichTextBox1.Text + Chr(13) & Chr(10) + Linha
End If
End If
no seu problema inicial, o enter era dados antes de inserir qualquer texto ficando assim a linha em branco.
