aplicativos Visual Basic geralmente permitem aos usuários inserir dados usando o teclado. Saneantes e transformando esta informação bruta em dados utilizáveis é uma tarefa crucial para o desenvolvedor. Por exemplo, muitas vezes é necessário para filtrar e remover caracteres não-alfabéticos para proteger aplicativos de falhas de segurança . Limpeza de dados e manter a uniformidade é importante quando o armazenamento de dados , o que impedirá a criação de registos duplicados . Visual Basic 6 oferece muitas funções de manipulação de corda, tornando-se uma tarefa simples para escrever código que verifica a existência de caracteres não- alfabéticos. Instruções
1
Abra o Visual Basic 6 no ícone "Iniciar" , localizado na barra de tarefas do Windows.
2
Selecione " Standard.exe " e clique em "Abrir" para iniciar uma nova aplicação do Visual Basic 6 .
3
Arraste o ícone " caixa de texto " para a janela chamada " Form1 ", criando uma caixa de texto chamada "Text1 ".
< br > 4
Arraste o ícone " CommandButton " para a janela chamada " Form1 ", criando um botão rotulado " Command1 ".
5
Dê um duplo clique no botão " Command1 " para abrir o código janela . Abaixo da linha denominada " Private Sub Command1_Click () " cole o código:
fraca scompare As String
fraca iCount As Integer
Para iCount = 1 To Len ( Text1. texto)
scompare = Mid $ ( Text1.Text , iCount , 1)
Text1.Text = Mid $ ( Text1.Text , iCount + 1 , Len _ ( Text1.Textt ) )
Se scompare Curtir ( " [AZ ]" ) Or _
scompare Curtir ( " [az ]" ) Or _
scompare Curtir ( "#") Então
msgbox ( " apenas personagens Alpa " )
Else
msgbox ( caracteres não-alfabéticos encontrado " )
Exit Function End
Se
Próxima iCount
6
Pressione a tecla "F5" para executar o aplicativo Visual Basic. Digite o texto que deseja verificar na caixa de texto . Clique no botão " Command1 " , e uma mensagem será exibido verificando se o texto é alfabética ou não.
