VBA批量替换TXT或.LOG文件内容

最新推荐文章于 2024-01-15 00:37:43 发布

qq_44390640

最新推荐文章于 2024-01-15 00:37:43 发布

阅读量2.5k

点赞数 1

CC 4.0 BY-SA版权

分类专栏： VBA

本文链接：https://blog.csdn.net/qq_44390640/article/details/104023558

VBA 专栏收录该内容

40 篇文章

订阅专栏

本文介绍了一个使用VBA编写的脚本，该脚本能够批量读取指定目录下的所有.sql文件，并将其中的AND HOUR_ID BETWEEN 15 AND 18字符串替换为AND HOUR_ID BETWEEN 10 AND 10。此脚本适用于需要快速修改大量SQL文件的场景。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Sub 替换()

Dim tmp As String
Dim file As String

file = Dir(ThisWorkbook.Path + "\*.sql")
Do While file <> ""
  Open ThisWorkbook.Path + "\" + file For Binary As #1
    str= String(LOF(1), vbNullChar)
    Get #1, , str
    tmp = Replace(str, "AND HOUR_ID BETWEEN 15 AND 18", "AND HOUR_ID BETWEEN 10 AND 10")
   
  Close #1
  Open ThisWorkbook.Path + "\" + file For Output As #1
    Print #1, str
  Close #1
  file = Dir
Loop

End Sub