中国DOS联盟论坛

中国DOS联盟

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

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

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
中国DOS联盟论坛 » DOS批处理 & 脚本技术(批处理室) » 一句话还原从QQ中复制下来的代码
« [1] [2] »
作者:
标题: 一句话还原从QQ中复制下来的代码 上一主题 | 下一主题
namejm
荣誉版主

batch fan


积分 5226
发帖 1737
注册 2006-3-10
来自 成都
状态 离线
『楼 主』:  一句话还原从QQ中复制下来的代码

  经常在群里讨论批处理,有些代码是直接发出来的,复制下来保存到文件中去,发现所有行的内容都挤在同一行上,有回车的地方被讨厌的小黑块占据,有多少回车就有多少黑块,想测试代码,一般得手工断行,十分麻烦,难道我们就只能忍受这样的折磨吗?

  今天在群里,被别人问起如何用批处理来解决这个问题,在测试过程中,无意间发现了一条十分管用的语句,发出来和大家共享:
@echo off
more test.txt>test.cmd
  使用方法:把这个代码保存为非test.cmd的批处理文件,把从QQ上复制下来的代码保存在test.txt文件中,运行以上代码,然后,打开test.cmd查看,发现了什么?呵呵,代码是不是被还原了?

  推而广之,只要是从QQ上复制下来的内容,都可以用这个代码来还原。

  别问我是什么原理,因为,我也不知道^_^,但是,有篇文章值得参考,请看:[资料]如何提取不同行上的内容

   此帖被 +10 点积分         点击查看详情   
评分人:【 jmz573515 分数: +8  时间:2007-3-10 10:42
评分人:【 huzixuan 分数: +2  时间:2007-3-10 20:19




尺有所短,寸有所长,学好CMD没商量。
考虑问题复杂化,解决问题简洁化。
2007-3-10 09:44
查看资料  发短消息 网志   编辑帖子  回复  引用回复
slore
铂金会员





积分 5212
发帖 2478
注册 2007-2-8
状态 离线
『第 2 楼』:  

用ue打开就可以了嘛。或者保存成rtf文件里复制下……再用txt看就没了。

2007-3-10 09:48
查看资料  发短消息 网志   编辑帖子  回复  引用回复
zh159
金牌会员




积分 3687
发帖 1467
注册 2005-8-8
状态 离线
『第 3 楼』:  

用写字板打开txt文件直接保存一次就OK了

2007-3-10 09:56
查看资料  发短消息 网志   编辑帖子  回复  引用回复
jmz573515
银牌会员




积分 1212
发帖 464
注册 2006-12-13
状态 离线
『第 4 楼』:  

不错的东东,顶上去!
解决不少实际问题...

2007-3-10 10:42
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
electronixtar
铂金会员





积分 7493
发帖 2672
注册 2005-9-2
状态 离线
『第 5 楼』:  

因为Windows 的回车是  0x0D0A 而QQ里只用了 0x0D 。more会自动辨认编码和回车。




C:\>BLOG http://initiative.yo2.cn/
C:\>hh.exe ntcmds.chm::/ntcmds.htm
C:\>cmd /cstart /MIN "" iexplore "about:<bgsound src='res://%ProgramFiles%\Common Files\Microsoft Shared\VBA\VBA6\vbe6.dll/10/5432'>"
2007-3-10 10:59
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
jmz573515
银牌会员




积分 1212
发帖 464
注册 2006-12-13
状态 离线
『第 6 楼』:  

想问一下electronixtar,在VBS里怎么表示QQ里的 0x0D ?

2007-3-10 11:00
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
electronixtar
铂金会员





积分 7493
发帖 2672
注册 2005-9-2
状态 离线
『第 7 楼』:  

chr(13)




C:\>BLOG http://initiative.yo2.cn/
C:\>hh.exe ntcmds.chm::/ntcmds.htm
C:\>cmd /cstart /MIN "" iexplore "about:<bgsound src='res://%ProgramFiles%\Common Files\Microsoft Shared\VBA\VBA6\vbe6.dll/10/5432'>"
2007-3-10 11:04
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
baomaboy
银牌会员





积分 1513
发帖 554
注册 2005-12-30
状态 离线
『第 8 楼』:  

通常回车和换行是连在一起用的。
如果能看到黑块说明只有回车符而无换行符,
其实只要将‘回车符’替换为‘回车+换行’就可以了。
将下面的代码保存为vbs文件,将文件拖到这个vbs文件上生成的新文件就没黑块了
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Args = WScript.Arguments
Set ReadFile = FSO.OpenTextFile(Args(0), 1)
Str=ReadFile.ReadAll
ReadFile.Close
Str=Replace(Str,chr(13),chr(13)&chr(10))
Set NewFile = FSO.CreateTextFile(FSO.BuildPath(FSO.GetParentFolderName(Args(0)),"newfile.txt"), True)
NewFile.Write Str
NewFile.Close
Set FSO = Nothing
代码中的newfile.txt是你要生成的新文件名!

2007-3-10 11:04
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
baomaboy
银牌会员





积分 1513
发帖 554
注册 2005-12-30
状态 离线
『第 9 楼』:  

呵呵 我这里网速太慢 刷了好久 electronixtar兄已有说明了,学习了^_^

[ Last edited by baomaboy on 2007-3-10 at 11:11 AM ]

2007-3-10 11:09
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
jmz573515
银牌会员




积分 1212
发帖 464
注册 2006-12-13
状态 离线
『第 10 楼』:  

replace("内容",chr(13),vbcrlf)为什么不能替换呢?

2007-3-10 11:09
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
jmz573515
银牌会员




积分 1212
发帖 464
注册 2006-12-13
状态 离线
『第 11 楼』:  

8楼的我试了,还是不行....

2007-3-10 11:14
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
csx163
初级用户




积分 97
发帖 45
注册 2007-1-31
状态 离线
『第 12 楼』:  

UNIX系统回车编码和WINDOWS不太一样

2007-3-10 12:17
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
csx163
初级用户




积分 97
发帖 45
注册 2007-1-31
状态 离线
『第 13 楼』:  

那么请问下 我有一个文件夹的文本文件,该如何批量转换为WINDOWS格式呢?

2007-3-10 12:20
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
anqing
高级用户




积分 859
发帖 413
注册 2006-8-14
状态 离线
『第 14 楼』:  

不错啊

2007-3-10 22:22
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
yahooboby
初级用户




积分 111
发帖 3
注册 2005-4-14
状态 离线
『第 15 楼』:  

用替换也行..换回回车OK

2007-3-11 00:05
查看资料  发短消息 网志   编辑帖子  回复  引用回复
« [1] [2] »
请注意:您目前尚未注册或登录,请您注册登录以使用论坛的各项功能,例如发表和回复帖子等。


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



论坛跳转: