这段源码作用是读取指定行文本!!希望对需要的朋友有点帮助!!
Function delsc(文本路径, 指定行数)
//功能: 读取指定行文本
//参数: 字符串型,需要读取的文本路径
//参数2: 整数型,需要读取的行数
//返回值: 读取到的文本错误行返回空值
Dim txt, txtarr, Delsc
txt = Plugin.File.ReadFileEx(文本路径)
txtarr = Split(txt, "|")
Delsc = Plugin.File.DeleteFile(文本路径)
Delay 100
For i = 0 To UBound(txtarr) - 3
If i <> 指定行数 - 1 Then
Call Plugin.File.WriteFileEx(文本路径, txtarr(i))
End If
Next
Delay 500
delsc = Plugin.File.ReadFileEx(文本路径)
End Function