ACCESS 提取银行账户

cnlikai

因工作需要，需批量提取Access字段中的银行账号，请各位老师指点一下

zpy2

建议导出excel处理或提问，access人比较少。

cnlikai

zpy2 发表于 2020-12-18 12:44
建议导出excel处理或提问，access人比较少。

excel函数已经实现，主要是数据量比较大，数据超过了10万行，excel的处理不过来了

zpy2

cnlikai 发表于 2020-12-18 14:28
excel函数已经实现，主要是数据量比较大，数据超过了10万行，excel的处理不过来了

我这里看只有7200多条，10万也是循环，没有直接的sql。
你这个是本身就在access里，还是导入的，如果是后者，感觉还是直接处理文本比较方便。

roych

正则表达式的意思么？

cnlikai

11111111111

cnlikai

终于找到了答案
Function fExtractStr(ByVal strInString As String) As String
Dim lngLen As Long, strOut As String
Dim i As Long, strTmp As String, strInString1 As String, strTmp1 As String
strTmp1 = "1"
      If InStr(strInString, "AB") = 0 Then
      lngLen = Len(strInString)
      Else
      lngLen = Len(strInString) - (Len(strInString) - InStr(strInString, "AB")) - 9
      End If
    strOut = ""
    For i = 1 To lngLen
        strTmp = Left$(strInString, 1)
        strInString = Right$(strInString, lngLen - i)
         If (Asc(strTmp) >= 48 And Asc(strTmp) <= 57) Then
            strOut = strOut & strTmp
        End If
        strTmp1 = strTmp
    Next i
    fExtractStr = strOut
End Function

sfs777

access人真不多

zpy2

cnlikai 发表于 2020-12-27 20:18
终于找到了答案
Function fExtractStr(ByVal strInString As String) As String
Dim lngLen  ...

正则
[\da-zA-Z]
应该也差不多