10元求批处理第1位字符跟2交换，2和3换以此类推，到小数点结束。

wuzu007

假设网址 facebook.com,那么要做的是把第1位跟2交换，2和3换以此类推，到小数点结束。生成的结果是
afcebook.com
fcaebook.com
....
也可以用10元人民币作为报酬，可以扣扣873 906

wuzu007

用批处理写哦

cutebe

set U=facebook.com
echo %U:~1,1%%U:~,1%%U:~2%
echo %U:~,1%%U:~2,1%%U:~1,1%%U:~3%
复制代码

weichenxiehou

@echo off&setlocal enabledelayedexpansion
cls
set/p http=Input url here:
set /a n=0,m=1,x=2
:loop
if not "!http:~%m%,1!"=="." (
  echo,!http:~,%n%!!http:~%m%,1!!http:~%n%,1!!http:~%x%!
  set/a n+=1,m=n+1,x=n+2&goto :loop
)
复制代码

yangfengoo

@echo off&setlocal enabledelayedexpansion
set #=facebook.com
for /f "tokens=1* delims=." %%a in ("%#%") do set #=%%a&set ##=%%b
set/a n=0,n1=1,n2=2
:#
for /f "tokens=1,2,3" %%a in ("!n! !n1! !n2!") do set v=!#:~%%c,1!&echo !#:~0,%%a!!#:~%%b,1!!#:~%%a,1!!#:~%%c!.!##!
  set/a n+=1,n1+=1,n2+=1
  if not "!v!"=="" goto #
pause
复制代码

wuzu007

5#中奖，不过有几点缺陷。
第一，set#要自己输入，不是完全固定的值。
第二，结果要保存在a.txt然后结束后自动打开。
第三，能把我下面的代码一起执行显示出来就完美了。

@echo off&setlocal enabledelayedexpansion
set /p str=请输入网址：
echo 字符串.号前各字母轮流替换成26个字母：>a.txt
echo 字符串.号前各字母后轮流加一次26个字母：>b.txt
set "code=a b c d e f g h i j k l m n o p q r s t u v w x y z"
for /l %%a in (0,1,12) do (
     set /a a=%%a+1
     if not defined flag (
        if %%a equ 0 (
           for %%b in (%code%) do (
               echo %%b%str:~1%>>a.txt
               echo %str:~,1%%%b%str:~1%>>b.txt
           )
           ) else (
           for %%b in (%code%) do (
               for %%c in (!a!) do (
                   echo !str:~,%%a!%%b!str:~%%c!>>a.txt
                   echo !str:~,%%c!%%b!str:~%%c!>>b.txt               
               )           
           )
           
        )
     )
     for %%c in (!a!) do if "!str:~%%c,1!" equ "." set "flag=a"
)
copy /y a.txt+b.txt a.txt&del /q b.txt
start a.txt

weichenxiehou

回复 6# wuzu007
楼主小白啊。。。看样子一点儿都不能自个儿改改啊。。

@echo off&setlocal enabledelayedexpansion
cls
set/p http=Input url here:
set /a n=0,m=1,x=2
cd.>result.txt
:loop
if not "!http:~%m%,1!"=="." (
  echo,!http:~,%n%!!http:~%m%,1!!http:~%n%,1!!http:~%x%!>>result.txt
  set/a n+=1,m=n+1,x=n+2&goto :loop
)
start result.txt
复制代码

wuzu007

回复  wuzu007
楼主小白啊。。。看样子一点儿都不能自个儿改改啊。。
weichenxiehou 发表于 2012-6-13 22:20

对对，你改完的可以实现了。这个功能可以加到我上面那个代码中么。就一起显示在a.txt里面。