正则分离 "22:40*~3 站/10 千米"，米和千米要2个Pattern

ning84 · 发表于 2024-10-13 15:26

本帖最后由 ning84 于 2024-10-15 14:20 编辑

Sub lll()
Dim Str
Str = "22:40*~3 站/10 千米"
Dim Matches As MatchCollection
Dim TimePattern As New RegExp
Dim StationPattern As New RegExp
Dim DistancePattern As New RegExp
'TimePattern.Pattern = "(\d{2}:\d{2})\*"
TimePattern.Pattern = "\d{2}:\d{2}"
Set Matches = TimePattern.Execute(Str)
Debug.Print Matches.Item(0)
Stop
TimePattern.Pattern = "\d+ 站"
Set Matches = TimePattern.Execute(Str)
Debug.Print Matches.Item(0)
Stop
DistancePattern.Pattern = "\d+ 千米"
Set Matches = DistancePattern.Execute(Str)
Debug.Print Matches.Item(0)
Stop
End Sub

复制代码

      Str = "22:40*~3 站/10 千米"

用    DistancePattern.Pattern = "\d+ 千米"
      Set Matches = DistancePattern.Execute(Str)
      结果 10 千米

      Str = "22:40*~3 站/10 千米"
      改
      Str = "22:40*~3 站/10 米"

   DistancePattern.Pattern = "\d+ 米"
      Set Matches = DistancePattern.Execute(Str)
      结果才能使 10 米

Stop

End Sub

补充相关知识

