जांचें कि क्या एक स्ट्रिंग चर के पास एक पूर्णांक मान है

Question

मैं एक परियोजना पर काम कर रहा हूं जो बच्चों को सांता को संदेश भेजने की अनुमति देता है। दुर्भाग्यवश, यदि वे एजीई फ़ील्ड में एक पूर्णांक की बजाय स्ट्रिंग दर्ज करते हैं, तो प्रोग्राम 'डबल' टाइप करने के लिए स्ट्रिंग "[exampleString]" से रूपांतरण क्रैश और रिटर्न वैध नहीं है। क्या यह जांचने का कोई तरीका है कि उन्होंने एक पूर्णांक दर्ज किया है या नहीं? यह कोड है।

If childAge > 0 And childAge < 150 Then 
    fmSecA2 = "Wow! You are already " & childAge & " years old? You're growing to be a big " & childGender & " now! " 
Else 
    fmSecA2 = "Erm, I couldn't really understand your age. Are you making this up? Ho ho ho!" 
End If 

धन्यवाद, काई :)

Answer 1

एक बहुत ही सरल चाल try parse को एक पूर्णांक के रूप में स्ट्रिंग है। यदि यह सफल होता है, तो यह एक पूर्णांक (आश्चर्यचकित आश्चर्य) है।

Dim childAgeAsInt As Integer 
If Integer.TryParse(childAge, childAgeAsInt) Then 
    ' childAge successfully parsed as Integer 
Else 
    ' childAge is not an Integer 
End If 

Answer 2

आप इस का उपयोग कर सकते हैं।

Sub checkInt() 
    If IsNumeric(Range("A1")) And Not IsEmpty(Range("A1")) Then 

     If Round(Range("A1"), 0)/1 = Range("A1") Then 
      MsgBox "Integer: " & Range("A1") 
     Else 
      MsgBox "Not Integer: " & Range("A1") 
     End If 
    Else 
     MsgBox "Not numeric or empty" 
    End If 
End Sub 

Answer 3

नेट में आप एक चर के डेटा प्रकार को निर्धारित करने के लिए GetType() का उपयोग कर सकते हैं।

Dim n1 As Integer = 12 
Dim n2 As Integer = 82 
Dim n3 As Long = 12 

Console.WriteLine("n1 and n2 are the same type: {0}", 
        Object.ReferenceEquals(n1.GetType(), n2.GetType())) 
Console.WriteLine("n1 and n3 are the same type: {0}", 
        Object.ReferenceEquals(n1.GetType(), n3.GetType())) 
' The example displays the following output: 
'  n1 and n2 are the same type: True 
'  n1 and n3 are the same type: False 

ऊपर नमूना आपको एक कोड स्निपेट लिख सकते हैं के आधार पर:

If childAge.GetType() = "Integer" then '-- also use childAge.GetType().Name = "Int32" 
    ' do something 
End if 

• Reference MSDN

Answer 4

IsNumeric वीबी में बनाया गया है, और वापसी एक सही/गलत

If IsNumeric(childAge) AndAlso (childAge > 0 And childAge < 150) Then 
    fmSecA2 = "Wow! You are already " & childAge & " years old? You're growing to be a big " & childGender & " now! " 
Else 
    fmSecA2 = "Erm, I couldn't really understand your age. Are you making this up? Ho ho ho!" 
End If 

Answer 5

आप यथोचित निश्चित है कि इनपुट आप हो रही है एक पूर्णांक है होना करने के लिए निम्न दो परीक्षणों प्रदर्शन कर सकता है जाएगा:

If IsNumeric(childAge) AndAlso (InStr(1, childAge, ".") <> 0) Then 
    fmSecA2 = "Wow! You are already " & childAge & " years old? You're growing to be a big " & childGender & " now! " 
    If childAge < 0 OrElse childAge > 150 Then 
     fmSecA2 = "I don't believe it's possible to be" & childAge & " years old..." 
    End If 
Else 
    fmSecA2 = "Erm, I couldn't really understand your age. Are you making this up? Ho ho ho!" 

InStr फ़ंक्शन शून्य यह स्ट्रिंग है के लिए देखा जा रहा है लगता है नहीं करता है, और इसलिए जब IsNumeric साथ कि परीक्षण के संयोजन, आप भी बाहर possibil शासन यह है कि कुछ फ़्लोटिंग पॉइंट डेटा प्रकार दर्ज किया गया था।

Answer 6

स्टाइक्सी के उत्तर से कार्य करना, यदि आप एक पूर्णांक की बजाय बाइट के रूप में पार्स करते हैं, तो यह नकारात्मक उम्र और 255 की अधिकतम आयु को भी एक ही बार में जांचता है।

Dim childAgeAsByte As Byte 
If Byte.TryParse(childAge, childAgeAsByte) Then 
    ' childAge successfully parsed as Byte 
Else 
    ' childAge is not a Byte 
End If 

क्रिस्टियन

Answer 7

dim as integer1 

textbox1.text = integer1 
if integer1 > 0 then 
    ............................ 
    ............................ 
else 
    textbox2.text = "please only enter a Positive integer"