Lang L: none (table-of-contents)
Väljavõte stringi numbrilisest osast
Järgmine funktsioon eraldab numbrilise osa stringist:
Funktsioon Extract_Number_from_Text (fraas stringina) kahekordse tuhmina pikkus stringina täisarvuna Dim Current_Pos täisarvuna Dim temp stringina Length_of_String = Len (Phrase) Temp = "" For Current_Pos = 1 To Length_of_String If (Mid (Phrase, Current_Pos, 1) = "- ") Siis Temp = Temp & Mid (fraas, Current_Pos, 1) End If Kui (Mid (Phrase, Current_Pos, 1) =". ") Siis Temp = Temp & Mid (fraas, Current_Pos, 1) Lõpeta, kui (IsNumeric (Mid (Phrase, Current_Pos, 1))) = True Siis Temp = Temp & Mid (Phrase, Current_Pos, 1) End If Next Current_Pos If Len (Temp) = 0 then Extract_Number_from_Text = 0 Else Extract_Number_from_Text = CDbl (Temp) End If Lõppfunktsioon
Nii näiteks:
Extract_Number_from_Text (“uuigguo 995”) tagastab 995
Extract_Number_from_Text („uuigguo 0.12995”) tagastab 0.12995
Extract_Number_from_Text („yu00.000456”) tagastab 0,000456
= Extract_Number_from_Text (“juii -0009.9987iihiii”) tagastab -0.9987
Kui fraasis pole numbrit, tagastatakse null.
Sellest artiklist .XLSM -faili allalaadimiseks klõpsake siin.
