Home › Forum › Programming › Visual Basic Programming › [Help]Determining if a string contains numbers.[Solved]
[Help]Determining if a string contains numbers.[Solved]
[Help]Determining if a string contains numbers.[Solved]
hello, i want to make a function which checks if a value is a number or not....
i've got this;
But when I try it, and insert a number in the textbox it shows the message box but it adds the value to a list too 
I don't want it to the list
i've got this;
Code:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
For i As Integer = 0 To Integer.MaxValue
If TextBox2.Text = CType(i, String) Then
GoTo er
Exit Sub
Else
i = 1
TextBox3.Text = TextBox3.Text.Replace("//Created by Table Viewer v1.0 Beta", " " & ComboBox1.Text & " " & TextBox2.Text & ";" & vbNewLine & "//Created by Table Viewer v1.0 Beta")
Exit For
End If
Next
er:
MsgBox("The value name can't be an integer!", MsgBoxStyle.Exclamation, "Error")
End Sub
I don't want it to the list 
Originally Posted by 3Li0
hello, i want to make a function which checks if a value is a number or not....
i've got this;
But when I try it, and insert a number in the textbox it shows the message box but it adds the value to a list too I don't want it to the list
i've got this;
Code:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
For i As Integer = 0 To Integer.MaxValue
If TextBox2.Text = CType(i, String) Then
GoTo er
Exit Sub
Else
i = 1
TextBox3.Text = TextBox3.Text.Replace("//Created by Table Viewer v1.0 Beta", " " & ComboBox1.Text & " " & TextBox2.Text & ";" & vbNewLine & "//Created by Table Viewer v1.0 Beta")
Exit For
End If
Next
er:
MsgBox("The value name can't be an integer!", MsgBoxStyle.Exclamation, "Error")
End Sub
I don't want it to the list Code:
For I As Integer = 0 To 9
If TextBox1.Tex*****ntains(I) Then
MsgBox("The value name can't be an integer!", MsgBoxStyle.Exclamation, "Error")
Exit Sub
End If
Next
ComboBox1.Text & " " & TextBox2.Text & ";" & vbNewLine & "//Created by Table Viewer v1.0 Beta")
Originally Posted by T0P-CENT
Code:
If Not IsNumeric(TextBox1.Text) Then
TextBox3.Text = TextBox3.Text.Replace("//Created by Table Viewer v1.0 Beta", " " & ComboBox1.Text & " " & TextBox2.Text & ";" & vbNewLine & "//Created by Table Viewer v1.0 Beta")
Else
MsgBox("The value name can't be an integer!", MsgBoxStyle.Exclamation, "Error")
End If
It's kinda embarrassing, didn't come at my mid
thanks anyways...
Originally Posted by 3Li0
omg!
It's kinda embarrassing, didn't come at my mid
thanks anyways...
It's kinda embarrassing, didn't come at my mid
thanks anyways...
Originally Posted by T0P-CENT
check the code again , i edited it isnumeric for somehow when i try a1 or any no. it passes
Only Numeric Values, but if they are values like:
A554ACE, it doesn't really matter, I'm making a Table viewer for reversing structs in C++
[highlight=vbnet]Dim i as string = "329495498"
If Microsoft.VisualBasic.IsNumeric(cint(i)) Then
TextBox3.Text = TextBox3.Text.Replace("//Created by Table Viewer v1.0 Beta", " " & ComboBox1.Text & " " & TextBox2.Text & ";" & vbNewLine & "//Created by Table Viewer v1.0 Beta")
Else
MsgBox("The value name can't be an integer!", MsgBoxStyle.Exclamation, "Error")
End If [/highlight]
Should be like that. If you want to check if the string is alphanumeric (contains alphabets and numbers) then use the following function:
First add this:
[highlight=vbnet]Public Function IsNumeric(ByVal [String] As String) As Boolean
For i As Integer = 0 To [String].Length - 1
If Not (AscW([String].Substring(i, 1)) >= 48 AndAlso AscW([String].Substring(i, 1)) <= 57) Then 'asc value range of numbers
Return False
End If
Next
Return True
End Function[/highlight]
Then this:
[highlight=vbnet]Public Function IsAlphaNumberic(ByVal [String] As String) As Boolean
For i As Integer = 0 To [String].Length - 1
If Not (IsNumeric([String].Substring(i, 1)) OrElse _
(AscW([String].Substring(i, 1)) >= 65 AndAlso AscW([String].Substring(i, 1)) <= 90) OrElse _
(AscW([String].Substring(i, 1)) >= 97 AndAlso AscW([String].Substring(i, 1)) <= 122)) Then
Return False
End If
Next
Return True
End Function
[/highlight]
Then call the IsAlphaNumeric function to check:
[highlight=vbnet]If IsAlphaNumeric("ABC123") Then
Msgbox ("
")
Else
Msgbox ("/shofo")
End If [/highlight]
Taken from my post in snippets vault.
If Microsoft.VisualBasic.IsNumeric(cint(i)) Then
TextBox3.Text = TextBox3.Text.Replace("//Created by Table Viewer v1.0 Beta", " " & ComboBox1.Text & " " & TextBox2.Text & ";" & vbNewLine & "//Created by Table Viewer v1.0 Beta")
Else
MsgBox("The value name can't be an integer!", MsgBoxStyle.Exclamation, "Error")
End If [/highlight]
Should be like that. If you want to check if the string is alphanumeric (contains alphabets and numbers) then use the following function:
First add this:
[highlight=vbnet]Public Function IsNumeric(ByVal [String] As String) As Boolean
For i As Integer = 0 To [String].Length - 1
If Not (AscW([String].Substring(i, 1)) >= 48 AndAlso AscW([String].Substring(i, 1)) <= 57) Then 'asc value range of numbers
Return False
End If
Next
Return True
End Function[/highlight]
Then this:
[highlight=vbnet]Public Function IsAlphaNumberic(ByVal [String] As String) As Boolean
For i As Integer = 0 To [String].Length - 1
If Not (IsNumeric([String].Substring(i, 1)) OrElse _
(AscW([String].Substring(i, 1)) >= 65 AndAlso AscW([String].Substring(i, 1)) <= 90) OrElse _
(AscW([String].Substring(i, 1)) >= 97 AndAlso AscW([String].Substring(i, 1)) <= 122)) Then
Return False
End If
Next
Return True
End Function
[/highlight]
Then call the IsAlphaNumeric function to check:
[highlight=vbnet]If IsAlphaNumeric("ABC123") Then
Msgbox ("
")Else
Msgbox ("/shofo")
End If [/highlight]
Taken from my post in snippets vault.