İçindekiler
Dizenin Sayısal Kısmını Çıkart
Aşağıdaki işlev, bir dizeden sayısal kısmı çıkaracaktır:
İşlev Extract_Number_from_Text(Phrase As String) As Double Dim Uzunluk_of_String As Integer Dim Current_Pos As Integer Dim Temp As String Length_of_String = Len(Phrase) Temp = "" Current_Pos = 1 To Length_of_String If (Mid(Phrase, Current_Pos, 1) = "- ") Sonra Temp = Temp & Mid(Phrase, Current_Pos, 1) End If If (Mid(Phrase, Current_Pos, 1) = ".") Sonra Temp = Temp & Mid(Phrase, Current_Pos, 1) End If If (IsNumeric) (Mid(Phrase, Current_Pos, 1))) = True Then Temp = Temp & Mid(Phrase, Current_Pos, 1) Bir Sonraki Current_Pos ise End Len(Temp) = 0 ise Extract_Number_from_Text = 0 Else Extract_Number_from_Text = CDbl(Temp) End If Bitiş İşlevi
Yani mesela:
Extract_Number_from_Text(“uuigguo 995”) 995 döndürür
Extract_Number_from_Text(“uuigguo 0.12995”) 0.12995 döndürür
Extract_Number_from_Text(“yu00.000456”) 0.000456 döndürür
=Extract_Number_from_Text(“juii-0009.9987iihiii”) -0.9987 değerini döndürür
İfadede sayı yoksa sıfır döndürülür.
Bu makaleden .XLSM dosyasını indirmek için buraya tıklayın.
