Πίνακας περιεχομένων
Επιστρέψτε την n λέξη σε συμβολοσειρά κειμένου
Η ακόλουθη συνάρτηση θα βρει την nη λέξη σε μια συμβολοσειρά:
Λειτουργία 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 'Κατάργηση κορυφαίων χώρων Phrase = Trim (Phrase) Length_of_String = Len (Phrase) = 1 Έως το μήκος της συμβολοσειράς Αν (Current_Word_No = n) Τότε Find_nth_word = Εύρεση_λήθρου & μέσου (Φράση, Current_Pos, 1) Τέλος Αν Εάν (Mid (Φράση, Current_Pos, 1) = "") Τότε Current_Word_No = Current_Word_No + 1 Τέλος Αν Επόμενο Current_Pos ' Κατάργηση του πιο δεξιού χώρου Find_nth_word = Trim (Find_nth_word) End Function
Χρειάζεται δύο επιχειρήματα - τη φράση που πρέπει να αναζητηθεί και τη λέξη αριθμός:
Find_nth_word("Automateexcel ls the favorite world world site", 4)
Θα επιστρέψει "κόσμος".
Επιστρέφεται ένα κενό εάν ο αριθμός των λέξεων στη φράση είναι μικρότερος από τον καθορισμένο αριθμό λέξης.
Ετσι: Find_nth_word("Automateexcel ls the favorite world world site", 12)
Θα επιστρέψει κενό καθώς δεν υπάρχουν 12 λέξεις στη φράση "Automateexcel ls the worlds favorite site του Excel".
Κατεβάστε
Για λήψη του αρχείου .XLSM από αυτό το άρθρο, κάντε κλικ εδώ
