View original (French)

VB6 Find a number in a String

Eric -  
teebo Posted messages 33585 Registration date   Status Contributor Last intervention   -
Hello,
I need help. I have to find out if a string starts with a digit (0,1,2,3..) without performing the test 10 times.

Thank you in advance.

Eric

4 answers

Answer 1 / 4
monbobo Posted messages 106 Registration date   Status Member Last intervention   133
 
If you create a SQL database with your strings, you will perform queries on it and SQL will give you the results without fail.

Otherwise, you filter your string to extract the first character and you test its type (or its value) if the value of the first 8 or 4 (depending on the program) is counted between 0 and 9, it's a digit which is also their ASCII code I believe, so there is no possible confusion.
0
ERIC
 
There is no SQL database; it's a recurring variable on a text control that I want to test.
An user enters a word that can contain but not start with a digit.
I have to do:
variable = left(variable,1) ' to isolate the first character
If Val(variable) ... and a test to know if it's a number (still to be defined how, but I will figure it out).
Ok, but I have a vague memory of
If left(variable,1) is numeric ...
of course, that doesn't work. I asked the question hoping for a response like this.

Thank you for your contribution.

Eric
0
Answer 2 / 4
kougoue Posted messages 304 Status Member 12
 
Go here
http://www.vbasic.org and you can find a code that unlocks you

A hand ties a package and two several.
Where do you ask Mboo if you dance?
0
Answer 3 / 4
teebo Posted messages 33585 Registration date   Status Contributor Last intervention   1 797
 
Select case left(variable,1) 
Case "1","2","3","4","5","6","7","8","9","0" 
 MsgBox "User sale, read the doc for fuck's sake" 
Case Else 
 MsgBox "Congratulations, you know the difference between a number and a letter 
End select


In principle, but I think there are other solutions too...

.  .
\_/
0
Answer 4 / 4
teebo Posted messages 33585 Registration date   Status Contributor Last intervention   1 797
 
Otherwise it should also work 
 
 If variable Like "[0-9]*" then MsgBox "RTFM"

.   .
\_/
0