RICHTEXTBOX PERDENDO CARACTERES APOS INTERACOES
Declarei assim o arquivo de texto:
Dim emails_enviando1 As String() = System.IO.File.ReadAllLines([Ô]emails_enviando.txt[Ô])
Dim emails_enviando As String = [Ô]emails_enviando.txt[Ô]
Faço essa interação para copiar as primeiras linhas do richtextbox e substituo elas por [Ô] [Ô] apos isso dou o trim para remover os espaçoes em brando e a lista sobre para cima.
For x = 0 To Qtd_destinatarios
a_enviar = a_enviar & lista.Lines(x)
lista.Text = lista.Text.Replace(lista.Lines(x), [Ô][Ô])
Next
lista.Text = lista.Text.Trim [ô]remover linhas em branco
apos cada 10 interação de meu programa ele salva a lista que esta no richtextbox (lista.text) executando o codigo abaixo:
Dim strlista As New StreamWriter(emails_enviando)
If Dir$(emails_enviando) <> [Ô][Ô] Then
strlista.WriteLine(lista.Text)
Else
strlista.WriteLine(lista.Text)
End If
strlista.Close()
Apos tudo isso e apos algumas interações acho que antes mesmo de chegar a salvar o arquivo o richtextbox perde alguns caracteres por exemplo .com.br fica combr ou simplesmente somem todos os L do richtextbox, perda de caracteres alguem saberia por qual motivo ?
Dim emails_enviando1 As String() = System.IO.File.ReadAllLines([Ô]emails_enviando.txt[Ô])
Dim emails_enviando As String = [Ô]emails_enviando.txt[Ô]
Faço essa interação para copiar as primeiras linhas do richtextbox e substituo elas por [Ô] [Ô] apos isso dou o trim para remover os espaçoes em brando e a lista sobre para cima.
For x = 0 To Qtd_destinatarios
a_enviar = a_enviar & lista.Lines(x)
lista.Text = lista.Text.Replace(lista.Lines(x), [Ô][Ô])
Next
lista.Text = lista.Text.Trim [ô]remover linhas em branco
apos cada 10 interação de meu programa ele salva a lista que esta no richtextbox (lista.text) executando o codigo abaixo:
Dim strlista As New StreamWriter(emails_enviando)
If Dir$(emails_enviando) <> [Ô][Ô] Then
strlista.WriteLine(lista.Text)
Else
strlista.WriteLine(lista.Text)
End If
strlista.Close()
Apos tudo isso e apos algumas interações acho que antes mesmo de chegar a salvar o arquivo o richtextbox perde alguns caracteres por exemplo .com.br fica combr ou simplesmente somem todos os L do richtextbox, perda de caracteres alguem saberia por qual motivo ?
EBOOKREVENDA,
Manda o código fonte...
... pq tá osso de entender!
[][ô]s,
Tunusat.
Manda o código fonte...
... pq tá osso de entender!
[][ô]s,
Tunusat.
Tópico encerrado , respostas não são mais permitidas