判断文本是否存在指定字符

q115643492

现在圣诞节快到了，网吧想做活动，会员参加抽奖，每个会员只能抽一次。我想搞个程序检测某个会员是否抽过奖。大致的思路：
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

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

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

还是喜欢用批来做：

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

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

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