VBS脚本

删除指定行数一下内容-慎用

VBS基于Visual Basic的脚本语言， VBS的全称是：Microsoft Visual Basic Script Edition。（微软公司可视化BASIC脚本版）。其语言类似Visual Basic（VB）。直接运行时，后缀名为.vbs。 HTML引用时后缀可用.js
注意:除直接.vbs使用，和HTA引用javascript方式使用vbs外，新版本浏览器将不支持vbs语言。

Set Fso = CreateObject("Scripting.FileSystemObject") Set A = Fso.OpenTextFile( "C:\Users\Administrator\Desktop\1.txt", 1, True) N = 2 '这个2表示第2行以下 Do Until A.AtEndOfStream StrLine = A.ReadLine StrNew = StrNew &StrLine &vbCrLf If A.Line-1 => N Then Exit Do End If Loop Set B = Fso.OpenTextFile("C:\Users\Administrator\Desktop\1.txt", 2, True) B.Write StrNew