| Jak sprawdzić czy dane słowo znajduje się w zdaniu? |
|
Problem: Potrzebuję funkcji, która sprawdza czy w podanym wyrażeniu znajduje się dane słowo. Chciałbym aby funkcja dodatkowo na życzenie uwzględniała, bądź też nie, wielkość liter. Rozwiązanie: Możesz skorzystać np. z takiej funkcji własnej ![]() Option Explicit Function SlowoWZdaniu(sTekst As String, _ sSzukaneSlowo As String, _ Optional iKonwersja As Integer = 0) As Boolean 'Argument iKonwersja moze przyjmowac wartosci: '0 - wielka litera <> mala litera '1 - wielka litera = mala litera Dim avSlowa As Variant Dim iLicznik As Integer 'Konwertuje ciag tekstowy na tablice slow avSlowa = Split(sTekst, " ") 'Petla po wszystkich elementach tablicy/wszystkich slowach For iLicznik = LBound(avSlowa) To UBound(avSlowa) If StrComp(sSzukaneSlowo, avSlowa(iLicznik), iKonwersja) = 0 Then SlowoWZdaniu = True Exit Function End If Next iLicznik End Function |
|
| Zmieniony ( Czwartek, 01. Lipiec 2010 19:55 ) |
