sos.请教脚本程序错在哪里? 点击:1038 | 回复:1



cearo

    
  • 精华:0帖
  • 求助:0帖
  • 帖子:4帖 | 4回
  • 年度积分:0
  • 历史总积分:16
  • 注册:2003年4月23日
发表于:2003-06-02 10:46:00
楼主
YYY=StrLeft(XXX.DESC,1); E=StrToInt(StrMid(XXX.DESC,1,1)); F=StrToInt(StrMid(XXX.DESC,2,2)); IF YYY=="D" THEN SWITCH (E) CASE 1: MsgBox("敌对信号机开放"); CASE 2: MsgBox("道岔四开"); CASE 3: MsgBox("防护信号灯不能开放"); CASE 4: MsgBox("进路无法解锁"); CASE 5: MsgBox("轨道不空闲"); CASE 6: MsgBox("所选按钮不能办理进路"); CASE 7: MsgBox("无法单操道岔"); CASE 8: MsgBox("轨道锁闭失败"); CASE 9: MsgBox("道岔没有单操到位"); ENDSWITCH ELSE IF YYY<>"D"&&E==0 THEN SWITCH (F) CASE 01: DC1_3.DESC=XXX.DESC; CASE 02: DC2_4.DESC=XXX.DESC; CASE 05: DC5.DESC=XXX.DESC; CASE 10: DC10.DESC=XXX.DESC; CASE 09: DC7_9.DESC=XXX.DESC; CASE 08: DC6_8.DESC=XXX.DESC; ENDSWITCH ELSE IF YYY<>"D"&&E==1 THEN SWITCH (F) CASE 90: XXJJ.DESC=XXX.DESC; CASE 03: 3DG.DESC=XXX.DESC; CASE 57: 5_7DG.DESC=XXX.DESC; CASE 30: 3G.DESC=XXX.DESC; CASE 11: IG.DESC=XXX.DESC; CASE 60: 6_10DG.DESC=XXX.DESC; CASE 04: 4DG.DESC=XXX.DESC; CASE 15: XXLQ.DESC=XXX.DESC; CASE 91: SXLQ.DESC=XXX.DESC; CASE 13: IIAG.DESC=XXX.DESC; CASE 01: 1DG.DESC=XXX.DESC; CASE 09: 9DG.DESC=XXX.DESC; CASE 12: IIG.DESC=XXX.DESC; CASE 08: 8DG.DESC=XXX.DESC; CASE 02: 2DG.DESC=XXX.DESC; CASE 36: IIBG.DESC=XXX.DESC; CASE 17: SXJJ.DESC=XXX.DESC; ENDSWITCH ELSE SWITCH (F) CASE 03: D3.DESC=XXX.DESC; CASE 01: D1.DESC=XXX.DESC; CASE 13: S3.DESC=XXX.DESC; CASE 11: SI.DESC=XXX.DESC; CASE 12: SII.DESC=XXX.DESC; CASE 53: X3.DESC=XXX.DESC; CASE 51: X1.DESC=XXX.DESC; CASE 52: XII.DESC=XXX.DESC; CASE 24: D4.DESC=XXX.DESC; CASE 81: SF.DESC=XXX.DESC; CASE 22: D2.DESC=XXX.DESC; CASE 83: S.DESC=XXX.DESC; ENDSWITCH ENDIF ENDIF ENDIF 系统提示说“发现多余操作数”“SWITH语句出错” 请各位指教!



deng_lp

  • 精华:5帖
  • 求助:0帖
  • 帖子:65帖 | 2669回
  • 年度积分:0
  • 历史总积分:2876
  • 注册:2001年6月19日
发表于:2003-06-02 10:46:00
1楼
自已一次加一段程序试试

热门招聘
相关主题

官方公众号

智造工程师