// 删除旧文檔 
    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