Het vinden van een enkel teken in een string met behulp van VBA is een speciaal geval van het vinden van een snaar binnen een andere . Het proces zelf maakt gebruik van slechts een Visual Basic woord , InStr , welke tekst zoekt op een specifieke string , of enkel karakter in dit voorbeeld . De rest van de code is nodig om input van de gebruiker toelaten en de resultaten . Het proces maakt gebruik van een case - ongevoelige zoekmethode , dat is , zal het kleine letters of hoofdletters vinden . Instructies
1 Open een van de Microsoft Office-programma's die gebruik maken van VBA ( Visual Basic for Applications ) en al bevatten sommige tekst . Klik op "Ontwikkelaar " in het bovenste menu en vervolgens " Visual Basic ", die in de tweede rij van de opties zal worden vermeld . Dit opent het scherm VBA bewerken . Kopen van 2 Voer de volgende regels in het lege venster . Sub FindCharacter
( ) Dim KnownString , SoughtCharacter , Gevonden Zoals StringDim Locatie , i , aanpassen als IntegerKnownString = InputBox ( " Typ of kopieer en plak de tekst hier te zoeken " ) SoughtCharacter = InputBox ( " Typ het teken zochten hier " ) Woonplaats = InStr ( 1 , KnownString , SoughtCharacter , vbTextCompare ) Regel = 10 Want i = 1 To Len ( KnownString ) Indien Locatie < Stel ThenAdjust = aanpassen /5End IFIF i = Locatie ThenFound = Mid ( KnownString , Locatie - Adjust , locatie + Adjust ) MsgBox " Dit is het eerste optreden van " & vbCrLf & SoughtCharacter & , " in context " & vbCrLf & " ' " & Found & " ' " End IfNext iend Sub
3 Verminder de rechterkant van de volgende lijn als het zoeken naar een personage in zeer korte segmenten van de tekst :
Pas = 10 & Doe dit omdat het project is ingesteld op een standaard aantal tekens aan weerszijden van de gewilde karakter . Als de snaar te kort is , zal het programma een foutmelding produceren .
Klik 4 op " Macro's " in het gedeelte Developer van het Word-document en uitvoeren van deze macro om te zien hoe het werkt . Als de macro mislukt , controleer uw werk uit de bovenstaande aanwijzingen .
|
