标题: 我有个很好的想法，高手们都来试试 [打印本页]
作者: jdxhyuan 时间: 2007-3-14 22:18 标题: 我有个很好的想法，高手们都来试试
───────────────────── 版务记录 ──────────────────────
执行：namejm
原标题：我有个很好的想法，高手们都来试试
说明：因标题表述过于模糊，不便于论坛的搜索和管理，请在三日内修改标题。
提示：修改标题请在当前帖的右下脚点 编辑，修改完毕之后按 编辑帖子 即可。
处罚：因刚脱离论坛新人阶段不久，暂时不予处罚；若三日之后尚未修改标题，将扣除
2点积分，以示惩罚，并由版主强制修改标题。请点击这里阅读论坛发帖规定，
以避免在今后的讨论中违规发帖。
───────────────────── 版务记录 ──────────────────────
用C:\WINDOWS\notepad，打开utf-8文件，然后Alt+F，再Alt+A，再Alt+E再选则，ANSI，再回车。完成以上操作就将，utf-8编码的文件转换成ANSI编码的文件啦，但我不知道用批处理该怎样写，我很菜，难过啊。
[ Last edited by jdxhyuan on 2007-3-20 at 09:27 AM ]
作者: 9527 时间: 2007-3-14 22:30
楼主试试type UTF-8文件>ANSI文件 的方式是否可以转换啊？如果光看你的描述传递组合键，那只能用VBS脚本完成，P处理没法实现
作者: zh159 时间: 2007-3-14 22:37
LZ的方法是得用VBS脚本完成，我以前玩过
LS的type UTF-8文件>ANSI文件方式试了，无效，用16进制茹软件查看，内容一样，type只适合type Unicode文件>ANSI文件
作者: everest79 时间: 2007-3-14 23:29
set tc="%temp%\%random%.vbs"
echo Set tc=WScript.CreateObject("WScript.Shell")>%tc%
echo tc.Run "notepad.exe %~f1">>%tc%
echo tc.AppActivate "%~nx1 - 记事本">>%tc%
echo WScript.Sleep 500 >>%tc%
echo tc.SendKeys "%%FA%~n1bak.txt%%EA%%SY%%{F4}N">>%tc%
cscript %tc%
pause
这样子的echo Set tc=WScript.CreateObject("WScript.Shell")>%tc%
echo tc.Run "notepad.exe %~f1">>%tc%
echo tc.AppActivate "%~nx1 - 记事本">>%tc%
echo WScript.Sleep 500 >>%tc%
echo tc.SendKeys "%%FA%~n1bak.txt%%EA%%SY%%{F4}N">>%tc%
cscript %tc%
pause
[ Last edited by everest79 on 2007-3-15 at 05:35 AM ]
作者: jdxhyuan 时间: 2007-3-15 04:19
| Quote: | |
|
遇到救星啦，我要转的文件加在什么地方呢？
作者: jdxhyuan 时间: 2007-3-15 04:24
大家帮帮忙，问题快要解决啦
作者: zh159 时间: 2007-3-15 05:33
4 楼的方法是“批处理.bat 要处理的文件”，把要处理的文件名作为%1参数
不过选择编码方式有误，键盘选择编码方式只能选择头位字母，改为：
set tc="%temp%\%random%.vbs"
echo Set tc=WScript.CreateObject("WScript.Shell")>%tc%
echo tc.Run "notepad.exe 文件名.txt">>%tc%
echo tc.AppActivate "文件名 - 记事本">>%tc%
echo WScript.Sleep 500 >>%tc%
echo tc.SendKeys "%%FA文件名bak.txt%%EUUU%%SY%%{F4}N">>%tc%
cscript %tc%
pause
UTF改为三个U就行了（发送三次U依次选择到UTF-8）echo Set tc=WScript.CreateObject("WScript.Shell")>%tc%
echo tc.Run "notepad.exe 文件名.txt">>%tc%
echo tc.AppActivate "文件名 - 记事本">>%tc%
echo WScript.Sleep 500 >>%tc%
echo tc.SendKeys "%%FA文件名bak.txt%%EUUU%%SY%%{F4}N">>%tc%
cscript %tc%
pause
PS：“echo tc.AppActivate "文件名 - 记事本">>%tc%”这句在设置系统显示文件扩展名的时候改为“echo tc.AppActivate "文件名.txt - 记事本">>%tc%”，
作者: everest79 时间: 2007-3-15 11:38
呵呵，我发现我少了好多耐心，其本上都不测试，检讨
%1的参数我是想拖放来着
作者: jdxhyuan 时间: 2007-3-15 22:21
现在问题是怎样才能调用多个无规则的文件名来做想同的处理呢，而这段代码的文件名要求要输入。
set tc="%temp%\%random%.vbs"
echo Set tc=WScript.CreateObject("WScript.Shell")>%tc%
echo tc.Run "notepad.exe 文件名.txt">>%tc%
echo tc.AppActivate "文件名 - 记事本">>%tc%
echo WScript.Sleep 500 >>%tc%
echo tc.SendKeys "%%FA文件名bak.txt%%EUUU%%SY%%{F4}N">>%tc%
cscript %tc%
pause
用echo Set tc=WScript.CreateObject("WScript.Shell")>%tc%
echo tc.Run "notepad.exe 文件名.txt">>%tc%
echo tc.AppActivate "文件名 - 记事本">>%tc%
echo WScript.Sleep 500 >>%tc%
echo tc.SendKeys "%%FA文件名bak.txt%%EUUU%%SY%%{F4}N">>%tc%
cscript %tc%
pause
for /f "delims=" %%i in ('dir /b /a-d *.txt') do (start notepad "%%i")
它们相互怎样调用[ Last edited by jdxhyuan on 2007-3-15 at 09:26 AM ]
作者: everest79 时间: 2007-3-16 00:01
[quote]Originally posted by jdxhyuan at 2007-3-15 09:21 AM:
现在问题是怎样才能调用多个无规则的文件名来做想同的处理呢，而这段代码的文件名要求要输入。
set tc="%temp%\%random%.vbs"
echo Set tc=WSc ... [/quote]
[code]
for /f "delims=" %%i in ('dir /b /a-d *.txt') do (call :ansi "%%~dpnxi")
goto :eof
:ansi
set tc="%temp%\%random%.vbs"
echo ct=WScript.Arguments.Item(0)
echo Set tc=WScript.CreateObject("WScript.Shell")>%tc%
echo tc.Run "notepad.exe %~f1">>%tc%
echo tc.AppActivate "%~nx1 - 记事本">>%tc%
echo WScript.Sleep 500 >>%tc%
echo tc.SendKeys "%%FA%~n1bak.txt%%EA%%SY%%{F4}N">>%tc%
cscript %tc%
goto :eof
没改完，嘿嘿echo Set tc=WSc ... [/quote]
[code]
for /f "delims=" %%i in ('dir /b /a-d *.txt') do (call :ansi "%%~dpnxi")
goto :eof
:ansi
set tc="%temp%\%random%.vbs"
echo ct=WScript.Arguments.Item(0)
echo Set tc=WScript.CreateObject("WScript.Shell")>%tc%
echo tc.Run "notepad.exe %~f1">>%tc%
echo tc.AppActivate "%~nx1 - 记事本">>%tc%
echo WScript.Sleep 500 >>%tc%
echo tc.SendKeys "%%FA%~n1bak.txt%%EA%%SY%%{F4}N">>%tc%
cscript %tc%
goto :eof