Vraťte n -té slovo v řetězci textu
Následující funkce najde n -té slovo v řetězci:
Funkce Find_nth_word (Fráze jako řetězec, n jako celé číslo) Jako řetězec Dim Aktuální_Pos Jako dlouhý Dim Délka_of_String Jako Integer Dim Aktuální_Word_No Jako Integer Find_nth_word = "" Current_Word_No = 1 'Odstranit úvodní mezery Fráze = Oříznout (fráze) Délka_of_String = Len (Fráze) = 1 na Length_of_String If (Current_Word_No = n) Then Find_nth_word = Find_nth_word & Mid (Phrase, Current_Pos, 1) End If If (Mid (Phrase, Current_Pos, 1) = "") Then Current_Word_No = Current_Word_No + 1 End If Next Current_Pos ' Odebrat místo zcela vpravo Find_nth_word = Oříznout (Find_nth_word) Koncová funkce
Potřebuje dva argumenty - frázi, která se má hledat, a číslo slova:
Find_nth_word(„Automateexcel je světově oblíbená stránka aplikace Excel“, 4)
Vrátí „svět“.
Pokud je počet slov ve frázi menší než zadané číslo slova, vrátí se prázdné pole.
Tak: Find_nth_word(„Automateexcel je světově oblíbená stránka aplikace Excel“, 12)
Vrátí se prázdné, protože ve frázi „Automateexcel je světově oblíbený web aplikace Excel“ není 12 slov.
Stažení
Chcete -li stáhnout soubor .XLSM z tohoto článku, klikněte sem
