
CODE: [Copy to clipboard]Dim regEx, fso, f, str, fn
fn="abc.txt"
Set regEx = New RegExp
regEx.Pattern = "\D"
regEx.IgnoreCase = True
regEx.Global = True
set fso=createobject("scripting.filesystemobject")
set f=fso.opentextfile(fn,1)
do while f.atendofstream <> true
str=str®Ex.replace(f.readline,"")&vbCrLf
loop
f.close
set f=fso.opentextfile(fn,2)
f.write str
f.close
msgbox "修改完成"
set f=nothing
set fso=nothing
set regex=nothing
CODE: [Copy to clipboard]@echo off
setlocal enabledelayedexpansion
for /f %%a in (C:\abc.txt) do (
set row=%%a
echo !row:~-3!
)
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |