关于车牌的文本提取

zx994398

如何提取车牌的文本？
例如：沪A21456—>21456，沪BD2456—>2456，沪A45D12—>45D12
先谢谢了！

kangking

从你的示例数据看，就是截取字串的后5位数据，用right()函数就可以了，例如：right("沪A21456",5)，返回21456。

todaynew

好像val（沪BD2456）可以返回2456。试试

luhao

Henry D. Sy老师帮我做过一个这样的函数，你看下能不能用上
如：订单AF95125/TL-156/500件，gString(订单)后返回//中间的字符“TL-156”

'提取字符串中的字符
Public Function gString(FullString) As String
    Dim str As String
    str = ""
    If Not IsNull(FullString) Then
        If UBound(Split(FullString, "/")) >= 1 Then
            str = Split(FullString, "/")(1)
        End If
    End If
    gString = str
End Function

ACMAIN_CHM

沪A21456—>21456
沪BD2456—> 2456
沪A45D12—>45D12

要先用VBA找到第一个数字字符，然后取后面的。当然你可以用6个IIF来实现。

******************
*  一切皆有可能  *
******************
.
ACMAIN - Access论坛回贴准则（个人）.
.
同一贴子不回复第二次

luhao

如何提取车牌的文本？
例如：沪A21456—>21456，沪BD2456—>2456，沪A45D12—>45D12
先谢谢了！
zx994398 发表于 2009-5-15 12:39

刚做的。不知合不合你。要感谢就感谢Henry D. Sy老师
选查询

Henry D. Sy

'---------------------------------------------------------------------------------------
' Procedure : gString
' DateTime  : 2009/5/15 23:21
' Author      : Henry D. Sy
' Purpose    :
'---------------------------------------------------------------------------------------
'
Public Function gString(ByVal strTblName As String, ByVal FldName As String, FldVal As String) As String
    Dim rs As New ADODB.Recordset
    Dim strSQL As String
    Dim strCarNo As String, str As String
    Dim i As Integer, j As Integer
    On Error GoTo gString_Error

    strSQL = "select distinct " & FldName & " from " & strTblName & " where " & FldName & "='" & FldVal & "'"
    With rs
        .Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockReadOnly
        strCarNo = .Fields(0)
        For i = 1 To Len(strCarNo)
            str = Mid(strCarNo, i, 1)
            j = j + 1
            If IsNumeric(str) Then
                Exit For
            End If
        Next
        .Close
    End With
    gString = Mid(strCarNo, j)
    Set rs = Nothing

    On Error GoTo 0
    Exit Function

gString_Error:

    MsgBox "Error " & Err.Number & " (" & Err.Description & ")"
End Function




查询中直接调用
SELECT 表1.编号, 表1.车版, gString("表1","车版",[车版]) AS AAA
FROM 表1;

Henry D. Sy

变量j是多余的

1. Public Function gString(ByVal strTblName As String, ByVal FldName As String, FldVal As String) As String
   
2.     Dim rs As New ADODB.Recordset
   
3.     Dim strSQL As String
   
4.     Dim strCarNo As String, str As String
   
5.     Dim i As Integer
   
6.     On Error GoTo gString_Error
   
7. 
   
8.     strSQL = "select distinct " & FldName & " from " & strTblName & " where " & FldName & "='" & FldVal & "'"
   
9.     With rs
   
10.         .Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockReadOnly
    
11.         strCarNo = .Fields(0)
    
12.         For i = 1 To Len(strCarNo)
    
13.             str = Mid(strCarNo, i, 1)
    
14.             If IsNumeric(str) Then
    
15.                 Exit For
    
16.             End If
    
17.         Next
    
18.         .Close
    
19.     End With
    
20.     gString = Mid(strCarNo, i)
    
21.     Set rs = Nothing
    
22. 
    
23.     On Error GoTo 0
    
24.     Exit Function
    
25. 
    
26. gString_Error:
    
27. 
    
28.     MsgBox "Error " & Err.Number & " (" & Err.Description & ")"
    
29. End Function

复制代码

luhao

变量j是多余的
Public Function gString(ByVal strTblName As String, ByVal FldName As String, FldVal As String) As String
    Dim rs As New ADODB.Recordset
    Dim strSQL As String
    Dim strCarNo A ...
Henry D. Sy 发表于 2009-5-16 10:49

能人就是不一样，收藏了