Finde et enkelt tegn i en streng ved hjælp af VBA er en særlig instans for at finde én streng i en anden . Selve processen bruger kun ét Visual Basic ord , InStr , som søger tekst til en bestemt streng, eller en enkelt karakter i dette eksempel. Resten af koden er nødvendig for at tillade input fra brugeren og vise resultaterne . Processen anvender en case- ufølsom søgemetode , det er, det vil finde små eller store bogstaver . Instruktioner
1
åbne en af de Microsoft Office-programmer , der bruger VBA ( Visual Basic for Applications ), og allerede indeholder noget tekst . Klik på " Developer " i topmenuen og derefter "Visual Basic ", som vil blive opført i den anden række af muligheder. Dette åbner VBA Redigering skærmen.
2
Indtast følgende linjer i tomt vindue .
Sub FindCharacter ( ) Dim KnownString , SoughtCharacter , Fundet Som StringDim Location , i, Indstil som IntegerKnownString = InputBox ( "Type eller kopiere og indsætte teksten for at søge her " ) SoughtCharacter = InputBox ( "Type karakter søgte here" ) Sted = InStr (1, KnownString , SoughtCharacter , vbTextCompare ) Juster = 10For i = 1 til Len ( KnownString ) Såfremt Location < Juster ThenAdjust = Juster /5End Hhvis i = Lokation ThenFound = Mid ( KnownString , Location - Adjust , Location + Juster) MsgBox "Dette er den første forekomst af " & vbCrLf & SoughtCharacter & , " i kontekst " & vbCrLf & " ' " & Found & " ' " End IfNext iend Sub
3
Reducer højre side af følgende linje, hvis du søger efter en karakter i meget korte segmenter af tekst : Hej
Juster = 10
gøre dette, fordi projektet er indstillet til at vise et standard antal tegn på hver side af den eftertragtede karakter . Hvis strengen er for kort , vil programmet give en fejl.
4
Klik på " makroer" i Developer del af Word-dokumentet og køre denne makro til at se, hvordan det virker. Hvis makroen fejler, recheck dit arbejde fra ovennævnte retninger.