mxxcgzxxx

看到楼上的

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

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

原来是自己多复制了一次

mxxcgzxxx

在原基础上提高重字效率

@ECHO OFF
setlocal EnableDelayedExpansion
set a=0
for /f "tokens=1-6 delims= " %%1 in (千字文.txt) do (
            set /a a+=1 & set "a!a!=%%1"
            set /a a+=1 & set "a!a!=%%2"
            set /a a+=1 & set "a!a!=%%3"
            set /a a+=1 & set "a!a!=%%4"
            set /a a+=1 & set "a!a!=%%5"
            set /a a+=1 & set "a!a!=%%6"
            )
set /a b=%a%-6
for /l %%i in (%b%,1,%a%) do if "!a%%i!"==""  set /a a-=1
set /a b=%a%*4
echo 《千字文》篇幅总计有%b%字；
pause>nul
set c=
for /l %%i in (%a%,-1,1) do echo,!a%%i! &set c=!c!!a%%i!
pause>nul
set /a b-=1
set f=
for /l %%1 in (1,1,%b%) do (
   set "a=!c:~0,1!"
   set "c=!c:~1!"
   for %%i in (!a!) do set "d=!c:%%i=!"
   if "!d!" neq "!c!" set "f=!f! !a!"
   ) 
echo  有以下重字：%f%
pause>nul
复制代码

scarcr

低效无脑流

@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%i in (qianzhiwen.txt) do (
	set a=%%i
	set a=!a: =!
	set b=!b!!a!
	)

for /l %%i in (1 1 10000) do (
	set e=!b!
	if "!e!"=="" (goto b)
	set c=!e:~,1!
	set #%%i=!c!
	set /a n+=1
	set e=!e:~1!
	)

:b
echo there are !n! words in txt
pause

for /l %%i in (1 1 !n!) do (
	echo %%1
	pause
	call if not "%%b:!#%%i!=%%"=="!b:~1!" (set/a m+=1&&set s!m!=!#%%i!&&set b=!b:~1!))
if not defined m (echo there are no repeating words in txt) else (
	echo there are !m! repeating words in txt , there are :
	for /l %%i in (1 1 !m!) do (echo !s%%i!)
	)
pause
set d=!n!
:c
if "!d!"=="0" (goto :eof&pause)
set/a d3=!d!-3
set/a d2=!d!-2
set/a d1=!d!-1
echo !#%d3%!!#%d2%!!#%d1%!!#%d%!
set/a d=!d!-4
goto c
复制代码

keiamy

笨方法也想了很久很久

@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%i in (a.txt) do (
 for %%j in (%%i) do (
 set /a n+=4
 set "str=%%j !str!")
 set "str1=!str: =!"
 call :lp !str!
 set str=)
 echo.&echo Total: %n%&echo.

for /f "tokens=1,2 delims=.=" %%i in ('set .^|sort /+4 /r') do (
 if %%j gtr 1 (echo %%i = %%j&set str=flag) else (
 if not defined str echo 千字文沒有重字
 pause&exit))

:lp
 if "%1" neq "" echo %1&shift
 set /a ".%str1:~,1%+=1"
 set "str1=%str1:~1%"
 if defined str1 goto lp
复制代码

hu_contact

@echo off
for /f "tokens=1-6" %%i in (千字文.txt) do call set words=%%words%%%%i%%j%%k%%l%%m%%n&call set wordsCopy=%%words%%
echo %words%>tempTxt.txt
for %%p in (tempTxt.txt) do set /a number=(%%~zp-2)/2&call echo 1.该文共计%%number%%个汉字。
pause>nul

echo 2.检查是否有重复的字
set bool=no
:loop
set word=%words:~0,1%
set words=囧%words:~1%囧
for /f "delims=%word% tokens=1,2" %%a in ("%words%") do if "%%b" neq "" echo 发现重复的汉字：%word%。&set bool=yes
for /f "delims=囧" %%p in ("%words%") do set words=%%p
if "%words%" neq "囧囧" goto loop
if "%bool%"=="no" echo 没有重复的汉子。
pause>nul

echo 3.倒序输出
set /a group=%number%/4
for /l %%k in (1,1,%group%) do call echo %%wordsCopy:~-4%%&call set wordsCopy=%%wordsCopy:~0,-4%%
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

@echo off 
color 9e
setlocal EnableDelayedExpansion
set /a num=0
for /f "tokens=1-6" %%i in (千字文.txt) do (
    set /a num+=1 & set str!num!=%%i
    set /a num+=1 & set str!num!=%%j
    set /a num+=1 & set str!num!=%%k
    set /a num+=1 & set str!num!=%%l
    set /a num+=1 & set str!num!=%%m
    set /a num+=1 & set str!num!=%%n
)
set /a a=%num%-6
for /l %%i in (%a%,1,%num%) do if defined str%%i set /a a=%%i
set /a total= a * 4
echo 《千字文》共有汉字字数：%total%个
set str=
for /l %%i in (%a%,-1,1) do (
    set str=!str!!str%%i:~0,1!
    set str=!str!!str%%i:~1,1!
    set str=!str!!str%%i:~2,1!
    set str=!str!!str%%i:~3,1!
    echo !str%%i!
)
echo.
set dup=
for /l %%i in (0,1,%total%) do (
    set ch=!str:~%%i,1!
    if defined str[!ch!] set dup=!dup! !ch!
    set str[!ch!]=!ch!
)
echo 简体字版《千字文》中重复的字有：!dup!
endlocal
echo.& pause
复制代码

ann

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

@echo off
setlocal enabledelayedexpansion
:qu
for /f "tokens=1-6 delims= " %%a in (F:\1.txt) do (
       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)
echo 一共有%js%字
goto end
:jq
if not "%var%"=="" (set d1=%var:~-4,1%&if not "!d1!"==" " (set /a js+=1)) else (goto :eof)
if not "%var%"=="" (set d2=%var:~-3,1%&if not "!d2!"==" " (set /a js+=1)) else (goto :eof)
if not "%var%"=="" (set d3=%var:~-2,1%&if not "!d3!"==" " (set /a js+=1)) else (goto :eof)
if not "%var%"=="" (set d4=%var:~-1,1%&if not "!d1!"==" " (set /a js+=1)&goto :eof) else (goto :eof)
:end
pause>nul
复制代码

taofan712

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

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

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