怎样从字符中只取0-9的字符

zyz218

现将一文本字段转变成数字字段，其中大部分数据如此：20060302、20060305、20060309等等，但其中偶尔有这样的字L-20060208-A，在下用查询来转变它们Clng(LotNo),但遇到L-20060208-A这样的字段时，在下想只取其中的为0-9的字符，不知用什么函数？？在下是用查询来转变的！！！！

fengyunhun

是不是用ASCK码来查找？这样可能能够实现。

qhp-soft

Private Sub Txt_Report_Form_Files_code_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
  Dim Numbers As String
  Numbers = "1234567890"

If InStr(Numbers, Chr(KeyAscii)) = 0 Then
     KeyAscii = 0
  End If

End Sub



如有必要发邮件至: qhp_soft@126.com  或至电:13148802226

-----
论坛是我们成长的家园，我们要共同爱护好、建设好这个家园。同时欢迎大家光临我
的主页：http://www.qhpsoft.com

zyz218

谢谢！！

andymark

从字符串提取数字:

Dim Str As String
Dim Strtem As String

Str = "L - 20060208 - A"

For i = 1 To Len(Str)

If Mid(Str, i, 1) >= Chr("48") And Mid(Str, i, 1) <= Chr("57") Then

Strtem = Strtem & Mid(Str, i, 1)

End If
Next
MsgBox Strtem

[此贴子已经被作者于2006-4-9 16:36:00编辑过]

fan0217

用Val()

Val 函数



<OBJECT><ARAM><ARAM><ARAM></OBJECT>   

<OBJECT><PARAM><PARAM><PARAM></OBJECT>   

<OBJECT><PARAM><PARAM><PARAM></OBJECT>

返回包含于字符串内的数字，字符串中是一个适当类型的数值。

语法

Val(string)



必要的 string 参数可以是任何有效的字符串表达式.

说明

Val 函数，在它不能识别为数字的第一个字符上，停止读入字符串。那些被认为是数值的一部分的符号和字符，例如美圆号与逗号，都不能被识别。但是函数可以识别进位制符号

1. &O

复制代码

（八进制）和

1. &H

复制代码

（十六进制）。空白、制表符和换行符都从参数中被去掉。

下面的返回值为 1615198：

1. [b]Val[/b]("    1615 198th Street N.E.")
   
   

复制代码

[此贴子已经被作者于2006-4-9 16:32:52编辑过]

zyz218

太感谢了，要的就是这个！！！