✅ Tìm từ thứ n trong một chuỗi văn bản

Mục lục

Trả về từ thứ n trong chuỗi văn bản

Trả về từ thứ n trong chuỗi văn bản

Hàm sau sẽ tìm từ thứ n trong một chuỗi:

Hàm Find_nth_word (Cụm từ dưới dạng chuỗi, n là số nguyên) Như chuỗi Dim Current_Pos As long Dim Length_of_String As Integer Dim Current_Word_No As Integer Find_nth_word = "" Current_Word_No = 1 'Xóa khoảng cách hàng đầu Phrase = Trim (Cụm từ) Length_of_String = Len (Cụm từ) cho Current_Pos = 1 Đến 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 ' Bỏ khoảng trống ngoài cùng bên phải Hàm kết thúc Find_nth_word = Trim (Find_nth_word)

Nó cần hai đối số - cụm từ sẽ được tìm kiếm và số từ:

Find_nth_word(“Automateexcel là trang Excel yêu thích của thế giới”, 4)

Sẽ trả lại "thế giới".

Một ô trống được trả về nếu số từ trong cụm từ ít hơn số từ được chỉ định.

Vì thế: Find_nth_word(“Automateexcel là trang Excel yêu thích của thế giới”, 12)
Sẽ trả về trống vì không có 12 từ trong cụm từ “Automateexcel ls trang Excel yêu thích của thế giới”.