Satura rādītājs
Atgrieziet n. Vārdu teksta virknē
Šī funkcija virknē atradīs n -to vārdu:
Funkcija Find_nth_word (frāze kā virkne, n kā vesels skaitlis) Kā virkne blāva pašreizējā_Pos tikpat gara garuma_f_string kā vesels skaitlis Dim Current_Word_No kā vesels skaitlis Find_nth_word = "" Current_Word_No = 1 'Noņemt vadošās atstarpes frāze = apgriezt (frāzes) garuma_rakstzīmes = pašreizējā_frāze) = 1 uz virknes garumu, ja (Current_Word_No = n) Tad Find_nth_word = Find_nth_word & Mid (frāze, Current_Pos, 1) Beigt If, ja (Mid (Phrase, Current_Pos, 1) = "") Tad Current_Word_No = Current_Word_No + 1 Beigt, ja nākamais Current_Pos ' Noņemiet labāko atstarpi Find_nth_word = Apgriezt (Find_nth_word) beigu funkciju
Tam nepieciešami divi argumenti - meklējamā frāze un vārda numurs:
Atrast_vārdu(“Automateexcel ir pasaules iecienītākā Excel vietne”, 4)
Atgriezīs "pasauli".
Tukšs tiek atgriezts, ja frāzes vārdu skaits ir mazāks par norādīto vārdu skaitu.
Tātad: Atrast_vārdu(“Automateexcel ir pasaules iecienītākā Excel vietne”, 12)
Atgriezīsies tukšs, jo frāzē “Automateexcel ir pasaules iecienītākā Excel vietne” nav 12 vārdu.
Lejupielādēt
Lai lejupielādētu .XLSM failu no šī raksta, noklikšķiniet šeit