批处理之家 - Powered by Discuz! Board

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

作者: 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

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

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

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

还是喜欢用批来做：

@echo off&color 1f&mode con cols=50 lines=10
:lp
cls&echo.&set "input="&set /p input=请输入会员卡号：
if "%input%" equ "888888" cd.>id.txt&goto lp
if not defined input goto lp
echo.&findstr "%input%" id.txt>nul 2>nul
if %errorlevel% neq 0 (
   echo 此会员可以进行摇奖！&echo %input%>>id.txt
   ping /n 3 127.1>nul&goto lp
   ) else (
   echo 对不起，此会员已经参加过摇奖！按任意键重新输入。
   pause>nul&goto lp
)
复制代码

作者: 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/)