Creare quattro variabili che verranno utilizzate per verificare la presenza di un carattere di tabulazione , digitando il seguente codice VBA :
Dim tabString As String Dim
char String
lunghezza Dim As Integer Dim
xCntr As Integer
2
Aggiungi una stringa con una scheda per la variabile " tabString " aggiungendo il seguente codice:
tabString = " buono " e vbTab e "mattina"
3
Ricevi la lunghezza della stringa inserendo il seguente :
lunghezza
= Len ( tabString ) economici 4
loop attraverso ogni carattere della stringa e verificare il carattere di tabulazione utilizzando la funzione " Chr ( 9)" aggiungendo il seguente codice VBA :
char = Sinistra ( tabString , 1 ) per
xCntr = 0 a lunghezza - 1
tabString = Right ( tabString , Len ( tabString ) - 1 ) per
Se char = Chr ( 9 ) Poi
MsgBox
" numero indice " & xCntr & " è una scheda nella stringa. "
End If
char = Sinistra ( tabString , 1 ) per
Avanti xCntr
Programmazione © www.354353.com