1.         注释： 覆盖
  2.         令 txt = txt & neirong & vbCrLf
  3.         (语句无法识别，可能有错误): Else /////4
  4.         令 txt = txt & txt行(i) & vbCrLf
  5.         (语句无法识别，可能有错误): End If /////4
  6.         令 i = i + 1
  7.         跳转到标记 z(子程序 覆盖帐号封号)
  8.         (语句无法识别，可能有错误): Else /////3333333333
  9.         如果 i < jihang 则
  10.             注释：///5
  11.         条件结束
  12.         注释：If i<=jihang/////5
  13.         弹出窗口 "少于" & jihang & "行.关闭脚本在开！"
  14.         Media.Beep(2000,200)
  15.         脚本停止运行
  16.         (语句无法识别，可能有错误): End If /////5
  17.         (语句无法识别，可能有错误): End If /////3333333333
  18.         注释： 删除旧文檔
  19.         调用 File.DeleteFolder(zhlj)
  20.         注释： 储存新文檔
  21.         调用 File.WriteFileEx(zhlj,txt)
  22.         注释：MsgBox "练完保存了"
  23.         注释：EndScript//存完退出
  24.     子程序结束
  25.     子程序 覆盖帐号异常()
  26.         令 txt = ""
  27.         令 i = 0
  28.         标记 z(子程序 覆盖帐号异常)
  29.         注释： 欲写入的数据
  30.         令 neirong = zhanghaomima(zhwz - 1) & fgf & zhanghaomima(zhwz) & fgf & "帐号异常"
  31.         注释： 写入第几行
  32.         令 jihang = ii + 1
  33.         如果 Len(txt行(i)) >= 1 则
  34.             注释：///3333333333
  35.         条件结束
  36.         如果 i = jihang - 1 则
  37.             注释：///4
  38.         条件结束
  39.         注释： 覆盖
  40.         令 txt = txt & neirong & vbCrLf
  41.         (语句无法识别，可能有错误): Else /////4
  42.         令 txt = txt & txt行(i) & vbCrLf
  43.         (语句无法识别，可能有错误): End If /////4
  44.         令 i = i + 1
  45.         跳转到标记 z(子程序 覆盖帐号异常)
  46.         (语句无法识别，可能有错误): Else /////3333333333
  47.         如果 i < jihang 则
  48.             注释：///5
  49.         条件结束
  50.         注释：If i<=jihang/////5
  51.         弹出窗口 "少于" & jihang & "行。关闭脚本在开！"
  52.         Media.Beep(2000,200)
  53.         脚本停止运行
  54.         (语句无法识别，可能有错误): End If /////5
  55.         (语句无法识别，可能有错误): End If /////3333333333
  56.         注释： 删除旧文檔
  57.         调用 File.DeleteFolder(zhlj)
  58.         注释： 储存新文檔
  59.         调用 File.WriteFileEx(zhlj,txt)
  60.         注释：MsgBox "练完保存了"
  61.         注释：EndScript//存完退出
  62.     子程序结束
  63.     子程序 覆盖帐号无人()
  64.         令 txt = ""
  65.         令 i = 0
  66.         标记 z(子程序 覆盖帐号无人)
  67.         注释： 欲写入的数据
  68.         令 neirong = zhanghaomima(zhwz - 1) & fgf & zhanghaomima(zhwz) & fgf & "帐号无人"
  69.         注释： 写入第几行
  70.         令 jihang = ii + 1
  71.         如果 Len(txt行(i)) >= 1 则
  72.             注释：///3333333333
  73.         条件结束
  74.         如果 i = jihang - 1 则
  75.             注释：///4
  76.         条件结束
  77.         注释： 覆盖
  78.         令 txt = txt & neirong & vbCrLf
  79.         (语句无法识别，可能有错误): Else /////4
  80.         令 txt = txt & txt行(i) & vbCrLf
  81.         (语句无法识别，可能有错误): End If /////4
  82.         令 i = i + 1
  83.         跳转到标记 z(子程序 覆盖帐号无人)
  84.         (语句无法识别，可能有错误): Else /////3333333333
  85.         如果 i < jihang 则
  86.             注释：///5
  87.         条件结束
  88.         注释：If i<=jihang/////5
  89.         弹出窗口 "少于" & jihang & "行。关闭脚本在开启"
  90.         Media.Beep(2000,200)
  91.         脚本停止运行
  92.         (语句无法识别，可能有错误): End If /////5
  93.         (语句无法识别，可能有错误): End If /////3333333333
  94.         注释： 删除旧文檔
  95.         调用 File.DeleteFolder(zhlj)
  96.         注释： 储存新文檔
  97.         调用 File.WriteFileEx(zhlj,txt)
  98.         注释：MsgBox "练完保存了"
  99.         注释：EndScript//存完退出
  100.     子程序结束