स्ट्रिंग से संख्या निकालें - VBA कोड उदाहरण

स्ट्रिंग का संख्यात्मक भाग निकालें

निम्नलिखित फ़ंक्शन एक स्ट्रिंग से संख्यात्मक भाग निकालेगा:

फ़ंक्शन Extract_Number_from_Text (स्ट्रिंग के रूप में वाक्यांश) डबल मंद लंबाई_of_String के रूप में पूर्णांक मंद वर्तमान_Pos के रूप में पूर्णांक मंद अस्थायी के रूप में स्ट्रिंग लंबाई_of_String = लेन (वाक्यांश) अस्थायी = "" Current_Pos = 1 से लंबाई_of_String के लिए यदि (मध्य (वाक्यांश 1), "_Pos, "-Pos, ") तब Temp = Temp और Mid(Phrase, Current_Pos, 1) End if (Mid(Phrase, Current_Pos, 1) = ".") तो Temp = Temp & Mid(Phrase, Current_Pos, 1) End if (IsNumeric (मध्य (वाक्यांश, करेंट_पॉस, 1))) = ट्रू फिर टेम्प = टेम्प और मिड (वाक्यांश, करंट_पॉस, 1) एंड अगर अगला करंट_पॉस अगर लेन (टेम्प) = 0 अंत समारोह

तो उदाहरण के लिए:

Extract_Number_from_Text ("uuigguo 995") 995 लौटाएगा
Extract_Number_from_Text ("uuigguo 0.12995") 0.12995 लौटाएगा
Extract_Number_from_Text ("yu00.000456") 0.000456 लौटाएगा
=Extract_Number_from_Text("juii-0009.9987iihiii") -0.9987 वापस आ जाएगा
यदि वाक्यांश में कोई संख्या नहीं है, तो शून्य वापस आ जाता है।

इस लेख से .XLSM फ़ाइल डाउनलोड करने के लिए, यहाँ क्लिक करें।