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

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
复制代码

@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
)
复制代码