[color=var(--color-neutral-100,#000)][color=var(--color-text-primary)][color=var(--md-box-samantha-normal-text-color) !important]正则表达式的基本语法规则如下：

[color=var(--md-box-samantha-normal-text-color) !important]一、字符匹配

普通字符：直接匹配自身，例如 “a” 匹配字符 “a”。
特殊字符：如 “.” 可以匹配除换行符以外的任意单个字符；“\d” 匹配一个数字字符；“\w” 匹配一个单词字符（包括字母、数字和下划线）等。

[color=var(--md-box-samantha-normal-text-color) !important]二、字符重复

“[color=var(--md-box-samantha-deep-text-color) !important]”：表示前面的字符可以出现零次或多次。例如 “a” 可以匹配 “”（空字符串）、“a”“aa”“aaa” 等。
“+”：表示前面的字符可以出现一次或多次。例如 “a+” 可以匹配 “a”“aa”“aaa” 等，但不能匹配空字符串。
“?”：表示前面的字符可以出现零次或一次。例如 “a?” 可以匹配 “”（空字符串）或 “a”。
“{n}”：表示前面的字符恰好出现 n 次。例如 “a {3}” 匹配 “aaa”。
“{n,}”：表示前面的字符至少出现 n 次。例如 “a {2,}” 匹配 “aa”“aaa”“aaaa” 等。
“{n,m}”：表示前面的字符出现 n 到 m 次。例如 “a {2,4}” 匹配 “aa”“aaa”“aaaa”。

[color=var(--md-box-samantha-normal-text-color) !important]三、字符集合

“[abc]”：匹配字符 “a”“b” 或 “c” 中的任意一个。
“[^abc]”：匹配除了 “a”“b”“c” 之外的任意一个字符。
“[a-z]”：匹配小写字母 a 到 z 中的任意一个字符。
“[A-Z]”：匹配大写字母 A 到 Z 中的任意一个字符。
“[0-9]”：匹配数字 0 到 9 中的任意一个字符。

[color=var(--md-box-samantha-normal-text-color) !important]四、分组和捕获

“()”：用于分组，可以将多个字符或表达式组合在一起。同时，括号内的内容可以被捕获，以便在后续的处理中使用。
“\1”“\2” 等：用于引用捕获的分组。例如，“(a) b\1” 可以匹配 “ab” 后面跟着与第一个分组（这里是 “a”）相同的字符。

[color=var(--md-box-samantha-normal-text-color) !important]五、锚点

“^”：表示匹配行的开头。例如 “^abc” 匹配以 “abc” 开头的行。
“：表示匹配行的结尾。例如” 匹配以 “abc” 结尾的行。

[color=var(--md-box-samantha-normal-text-color) !important]六、转义字符

如果要匹配特殊字符本身，需要使用转义字符 “\”。例如 “.” 匹配字符 “.”；“*” 匹配字符 “*”。

[color=var(--s-color-text-secondary,rgba(0,0,0,.8))][color=var(--s-color-text-secondary,rgba(0,0,0,.7))]正则表达式的应用场景有哪些？
[color=var(--s-color-text-secondary,rgba(0,0,0,.8))][color=var(--s-color-text-secondary,rgba(0,0,0,.7))]正则表达式的优势是什么？
[color=var(--s-color-text-secondary,rgba(0,0,0,.8))][color=var(--s-color-text-secondary,rgba(0,0,0,.7))]如何学习正则表达式？

[backcolor=rgba(255, 255, 255, 0.8)][backcolor=var(--s-color-bg-primary)]

ning84 · 发表于 2024-10-13 15:42

本帖最后由 ning84 于 2024-10-13 17:15 编辑

正则表达式——全部符号解释（详解）_正则匹配所有字符意思-CSDN博客  https://blog.csdn.net/weixin_42167759/article/details/80403578
现在用的是"|"解决---"\d+ 米|\d+ 千米"

Sub lll()
Dim Str
      Str = "22:40*~3 站/10 千米"
      Str = "22:40*~3 站/101 米"
Dim Matches As MatchCollection
Dim TimePattern As New RegExp
Dim StationPattern As New RegExp
Dim DistancePattern As New RegExp
      'TimePattern.Pattern = "(\d{2}:\d{2})\*"
      TimePattern.Pattern = "\d{2}:\d{2}"
      Set Matches = TimePattern.Execute(Str)
      Debug.Print Matches.Item(0)

      Stop
      TimePattern.Pattern = "\d+ 站"
      Set Matches = TimePattern.Execute(Str)
      Debug.Print Matches.Item(0)
      Stop

      DistancePattern.Pattern = "\d+ 米|\d+ 千米"
      Set Matches = DistancePattern.Execute(Str)
      Debug.Print Matches.Item(0)

Stop

End Sub



数据源

ning84 · 发表于 2024-10-13 19:53

import re

# 输入字符串
input_string = "16:43* 2站/2.8千米"

# 正则表达式
pattern = r'(\d{2}:\d{2})\*\s*(\d+)站\/(\d+\.\d+)千米'

# 进行匹配
match = re.match(pattern, input_string)

if match:
time = match.group(1)
stations = match.group(2)
distance = match.group(3)
print(f"时间: {time}")
print(f"站点数: {stations}")
print(f"距离: {distance}千米")
else:
print("未匹配到任何内容")

wp231957 · 发表于 2024-10-14 09:22

ning84 发表于 2024-10-13 15:42
正则表达式——全部符号解释（详解）_正则匹配所有字符意思-CSDN博客 https://blog.csdn.net/weixin_42167 ...

=REGEXP(C3:C4,"\d+\ 米|\d+\ 千米")

ning84 · 发表于 2024-10-15 17:23

学习学习，再学习。

Function RegTimeKm(Rng As Range)
Dim Str
Str = Rng(, 2)
Dim Arr(2)
Dim MatColl As MatchCollection
Dim TimeReg As New RegExp
TimeReg.Pattern = "\d{2}:\d{2}"
Set MatColl = TimeReg.Execute(Str)
Arr(0) = MatColl.Item(0)
Dim KmReg As New RegExp
Dim oVal As Validation
KmReg.Pattern = "\d+\.\d+米|\d+\.\d+千米|\d+千米|\d+米"
Set MatColl = KmReg.Execute(Replace(Str, " ", ""))
'Stop
Str = MatColl.Item(0)
Arr(1) = MatColl.Item(0)
RegTimeKm = Arr
Dim Reg As New RegExp
Str = Rng(, 1)
Reg.Pattern = "^\d?s千米"
Reg.Pattern = "\D+"
Set MatColl = Reg.Execute(Replace(Str, " ", ""))
'Stop
Str = MatColl.Item(0)
Arr(2) = Str
RegTimeKm = Arr
End Function
Sub ll()
Dim oDate As Date, oDate1 As Date
Dim Rng As Range, Arr, Bus
With Sheets("Tmp")
Set Rng = .Cells(5, 1).CurrentRegion
oDate1 = .Cells(1, 1)
Bus = .Cells(1, 2)
End With
Dim K9Road
K9Road = K9RoadArr
Dim Sht As Worksheet
Set Sht = Sheets("K9")
With Sht
.Activate
.Cells.Clear
.Cells.Font.Size = 9
End With
Dim ii, Cc, Rr
Rr = 10
Cc = 5
For ii = 1 To Rng.Rows.Count
Arr = RegTimeKm(Rng(ii, 1))
With Sht
.Cells(Rr + ii, Cc) = Arr(2)
.Cells(Rr + ii, Cc + 1) = K9Road(1)(Rng.Rows.Count - ii + 0)
.Cells(Rr + ii, Cc + 2) = Format(oDate1, "yyyy年mm月dd日") & " " & Arr(0)
.Cells(Rr + ii, Cc + 3) = Arr(0)
.Cells(Rr + ii, Cc + 4) = Arr(1)
''
.Cells(Rr + ii, 1) = ii
.Cells(Rr + ii, 2) = Bus & "，" & Format(oDate1, "yyyy年mm月dd日") & Arr(0) & "行驶到" & K9Road(1)(Rng.Rows.Count - ii + 0) & "--" & Arr(2) & "的公交站"
End With
Next ii
End Sub

复制代码

Function K9RoadArr()
Dim StationArr, RoadArr
StationArr = Array("香洲", "南坑", "南香里", "香宁花园", "柠溪", "隧道南", "兰埔（富华里）", "白石（银石雅园）", "华发新城", "翠湾", "湖心路口", "保利香槟", "时代山湖海", "二号闸", "金湾高尔夫", "青湾", "东咀", "金岛路东", "金都大厦", "金海岸中学", "金沙湾豪庭", "斜尾", "城建总公司", "鱼弄", "中南修理厂", "月堂", "唐人街", "映月新村", "三灶车场")
RoadArr = Array("紫荆路", "紫荆路", "柠溪路", "柠溪路", "柠溪路", "迎宾南路", "九洲大道西(S366)", "九洲大道西(S366)", "九洲大道西(S366)", "九洲大道西(S366)", "九洲大道西(S366)", "金湾路(S272)", "金湾路(S272)", "金湾路(S272)", "金湾路(S272)", "金湾路(S272)", "金岛路", "金岛路", "金岛路", "金岛路", "金岛路", "金岛路", "金海岸大道东", "金海岸大道东", "金海岸大道西", "金海岸大道西", "伟民路", "映月路", "琴石路")
Dim Arr(1)
Arr(0) = StationArr
Arr(1) = RoadArr
K9RoadArr = Arr
End Function

复制代码

ggmmlol · 发表于 2024-10-16 18:27

“复杂世界里，一个就够了”
.Pattern = "\d*\.?\d+千?米"

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

[求助] 正则分离 "22:40*~3 站/10 千米"，米和千米要2个Pattern