基本介绍
　　世界上最早的聊天机器人诞生于20世纪80年代，这款机器人名为“阿尔贝特”，用BASIC语言编写而成。但今天的互联网上，已出现诸如“比利”、“艾丽斯”等聊天机器人。据悉，还有一个“约翰·列侬人工智能计划”，以再现当年“甲壳虫”乐队主唱的风采为目标。
编辑本段各种聊天机器人
　　 ＴａｌｋＢｏｔ　 　　

@echo off&setlocal enabledelayedexpansion
:fjjz
if exist S.txt type S.txt>>talklog.txt&cd.>S.txt
cls
set /p inf=    你对电脑说：
for /l %%i in (0,1,100) do (
set strdd=!inf:~%%i,4!&if defined strdd set strddo=!strdd:~3,1!&if defined strddo   for /f "tokens=1,*"  %%a in (dictionary.txt) do if "%%a"=="!strdd!" echo 4 %%i %%a %%b      %%i,4

set strcc=!inf:~%%i,3!&if defined strcc set strcco=!strdd:~2,1!&if defined strcco   for /f "tokens=1,*"  %%e in (dictionary.txt) do if "%%e"=="!strcc!" echo 3 %%i %%e %%f      %%i,3

set strbb=!inf:~%%i,2!&if defined strbb set strbbm=!strbb:~1,1!&if defined strbbm   for /f "tokens=1,*"  %%x in (dictionary.txt) do if "%%x"=="!strbb!" echo 2 %%i %%x %%y      %%i,2

set straa=!inf:~%%i,1!&if defined straa for /f "tokens=1,*"  %%m in (dictionary.txt) do if "%%m"=="!straa!" echo 1 %%i %%m %%n       %%i,1
)>>S.txt
type S.txt
pause 
goto fjjz
需要字典支持，附件中包含字典。而且字典目前只支持部分字词，查看字典第一列是可以用的字词。
复制代码

@echo off&setlocal enabledelayedexpansion
:fjjz 
cls
set /p inf=    你对电脑说：
echo.
cd.>S.TXT
for /l %%i in (0,1,100) do (
set strdd=!inf:~%%i,4!&if defined strdd set strddo=!strdd:~3,1!&if defined strddo   for /f "tokens=1,*"  %%a in (dictionary.txt) do if "%%a"=="!strdd!" echo 4 %%i %%a %%b      %%i,4
set strcc=!inf:~%%i,3!&if defined strcc set strcco=!strdd:~2,1!&if defined strcco   for /f "tokens=1,*"  %%e in (dictionary.txt) do if "%%e"=="!strcc!" echo 3 %%i %%e %%f      %%i,3
set strbb=!inf:~%%i,2!&if defined strbb set strbbm=!strbb:~1,1!&if defined strbbm   for /f "tokens=1,*"  %%x in (dictionary.txt) do if "%%x"=="!strbb!" echo 2 %%i %%x %%y      %%i,2
set straa=!inf:~%%i,1!&if defined straa for /f "tokens=1,*"  %%m in (dictionary.txt) do if "%%m"=="!straa!" echo 1 %%i %%m %%n       %%i,1
)>>S.TXT
set var=-1
echo 切分结果：
echo.
:lp
set /a var+=1
for /f "tokens=1,2,3,*"   %%i in (S.txt) do (
if !var!==%%j (
set /p k= 【%%k】<nul
rem echo %%k 1
set /a var=%%j+%%i
)
)
if %var% lss 30 goto lp
echo.
echo.
pause 
goto fjjz
复制代码

@echo off & setlocal enabledelayedexpansion
&rem 关闭显示与解决变量延迟问题,也可以用两种相应符号玩变量中的变量
:CS
rem 一个回头的传送点
set A=0
rem 默认为从句首开始断句
cls
rem 清屏
set /p Y=输入: 
rem 获取句子
echo 输出:>>H
rem 提前注入"输出:"到缓存
if exist H cd.>H
rem 清空缓存空间
:D
rem 一个让截词不重复的传送点
for /l %%a in (!A!,1,100) do (
rem 从楼主那看来的截词法
for /l %%b in (4,-1,1) do (
rem 先截四字再三字再二.....
set C=!Y:~%%a,%%b!
rem 截出一个词并给予调用方法
if defined C ( 
rem 判断是否截到词
set /a b=%%b-1
rem 为了获取一个比%%b小1的数
for %%c in (!b!) do (
rem 为了让此数字成功融入变量成为变量从的变量
set C1=!C:~%%c,1!
rem 为了判断,截出C的末词
if defined C1 (
rem 判断接出的词是否理想
for /f "tokens=1,*" %%d in (C%%b) do (
rem 获取词库里的词
if "%%d"=="!C!" (
rem 判断是否截词成功
echo %%d 
rem 显示成功截出的词(因为后面放进了"缓存",所以不再显示,但也需要)
set /a A=%%a+%%b
rem 设置跳过重复的量
goto D
rem 跳过重复
)))))))>>H
rem 上面用了几个大句子,这里结清并将结果放入"缓存"
for /f %%a in (H) do set /p Y=%%a <nul
rem 显示分词的结果,如果词库内不存在的字就会消失
echo.
rem 差不多就算回车一下
pause
rem 稍等以便查看结果
goto CS
rem 开始新的轮回
复制代码

@echo off & setlocal enabledelayedexpansion
rem 虽然不确定变量中的变量是否高效,但个人不是很喜欢基本重复的句子
for /f "tokens=1,*" %%a in (C) do (
rem 提取词库每一行
for /l %%c in (1,1,4) do (
rem 分别识别单字,双字,三.....
set /a S=%%c-1
rem 获取小一数
for %%d in (!S!) do (
rem 变量中的变量
set C=%%a
rem 获取词语
set C1=!C:~%%d,1!
rem 截应该出现的词末
set C2=!C:~%%c,1!
rem 截不应该出现的词末末
if defined C1 (
rem 判断词语是否够长
if not defined C2 (
rem 判断词语是否超长
echo %%a %%b >>C%%c
rem 将匹配词语放入相应词库
)))))
复制代码