新手求助 替换文本

thdyyf

目标是把文件夹内所有txt文档里面的文本“1/”换成“1/1”，就是说在1/后面加个1，变成1/1,比如1/2变成1/12，1/11变成1/111
请老师帮忙看下，哪里出的问题，为什么不起作用。谢谢谢谢

1. Sub change()
   
2. Dim Fn$, strPath$, strFile$, strText
   
3.     Filters = "All Files(*.*),*.*,Word Documents(*.do*),*.do*," & _
   
4.             "Text Files(*.txt),*.txt,Excel Files(*.xl*), * .xl* "
   
5.     Fn = Application.GetOpenFilename(Filters, 3, "请选择文件")
   
6.     strPath = Left(Fn, InStrRev(Fn, "") - 1) '当前文件的路径
   
7.     strFile = Dir(strPath & "*.txt")    ' 读取所有文本文件。
   
8.     Do While strFile <> ""    ' 如果文件不为空 就开始循环。
   
9.     Open strFile For Input As #1  '打开找到的第一个txt文件
   
10.         Open strFile & "_New" For Append As #2   ' 创建这个文件名+_New 的临时文件，并打开它
    
11.             Do While Not EOF(1)         '循环至文件结尾
    
12.                DoEvents                        '用于大量计算 鼠标卡住
    
13.                 Line Input #1, strText     '读取这个文件的每一行到变量strText
    
14.                 If InStr(strText, "1/") > 0 Then  '如果存在“1/”这个关键字
    
15.                     Print #2, strText & "1"      '在后面加1
    
16.                  Else
    
17.                     Print #2, strText                    '否则输出原来的内容
    
18.                 End If
    
19.             Loop
    
20.          Close #2
    
21.      Close #1
    
22.      Kill strFile                                       '删除原文件
    
23.      Name strFile & "_New" As strFile   '重命名中间临时文件为原文件名
    
24.         strFile = Dir             ' 继续查找下一个文件。
    
25.     Loop
    
26. End Sub

复制代码

longwin

主要问题：
少了一个"/”,原来do循环里面的都没有运行

蓝桥玄霜

把strPath = Left(Fn, InStrRev(Fn, "\") - 1)改为
strPath = Left(Fn, InStrRev(Fn, "\") )

longwin

第二个问题：

thdyyf

longwin 发表于 2024-10-6 13:38
主要问题：
少了一个"/”,原来do循环里面的都没有运行

谢谢，还是有点问题

longwin

我这边运行没有问题，见附件。

thdyyf

longwin 发表于 2024-10-6 13:47
我这边运行没有问题，见附件。

太谢谢了，用OFFICE没问题，用wps不行

ykcbf1100

参与一下。。。

ykcbf1100

文本替换。。。

thdyyf

ykcbf1100 发表于 2024-10-6 14:00
文本替换。。。

老师，您太厉害了。我得好好消化一下