[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

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

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

用批处理写哦

TOP

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

TOP

  1. @echo off&setlocal enabledelayedexpansion
  2. cls
  3. set/p http=Input url here:
  4. set /a n=0,m=1,x=2
  5. :loop
  6. if not "!http:~%m%,1!"=="." (
  7.   echo,!http:~,%n%!!http:~%m%,1!!http:~%n%,1!!http:~%x%!
  8.   set/a n+=1,m=n+1,x=n+2&goto :loop
  9. )
复制代码
看得多说得多,远比不上写得多。

TOP

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

TOP

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

TOP

回复 6# wuzu007
楼主小白啊。。。看样子一点儿都不能自个儿改改啊。。
  1. @echo off&setlocal enabledelayedexpansion
  2. cls
  3. set/p http=Input url here:
  4. set /a n=0,m=1,x=2
  5. cd.>result.txt
  6. :loop
  7. if not "!http:~%m%,1!"=="." (
  8.   echo,!http:~,%n%!!http:~%m%,1!!http:~%n%,1!!http:~%x%!>>result.txt
  9.   set/a n+=1,m=n+1,x=n+2&goto :loop
  10. )
  11. start result.txt
复制代码
看得多说得多,远比不上写得多。

TOP

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

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

TOP

返回列表