成语大全网 - 汉语词典 - funset词典

funset词典

@echo?off

SETLOCAL?ENABLEDELAYEDEXPANSION

set?"change=0123456789ABCDEF"

for?/f?"tokens=1-5"?%%i?in?(1.txt)?do?(

call:fun?%%i?str1

call:fun?%%j?str2

call:fun?%%k?str3

call:fun?%%l?str4

call:fun?%%m?str5

echo?!str1!,?!str2!,?!str3!,?!str4!,?!str5!

)

pause

goto:eof

:fun

set?"str=%1"

set?"count=0"

set?"en="

:a

set?/a?count+=1

set?/a?mod?=?%str%?%%?16

set?/a?str/=16

set?A=!change:~%mod%,1!

set?en=%A%%en%

if?%count%?lss?4?(goto?a)

set?"%2=%en%"

goto:eof