批处理检查《千字文》是否有重复字

mxxcgzxxx

看到楼上的

1. for /l %%a in (0 1 %n%)do Set/a "_!$:~%%a,1!+=1"
   
2. Set _|find/v "=1"
   

复制代码

发现自己的思路是好窄！
但有趣的是我的机子在重复运行后会出错全都变成2了怎么回事？

原来是自己多复制了一次

mxxcgzxxx

在原基础上提高重字效率

1. @ECHO OFF
   
2. setlocal EnableDelayedExpansion
   
3. set a=0
   
4. for /f "tokens=1-6 delims= " %%1 in (千字文.txt) do (
   
5.             set /a a+=1 & set "a!a!=%%1"
   
6.             set /a a+=1 & set "a!a!=%%2"
   
7.             set /a a+=1 & set "a!a!=%%3"
   
8.             set /a a+=1 & set "a!a!=%%4"
   
9.             set /a a+=1 & set "a!a!=%%5"
   
10.             set /a a+=1 & set "a!a!=%%6"
    
11.             )
    
12. set /a b=%a%-6
    
13. for /l %%i in (%b%,1,%a%) do if "!a%%i!"==""  set /a a-=1
    
14. set /a b=%a%*4
    
15. echo 《千字文》篇幅总计有%b%字；
    
16. pause>nul
    
17. set c=
    
18. for /l %%i in (%a%,-1,1) do echo,!a%%i! &set c=!c!!a%%i!
    
19. pause>nul
    
20. set /a b-=1
    
21. set f=
    
22. for /l %%1 in (1,1,%b%) do (
    
23.    set "a=!c:~0,1!"
    
24.    set "c=!c:~1!"
    
25.    for %%i in (!a!) do set "d=!c:%%i=!"
    
26.    if "!d!" neq "!c!" set "f=!f! !a!"
    
27.    )
    
28. echo  有以下重字：%f%
    
29. pause>nul

复制代码

scarcr

低效无脑流

1. 
   
2. @echo off&setlocal enabledelayedexpansion
   
3. for /f "delims=" %%i in (qianzhiwen.txt) do (
   
4.         set a=%%i
   
5.         set a=!a: =!
   
6.         set b=!b!!a!
   
7.         )
   
8. 
   
9. for /l %%i in (1 1 10000) do (
   
10.         set e=!b!
    
11.         if "!e!"=="" (goto b)
    
12.         set c=!e:~,1!
    
13.         set #%%i=!c!
    
14.         set /a n+=1
    
15.         set e=!e:~1!
    
16.         )
    
17. 
    
18. :b
    
19. echo there are !n! words in txt
    
20. pause
    
21. 
    
