中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum
DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!

中国DOS联盟论坛
现在时间是 2026-06-13 19:25
中国DOS联盟论坛 » DOS批处理 & 脚本技术(批处理室) » 如何显示每行中指定字符!
楼 主 如何显示每行中指定字符! 发表于 2008-03-21 15:18 ·  中国 安徽 合肥 电信
新手上路
积分 4
发帖 1
注册 2008-03-11 16:48
UID 112644
性别 男
状态 离线
abc.txt内容如下:
aaa123
bbb234
ccc345
ddd456

编辑批处理得到如下内容:
123
234
345
456
2 发表于 2008-03-21 15:41 ·  中国 北京 华为云
银牌会员
★★★
积分 1,436
发帖 739
注册 2007-10-11 17:44
UID 99469
性别 男
状态 离线
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&regEx.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
3 发表于 2008-03-21 15:45 ·  中国 上海 联通
版主
★★★★★
积分 9,023
发帖 5,017
注册 2007-05-31 19:39
UID 89899
性别 男
状态 离线
@echo off
setlocal enabledelayedexpansion
for /f %%a in (C:\abc.txt) do (
set row=%%a
echo !row:~-3!
)
论坛跳转: