bat将小写的!替换成大写的！

[wzqing]

仅限使用bat文件替换记事本里的所有小写的!号替换成大写的！
因为经常要替换来替换去的，麻烦帮忙写2个批处理文件。
帮我直接写好~我对这个不会，麻烦了
1、替换（!替换成！）
2、替换回来(！替换!)
记事本里的数据

TB1iaCGIFXXXXbJXVXXXXXXXXXX_!!0-item_pic.jpg
T1mprkXiXnXXa9rMU9_073508.jpg
68290559/TB2lOXUtXXXXXXZXXXXXXXXXXXX_!!68290559.jpg
TB1J1NYKXXXXXcHXVXXYXGcGpXX_M2.SS2
TB1XFviKVXXXXXIXFXXXXXXXXXX_!!0-item_pic.jpg
TB1bM0.HpXXXXcYXpXXXXXXXXXX_!!0-item_pic.jpg
12530055/TB2kym2tXXXXXc2XXXXXXXXXXXX_!!12530055.jpg
TB2yPkHspXXXXXUXXXXXXXXXXXX_!!80564092.jpg
TB1Qs52HpXXXXboXVXXXXXXXXXX_!!0-item_pic.jpg
TB1cqcXIVXXXXcfaXXXXXXXXXXX_!!0-item_pic.jpg
TB1dFC4JVXXXXaTXXXXXXXXXXXX_!!0-item_pic.jpg
1615368216/TB2NnYitFXXXXaiXXXXXXXXXXXX_!!1615368216.jpg
TB1h1EAJFXXXXaJXVXXXXXXXXXX_!!0-item_pic.jpg
TB1sMuCHFXXXXXvapXXXXXXXXXX_!!0-item_pic.jpg
19083020044279599/T15HcqXnpXXXXXXXXX_!!0-item_pic.jpg
T1h3NmFllfXXXXXXXX_!!0-item_pic.jpg
2490132177/TB2YkhMkFXXXXXaXXXXXXXXXXXX_!!2490132177.jpg
i1/2490132177/TB2z7NjkFXXXXasXpXXXXXXXXXX_!!2490132177.jpg
2490132177/TB2xxNekFXXXXboXpXXXXXXXXXX_!!2490132177.jpg
TB1ldbZJpXXXXbrXFXXXXXXXXXX_!!0-item_pic.jpg
i1/TB1yed8FVXXXXa6XFXXXXXXXXXX_!!0-item_pic.jpg
TB18z8XFVXXXXXdaXXXXXXXXXXX_!!0-item_pic.jpg
TB1fXYHHFXXXXa6apXXYXGcGpXX_M2.SS2
2601383551/TB2cjw1qFXXXXbvXXXXXXXXXXXX_!!2601383551.jpg
TB108JDFVXXXXX2aXXXXXXXXXXX_!!0-item_pic.jpg
TB1MClEFVXXXXavXFXXXXXXXXXX_!!0-item_pic.jpg
T1VvAZFX0bXXXXXXXX_!!0-item_pic.jpg
TB18z8XFVXXXXXdaXXXXXXXXXXX_!!0-item_pic.jpg
i1/294450271/TB2XWjnoFXXXXbZXpXXXXXXXXXX_!!294450271.jpg
i1/TB1yed8FVXXXXa6XFXXXXXXXXXX_!!0-item_pic.jpg

[wzqing]

没人么

[huhiha]

你会用Notepad++么，比bat简单。
按Ctrl+F出来查找，点第三个选项，如下图：

Directory就是目录，那个目录下的所有文件都会执行替换。当然你可以通过filter指定特定类型的文件，比如“*.txt”。
如果不会再问我。

最新版免安装版：https://fossies.org/windows/misc/notepad-plus-plus-6.9.2.zip
（你也可以去官网下，但官网网速太慢）

[巴士上的邂逅]

可以写个小程序

[wzqing]

只将小写的!号换成大写的！就可以了，因为我BAT里还有好多其他替换了的内容

[X-i-n]

用VBS吧

' 英文感叹号替换成中文
dim filename,fso,fsoNew,fsoOld
filename="D:\priv\aaa.txt" '这儿是要操作的文件名，修改完会保存成 aaa.new.txt
filenew=replace(filename,".txt",".tochn.txt")
Set fso = createobject("Scripting.FileSystemObject")
if fso.fileexists(filenew) then fso.deletefile filenew,true
set fsoNew =fso.opentextfile(filenew,8,true)
set fsoOld =fso.opentextfile(filename,1)
do until fsoOld.atendofstream
    strLine = fsoOld.readline
    fsoNew.writeline(replace(strline,"!","！"))    
loop
fsoOld.close
fsoNew.close
msgbox "英改中完成"

' 中文感叹号替换成英文
dim filename,fso,fsoNew,fsoOld
filename="D:\priv\aaa.txt" '这儿是要操作的文件名，修改完会保存成 aaa.new.txt
filenew=replace(filename,".txt",".toeng.txt")
Set fso = createobject("Scripting.FileSystemObject")
if fso.fileexists(filenew) then fso.deletefile filenew,true
set fsoNew =fso.opentextfile(filenew,8,true)
set fsoOld =fso.opentextfile(filename,1)
do until fsoOld.atendofstream
    strLine = fsoOld.readline
    fsoNew.writeline(replace(strline,"！","!"))    
loop
fsoOld.close
fsoNew.close
msgbox "中改英完成"

[wzqing]

@Runnerchin 1、替换本文件夹下面所有的记事本，如果没有记事本，先创建一个~（有时候懒得创建，每次文件夹里也就那一个记事本） 2、能不能帮我添加几个 1）小写的!替换成大写的！ 2）删除第一行 3）每行行首添加<li> 4）每行行尾添加</li> 5）最下面增加一个长代码

<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<style>
        li{
                font-size:14px;
                float:left;
                margin:5px;
                padding-bottom:15px;
                position:relative;
        }

6）大写的！替换成小写的! 7）保存为"新建文本文档.html" 不好意思啊，因为我真是不大会~

[wzqing]

有记事本或者html文件，就替换，没有就直接生成一个html文件

[wzqing]

对了，是直接覆盖保存~~

[wzqing]

因为每次都要替换，文件不是一下创建成功的，是没做一个就要创建一个，然后再替换，我用的也是Notepad++，所以想记录一下替换的顺序，因为要替换的内容有点多，但是！号却解决不了

[huhiha]

@echo off
cd.>big.txt

for /f %%f in (%1) do (
	set s=%%f
	call :sub
)

pause>nul&exit

:sub
echo %s:!=！%>>big.txt

这是小写变大写的。你存成一个bat文件，要运行的时候，把要转换的文本文件拖到这个bat文件上就行了。

[赵4老师]

半角! 全角！

[SUNYUN758]

看看。。。。

[wzqing]

好的，谢谢，英改中，改好了，就是中改英的时候，出了点错，，尖括号跟感叹号一起改，就报错，，郁闷，算了，我用notpadd++ 做了中改英的一个宏，这样已经不错了，帮我节省了大量的时间，谢谢各位了！