Creazione di una semplice ricerca e sostituzione funzione per l'applicazione Visual Basic richiede solo un paio di controlli di base e una sola riga di programmazione collegata al pulsante che inizierà la ricerca / sostituzione operazione.

istruzione

1 Creare un nuovo progetto con un modulo.

2 Aggiungere una casella di testo al form. Il nome "findBox." Aggiungere un'etichetta accanto ad essa e cambiare il suo testo "Trova". Questa è la scatola in cui l'utente digita la parola che lo desiderano di essere sostituito.

3 Aggiungere un'altra casella di testo alla maschera e denominarlo "replaceBox." Aggiungere un'etichetta "Sostituisci" accanto ad essa. Questa è la scatola in cui l'utente digita la parola che si desidera inserire al posto del campo Cerca.

4 Aggiungere una casella di testo più grande o ricco casella di testo al form. Il nome "casella di testo." Questo è dove il testo da cercare deve essere incollato. In alternativa, qualsiasi altra fonte di testo può essere utilizzato che fornisce una stringa.

5 Aggiungere un pulsante al form e modificare il testo di "Go". Il nome "replaceButton." Fare doppio clic su di esso per creare un evento tasto del mouse nella sezione di codice sorgente. Aggiungere il seguente comando per esso:

TextBox.Text = TextBox.Text (). Sostituire (findBox.Text (), replaceBox.Text ())

Questo si avvale del metodo replace costruito per classe String di Visual Basic. Contro-intuitivo tuttavia, il comando di sostituzione non altera il testo della stringa originale, ma genera una nuova stringa con l'operazione eseguita su di esso. Questo viene poi impostato come il contenuto del campo Testo della casella di testo.

Consigli e avvertenze

• La funzione di sostituzione usato qui è case-sensitive, in modo che si trova solo le occorrenze della parola che corrispondono capitalizzazione. Ad esempio, se la parola "ciao" è nella casella Trova non si sostituiscono le parole "Hello", "Ciao" o "CIAO".
• Se si desidera eseguire l'operazione in modo case-insensitive, quindi è possibile utilizzare il seguente comando:
• TextBox.Text = Replace (TextBox.Text, findBox.Text (), replaceBox.Text (), 1, -1, vbTextCompare)
• Con questo comando, ponendo la parola "ciao" nella casella Trova sostituirà capitalizzazione stili come ad esempio variando "Ciao."