作者HZYSoft (PCMan 2004)
看板EZsoft
标题Re: [问题] 有没有将文章倒序过来的软体?
时间Fri Apr 6 01:46:01 2007
VBScript 又来了,请善用 Windows 系统内建功能
将以下程式码贴入记事本,储存档案,档案类型选 所有档案
档名输入 article_rev.vbs 存档即可
---------------------------------------------------------------------
fn = WScript.Arguments(0)
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile( fn )
Do While Not f.AtEndOfStream
If s <> Empty Then s = Chr(13) + Chr(10) + s
s = f.ReadLine() + s
Loop
f.Close()
Set f = fs.CreateTextFile( fn + "_reverse.txt" )
f.Write( s )
f.Close()
---------------------------------------------------------------------
将你要反转的文字档拖曳,拉到 article_rev.vbs 的图示上,放开
然後你就会看到在同资料夹下有个输出档案
档名和原本的一样,只是後面多了_reverse
--
个人网页:
http://pcman.sayya.org/ 上面有自画像及各种联络资讯
PCMan 全系列 BBS 连线软体
http://pcman.ptt.cc/ http://pcmanx.csie.net/
新酷音输入法 for Windows
http://chewing.csie.net/
IE Tab Firefox plugin/extension
http://ietab.mozdev.org/
PCMan 油画作品集:
http://www.wretch.cc/album/album.php?id=pcman&book=1
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 163.29.223.38
1F:→ HZYSoft:这次这个没办法简单完成了,还是需要 11 行 XD 04/06 01:46
2F:→ HZYSoft:免下载,免安装,使用系统内建功能,万岁! 04/06 01:48
3F:→ sky008888:pcman 亲自出马了 04/06 02:03
4F:→ HZYSoft:茶余饭後写写小程式有益身心健康 04/06 02:05
5F:推 imrt:强!不知道 PCman 大大有没有要开班授课教 wscript? 04/06 02:08
6F:推 HZYSoft:问题是我根本没有学过,都是要用随时 Google 04/06 02:10
7F:推 ateclean:喔~~~推一个XD 04/06 04:35
8F:推 PcGrek:不知pcman是在linux还是windows下写的?...(纯粹好奇) 04/06 08:55
9F:→ mosquito520:windows底下吧...linux不支援VBS不是吗? 04/06 10:26
10F:推 LiloHuang:perl -e "print reverse <>" Input.txt > Output.txt 04/06 12:02
11F:→ LiloHuang:如果有人用Linux或有灌Perl的 这种反转问题上面一行搞定 04/06 12:03
12F:推 ckclark:tac Input.txt > Output.txt 也是一行搞定 04/06 12:50
13F:推 dancequiet:太厉害了!虽然我很少用到这种功能,但是马上出现小软 04/06 15:46
14F:→ dancequiet:体,真是太惊人了! 04/06 15:47
15F:推 erspicu:这任务如果是以perl来写,三行达成,只是还需额外安装perl 04/06 16:05
16F:推 sonyu:有tac就用tac啦XD 04/06 16:37
17F:推 LiloHuang:cat tac 囧rz 可惜Win32没内建这麽方便的指令XDD 04/06 17:15
18F:推 huge:反猫好呀 XD 04/06 22:29
19F:推 HZYSoft:Perl 很强,问题就是大多数 Windows 电脑没装 orz 04/07 00:06
20F:推 realpiyo:刚试了一下,结果发现没办法转 utf-8 的 .txt 档 ~"~ 04/07 02:52