Niniejsze zagadnienie ma swoje szerokie zastosowanie w całym środowisku VBA i nie dotyczy tylko Excela i Worda lecz wszystkich aplikacji MS Office. Mało tego, spokojnie można stwierdzić, że temat ten jest powszechnym zagadnieniem we wszystkich językach programowania. My spojrzymy jednak na to wyłącznie przez pryzmat VBA.
Ogólnie rzecz ujmując temat na najbliższych kilka postów to poszukiwanie odpowiedzi na pytanie: jak sprawdzić, czy określony ciąg tekstowy spełnia wskazane kryteria? Postaram się przedstawić dostępne techniki lecz nie sposób będzie zaprezentować wszystkich możliwych rozwiązań, schematów czy parametrów. Jest to temat wyjątkowo szeroki i zależny od indywidualnych problemów z jakimi mierzy się każdy programista. Spojrzymy na zagadnienie przez pryzmat rozwiązań prostych (2 posty) oraz możliwość zastosowania `wyrażeń regularnych RegExp` (kilka kolejnych wpisów).
Zaczynamy od rozwiązań najprostszych. Przyjmijmy założenie, że nasz tekst bazowy to:
A = "Lorem ipsum dolor sit amet, consectetuer adipiscing elit."
1. Czy w tekście A znajduje się tekst B?
W tym wariancie wystarczy wykorzystać funkcję InStr
2 | Debug.Print InStr(1, A, B) > 0 |
Należy jednak pamiętać, że porównania tekstowe standardowo dokonywane są binarnie, a więc uwzględniają wielkość liter. Aby pominąć tą niedogodność sięgnijmy po jedno z dwóch poniższych rozwiązań:
2 | Debug.Print InStr(1, A, B) > 0 |
3 | Debug.Print InStr(1, UCase(A), UCase(B)) > 0 |
4 | Debug.Print InStr(1, A, B, vbTextCompare) > 0 |
Tu wystarczy sięgnąć po funkcję Left pamiętając ponownie, że porównanie odbywa się w binarnie.
2 | Debug.Print Left(A, Len(B)) = B |
3 | Debug.Print UCase(Left(A, Len(B))) = UCase(B) |
Rozwiązanie będzie podobne jak w punkcie 2 przy czym zastosujemy funkcję Right.
2 | Debug.Print Right(A, Len(B)) = B |
3 | Debug.Print UCase(Right(A, Len(B))) = UCase(B) |
Poniższy przykład prezentuje rozwiązanie, w którym sprawdzamy czy tekst B znajduje się w tekście A począwszy od 13 litery.
3 | Debug.Print InStr(tmpVar, A, B, vbTextCompare) = tmpVar |
Jako, że VBA jest case sensitive. Jest jeszcze jeden sposób na obejście problemu wielkości liter. Na początku modułu należy wkleić "Option Compare Text". Wtedy "A" Like "a" daje True.
OdpowiedzUsuńPanie Michale, owszem, technika oparta o 'Option Compare Text' jest alternatywą, ale jest jednocześnie złą praktyką programistyczną. Powoduje, że w całym module (!) wszystkie porównania odbywają się w trybie tekstowym a nie binarnym, a tryb ten jest nieefektywny. Stąd też powszechnie stosowane są rozwiązania oparte o UCase in vbTextCompare. Nie zalecam stosowania 'Option Compare Text'.
Usuń