@echo off
::注意，cmd下文本默认都是asni的，若采用utf8之类的，中文字符会乱码。
::第二个for中抽取了2项变量，分别对应r，s（字符串1，字符串1）
title log记录文本分析工具
setlocal enabledelayedexpansion
set o="字符串初始值"
dir /b f:\工作文档\原始数据>f:\工作文档\TempFileName.txt
for /f "delims=. tokens=1" %%a in (f:\工作文档\TempFileName.txt) do (
title %%a文本分析工具
sort /+48 f:\工作文档\原始数据\%%a.txt /o f:\工作文档\原始数据\temp\%%a_sp.txt
if not exist f:\工作文档\扫描结果\%%aresult.txt echo 字符串1^;字符串2^;次数>f:\工作文档\扫描结果\%%aresult.txt
for /f "delims=:() tokens=4,6" %%r in (f:\工作文档\原始数据\temp\%%a_sp.txt) do (
   if %%r==!o!  (
     cls
     echo 文本分析工具v1.0·code by Iarlboko
     echo 工具状态：
     echo 分析中，请稍后···
   ) else  (
   set o=%%r
   find /c "%%r" f:\工作文档\原始数据\temp\%%a_sp.txt >f:\工作文档\原始数据\temp\%%a_sp_count.txt
   for /f "delims=: tokens=3" %%n in (f:\工作文档\原始数据\temp\%%a_sp_count.txt) do (
   if %%n GEQ 22 echo %%s^;%%r^;%%n>>f:\工作文档\扫描结果%%aresult.txt )
        )
) 
)
cls
echo 正在清理临时文件···
if exist f:\工作文档\原始数据\temp\%%a_sp_count.txt del /q /f f:\工作文档\原始数据\temp\%%a_sp_count.txt
if exist f:\工作文档\原始数据\temp\%%a_sp.txt del /q /f f:\工作文档\原始数据\temp\%%a_sp.txt
if exist f:\工作文档\TempFileName.txt del /q /f f:\工作文档\TempFileName.txt
echo 处理完毕！请查看目录下的结果输出文件：%%aresult.txt
echo 如有问题，请联系Iarlboko
pause
复制代码