1.     如果表达式 (Key = 78) 为真,则
  2.         Mystring = "选择[N][取消]返回[选择菜单]..."
  3.         调用子程序 [说话]
  4.     否则如果(Key = 89)为真,则
  5.         Mystring = "选择[Y][确定][覆盖]脚本[" & ScriptName &"]..."
  6.         调用子程序 [说话]
  7.         如果表达式 (strURL <> "") 为真,则
  8.             ScriptName = strURL
  9.         条件结束
  10.         strURL = ""
  11.         ScriptNum = ScriptHaved
  12.         调用子程序 [保存脚本]
  13.     条件结束
  14. 子程序结束,回到调用处
  15. 子程序 [设置脚本名]
  16.     标记 [脚本名设置]
  17.     Mystring="│[设置脚本名]" & vblf
  18.     Mystring= Mystring & "├" & String(7,"─") &vblf
  19.     Mystring= Mystring & "│复制到剪贴板" & vblf
  20.     Mystring= Mystring & "│然后按[回车]" & vblf
  21.     调用子程序 [说话]
  22.     标记 [脚本名检测]
  23.     等待按任意键，保存到变量Key中
  24.     如果表达式 (Key = 13) 为真,则
  25.         调用子程序 [取得剪贴板]
  26.         如果表达式 (strURL = "") 为真,则
  27.             Mystring = "[脚本名不能为空]..."
  28.             调用子程序 [说话]
  29.             跳转到标记 [脚本名设置]
  30.         否则
  31.             ScriptHaved = 0
  32.             ScriptCount = 0
  33.             调用插件命令 Script = File.ReadINI("脚本",Hex(ScriptCount+1),IniFile)
  34.             如果表达式 (Script <> "0") 为真,则循环执行
  35.                 如果表达式 (strURL = Left(Script,InStr(1,Script,",",1)-1)) 为真,则
  36.                     ScriptHaved = Hex(ScriptCount+1)
  37.                 条件结束
  38.                 ScriptCount = ScriptCount + 1
  39.                 调用插件命令 Script = File.ReadINI("脚本",Hex(ScriptCount+1),IniFile)
  40.             循环结束
  41.             如果表达式 (ScriptHaved = 0) 为真,则
  42.                 Mystring = "保存为[" & strURL & "]..."
  43.                 调用子程序 [说话]
  44.                 调用子程序 [确认保存设置]
  45.             否则如果(ScriptHaved > 0)为真,则
  46.                 Mystring = "脚本[" & strURL & "]已存在..."
  47.                 调用子程序 [说话]
  48.                 调用子程序 [确认覆盖设置]
  49.             条件结束
  50.         条件结束
  51.     否则
  52.         跳转到标记 [脚本名检测]
  53.     条件结束
  54. 子程序结束,回到调用处
  55. 子程序 [保存设置]
  56.     Mystring ="│[覆盖] -[" & ScriptName &"]" & vblf
  57.     Mystring = Mystring & "├" & String(11,"─") & vblf
  58.     Mystring = Mystring & "│<Y>确定 <N>取消 <A>另存" & vblf
  59.     调用子程序 [说话]
  60.     调用子程序 [等待按键]
  61.     如果表达式 (Key <> 89 And Key <> 78 And Key <> 65) 为真,则循环执行
  62.         调用子程序 [等待按键]
  63.     循环结束
  64.     如果表达式 (Key = 89) 为真,则
  65.         Mystring= "选择[Y][覆盖][" & ScriptName &"]..."
  66.         调用子程序 [说话]
  67.         调用子程序 [保存脚本]
  68.     否则如果(Key = 78)为真,则
  69.         Mystring = "选择[N][取消]..."
  70.         调用子程序 [说话]
  71.     否则如果(Key = 65)为真,则
  72.         Mystring = "选择[A][另存]..."
  73.         调用子程序 [说话]
  74.         调用子程序 [设置脚本名]
  75.     条件结束
  76. 子程序结束,回到调用处
  77. 子程序 [清空材料列表]
  78.     BuyItemCount=0
  79.     Erase BuyItem
  80.     Erase BuyItem_PosX
  81.     Erase BuyItem_PosY
  82.     Erase BuyItem_Page
  83.     Erase BuyItem_Amount
  84. 子程序结束,回到调用处
  85. 子程序 [保存脚本]
  86.     Script = ScriptName & ","
  87.     循环 3-Len((MakeItem_Row-1)*5+MakeItem_Col) 遍
  88.         Script = Script & "0"
  89.     循环结束
  90.     Script = Script & (MakeItem_Row-1)*5+MakeItem_Col & Mtype & Ttype & Stype & StoreNum & StoreName
  91.     I=0
  92.     循环 BuyItemCount 遍
  93.         Script = Script & ","
  94.         循环 2-Len(BuyItem_Amount(I)) 遍
  95.             Script = Script & "0"
  96.         循环结束
  97.         Script = Script & BuyItem_Amount(I) & BuyItem(I)
  98.         I = I + 1
  99.     循环结束
  100.     调用插件命令 File.WriteINI("脚本",ScriptNum,Script,IniFile)