SQL如何实现正则功能？

ning84

用正则方法很容易"2023年3月22日 星期三 21时01分21秒 "，得到2023年3月22日的目标需求。

1. Private Sub del0423()
   
2. 
   
3.     Dim Dict As Dictionary
   
4.     'Dim oDate As Date
   
5.        Set Dict = New Dictionary
   
6.        Arr = Array("2023年3月22日  星期三 21时01分21秒 ", "2023年3月22日  星期三 21时01分34秒 ", "2023年3月22日  星期三 21时01分39秒 ")
   
7.        For ii = 0 To 2
   
8.             Debug.Print DateExp(Arr(ii))
   
9.             Dict.Item(DateExp(Arr(ii))) = ""
   
10.        Next ii
    
11.    
    
12. Stop
    
13. 
    
14. End Sub
    
15. Function DateExp(Str)
    
16.     Dim oRegExp As RegExp
    
17.     Dim oMatColl As MatchCollection
    
18.     Dim oMatch As Match
    
19.     Dim oSubMat As SubMatches
    
20.     Dim RegStr, oStr, oDate
    
21.         Set oRegExp = New RegExp
    
22.         RegStr = "\d{2,4}(年|-|/|.)\d{1,2}(月|-|/|.)\d{1,4}(日|/||)"
    
23.         oRegExp.Pattern = RegStr
    
24.         Set oMatColl = oRegExp.Execute(Str)
    
25.         If oMatColl.Count > 0 Then
    
26.             oDate = oMatColl.Item(0)
    
27.             DateExp = oDate
    
28.         Else
    
29.             DateExp = Str
    
30.         End If
    
31. End Function
    
32. 
    

复制代码

问：如何用 Select Distinct 的SQL 跟容易实现
"2023年3月22日 星期三 21时01分21秒 "，得到2023年3月22日的目标需求

zpy2

https://club.excelhome.net/forum.php?mod=viewthread&tid=1659075&page=2&mobile=
如果是sqlite可以sql使用正则表达式

盼盼198310

year(Distinct)&'年'&month(Distinct)&'月'&day(Distinct)&'日'

洋务德雷

会SQL，也会正则，我怎么看不懂这楼说的是什么？？？要干嘛？

盼盼198310

洋务德雷 发表于 2023-4-24 09:00
会SQL，也会正则，我怎么看不懂这楼说的是什么？？？要干嘛？

我想的是,他应该是想提取出年月日来

WANT-T

这种数据压根不需要 正则呀！

wanghan519

安装xlwings之后自带的sql公式可以使用自定义的正则函数，因为是sqlite3
access里好像可以自定义函数，那么通过com对象操作access应该可以
exceldna打包xll想必是可以的

ning84

WANT-T 发表于 2023-4-24 09:28
这种数据压根不需要 正则呀！

用Left很简单。

1. Sub Test0423()
   
2.     Dim Rng As Range
   
3.     Dim Str
   
4.     Dim FilePath, oAddress, oDate As Date
   
5.         FilePath = ThisWorkbook.Path & "\SunriseSunset.xlsx"
   
6.         oAddress = "A5:D996"
   
7.         oDate = "2023/4/3"
   
8.     Dim Cn As ADODB.Connection
   
9.     Dim Rs As ADODB.Recordset
   
10.         Set Cn = New ADODB.Connection
    
11.         Set Rs = New ADODB.Recordset
    
12.         Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;HDR=yes';data source=" & ThisWorkbook.FullName
    
13.         Str = "Select distinct left(dddd,10) from [Sheet1$] where dddd <> NULL"
    
14.         Str = "Select distinct left(F4,10) from [Sheet1$] where F4 <> NULL"
    
15.         
    
16.         Set Rs = Cn.Execute(Str)
    
17.         aaa = Rs.GetRows
    
18.         Stop
    
19. 
    
20. End Sub

复制代码

如何在sql语句里用REGEXP 正则表达式？-CSDN社区  https://bbs.csdn.net/topics/300114111


从网上发的贴子看，SQL+RegExp(正则)具有可行操作性，测试半天没有找到头绪。

ning84

wanghan519 发表于 2023-4-24 10:11
安装xlwings之后自带的sql公式可以使用自定义的正则函数，因为是sqlite3
access里好像可以自定义函数， ...

谢谢回复，明白了。
在VBA+SQL+RegExpg条件下，折腾SQL+RegExp（正则方法），纯粹脑袋进水。要学习一大堆知识，还不见得是实现目标需求。

ning84

select Distinct 不能使用Order by 排序。只能使用SortMethod = xlPinYin

1. Sub Test0423()
   
2.     Dim Rng As Range
   
3.     Dim Str
   
4.     Dim FilePath, oAddress, oDate As Date
   
5.         FilePath = ThisWorkbook.Path & "\SunriseSunset.xlsx"
   
6. 
   
7.     Dim Cn As ADODB.Connection
   
8.     Dim Rs As ADODB.Recordset
   
9.         Set Cn = New ADODB.Connection
   
10.         Set Rs = New ADODB.Recordset
    
11.         Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;HDR=yes';data source=" & ThisWorkbook.FullName
    
12.         Str = "Select distinct left(日期,10) from [DateFolder$] Where 日期 <> NULL Order by 日期  ASC"
    
13. Str = "Select distinct left(日期,10) from [DateFolder$C1:D5100] Where 日期 <> NULL  "
    
14.         Set Rs = Cn.Execute(Str)
    
15.         Set Rng = Sheet1.Cells(2, 1).Resize(1000, 1)
    
16.         Rng.ClearContents
    
17.         Rng.CopyFromRecordset Rs
    
18.         Rng.NumberFormatLocal = "yyyy年mm月dd日;@"
    
19.         Set Rng = Rng.CurrentRegion
    
20.         
    
21.     Debug.Print Rng.Address
    
22.         With Sheet1.Sort
    
23.              .SetRange Rng
    
24.              .SortMethod = xlPinYin
    
25.              .Apply
    
26.         End With
    
27. 
    
28. End Sub

复制代码