SQL如何实现正则功能？

ning84 · 发表于 2023-4-24 07:08

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

Private Sub del0423()
Dim Dict As Dictionary
'Dim oDate As Date
Set Dict = New Dictionary
Arr = Array("2023年3月22日星期三 21时01分21秒 ", "2023年3月22日星期三 21时01分34秒 ", "2023年3月22日星期三 21时01分39秒 ")
For ii = 0 To 2
Debug.Print DateExp(Arr(ii))
Dict.Item(DateExp(Arr(ii))) = ""
Next ii
Stop
End Sub
Function DateExp(Str)
Dim oRegExp As RegExp
Dim oMatColl As MatchCollection
Dim oMatch As Match
Dim oSubMat As SubMatches
Dim RegStr, oStr, oDate
Set oRegExp = New RegExp
RegStr = "\d{2,4}(年|-|/|.)\d{1,2}(月|-|/|.)\d{1,4}(日|/||)"
oRegExp.Pattern = RegStr
Set oMatColl = oRegExp.Execute(Str)
If oMatColl.Count > 0 Then
oDate = oMatColl.Item(0)
DateExp = oDate
Else
DateExp = Str
End If
End Function

复制代码

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

zpy2 · 发表于 2023-4-24 07:42

盼盼198310 · 发表于 2023-4-24 07:48

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

洋务德雷 · 发表于 2023-4-24 09:00

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

盼盼198310 · 发表于 2023-4-24 09:11

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

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

WANT-T · 发表于 2023-4-24 09:28

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

wanghan519 · 发表于 2023-4-24 10:11

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

ning84 · 发表于 2023-4-24 14:10

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

用Left很简单。

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

复制代码

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

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

ning84 · 发表于 2023-4-24 20:08

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

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

ning84 · 发表于 2023-4-24 20:12

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

Sub Test0423()
Dim Rng As Range
Dim Str
Dim FilePath, oAddress, oDate As Date
FilePath = ThisWorkbook.Path & "\SunriseSunset.xlsx"
Dim Cn As ADODB.Connection
Dim Rs As ADODB.Recordset
Set Cn = New ADODB.Connection
Set Rs = New ADODB.Recordset
Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;HDR=yes';data source=" & ThisWorkbook.FullName
Str = "Select distinct left(日期,10) from [DateFolder$] Where 日期 <> NULL Order by 日期 ASC"
Str = "Select distinct left(日期,10) from [DateFolder$C1:D5100] Where 日期 <> NULL "
Set Rs = Cn.Execute(Str)
Set Rng = Sheet1.Cells(2, 1).Resize(1000, 1)
Rng.ClearContents
Rng.CopyFromRecordset Rs
Rng.NumberFormatLocal = "yyyy年mm月dd日;@"
Set Rng = Rng.CurrentRegion
Debug.Print Rng.Address
With Sheet1.Sort
.SetRange Rng
.SortMethod = xlPinYin
.Apply
End With
End Sub

复制代码

		自动登录	找回密码
密码			免费注册

[求助] SQL如何实现正则功能？