|
Trouver un caractère unique dans une chaîne en utilisant VBA est un cas particulier de trouver une chaîne dans une autre . Le processus lui-même utilise un seul mot Visual Basic, InStr , qui cherche texte pour une chaîne spécifique , ou un caractère unique dans cet exemple. Le reste du code est nécessaire pour permettre l'entrée de l'utilisateur et afficher les résultats. Le procédé utilise une méthode de recherche insensible à la casse , c'est , il trouvera des lettres minuscules ou majuscules. Instructions
1 ouvrir un des programmes Microsoft Office qui utilisent VBA (Visual Basic for Applications) et contiennent déjà du texte. Cliquez sur " développeur" dans le menu du haut, puis " Visual Basic ", qui seront énumérés dans la deuxième rangée d'options. Cela ouvre l'écran d'édition VBA.
2 Entrez les lignes suivantes dans la fenêtre vide .
Sous FindCharacter () de KnownString Dim, SoughtCharacter , Trouvé comme StringDim Lieu , i , ajuster au IntegerKnownString = InputBox (" Tapez ou copiez et collez le texte à rechercher ici " ) SoughtCharacter = InputBox (" Tapez le caractère recherché ici " ) Lieu = InStr (1, KnownString , SoughtCharacter , vbTextCompare ) Réglez = 10Pour i = 1 To Len ( KnownString ) si l'emplacement < Réglez ThenAdjust = Ajuster /5End IFIF i = Lieu ThenFound = Mid ( KnownString , Location - Ajuster, Lieu + Adjust ) MsgBox " c'est la première occurrence de" & vbCrLf & SoughtCharacter & , " dans le contexte" & vbCrLf & "' " & Found & "' " End Sub IfNext iEND
3 Réduire le côté droit de la suivante ligne si la recherche d'un personnage dans des segments très courts du texte:
Adjust = 10 & faire cela parce que le projet est configuré pour afficher un numéro de défaut de caractères de chaque côté de la recherché caractère . Si la chaîne est trop court, le programme va produire une erreur.
4 Cliquez sur "Macros " dans la section développeur du document Word et exécuter cette macro pour voir comment cela fonctionne . Si la macro échoue , vérifiez votre travail à partir des indications ci-dessus .
|
