✅ Metin Dizesindeki n. Kelimeyi Bulun

İçindekiler

Metin Dizesinde n. Kelimeyi Döndür

Metin Dizesinde n. Kelimeyi Döndür

Aşağıdaki işlev bir dizgedeki n'inci sözcüğü bulacaktır:

Fonksiyon Find_nth_word(Phrase As String, n As Integer) As String Dim Current_Pos As Long Dim Length_of_String As Integer Dim Current_Word_No As Integer Find_nth_word = "" Current_Word_No = 1 'Öndeki Boşlukları Kaldır Phrase = Trim(Phrase) For Length_Phrase = 1 Uzunluk_Dize If (Current_Word_No = n) Sonra Find_nth_word = Find_nth_word & Mid(Phrase, Current_Pos, 1) End If (Mid(Phrase, Current_Pos, 1) = " ") O zaman Current_Word_No = Current_Word_No + 1 End If Sonraki Current_Pos ' En sağdaki boşluğu kaldırın Find_nth_word = Trim(Find_nth_word) End Function

İki argümana ihtiyaç duyar - aranacak kelime öbeği ve kelime numarası:

Find_nth_word(“Automateexcel dünyanın en sevilen Excel sitesidir”,4)

"dünya" dönecek.

Tümcedeki sözcük sayısı belirtilen sözcük sayısından azsa bir boşluk döndürülür.

Yani: Find_nth_word(“Automateexcel dünyanın en sevilen Excel sitesidir”,12)
“Automateexcel dünyanın en sevilen Excel sitesidir” ifadesinde 12 kelime olmadığı için boş dönecektir.