VERIFICACAO DE E-MAIL
Bom, bolei a seguinte função, no load do form ele lê as linhas do bloco de notas, e joga em um textbox os emails invalidos, e em outro os validos.
onde IsEmail é um função que tirei aqui mesmo no vbmania, que checa se o email é valido ou não.
Mas oque está acontecendo é que o arquivo do bloco de notas tem cerca de 65000 emails, e mais ou menos 1300 invalidos, os invalidos vão certinho, todos no textbox, só que os validos não vão todos, só vai até um certo email, e o maxlenght está 0 ou seja cabe qualquer tamanho de texto lá, e se eu tentar digitar algo depois do email que ele verificou por ultimo, digita sem problemas.
Alguém pode me dizer por que ele para em um certo email?
Citação:
Arq = FreeFile
Divisor = 0
Endereco = App.Path & [Ô]\Enderecos.txt[Ô]
Open Endereco For Input As #Arq
Do While Not EOF(Arq)
Line Input #Arq, linha
Text1.Text = IIf(IsEmail(linha), [Ô]este é um email valido[Ô], [Ô]este não é um email valido[Ô])
If Text1.Text = [Ô]este é um email valido[Ô] Then Text3.Text = Text3.Text & linha & vbCrLf
If Text1.Text = [Ô]este não é um email valido[Ô] Then Text2.Text = Text2.Text & linha & vbCrLf
Loop
[ô]MsgBox testando
[ô]Text1.Text = Text1.Text & [Ô] [Ô] & linha
Close #Arq
onde IsEmail é um função que tirei aqui mesmo no vbmania, que checa se o email é valido ou não.
Mas oque está acontecendo é que o arquivo do bloco de notas tem cerca de 65000 emails, e mais ou menos 1300 invalidos, os invalidos vão certinho, todos no textbox, só que os validos não vão todos, só vai até um certo email, e o maxlenght está 0 ou seja cabe qualquer tamanho de texto lá, e se eu tentar digitar algo depois do email que ele verificou por ultimo, digita sem problemas.
Alguém pode me dizer por que ele para em um certo email?
Realmente, o TextBox possui uma limitação de caracteres.
Já experimentou usar o RichTextBox?
Já experimentou usar o RichTextBox?
Tópico encerrado , respostas não são mais permitidas