添加行号:[Script]用VBS给文本文件添加行号

来源:安全中国

想给个脚本文件添加行号用word添加可是不能复制(或者说有这功能我不会用)于是自己写个简单VBS来实现这个功能

On Error Resume Next
f=InputBox ("输入要添加行号文件名(带后缀)","添加行号脚本 BY LIYX")
If f="" Then
WScript.Quit
End If

Suffix = mid(f,instr(1,f,"."),len(f))   ’得到文件后缀

Set fso=CreateObject("Scripting.FileObject")
Set rfile=fso.OpenTextFile(f,1,True)
getline=0   ’得到文件长度
Do While Not rfile.AtEndOfStream
rfile.SkipLine
getline=getline+1
Loop
rfile.Close

Set wfile=fso.OpenTextFile("Newfile"&Suffix,2,True)
Set rfile=fso.OpenTextFile(f,1,True)
Do Until n>=getline
n=n+1
wline=n&" "&rfile.ReadLine
wfile.WriteLine wline
Loop
rfile.Close
wfile.Close
Set fso=Nothing

MsgBox "OK,生成文件Newfile"&Suffix

简单吧～

上篇文章: 木马免杀的汇编花指令窍门技巧

下篇文章: 第个花指令生成器--简单语言写不简单工具

延伸阅读