正则 将 "2024/1/1 星期一" 替换成 "2024/1/1" ，请教高手？

pchome2000

正则 将  2024/1/1 星期一|2024/1/1 星期二|2024/1/1 星期三|2024/1/1 星期四|2024/1/1 星期五|2024/1/1 星期六|2024/1/1 星期日  替换成 "2024/1/1|2024/1/1|2024/1/1|2024/1/1|2024/1/1|2024/1/1|2024/1/1|2024/1/1"

如何写，请教高手？

afan

Local $sSource = '2024/1/1 星期一|2024/1/1 星期二|2024/1/1 星期三|2024/1/1 星期四|2024/1/1 星期五|2024/1/1 星期六|2024/1/1 星期日'
;~ MsgBox(0, '源字符串', $sSource)
Local $sSRERe = StringRegExpReplace($sSource, '\h+星期[^\|]+', '')
MsgBox(0, '替换结果', $sSRERe)

pchome2000

afan 发表于 2024-2-1 21:22
Local $sSource = '2024/1/1 星期一|2024/1/1 星期二|2024/1/1 星期三|2024/1/1 星期四|2024/1/1 星期五|20 ...

谢谢版主，非常感谢!

holley

; 原始字符串
$originalString = "2024/1/1 星期一|2024/1/1 星期二|2024/1/1 星期三|2024/1/1 星期四|2024/1/1 星期五|2024/1/1 星期六|2024/1/1 星期日"
; 正则表达式用于匹配日期后面的星期部分，并将其替换为空
$pattern = "\s星期[一二三四五六日]"
; 执行替换操作
$replacedString = StringRegExpReplace($originalString, $pattern, "")
; 输出结果
ConsoleWrite($replacedString & @CRLF)

pchome2000

holley 发表于 2024-2-2 09:00

非常感谢!