中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 批处理：通讯录

English/Chinese Fix Translation

作者:

标题: 批处理：通讯录

上一主题 | 下一主题

zh159
金牌会员

积分 3687
发帖 1467
注册 2005-8-8
状态离线

『楼主』: 批处理：通讯录使用 LLM 解释/回答一下

看了 zouzhxi DOS版的通讯录，有了部分构思：

20 楼最新修改：
11-20修改：采用模块方式减少相同功能脚本，增加联系人是否存在判断功能，修改单项结尾、查看全部联系人检索方式

namejm 版主的查找显示（修改了单项结尾检索方式）：


@echo off
:: 要求词库的格式是：单词独占一行(不区分大小写)；
:: 翻译的内容另起一行(不允许出现纯字母行)，可以有多行。
:begin
cls
set input=
set line=
set /p input=请输入要查找的单词(要退出请直接回车)：
if not defined input exit
for /f "tokens=1* delims=:" %%i in ('findstr /nirc:"^%input%" Tel.db') do (if /i "%%j"=="%input%" set line=%%i)
if not "%line%"=="" (goto display) else (
echo _________________________________
echo.
echo 没有找到 %input% 的记录
echo _________________________________
echo.
pause
goto begin)

:display
echo _________________________________
echo.
echo %input%:
for /f "skip=%line% delims=" %%i in (Tel.db) do (
    if "%%i"=="::" goto end
    echo     %%i
)
:end
echo _________________________________
echo.
pause
goto begin

删除某项记录的批处理


@echo off
echo.
set /p 删除人员=  删除人员: 
>TelN.db echo ::电话本数据库
>>TelN.db echo --------------------------------------------------
>>TelN.db echo.
setlocal EnableDelayedExpansion
for /f "delims=" %%i in (Tel.db) do (
  if "%%i" == "::" set /a Num+=1
)

set Delete=echo
for /f "skip=3 delims=" %%i in (Tel.db) do (
  if "%%i" == "%删除人员%" set Delete=rem&&set /a N-=1
    !Delete! %%i>>TelN.db
  if "%%i" == "::" !Delete!.>>TelN.db&&set /a N+=1&&cls&&echo.&&echo   !N!/%Num%&&set Delete=echo
)
pause
del Tel.db
ren TelN.db Tel.db
exit

Tel.db 电话本数据库


::电话本数据库
--------------------------------------------------

张三
联系人姓名：张三
联系人电话：张三
联系人地址：张三
联系人单位：张三
::

李四
联系人姓名：李四
联系人电话：李四
联系人地址：李四
联系人单位：李四
::

王五
联系人姓名：王五
联系人电话：王五
联系人地址：王五
联系人单位：王五
::

新增单项


set 联系人姓名=
set 联系人电话=
set 联系人单位=
set 联系人地址=
set...
set /p 联系人姓名=联系人姓名：
set /p 联系人电话=联系人电话：
set /p 联系人地址=联系人单位：
set /p 联系人单位=联系人地址：
set /p...

>>Tel.db echo %联系人姓名%
>>Tel.db echo 联系人姓名：%联系人姓名%
>>Tel.db echo 联系人电话：%联系人电话%
if not "%联系人单位%"=="" >>Tel.db echo 联系人单位：%联系人单位%
if not "%联系人地址%"=="" >>Tel.db echo 联系人地址：%联系人地址%
if...
>>Tel.db echo ::
>>Tel.db echo.

Last edited by zxcv on 2006-11-21 at 03:20 AM ]

After looking at zouzhxi's DOS version address book, I have some ideas:

Latest modification on floor 20:
Modified from 11-20: Adopt module method to reduce scripts with the same function, add the function of judging whether the contact exists, and modify the single item ending and the retrieval method for viewing all contacts

The search display of version by namejm (modified the single item ending retrieval method):


@echo off
:: The format of the thesaurus is: the word occupies one line (case-insensitive);
:: The translated content starts a new line (no pure letter lines are allowed), and there can be multiple lines.
:begin
cls
set input=
set line=
set /p input=Please enter the word to be searched (press Enter directly to exit):
if not defined input exit
for /f "tokens=1* delims=:" %%i in ('findstr /nirc:"^%input%" Tel.db') do (if /i "%%j"=="%input%" set line=%%i)
if not "%line%"=="" (goto display) else (
echo _________________________________
echo.
echo No record found for %input%
echo _________________________________
echo.
pause
goto begin)

:display
echo _________________________________
echo.
echo %input%:
for /f "skip=%line% delims=" %%i in (Tel.db) do (
    if "%%i"=="::" goto end
    echo     %%i
)
:end
echo _________________________________
echo.
pause
goto begin

Batch processing to delete a certain record


@echo off
echo.
set /p DeletePerson= Delete person: 
>TelN.db echo ::Address book database
>>TelN.db echo --------------------------------------------------
>>TelN.db echo.
setlocal EnableDelayedExpansion
for /f "delims=" %%i in (Tel.db) do (
  if "%%i" == "::" set /a Num+=1
)

set Delete=echo
for /f "skip=3 delims=" %%i in (Tel.db) do (
  if "%%i" == "%DeletePerson%" set Delete=rem&&set /a N-=1
    !Delete! %%i>>TelN.db
  if "%%i" == "::" !Delete!.>>TelN.db&&set /a N+=1&&cls&&echo.&&echo   !N!/%Num%&&set Delete=echo
)
pause
del Tel.db
ren TelN.db Tel.db
exit

Tel.db Address book database


::Address book database
--------------------------------------------------

Zhang San
Contact name: Zhang San
Contact phone: Zhang San
Contact address: Zhang San
Contact unit: Zhang San
::

Li Si
Contact name: Li Si
Contact phone: Li Si
Contact address: Li Si
Contact unit: Li Si
::

Wang Wu
Contact name: Wang Wu
Contact phone: Wang Wu
Contact address: Wang Wu
Contact unit: Wang Wu
::

Add single item


set ContactName=
set ContactPhone=
set ContactUnit=
set ContactAddress=
set...
set /p ContactName=Contact name:
set /p ContactPhone=Contact phone:
set /p ContactAddress=Contact unit:
set /p ContactUnit=Contact address:
set /p...

>>Tel.db echo %ContactName%
>>Tel.db echo Contact name: %ContactName%
>>Tel.db echo Contact phone: %ContactPhone%
if not "%ContactUnit%"=="" >>Tel.db echo Contact unit: %ContactUnit%
if not "%ContactAddress%"=="" >>Tel.db echo Contact address: %ContactAddress%
if...
>>Tel.db echo ::
>>Tel.db echo.

Last edited by zxcv on 2006-11-21 at 03:20 AM ]

此帖被 +7 点积分

点击查看详情

2006-11-16 00:14