[求助]怎么取出文本字段中的数字片断.

aixiang225858

我有一个字段是文本字段.

如：记录为'3-3-1'

                 '3-3-2'

       .......................

                '3-3-2000'

共2000条记录

但我现在想要根据字段的最后一节，如取出＞1000的记录，即'3-3-1001'到'3-3-2000'该怎么操作啊.

我用的是access2003

aixiang225858

晕，没人回答啊.

一点通

上传示例更易回复或调试你的问题

fan0217

用Split拆开，然后比较。

aixiang225858

数据表内容　字段

　　　　　３－３－１

　　　　　３－３－２

　　　　　３－３－３

　　　　............

　　　　　３－３－９９９

　　　　　３－３－１０００

　　　　　３－３－１００１

　　　　　３－３－１００２

　　　　...........

　　　　　３－３－２０００

共2000条记录

字段类型为文本型，

我现在需要将文本中第三段中＞1000的提取出来.就是'3-3-1001'到'3-3-2000'

这1000条记录提取出来.该怎么做呢.

fan0217

Function MyExp(expression As String, max As Integer, min As Integer) As String
    Dim varTemp As Variant
    Dim strTemp As String
    varTemp = Split(expression, "-")
    strTemp = CInt(varTemp(2))
    If strTemp >= min And strTemp < max Then
        MyExp = expression
    Else
        MyExp = ""
    End If
End Function


debug.Print MyExp("3-3-1001",2000,1000)
3-3-1001

如果大于或等于1000 ，或者小于2000则返回原来的表达式，否则返回空。

[此贴子已经被作者于2006-11-20 15:18:23编辑过]

一点通

如果格式是固定的话,可以在查询中这样写

SELECT Mid([字段],5,8) AS 提取数
FROM 表1
WHERE (((Mid([字段],5,8))>1000));

wwwwa

TRY:

如格式一致的话：

SELECT PO(RR), *
FROM A33;
模块

Function PO(RR As String)
RT = Split(RR, "－")
If UBound(RT) > 0 Then
PO = RT(2)
Else
PO = 0
End If

wwwwa

or

SELECT Mid(f1,5,8),* FROM tt

aixiang225858

我已经解决了，谢谢楼上几位.

我是这样做的.

select *

from 数据表

where eval(right(字段,4))>1000;