标题: 判断文本是否存在指定字符 [打印本页]
作者: 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://bathome.net./) |
Powered by Discuz! 7.2 |