Board logo

标题: 判断文本是否存在指定字符 [打印本页]

作者: q115643492    时间: 2009-12-12 15:03     标题: 判断文本是否存在指定字符

现在圣诞节快到了,网吧想做活动,会员参加抽奖,每个会员只能抽一次。我想搞个程序检测某个会员是否抽过奖。大致的思路:
1.用inputbox接收输入会员卡号
2.把输入的卡号与ID.txt这个文本里的字符进行比较,如果ID.txt里存在这个卡号,就提示“对不起!此会员已经参加过摇奖!  『按回车键重新输入』”,然后按回车键返回到输入窗口;如果ID.txt里没有这个卡号,就提示“"此会员可以进行摇奖!",并且自动把这个卡号写入到ID.txt文本中。然后2秒种后自动关闭该提示,再继续转到输入窗口
3.要求能清空ID.txt里面的所有卡号,比如,在第一步骤“用inputbox接收输入会员卡号”时,如果输入“888888”则清空ID.txt里面的所有卡号。
跪求VBS代码,感激不尽!

[ 本帖最后由 q115643492 于 2009-12-12 15:36 编辑 ]
作者: zqz0012005    时间: 2009-12-12 21:21

  1. Set fso=CreateObject("Scripting.FileSystemObject")
  2. Do
  3.   vip=inputbox("请输入会员卡号","会员验证")
  4.   if vip="" then WScript.Quit
  5.   IDs = fso.OpenTextFile("ID.txt", 1, True).ReadAll
  6.   if vip="8888" then
  7.     fso.OpenTextFile("ID.txt", 2, True).WriteLine()
  8.     msgbox "数据已清空!",64,"太子熊制作"
  9.   elseif InStr(vbCrLf&IDs, vbCrLf&vip&vbCrLf) then
  10.     msgbox "对不起!此会员已经参加过摇奖!",64,"太子熊制作"
  11.   else
  12.     msgbox "此会员可以进行摇奖!",64,"太子熊制作"
  13.     fso.OpenTextFile ("ID.txt", 8, True).WriteLine vip
  14.   end if
  15. Loop
复制代码

作者: batman    时间: 2009-12-12 21:52     标题: 回复 2楼 的帖子

这个“太子熊制作”就没必要了吧。。。

还是喜欢用批来做:
  1. @echo off&color 1f&mode con cols=50 lines=10
  2. :lp
  3. cls&echo.&set "input="&set /p input=请输入会员卡号:
  4. if "%input%" equ "888888" cd.>id.txt&goto lp
  5. if not defined input goto lp
  6. echo.&findstr "%input%" id.txt>nul 2>nul
  7. if %errorlevel% neq 0 (
  8.    echo 此会员可以进行摇奖!&echo %input%>>id.txt
  9.    ping /n 3 127.1>nul&goto lp
  10.    ) else (
  11.    echo 对不起,此会员已经参加过摇奖!按任意键重新输入。
  12.    pause>nul&goto lp
  13. )
复制代码

作者: zqz0012005    时间: 2009-12-12 22:20     标题: 回复 3楼 的帖子

立此存照
[quote]现在圣诞节快到了,网吧想做活动,会员参加抽奖,每个会员只能抽一次。我想搞个程序检测某个会员是否抽过奖。大致的思路:
1.用inputbox接收输入会员卡号
2.把输入的卡号与ID.txt这个文本里的字符进行比较,如果ID.txt里存在这个卡号,就提示“对不起!此会员已经参加过摇奖!  『按回车键重新输入』”,然后按回车键返回到输入窗口;如果ID.txt里没有这个卡号,就提示“"此会员可以进行摇奖!",并且自动把这个卡号写入到ID.txt文本中。然后2秒种后自动关闭该提示,再继续转到输入窗口
3.要求能清空ID.txt里面的所有卡号,比如,在第一步骤“用inputbox接收输入会员卡号”时,如果输入“888888”则清空ID.txt里面的所有卡号。
跪求VBS代码,感激不尽!
[/quote]

那个“太子熊制作”,是楼主自己写的。。。




欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2