超强文本录入工具，纯ＢＡＴ

echo off&title DOS资源站 www.cmdos.net
title 文本录入工具
color 0f
cls
echo 本程序只支持一次性录入
echo 录入后会生成excel.txt和bak.txt两个文本文件
echo 第一个文件可导入excel电子表格进行处理
echo 第二个文件可备份您录入的结果进行查找工作
echo 如果这两个文件丢失或者损坏将不能恢复
echo 您可以备份录入好的两个文本文件,以便以后使用或者查询
echo 备份好的文件可以用主程序调出
echo 谢谢您使用
pause
goto begin
:begin
cls
echo 您想要做什么？
echo ①录入
echo ②查找
echo ③退出
echo ④返回
set /p s=请选择:
if "%s%"=="1" goto l
if "%s%"=="2" goto c
if "%s%"=="3" goto t
if "%s%"=="4" goto begin
echo 不包含你选择的内容,请重新输入。。。
pause >nul
goto begin
:l
cls
echo 录前必读：
echo 请在学号中输入q退出程序，输入b返回开始。
echo 录入只能一次性完成。
echo 中途退出则会造成查询结果不完整。
echo 5秒后自动开始录入状态。。。
ping 127.1 -n 5 >nul
echo "学号","性别","姓名" >>excel.txt
echo 学号 性别 姓名 >>bak.txt
goto xh
:xh
set /p a=请输入学号:
if "%a%"=="q" goto t
if "%a%"=="b" goto begin
set /p b=请输入性别:
if "%b%"=="q" goto ts
if "%b%"=="b" goto ts1
set /p c=请输入姓名:
if "%c%"=="q" goto ts
if "%c%"=="b" goto ts1
echo "%a%","%b%","%c%" >>excel.txt
echo %a% %b% %c% >>bak.txt
goto xh
:c
cls
set/p no1=请输入学号：
for /f "tokens=1,2,3* delims= " %%a in ('findstr "%no1%" bak.txt') do echo 你好, %%b, %%c
pause
if "%no1%"=="b" goto begin
goto c
:t
exit
:ts
echo 您所执行的操作则会造成查询及录入结果不完整。
echo 按任意键继续执行您的操作。
pause >nul
goto t
:ts1
echo 您所执行的操作则会造成查询及录入结果不完整。
echo 按任意键继续执行您的操作。
pause >nul
goto begin