Office中国论坛/Access中国论坛

标题: 怎样从字符中只取0-9的字符 [打印本页]

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

作者: fengyunhun 时间: 2006-4-9 23:37
是不是用ASCK码来查找？这样可能能够实现。

作者: qhp-soft 时间: 2006-4-9 23:45
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 时间: 2006-4-10 00:05
谢谢！！

作者: andymark 时间: 2006-4-10 00:23
从字符串提取数字:

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 时间: 2006-4-10 00:31
用Val()

Val 函数

<OBJECT><

ARAM><

ARAM></OBJECT>

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

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

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

语法

Val(string)

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

说明

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

复制代码

（八进制）和

复制代码

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

下面的返回值为 1615198：

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

复制代码

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

作者: zyz218 时间: 2006-4-10 02:46
太感谢了，要的就是这个！！！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)