22. for /l %%i in (1 1 !n!) do (
    
23.         echo %%1
    
24.         pause
    
25.         call if not "%%b:!#%%i!=%%"=="!b:~1!" (set/a m+=1&&set s!m!=!#%%i!&&set b=!b:~1!))
    
26. if not defined m (echo there are no repeating words in txt) else (
    
27.         echo there are !m! repeating words in txt , there are :
    
28.         for /l %%i in (1 1 !m!) do (echo !s%%i!)
    
29.         )
    
30. pause
    
31. set d=!n!
    
32. :c
    
33. if "!d!"=="0" (goto :eof&pause)
    
34. set/a d3=!d!-3
    
35. set/a d2=!d!-2
    
36. set/a d1=!d!-1
    
37. echo !#%d3%!!#%d2%!!#%d1%!!#%d%!
    
38. set/a d=!d!-4
    
39. goto c
    

复制代码

keiamy

笨方法也想了很久很久

1. 
   
2. @echo off&setlocal enabledelayedexpansion
   
3. for /f "delims=" %%i in (a.txt) do (
   
4. for %%j in (%%i) do (
   
5. set /a n+=4
   
6. set "str=%%j !str!")
   
7. set "str1=!str: =!"
   
8. call :lp !str!
   
9. set str=)
   
10. echo.&echo Total: %n%&echo.
    
11. 
    
12. for /f "tokens=1,2 delims=.=" %%i in ('set .^|sort /+4 /r') do (
    
13. if %%j gtr 1 (echo %%i = %%j&set str=flag) else (
    
14. if not defined str echo 千字文沒有重字
    
15. pause&exit))
    
16. 
    
17. :lp
    
18. if "%1" neq "" echo %1&shift
    
19. set /a ".%str1:~,1%+=1"
    
20. set "str1=%str1:~1%"
    
21. if defined str1 goto lp
    

复制代码

hu_contact

1. @echo off
   
2. for /f "tokens=1-6" %%i in (千字文.txt) do call set words=%%words%%%%i%%j%%k%%l%%m%%n&call set wordsCopy=%%words%%
   
3. echo %words%>tempTxt.txt
   
4. for %%p in (tempTxt.txt) do set /a number=(%%~zp-2)/2&call echo 1.该文共计%%number%%个汉字。
   
5. pause>nul
   
6. 
   
7. echo 2.检查是否有重复的字
   
8. set bool=no
   
9. :loop
   
10. set word=%words:~0,1%
    
11. set words=囧%words:~1%囧
    
12. for /f "delims=%word% tokens=1,2" %%a in ("%words%") do if "%%b" neq "" echo 发现重复的汉字：%word%。&set bool=yes
    
13. for /f "delims=囧" %%p in ("%words%") do set words=%%p
    
14. if "%words%" neq "囧囧" goto loop
    
15. if "%bool%"=="no" echo 没有重复的汉子。
    
16. pause>nul
    
17. 
    
18. echo 3.倒序输出
    
19. set /a group=%number%/4
    
20. for /l %%k in (1,1,%group%) do call echo %%wordsCopy:~-4%%&call set wordsCopy=%%wordsCopy:~0,-4%%
    
21. echo 干完活啦！&pause>nul

复制代码

PowerShell

我来也，powershell库丰富，我还是那个论点，学一年等于学bat5年，学一年等于学vbs3年。
这些题，都是powershell菜鸟题。

第一题：
把千字文读入字符串，然后unicode编码，-----这是负责，一般的做法，做了这一步后，中文，英文，乱码，空格啥的，都算一个字符。字符串自带长度属性，就是千字文的字符数，然后减去空格数量即可。


第二题
powershell 有 sort-object，具有排序去重功能。可以对数组对象去重，可以对行去重，当然了，这道题其实就是考核行去重。
。net 或者说powershell，的字符串类，有tochararray()方法。
用了这个方法后，“天地玄黄”就变成了 “天,地,玄,黄”即字符串变数组了。然后再去重，得出结果。
把千字文读入字符串，然后变成单个字符数组，然后再去重，然后和没去重前比较，得出结果。


第三题
多种解法，这里说说我的解法。
还把千字文读入字符串，然后以空格为分隔符，切割字符串，变成n个字串数组，数组第一个单位的内容为“天地玄黄”。然后按照 4321,8765，这样的顺序输出数组元素即可。

写出来的代码都极其简单，期待我群中菜鸟来作，敬请期待。。。

PakTC

我来也，powershell库丰富，我还是那个论点，学一年等于学bat5年，学一年等于学vbs3年。
这些题，都是powe ...
PowerShell 发表于 2014-5-12 22:52

   擦咧，原来Powershell要学一年？ 让那些一个月学会其他语言的会员情何以堪？

shelluserwlb

1. @echo off
   
2. color 9e
   
3. setlocal EnableDelayedExpansion
   
4. set /a num=0
   
5. for /f "tokens=1-6" %%i in (千字文.txt) do (
   
6.     set /a num+=1 & set str!num!=%%i
   
7.     set /a num+=1 & set str!num!=%%j
   
8.     set /a num+=1 & set str!num!=%%k
   
9.     set /a num+=1 & set str!num!=%%l
   
10.     set /a num+=1 & set str!num!=%%m
    
11.     set /a num+=1 & set str!num!=%%n
    
12. )
    
13. set /a a=%num%-6
    
14. for /l %%i in (%a%,1,%num%) do if defined str%%i set /a a=%%i
    
15. set /a total= a * 4
    
16. echo 《千字文》共有汉字字数：%total%个
    
17. set str=
    
18. for /l %%i in (%a%,-1,1) do (
    
19.     set str=!str!!str%%i:~0,1!
    
20.     set str=!str!!str%%i:~1,1!
    
21.     set str=!str!!str%%i:~2,1!
    
22.     set str=!str!!str%%i:~3,1!
    
23.     echo !str%%i!
    
24. )
    
25. echo.
    
26. set dup=
    
27. for /l %%i in (0,1,%total%) do (
    
28.     set ch=!str:~%%i,1!
    
29.     if defined str[!ch!] set dup=!dup! !ch!
    
30.     set str[!ch!]=!ch!
    
31. )
    
32. echo 简体字版《千字文》中重复的字有：!dup!
    
33. endlocal
    
34. echo.& pause

复制代码

ann

新手，第二题不会。想了多久没想出来。第一题：

1. @echo off
   
2. setlocal enabledelayedexpansion
   
3. :qu
   
4. for /f "tokens=1-6 delims= " %%a in (F:\1.txt) do (
   
5.        set var=%%a&call :jq&set var=%%b&call :jq&set var=%%c&call :jq&set var=%%d&call :jq&set var=%%e&call :jq&set var=%%f&call :jq)
   
6. echo 一共有%js%字
   
7. goto end
   
8. :jq
   
9. if not "%var%"=="" (set d1=%var:~-4,1%&if not "!d1!"==" " (set /a js+=1)) else (goto :eof)
   
10. if not "%var%"=="" (set d2=%var:~-3,1%&if not "!d2!"==" " (set /a js+=1)) else (goto :eof)
    
11. if not "%var%"=="" (set d3=%var:~-2,1%&if not "!d3!"==" " (set /a js+=1)) else (goto :eof)
    
12. if not "%var%"=="" (set d4=%var:~-1,1%&if not "!d1!"==" " (set /a js+=1)&goto :eof) else (goto :eof)
    
13. :end
    
14. pause>nul

复制代码

taofan712

1. @echo off
   
2. setlocal enabledelayedexpansion
   
3. (for /f "delims=" %%a in (千字文.txt) do (
   
4.         for %%b in (%%a) do set /p=%%b<nul
   
5. ))>temp.txt
   
6. for /f "skip=4 tokens=3 delims= " %%c in ('dir temp.txt') do (
   
7.         set byte=%%c
   
8.         set /a num=!byte:,=!/2
   
9.         echo;千字文.txt中共有!num!个汉字&pause>nul
   
10. )

复制代码

哈哈，就题解题，第一题可以这样做，请求【加分鼓励】

niudd

高手在民间！！

sdjnab

表示看不懂的路过，这个VBS还是BAT

yhcfsr

回复 2# Demon


    运行结果1002，应该是1000才对呀

wtuldn

@echo off
setlocal EnableDelayedExpansion
set m=0
for /f "delims=" %%a in (千字文.txt) do (
    set x=%%a
    call :next !x: =!
)
echo 千字文共有!m!字
pause

:next
set "var=%~1"
set n=0

:loop
call set str=%%var:~!n!,1%%
if "%str%"=="" goto :eof
set /a n+=1,m+=1
goto loop

wtuldn

第二题、第三题、第一题：
@echo off
setlocal EnableDelayedExpansion
for /f "delims=" %%a in (千字文.txt) do (
    for %%b in (%%a) do (
       set var=%%b
       for /l %%c in (0,1,3) do (
         set /a #!var:~%%c,1!+=1
        )   
     )
)
rem set #>>2.txt
  for /f "tokens=1,2 delims=#=" %%a in ('set #') do (
    if %%b gtr 1 echo 重复字：%%a 出现次数:%%b
)
echo:
echo:

for /f "tokens=1-6 delims= " %%a in (千字文.txt) do (
echo %%f
echo %%e
echo %%d
echo %%c
echo %%b
echo %%a
)
echo:
echo:
set m=0
for /f "delims=" %%a in (千字文.txt) do (
    set x=%%a
    call :next !x: =!
)
echo 千字文共有!m!字

:next
set "var=%~1"
set n=0

:loop
call set str=%%var:~!n!,1%%
if "%str%"=="" goto :eof
set /a n+=1,m+=1
goto loop

echo:
echo:

pause