Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations TouchToneTommy on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Searching for a Number in a text string 5
- Thread starter tjc240e
- Start date
-
1
- #2
Try ISDIGIT() in cycle.
Juri Shutenko
Municipality of Maardu, Estonia
Juri Shutenko
Municipality of Maardu, Estonia
For example:
lcString="qweqweqq wq 123123 asdas"
For lni=1 To Len(lcString)
If Isdigit(Substr(lcString,lni))
? "DIGITS in expression!!!"
Exit
Endif
Next
Juri Shutenko
Municipality of Maardu, Estonia
lcString="qweqweqq wq 123123 asdas"
For lni=1 To Len(lcString)
If Isdigit(Substr(lcString,lni))
? "DIGITS in expression!!!"
Exit
Endif
Next
Juri Shutenko
Municipality of Maardu, Estonia
-
1
- #4
Hi
cString = "abcdefskdjkj-3sd"
i=0
lFound = .f.
DO WHILE i < 10
IF ALLTRIM(STR(i)) $ cString
lFound = .t.
EXIT
ENDIF
i=i+1
ENDDO
IF lFound
=MESSAGEBOX("Digits found")
ELSE
=MESSAGEBOX("No Digits found")
ENDIF
____________________________________________
ramani - (Subramanian.G)
cString = "abcdefskdjkj-3sd"
i=0
lFound = .f.
DO WHILE i < 10
IF ALLTRIM(STR(i)) $ cString
lFound = .t.
EXIT
ENDIF
i=i+1
ENDDO
IF lFound
=MESSAGEBOX("Digits found")
ELSE
=MESSAGEBOX("No Digits found")
ENDIF
____________________________________________
ramani - (Subramanian.G)
Oh.. I am too slow in my keyboard, I think. When I startted, no reply and when I ended, this is 3rd reply and this the 4th message, I hope. !
____________________________________________
ramani - (Subramanian.G)
____________________________________________
ramani - (Subramanian.G)
Hi, Ramani!
But your way is shorter, than my, for the short expressions!
Juri Shutenko
Municipality of Maardu, Estonia
But your way is shorter, than my, for the short expressions!
Juri Shutenko
Municipality of Maardu, Estonia
- Thread starter
- #7
Exactly!
Juri Shutenko
Municipality of Maardu, Estonia
Juri Shutenko
Municipality of Maardu, Estonia
- Thread starter
- #9
-
1
- #10
- Thread starter
- #11
-
1
- #12
Olaf Doschke
Programmer
Hi,
Bye, Olaf.
Code:
Set library to foxtools && once in startup code
? NOT (Strfilter(cExpression,"0123456789")=="")Bye, Olaf.
-
1
- #13
Stella740pl
Programmer
tjc240e,
Here is what it does:
cstring="CUSICK #118-92-2202"
IF LEN(cstring)=LEN(CHRTRAN(cstring,"1234567890",""))
=MESSAGEBOX("No Digits found")
ELSE
=MESSAGEBOX("Digits found")
ENDIF
CHRTRAN() is a function that substitutes characters in a character string. In this case, CHRTRAN will try to remove each digit in a string (replace it by empty string ""). If the length of the string didn't change after that, there were no digits to start with.
Here is what it does:
cstring="CUSICK #118-92-2202"
IF LEN(cstring)=LEN(CHRTRAN(cstring,"1234567890",""))
=MESSAGEBOX("No Digits found")
ELSE
=MESSAGEBOX("Digits found")
ENDIF
CHRTRAN() is a function that substitutes characters in a character string. In this case, CHRTRAN will try to remove each digit in a string (replace it by empty string ""). If the length of the string didn't change after that, there were no digits to start with.
- Thread starter
- #14
Stella740pl
Programmer
Oh, and Olaf's solution does a similar thing the other way around. StrFilter() is a FoxTools function that removes characters from a string except those specified. So if you remove all except digits, and the string is not empty after that, then it means that you do have digits in your string. Makes sense?
- Thread starter
- #16
- Thread starter
- #18
Not a problem mspratt... i'm still new to this foxpro stuff and unfortunately we don't have a really good reference guide and are still using version 6.
Also I just got thrown into this becuase i know a bit about programming, so i am picking it up but it's have without manuals/user guides or in house help... that is why I am soo thankful for all of you out there and all you do to help.
TJC
Also I just got thrown into this becuase i know a bit about programming, so i am picking it up but it's have without manuals/user guides or in house help... that is why I am soo thankful for all of you out there and all you do to help.
TJC
Stella740pl
Programmer
tjc240e,
Help files are really of a great help, so don't disregard it. (Oh, and we still use VFP6 as well.)
If, for some reason, you don't have Help (I don't think, though, they should throw you into a new language without providing at least that help that comes free with the package), you can always find free reference on MSDN site, . Even though you can find full documentation there only for versions 7 and up, it would still be useful. Say, you could have looked up CHRTRAN() function to understand what it does.
Besides Microsoft itself, you can also find other free online resources. Say, this VFP6 tutorial:
Stella
Help files are really of a great help, so don't disregard it. (Oh, and we still use VFP6 as well.)
If, for some reason, you don't have Help (I don't think, though, they should throw you into a new language without providing at least that help that comes free with the package), you can always find free reference on MSDN site, . Even though you can find full documentation there only for versions 7 and up, it would still be useful. Say, you could have looked up CHRTRAN() function to understand what it does.
Besides Microsoft itself, you can also find other free online resources. Say, this VFP6 tutorial:
Stella
Olaf Doschke
Programmer
Hi,
VFP Help on VFP6 is available if you don't only installed VFP (and other parts of the Visual Studio 6), but also MSDN. And then you can also choose to search only in VFP6 help, not the whole MSDN. Otherwise it's sometimes harder to find something VFP specific.
Bye, Olaf.
VFP Help on VFP6 is available if you don't only installed VFP (and other parts of the Visual Studio 6), but also MSDN. And then you can also choose to search only in VFP6 help, not the whole MSDN. Otherwise it's sometimes harder to find something VFP specific.
Bye, Olaf.
- Status
Similar threads
