Le applicazioni Visual Basic in genere consentono agli utenti di immettere dati utilizzando la tastiera. Sanificazione e trasformando questo crudi informazioni in dati utilizzabili è un compito cruciale per lo sviluppatore. Per esempio, spesso è necessario filtrare e rimuovere caratteri non alfabetici per proteggere le applicazioni da violazioni della sicurezza. Pulizia dei dati e mantenere uniformità è importante quando si memorizzano dati, che impediranno la creazione di record duplicati. Visual Basic 6 fornisce molte funzioni di manipolazione di stringa, che lo rende un compito semplice per scrivere codice che verifica la presenza di caratteri non alfabetici.

Istruzioni

1

Aprire Visual Basic 6 sull'icona "Start", situata sulla barra delle applicazioni Windows.

2

Selezionare "Standard.exe" e clicca su "Apri" per avviare una nuova applicazione di Visual Basic 6.

3

Trascinare l'icona di "Textbox" alla finestra con l'etichetta "Form1" creazione di una casella di testo con l'etichetta "Text1".

4

Trascinare l'icona di "CommandButton" la finestra denominata "Form1", creando un pulsante con etichettato "Command1."

5

Fare doppio clic sul pulsante denominato "Command1" per aprire la finestra di codice. Sotto la riga con l'etichetta "Private Sub Command1_Click ()" incolla il codice:

Dim scompare As String

Dim icount As Integer

For icount = 1 To Len(Text1.Text)

scompare = Mid$(Text1.Text, icount, 1)

Text1.Text = Mid$(Text1.Text, icount + 1, Len _ (Text1.Textt))

If scompare Like ("[A-Z]") Or _

scompare Like ("[a-z]") Or _

scompare Like ("#") Then

msgbox("Alpa characters only")

Else

msgbox(Non-Alphabetic characters found")

Exit Function

End If

Prossima icount

6

Premere il tasto "F5" per eseguire l'applicazione Visual Basic. Digitare il testo che si desidera controllare nella casella di testo. Fare clic sul pulsante denominato "Command1", ed un messaggio sarà visualizzato verifica se il testo è alfabetico o non.