标题: 求助，循环替换，递增的字符 [打印本页]
作者: superdoor 时间: 2010-3-1 14:16 标题: 求助，循环替换，递增的字符
在一个文本中 需要循环替换A1,B1一直到A20，B20.
例如原文本：
Range("A1").Value = "TEST" Or Range("A1").Value = "TEST2"
Range("B1").Value = "TEST3"
如：Range("B1").Value = "TEST3"
Range("A1").Value = "TEST" Or Range("A1").Value = "TEST2"
Range("B1").Value = "TEST3"
Range("A2").Value = "TEST" Or Range("A2").Value = "TEST2"
Range("B2").Value = "TEST3"
..........
Range("B1").Value = "TEST3"
Range("A2").Value = "TEST" Or Range("A2").Value = "TEST2"
Range("B2").Value = "TEST3"
..........
作者: Hanyeguxing 时间: 2010-3-1 14:54
没太明白你的意思，不知道是不是这样：
@echo off&setlocal enabledelayedexpansion
for /l %%i in (1 1 20) do for /f "delims=" %%a in (test.txt) do (set P=%%a
set P=!P:A1=A%%i!
set P=!P:B1=B%%i!
echo !P!&echo.)>>test-.txt
for /l %%i in (1 1 20) do for /f "delims=" %%a in (test.txt) do (set P=%%a
set P=!P:A1=A%%i!
set P=!P:B1=B%%i!
echo !P!&echo.)>>test-.txt
作者: sl543001 时间: 2010-3-1 14:59
for /L %%a in (1,1,20) do (
echo Range("A%%a").Value = "TEST" Or Range("A%%a").Value = "TEST2" >>sybn.txt
echo Range("B%%a").Value = "TEST3" >>sybn.txt
)
[ Last edited by sl543001 on 2010-3-1 at 20:50 ]
作者: superdoor 时间: 2010-3-1 15:20
感谢楼上，不过代码不执行。
再次感谢Hanyeguxing，脚本很好用。学习了。
再请教一下
Range("A2").Value = Range("A1").Value
如果这样递增，如何做呢。[ Last edited by superdoor on 2010-3-1 at 17:47 ]
作者: Hanyeguxing 时间: 2010-3-1 19:00
for %%a in (1,1,20) do (
echo Range("A%%a").Value = "TEST" Or Range("A%%a").Value = "TEST2" >>sybn.txt
echo Range("B%%a").Value = "TEST3" >>sybn.txt
)
输出的括号前要加转意符
使用set /a运算