求助，如何用Excel批量给文本文件指定时间列添加时间分隔符？

近海潜水

菜鸟请教一下懂的。有几十个文本文件，时间竖列是以 900 1001 1116这样表示的。我想用一个批处理文件，给这几十个文本文件的时间竖列加入时间分隔符 : ，改成9:00 10:01 11:16这样标准的时间格式。文本文件如果用excel打开的话，时间竖列对应表格的B列，就是第二排。一个一个文件改，我会操作，我想要一个能一次同时给几十个文件时间列添加时间分隔符:的办法。菜鸟谢谢各位高手了。

quqiyuan

vba咯，循环操作而与

近海潜水

quqiyuan 发表于 2024-6-9 17:47
vba咯，循环操作而与

是循环操作，但是怎么实现这样循环操作呢？

quqiyuan

近海潜水 发表于 2024-6-9 19:10
是循环操作，但是怎么实现这样循环操作呢？

你发几个文件上来看看咯

近海潜水

′你好，Txt格式发不了，发的是压缩了2个txt文本文件的ZiP压缩包。

3190496160

3190496160

Sub 批量修改()
Application.ScreenUpdating = False
lj = ThisWorkbook.Path & "\"
f = Dir(lj & "*.txt")
Do While f <> ""
    Workbooks.OpenText Filename:=lj & f
    With ActiveWorkbook.Worksheets(1)
        r = .Cells(Rows.Count, 1).End(xlUp).Row
        For i = 3 To r
            If .Cells(i, 1) <> "" Then
                rr = Split(.Cells(i, 1), " ")
                zd = rr(1)
                zf = Left(rr(1), 2) & ":" & Right(rr(1), 2)
                .Cells(i, 1) = Replace(.Cells(i, 1), zd, zf)
            End If
        Next i
    End With
    ActiveWorkbook.Close True
f = Dir
Loop
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160

云盘.rar (15.34 KB, 下载次数: 8)

2024-6-10 10:07 上传

点击文件名下载附件

wanghan519

文本批量处理可以了解一下sed、awk这些专门工具

1. sed -E -i 's/ [0-9]{2}/&:/' *.txt

复制代码

比如，sed命令，-E是使正则支持{2}这类写法，-i是就地修改文件
s///是对每一行进行替换，遇到空格后面的两个数字时，后面加个冒号
*.txt是对当前目录所有txt进行修改

1095582370

无需写代码