用VBS给文本文件添加行号

wotian

来源:安全中国

想给个脚本文件添加行号，用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.FileSystemObject\")
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

简单吧～