// 删除旧文檔
Call Plugin.File.DeleteFolder(zhlj)
// 储存新文檔
Call Plugin.File.WriteFileEx(zhlj,txt)
//MsgBox "练完保存了"
//EndScript//存完退出
End Sub
Sub 覆盖帐号异常()
txt=""
i=0
Rem z
// 欲写入的数据
neirong= zhanghaomima(zhwz-1) & fgf & zhanghaomima(zhwz)&fgf&"帐号异常"
// 写入第几行
jihang=ii+1
If Len(txt行(i))>=1 /////3333333333
If i=jihang-1/////4
// 覆盖
txt = txt & neirong & vbCrLf
Else /////4
txt = txt & txt行(i) &vbCrLf
End If /////4
i=i+1
Goto z
Else /////3333333333
If i<jihang/////5
//If i<=jihang/////5
MessageBox "少于"&jihang&"行。关闭脚本在开!"
Plugin.Media.Beep 2000,200
EndScript
End If /////5
End If /////3333333333
// 删除旧文檔
Call Plugin.File.DeleteFolder(zhlj)
// 储存新文檔
Call Plugin.File.WriteFileEx(zhlj,txt)
//MsgBox "练完保存了"
//EndScript//存完退出
End Sub
Sub 覆盖帐号无人()
txt=""
i=0
Rem z
// 欲写入的数据
neirong= zhanghaomima(zhwz-1) & fgf & zhanghaomima(zhwz)&fgf&"帐号无人"
// 写入第几行
jihang=ii+1
If Len(txt行(i))>=1 /////3333333333
If i=jihang-1/////4
// 覆盖
txt = txt & neirong & vbCrLf
Else /////4
txt = txt & txt行(i) &vbCrLf
End If /////4
i=i+1
Goto z
Else /////3333333333
If i<jihang/////5
//If i<=jihang/////5
MessageBox "少于"&jihang&"行。关闭脚本在开启"
Plugin.Media.Beep 2000,200
EndScript
End If /////5
End If /////3333333333
// 删除旧文檔
Call Plugin.File.DeleteFolder(zhlj)
// 储存新文檔
Call Plugin.File.WriteFileEx(zhlj,txt)
//MsgBox "练完保存了"
//EndScript//存完退出
End Sub
Sub 覆盖级数不够
txt=""
i=0
Rem z
// 欲写入的数据
neirong= zhanghaomima(zhwz-1) & fgf & zhanghaomima(zhwz)&fgf&"级数不够"
// 写入第几行
jihang=ii+1
If Len(txt行(i))>=1 /////3333333333
If i=jihang-1/////4
// 覆盖
txt = txt & neirong & vbCrLf
Else /////4
txt = txt & txt行(i) &vbCrLf
End If /////4
i=i+1
Goto z
Else /////3333333333
If i<jihang/////5
//If i<=jihang/////5
MessageBox "少于"&jihang&"行。关闭脚本在开启"
Plugin.Media.Beep 2000,200