作者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