自定义函数，提取一段数据的前缀

roger006

现有这样的数据AD090809，ABC090807，ABCD123,AB231111如何提取前面的非数字的字符，结果应为AD,ABC,ABCD,AB

Henry D. Sy

循环判断第一个数字的位子
然后用left函数截取

Henry D. Sy

1. Public Function gStr(ByVal strTblName As String, _
   
2.                      ByVal strFldName As String, _
   
3.                      OldStr As String) As String
   
4.     Dim rs As New ADODB.Recordset
   
5.     Dim i As Integer
   
6.     Dim tempStr As String
   
7.     Dim strSQL As String
   
8.     strSQL = "select * from " & strTblName & " where " & strFldName _
   
9.            & "='" & OldStr & "'"
   
10.     With rs
    
11.         .Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockReadOnly
    
12.         For i = 1 To Len(.Fields(strFldName))
    
13.             tempStr = Mid(.Fields(strFldName), i, 1)
    
14.             If IsNumeric(tempStr) Then
    
15.                 gStr = Left(.Fields(strFldName), i - 1)
    
16.                 Exit For
    
17.             End If
    
18.         Next
    
19.         .Close
    
20.     End With
    
21.     Set rs = Nothing
    
22. End Function
    
23. 
    

复制代码

roger006

非常感谢！！！

roger006

这是针对数据表的，那如何根据文本框输入的数据返回非数字的字符？？

Henry D. Sy

1. Public Function gStr(OldStr As String) As String
   
2.     Dim tempStr As String
   
3.     Dim i As Integer
   
4.     For i = 1 To Len(OldStr)
   
5.         tempStr = Mid(OldStr, i, 1)
   
6.         If IsNumeric(tempStr) Then
   
7.             gStr = Left(OldStr, i - 1)
   
8.             Exit For
   
9.         End If
   
10.     Next
    
11. End Function

复制代码

查询中直接调用

1. SELECT 表1.Oldstr, gStr([Oldstr]) AS NewStr
   
2. FROM 表1;

复制代码

窗体中，可以这样使用

1. 
   
2. Private Sub Text0_AfterUpdate()
   
3.     Me.Text0 = gStr(Me.Text0)
   
4. End Sub
   

复制代码

13555609005

非常感谢