中国DOS联盟

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

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

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

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 我有个很好的想法，高手们都来试试

作者:

标题: 我有个很好的想法，高手们都来试试

上一主题 | 下一主题

jdxhyuan
初级用户

积分 26
发帖 11
注册 2007-3-9
状态离线

『楼主』: 我有个很好的想法，高手们都来试试使用 LLM 解释/回答一下

─────────────────────　版务记录　──────────────────────
执行：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 ]

2007-3-14 22:18

查看资料发送邮件发短消息网志

编辑帖子回复引用回复

9527
银牌会员

努力做坏人

积分 1185
发帖 438
注册 2006-8-28
来自北京
状态离线

『第 2 楼』: 使用 LLM 解释/回答一下

楼主试试type UTF-8文件>ANSI文件的方式是否可以转换啊？如果光看你的描述传递组合键，那只能用VBS脚本完成，P处理没法实现

我今后在论坛的目标就是做个超级坏人！！！

2007-3-14 22:30

查看资料发短消息网志 OICQ

(329429)

编辑帖子回复引用回复

zh159
金牌会员

积分 3687
发帖 1467
注册 2005-8-8
状态离线

『第 3 楼』: 使用 LLM 解释/回答一下

LZ的方法是得用VBS脚本完成，我以前玩过

LS的type UTF-8文件>ANSI文件方式试了，无效，用16进制茹软件查看，内容一样，type只适合type Unicode文件>ANSI文件

2007-3-14 22:37

查看资料发短消息网志

编辑帖子回复引用回复

everest79
金牌会员

一叶枝头，万树皆春

积分 2564
发帖 1127
注册 2006-12-25
状态离线

『第 4 楼』: 使用 LLM 解释/回答一下



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

这样子的

Last edited by everest79 on 2007-3-15 at 05:35 AM ]

2007-3-14 23:29

查看资料发短消息网志

编辑帖子回复引用回复

jdxhyuan
初级用户

积分 26
发帖 11
注册 2007-3-9
状态离线

『第 5 楼』: 使用 LLM 解释/回答一下

Originally posted by everest79 at 2007-3-14 10:29 AM:



set tc="%temp%\%random%.vbs"

echo Set tc=WScript.CreateObject("WScript.Shell")>%tc%

echo tc.Run "notepad.exe %~f1">>%tc%

echo tc.AppActivate " ...



遇到救星啦，我要转的文件加在什么地方呢？

2007-3-15 04:19

查看资料发送邮件发短消息网志

编辑帖子回复引用回复

jdxhyuan
初级用户

积分 26
发帖 11
注册 2007-3-9
状态离线

『第 6 楼』: 使用 LLM 解释/回答一下

大家帮帮忙，问题快要解决啦

2007-3-15 04:24

查看资料发送邮件发短消息网志

编辑帖子回复引用回复

zh159
金牌会员

积分 3687
发帖 1467
注册 2005-8-8
状态离线

『第 7 楼』: 使用 LLM 解释/回答一下

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）

PS：“echo tc.AppActivate "文件名 - 记事本">>%tc%”这句在设置系统显示文件扩展名的时候改为“echo tc.AppActivate "文件名.txt - 记事本">>%tc%”，

2007-3-15 05:33

查看资料发短消息网志

编辑帖子回复引用回复

everest79
金牌会员

一叶枝头，万树皆春

积分 2564
发帖 1127
注册 2006-12-25
状态离线

『第 8 楼』: 使用 LLM 解释/回答一下

呵呵，我发现我少了好多耐心，其本上都不测试，检讨
%1的参数我是想拖放来着

2007-3-15 11:38

查看资料发短消息网志

编辑帖子回复引用回复

jdxhyuan
初级用户

积分 26
发帖 11
注册 2007-3-9
状态离线

『第 9 楼』: 使用 LLM 解释/回答一下

现在问题是怎样才能调用多个无规则的文件名来做想同的处理呢，而这段代码的文件名要求要输入。

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

用

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 ]

2007-3-15 22:21

查看资料发送邮件发短消息网志

编辑帖子回复引用回复

everest79
金牌会员

一叶枝头，万树皆春

积分 2564
发帖 1127
注册 2006-12-25
状态离线

『第 10 楼』: 使用 LLM 解释/回答一下

Originally posted by jdxhyuan at 2007-3-15 09:21 AM:
现在问题是怎样才能调用多个无规则的文件名来做想同的处理呢，而这段代码的文件名要求要输入。
set tc="%temp%\%random%.vbs"

echo Set tc=WSc ... 







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





没改完，嘿嘿

2007-3-16 00:01

查看资料发短消息网志

编辑帖子回复引用回复

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

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

论坛跳转: