中国DOS联盟

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

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

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 如何显示每行中指定字符!

wahagogogo
新手上路

积分 4
发帖 1
注册 2008-3-11
状态离线

『楼主』: 如何显示每行中指定字符!

abc.txt内容如下:
aaa123
bbb234
ccc345
ddd456

编辑批处理得到如下内容:
123
234
345
456

2008-3-21 15:18

abcd
银牌会员

积分 1436
发帖 739
注册 2007-10-11
状态离线

『第 2 楼』:

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

2008-3-21 15:41

(470237592)

HAT
版主

积分 9023
发帖 5017
注册 2007-5-31
状态离线

『第 3 楼』:

@echo off

setlocal enabledelayedexpansion

for /f %%a in (C:\abc.txt) do (

  set row=%%a

  echo !row:~-3!

)

2008-3-21 15:45

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: