742
社区成员
发帖
与我相关
我的任务
分享一个关于取出字符串中的数字的问题
字符串
S = AAA1
S1 = AAA10
S2 = AAA300
只要能把上面那个几个字符串中的数字取出来就行了。
高手帮一下忙.
S = AAA1
S1 = AAA10
S2 = AAA300
只要能把上面那个几个字符串中的数字取出来就行了。
高手帮一下忙.
...全文
请发表友善的回复…
发表回复
Chice_wxg 2004-07-12
- 打赏
- 举报
Private Sub Form_Load()
MsgBox RightVal("AAAA333")
MsgBox RightVal("ABC213")
End Sub
Function RightVal(ByVal s As String) As Long
Dim i As Long
RightVal = 0
For i = Len(s) To 1 Step -1
If Not IsNumeric(Mid(s, i, 1)) Then RightVal = Val(Mid(s, i + 1)): Exit For
Next
End Function
MsgBox RightVal("AAAA333")
MsgBox RightVal("ABC213")
End Sub
Function RightVal(ByVal s As String) As Long
Dim i As Long
RightVal = 0
For i = Len(s) To 1 Step -1
If Not IsNumeric(Mid(s, i, 1)) Then RightVal = Val(Mid(s, i + 1)): Exit For
Next
End Function
hepz 2004-07-12
- 打赏
- 举报
每次取一个字符，判断他们的ASCII码是否是数字的ASCII码（我忘了数字的ASCII码范围了，不然可以把程序写给你）
northwolves 2004-07-12
- 打赏
- 举报
Function getit(ByVal x As String) As String
getit = x
Do While Not IsNumeric(Left(getit, 1))
getit = Replace(getit, Left(getit, 1), "")
Loop
getit = Val(getit)
End Function
getit = x
Do While Not IsNumeric(Left(getit, 1))
getit = Replace(getit, Left(getit, 1), "")
Loop
getit = Val(getit)
End Function
gdami 2004-07-12
- 打赏
- 举报
Val函数 返回
返回包含于字符串内的数字，字符串中是一个适当类型的数值。
语法
Val(string)
必要的 string 参数可以是任何有效的字符串表达式.
说明
Val 函数，在它不能识别为数字的第一个字符上，停止读入字符串。那些被认为是数值的一部分的符号和字符，例如美圆号与逗号，都不能被识别。但是函数可以识别进位制符号 &O（八进制）和 &H（十六进制）。空白、制表符和换行符都从参数中被去掉。
下面的返回值为 1615198：
Val(" 1615 198th Street N.E.")
在下面的代码中，Val 为所示的十六进制数值返回十进制数值 -1。
Val("&HFFFF")
注意 Val 函数只会将句点（.）当成一个可用的小数点分隔符。当使用不同的小数点分隔符时，如在国际版应用程序中，代之以 CDbl 来把字符串转换为数字。
返回包含于字符串内的数字，字符串中是一个适当类型的数值。
语法
Val(string)
必要的 string 参数可以是任何有效的字符串表达式.
说明
Val 函数，在它不能识别为数字的第一个字符上，停止读入字符串。那些被认为是数值的一部分的符号和字符，例如美圆号与逗号，都不能被识别。但是函数可以识别进位制符号 &O（八进制）和 &H（十六进制）。空白、制表符和换行符都从参数中被去掉。
下面的返回值为 1615198：
Val(" 1615 198th Street N.E.")
在下面的代码中，Val 为所示的十六进制数值返回十进制数值 -1。
Val("&HFFFF")
注意 Val 函数只会将句点（.）当成一个可用的小数点分隔符。当使用不同的小数点分隔符时，如在国际版应用程序中，代之以 CDbl 来把字符串转换为数字。
flyingscv 2004-07-12
- 打赏
- 举报
val("AAA300")'?
我和我的蓝天白云 2004-07-12
- 打赏
- 举报
关注！
