如何用正则表达式进行分列

wenxueshan

有一批照片提取的文件名带有日期地点和格式后缀，像2023.1.1天津1日游.jpg之类，如何用正则表达式分列并去掉文件名的后缀。请高手指教，谢谢！

liulang0808

楼主结合附件内容详细描述下，处理完的结果是怎样的

^星^

数据这么规律，哪需要用正则啊

ykcbf1100

用正则分列。。。

ykcbf1100

。。。。。。

wenxueshan

不好意思，可能是我没说明白，我需要分列的，分出日期列和名称列 ，但是不知道怎么把名称列的名字后缀.JPG，通过正则表达式去除

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.2.29
   
2.     Set reg = CreateObject("vbscript.regexp")
   
3.     With Sheet1
   
4.         r = .Cells(.Rows.Count, "a").End(xlUp).Row
   
5.         arr = .[a1].Resize(r, 3)
   
6.         With reg
   
7.             .Pattern = "\d{4}\.\d{1,2}\.\d{1,2}"
   
8.             For i = 1 To UBound(arr)
   
9.                 s = Replace(arr(i, 1), ".jpg", "")
   
10.                 Set mh = .Execute(s)
    
11.                 arr(i, 2) = mh(0).Value
    
12.                 arr(i, 3) = Replace(s, arr(i, 2), "")
    
13.             Next
    
14.         End With
    
15.         .[a1].Resize(r, 3) = arr
    
16.     End With
    
17. End Sub
    

复制代码

wenxueshan

不好意思，可能是我没有说明白，我需要分出两列的，一列是日期，一列是名称， .Pattern = "\d+\.\d+\.\d+|\S+"分列后，名称总是还有.JPG，如何一次性去掉？

ykcbf1100

wenxueshan 发表于 2024-2-29 14:35
不好意思，可能是我没有说明白，我需要分出两列的，一列是日期，一列是名称， .Pattern = "\d+\.\d+\.\d+|\ ...

看４楼附件啊，你怎么就看不到呢。

shiruiqiang

正则数字或者（中文+数字）