中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum
游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟
中国DOS联盟论坛
现在时间是 2026-08-05 04:19
48,038 主题排行 / 350,123 发帖 / 今日 0 篇 / 48,251 会员排行
DOS批处理 & 脚本技术(批处理室) » dos 通讯录
可打印版本  832 / 1
第1楼 superhacker 发表于 2007-06-21 12:43
初级用户 发帖 32 积分 66
dos 通讯录
@echo off
title Gift_pzf-QQ:364950776
color 9f &mode con: cols=45 lines=25
echo.
echo.
echo (-------------------------------------------)
echo 欢迎使用 dos 通讯录
echo 作者:Gift_pzf
echo (-------------------------------------------)
pause>nul
:kaishi
cls
echo.
echo.
echo )-------------------------------------------(
echo 1. 舔 加 通 讯 录
echo.
echo 2. 查 看 通 讯 录
echo.
echo 3. 退 出 本 程 序
echo )-------------------------------------------(
set /p xuanze=请输入你的选择:
if '%xuanze%'=='1' goto shuru
if '%xuanze%'=='2' goto chakan
if '%xuanze%'=='3' (goto tuichu) else goto tishi
:chakan
cls
set /p aaa=请输入姓名:
if '%aaa%'=='' goto 22
cls
echo.
echo _____________________________________________
echo 下面是你查找的号码:
echo.
type 通讯录.txt | find /i "%aaa%"
echo.
echo 按任意键返回主菜单
pause>nul
goto kaishi
:22
echo _____________________________________________
echo 下面是通讯录中所以的信息:
echo.
type 通讯录.txt
echo.
echo 按任意键返回主菜单
pause>nul
goto kaishi
:tuichu
exit
:tishi
cls
echo.
echo.
echo.
echo ---------------------------------------------
echo.
echo 你的输入无效,按任意键重新输入
echo.
echo ---------------------------------------------
pause>nul
goto kaishi
:shuru
cls
echo.
echo.
echo (-------------------------------------------)
echo 欢迎使用 dos 通讯录
echo 作者:Gift_pzf
echo (-------------------------------------------)
echo.
set /p name=请输入姓名:
if %name% equ kaishi goto kaishi
set /p Tp=请输入联系电话:
if %TP% equ kaishi goto kaishi
echo %name% 的电话是:%Tp%>>通讯录.txt
cls
echo.
echo 添加信息完毕
echo.
echo.
echo (-------------------------------------------)
echo 欢迎使用 dos 通讯录
echo 作者:Gift_pzf
echo (-------------------------------------------)
set /p type=继续录入通讯录吗?(y/n)
if '%type%'=='y' goto ye
if '%type%'=='n' (goto n) else goto tishi
:ye
goto shuru
:n
goto kaishi
:no
goto shuru
第2楼 cl02 发表于 2007-06-27 23:37
新手上路 发帖 5 积分 12
支持一下~~不错呢~~~
[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023