随风

多谢，原来就是把空格替换为 !! 号啊，汗，想多了，反而把最基础的搞忘了。。。
这样也可以

 
for /l %%a in (1,1,10) do (set "str=!str! ^!!ram:~%%a,1!^!")
echo %str%
复制代码

[ 本帖最后由 随风 于 2009-4-23 08:01 编辑 ]

inittab

原帖由 随风 于 2009-4-23 06:20 发表
牛！
set out=%str: =!!% 好晦涩的写法 不仅使我想起了 %var:*"=set "var=%
它们是兄弟吧 ^_^
百思不得其解 set out=%str: =!!% 这句是如何替换的？能讲解下吗？
你好像少写了个空格 (set "str=!str! !ram:~%%a ...

多谢指出。没注意的确少了个空格,
set out=%str: =!!% 这句是把数字变为变量。
如1 2 3 4 5 6替换为!!1!!2!!3!!4!!5!! 前边已把定义过1~0 为变量为10个字串了，所以输出就是它们的随机组合

学批处理还不到一月，还有很多东西要向各位老大学习

随风

牛！ 
set out=%str: =!!% 好晦涩的写法 不仅使我想起了 %var:*"=set "var=%
它们是兄弟吧 ^_^
百思不得其解 set out=%str: =!!% 这句是如何替换的？能讲解下吗？
你好像少写了个空格 (set "str=!str! !ram:~%%a,1! ") 否则第一个字符是数字。
复制代码

.

[ 本帖最后由 随风 于 2009-4-23 06:51 编辑 ]

随风

第一题

 
@echo off&setlocal enabledelayedexpansion
set "var1=abdefg kmli socsd pdxy nq ABDEFG KMLI SOCSD PDXY NQ"
for %%a in (!var1!) do (
   set /a n+=1,m=n-5
   if !n! leq 5 (set .!n!=%%a) else set "#!m!=%%a"
)
for /l %%l in (1 1 10) do (
   set "num="
   for /l %%a in (1 1 10) do (
      set /a w=!random!%%2,y=!random!%%5+1
      for %%j in (!y!) do if !w! equ 0 (set str=!#%%j!) else set str=!.%%j!
      set num=!num!!str!
   )
   echo !num!
)
pause

 
复制代码

第二题还真是费了翻脑筋。。

@echo off&setlocal enabledelayedexpansion
set zm=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
set "var1=ABDEFG"
set "var2=bathome"
set "max=!var1!"
for %%a in (!zm!) do set max=!max:%%a= %%a !
for %%a in (!max!) do set /a n+=1
for /f "delims=" %%a in (a.txt) do (
    set num2=%%a&set "jie="
    set num=!num2:%var1%= %var1% !
    for %%i in (!num!) do (
       if /i not "%%i"=="%var1%" (set jie=!jie!%%i) else (
          set "str=!num2:~0,%n%!"
          if "!str!"=="%var1%" (set jie=!jie!%var2%) else set "jie=!jie!!str!"
        )
        set "num2=!num2:*%%i=!"
     )     
    echo !jie!
)
pause
复制代码

[ 本帖最后由 随风 于 2009-4-23 06:07 编辑 ]

inittab

第一小题：
思路，用数字作为变量对应字串。将随机数转化为数字变量替换后输出随机字串。

@echo off&setlocal enabledelayedexpansion
set "var=abdefg ABDEFG kmli KMLI socsd SOCSD pdxy PDXY nq NQ"
set n=0
for %%i in (%var%) do (set !n!=%%i&set/a n+=1)

:begin
set ram=%random%%random%%random%&set "str="
for /l %%a in (1,1,10) do (set "str=!str! !ram:~%%a,1! ")
set out=%str: =!!%
echo !out!>>b.txt
set/a n-=1&if !n! gtr 0 (goto :begin)
start b.txt
复制代码

[ 本帖最后由 inittab 于 2009-4-23 07:35 编辑 ]

inittab

第二题：

 
@echo off&setlocal enabledelayedexpansion
set replace=bathome
for /f "delims=" %%a in (a.txt) do set n=0&set "st="&call :sub %%a
pause>nul&goto :eof
:sub
set str0=%1&set str1=!str0:~%n%,6!
if "!str1!"=="ABDEFG" (set st=!st!!replace!&set/a n+=6) else (set st=!st!!str0:~%n%,1!&set/a n+=1)
if not "!str1!"=="" (goto sub)
echo !st!
goto :eof
复制代码

Batcher

论坛的默认设置版主应该可以操作包含自己的帖子在内的所有帖子吧，有些论坛不能这样做估计是后台做了客户化的设置。

rat

题外话，居然还能将自己的帖子设置成高亮，这是Bug吧。

batman

楼上没想到直接set "var=abdefg ABDEFG kmli KMLI socsd SOCSD pdxy PDXY nq NQ"？

batman

请大家用纯批解决，虽然这个要求有点苛刻。。。

xxx

原来是js啊...脸红.

Batcher

那个...那个...嗯~~~好像不是VBS吧？

xxx

调用vbs都行...vbs看起来比批处理明了直接多了.

我冲动了哈...

[ 本帖最后由 xxx 于 2009-4-22 21:38 编辑 ]

Batcher

第二题

@echo off
mshta "javascript:var fso=new ActiveXObject('Scripting.FileSystemObject');fso.OpenTextFile('C:\\test\\b.txt',2,true).Write(fso.OpenTextFile('C:\\test\\a.txt').ReadAll().replace(/ABDEFG/g, 'bathome'));close()"
复制代码

batman

多谢随风兄指出，已修正。