Question

如何用VBS批量修改一个文件夹里的文档内容

例如 123456
123456
123456
123456
把第一行里的3换成9最后一行的4换成8 有N行
在线求大神
文件夹里有多个文档都要修改
然后把所有的没有改的 3 和4全部删除
补充11111111111
1111111111111
123456
123456
123456
123456
2222222222
2222222222
3和4都不在开头和结尾

Answer 1

用的 bat ，保存为 bat 文件运行。只改动所有 所在文件夹内的 txt文件。

@echo off
setlocal enabledelayedexpansion
for /f "tokens=*" %%i in ('dir /a-d /b *.txt') do (set m=0
for /f "delims=" %%a in ('find /c /v "" ^<"%%i"') do set n=%%a
echo 0>tempf>nul
for /f "delims=" %%j in (%%i) do (set /a m+=1
set str=%%j
if !m!==1 set str=!str:3=9!
if !m! gtr 1 (if !m! lss !n! (set str=!str:3=!
set str=!str:4=!))
if !m!==!n! set str=!str:4=8!
if not "!str!"=="" echo !str!>>tempf)
move /y tempf %%i)