Tartalomjegyzék
Kivonja a karakterlánc numerikus részét
A következő függvény kibontja a numerikus részt egy karakterláncból:
Funkció Extract_Number_from_Text (Kifejezés karakterláncként) Dupla halványságú Hosszúság_a_String Egész számként Dim Current_Pos Mint egész Dim Dim Temp Mint String Length_of_String = Len (Phrase) Temp = "" For Current_Pos = 1 To Length_of_String If (Közép (Kifejezés, Aktuális_Poz, 1) = "- ") Akkor Temp = Temp & Mid (Kifejezés, Current_Pos, 1) Véget ér Ha If (Mid (Phrase, Current_Pos, 1) =". ") Akkor Temp = Temp & Mid (Kifejezés, Current_Pos, 1) Véget ér, ha (IsNumeric (Közép (Kifejezés, Aktuális_Poz, 1))) = Igaz Akkor Hőmérséklet = Hőmérséklet és Közép (Kifejezés, Aktuális_Poz, 1) Vége Ha Következő Aktuális_Pó Ha Len (Temp) = 0 Aztán Kivonat_Szám_From_Text = 0 Egyéb Kivonat_Száma_szöveg = CDbl (Hőmérséklet) Vége Ha Vége funkció
Tehát például:
Az Extract_Number_from_Text („uuigguo 995”) 995 értéket ad vissza
Az Extract_Number_from_Text („uuigguo 0.12995”) visszaadja a 0.12995 értéket
Extract_Number_from_Text („yu00.000456”) 0,000456 értéket ad vissza
= Extract_Number_from_Text („juii -0009.9987iihiii”) visszatér -0.9987
Ha a kifejezésben nincs szám, akkor nulla kerül visszaadásra.
A cikkből származó .XLSM fájl letöltéséhez kattintson ide.
