批处理怎样截取、替换指定字符？

还好家里 · 发表于 2012-9-5 03:13:06

一、截取A与B之间的字符

D:\A
下有很多asp文件，每个文件都含


这里的字符不规则
'欢迎访问官网www.baidu.com

<%
程序正文
%>

'邮箱163@163.com
这里字符不规则


现在我只要
<%
程序正文
%>

也就是把
含 www.baidu.com 之前
含 '邮箱163@163.com 之后
的东西删除掉
求帮忙写批处理

二、还有一个批处理问题，就是把文件名替换相应文件中的特定字符有没有办法？
例如:
001.txt文件中“很漂亮”替换成“txt001”
002.txt文件中“很漂亮”替换成“txt002”
003.txt文件中“很漂亮”替换成“txt003”
004.txt文件中“很漂亮”替换成“txt004”
…… ……
或者
001.txt文件中“很漂亮”替换成“A1”
002.txt文件中“很漂亮”替换成“A2”
002.txt文件中“很漂亮”替换成“A3”
这样按顺序替换

运行几批处理个完成也行
每个文件中只含有单独一个“很漂亮”

forfiles · 发表于 2012-9-5 07:45:24

sed -i "0,/www.baidu.com/d; /'邮箱163@163.com/,$d" test.asp

复制代码

forfiles · 发表于 2012-9-5 07:47:26

@echo off
for %%a in (*.txt) do (
sed -i "s/很漂亮/txt%%~na/" "%%a"
)

复制代码

还好家里 · 发表于 2012-9-5 09:32:26

回复 2# forfiles

通过测试不行啊

还好家里 · 发表于 2012-9-5 09:33:27

回复 3# forfiles

通过测试也不行啊

forfiles · 发表于 2012-9-5 15:16:00

回复 5# 还好家里

报错信息是什么？

还好家里 · 发表于 2012-9-5 21:50:54

回复 6# forfiles

不报错，字符原封不动

forfiles · 发表于 2012-9-6 07:07:14

回复 7# 还好家里

把@echo off删掉，看看执行过程。

apang · 发表于 2012-9-9 14:15:29

开始学习vbs，权当练习。。。

sFolder = "D:\A" '源文件夹
tFolder = "D:\B" '目标文件夹
Set FSO = CreateObject("Scripting.FileSystemObject")
If FSO.FolderExists(tFolder) = False Then
FSO.CreateFolder(tFolder) '目标文件夹不存在则创建
End if
For Each File in FSO.GetFolder(sFolder).Files
If LCase(FSO.GetExtensionName(File)) = "asp" Then
'判断是否为asp文件
Set sFile = FSO.OpenTextFile(File,1)
'打开源文件
Str = ""
Do Until sFile.AtEndOfStream
'循环读取每一行
rLine = sFile.ReadLine
If Left(rLine,2) = "<%" Then Flag = "1"
If Flag = "1" Then Str = Str & rLine & vbCrLf
If Left(rLine,2) = "%>" Then Flag = ""
Loop
sFile.Close
tName = FSO.GetFile(File).Name
FSO.CreateTextFile(tFolder&""&tName,2).Write Str
'写入目标文件
End If
Next
MsgBox "OK"

复制代码

sFolder = "D:\A"
tFolder = "D:\B"
Set FSO = CreateObject("Scripting.FileSystemObject")
If FSO.FolderExists(tFolder) = False Then
FSO.CreateFolder(tFolder)
End if
For Each File in FSO.GetFolder(sFolder).Files
If LCase(FSO.GetExtensionName(File)) = "txt" Then
Set sFile = FSO.OpenTextFile(File,1)
sName = FSO.GetFile(File).Name
Str = Mid(sName,1,Len(sName)-4)
Str = Replace(sFile.ReadAll,"很漂亮","txt"&Str)
sFile.Close
FSO.CreateTextFile(tFolder&""&sName,2).Write Str
End If
Next
MsgBox "OK"

复制代码

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

[文本处理] 批处理怎样截取、替换指定字符？