批处理之家 - Powered by Discuz! Board

标题: 10元求批处理第1位字符跟2交换，2和3换以此类推，到小数点结束。 [打印本页]

作者: wuzu007 时间: 2012-6-13 18:14 标题: 10元求批处理第1位字符跟2交换，2和3换以此类推，到小数点结束。

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

作者: wuzu007 时间: 2012-6-13 18:14

用批处理写哦

作者: cutebe 时间: 2012-6-13 18:31

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

作者: weichenxiehou 时间: 2012-6-13 18:41

@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 时间: 2012-6-13 19:17

@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 时间: 2012-6-13 22:08

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 时间: 2012-6-13 22:20

回复 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 时间: 2012-6-13 22:41

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

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

欢迎光临批处理之家 (http://bbs.bathome.net/)