✅ Keresse meg az n. Szót egy szövegsorozatban

Tartalomjegyzék

Visszaadja az n. Szót a szövegben

Visszaadja az n. Szót a szövegben

A következő függvény megtalálja az n -edik szót a karakterláncban:

Funkció Find_nth_word (Kifejezés karakterláncként, n mint egész szám) Mint karakterlánc halvány Current_Pos olyan hosszú, mint a Dim Dimension Length_of_String Mint Integer Dim Current_Word_No As Integer Find_nth_word = "" Current_Word_No = 1 'Remove Leading Spaces Phrase = Trim (Phrase) Length_of_String = Len (Phrase) = 1 A karakterlánc hosszára Ha (Current_Word_No = n) Akkor Find_nth_word = Find_nth_word & Mid (Phrase, Current_Pos, 1) End If If (Mid (Phrase, Current_Pos, 1) = "") Akkor Current_Word_No = Current_Word_No + 1 End If Next Current_Pos ' Távolítsa el a jobb szélső karaktert Find_nth_word = Trim (Find_nth_word) End Function

Két érvre van szüksége - a keresendő kifejezésre és a számra:

Find_nth_word(„Az Automateexcel a világ kedvenc Excel webhelye”, 4)

Visszatér a "világ".

Az üres szám akkor kerül visszaadásra, ha a kifejezésben a szavak száma kevesebb, mint a megadott szószám.

Így: Find_nth_word(„Az Automateexcel a világ kedvenc Excel webhelye”, 12)
Üresen tér vissza, mivel nincs 12 szó az „Automateexcel a világ kedvenc Excel webhelye” kifejezésben.