VFP的字符串功能虽不弱，但也有限，实际应用还有不少考究。

这一类的事情应该交给正则表达式去干，何必重新发明轮子。更重要的是，几乎所有语言都支持正则，以后不管你换啥语言都终身受用。

例如，达到你的需求：

oo = NewObject('vbscript.regexp')
oo.Pattern = '^\d+$'
? oo.test('1234')
? oo.test('a1234')

要实现二楼的带符号带小数判断，改下 pattern 就行

oo.Pattern = '^(\-?|\+?)(\d+)(\.?\d+)$'

要把 .1234 也算作合法，就这样

oo.Pattern = '^((\-?|\+?)(\d+)(\.?\d+)|(\.?\d+))$'

如果还要包含指数形式 1e234，也都可以通过只改匹配模板就轻易做到

[此贴子已经被作者于2022-9-28 03:16编辑过]

向各位大侠学习！

来个C货

DECLARE long strlen IN msvcrt string
DECLARE long sscanf IN msvcrt string,string,string@

? isAllDigit("1021","%[0-9]")
? isAllDigit("238A","%[0-9]")
? isAllDigit("1314X520","%[0-9]")
? isAllDigit("-123.456","%[0-9.-]")
? isAllDigit("-12.34+45.67","%[0-9.-+]")

FUNCTION isAllDigit(lcString,lcFmt)
    len = strlen(lcString)
    IF len==0
        RETURN .f.
    ENDIF
    buf = REPLICATE(0h00,len+1)
    sscanf(lcString,lcFmt,@buf)
    RETURN strlen(buf)==len
ENDFUNC

确实，在现代编程语言的世界里，正则是字符串检索的全宇宙标准，没有之一。
唯，楼主的需求本身就很小，最直观的解决方案，一个VFP循环即可搞定。
一来“贪玩”，二来考虑到执行效率，用VFP原生代码执行效率自然比较高。
诚如吹版所言：VFP的字符串处理并不弱，甚至强过了许多流行语言。
若非要用正则object来处理，颇有点儿“大炮打蚊子”意味。
呵呵。

Function isAllDigit()本身没有对错，有的只是算法上的巧与拙、妙与凡的小小差别而已。
或者这么说吧——两个字：
好玩！

学到了，感谢！原来在msvcrt有宝藏啊，哈哈，看来要好好学习一下msvcrt.dll等库的参考手册。

人才

学习，谢谢！

微软的C函数库，会C函数编程就会用。
VFP也自带v7.1版的msvcr71.dll，VFP带来的应该要会用。

各位都是算法高手，佩服！