中国DOS联盟

有一个文本文件a.txt如下：

ComputerName=学生机01
IP=192.168.2.11

ComputerName=学生机02
IP=192.168.2.12

ComputerName=学生机03
IP=192.168.2.13

ComputerName=学生机04
IP=192.168.2.14

ComputerName=学生机05
IP=192.168.2.15

ComputerName=学生机06
...
...

ComputerName=学生机69
IP=192.168.2.79

想通过批处理修改成b.txt 如下

ComputerName=学生机01
IP=192.168.2.1

ComputerName=学生机02
IP=192.168.2.2
...
...



就是学生机号与ip对应起来。百思不得其解。望高手赐教。

[ Last edited by yzthinker on 2009-2-20 at 23:51 ]

@echo off
set n=10
::设置IP地址最后一位要减的值

for /f "delims=" %%a in (a.txt) do (set "str=%%a"&call :sub %%a)
goto :eof

:sub
::不是ip行不处理
if /i not "%1"=="ip" goto :nochange
set ip=%2

::点号替换为空格
set ip=%ip:.= %
call :sub2 %ip%

::替换修改后的结果
call set str=%%str:%2=%ip%%%
:nochange
echo %str%
goto :eof

:sub2
::第四位减n,再重组
set/a n=%4-n
set ip=%1.%2.%3.%n%
goto :eof

[00-1C-25-AA-D0-B6]
ComputerName=学生机01
IP=192.168.2.1
[00-1C-25-AA-D0-CD]
ComputerName=学生机02
IP=192.168.2.11
[00-1C-25-AA-D0-AC]
ComputerName=学生机03
IP=192.168.2.2
[00-1C-25-AC-3B-DC]
ComputerName=学生机04
IP=192.168.2.12
[00-1C-25-AA-D0-C2]
ComputerName=学生机05
IP=192.168.2.3
[00-1C-25-AB-EB-3E]
ComputerName=学生机06
IP=192.168.2.13
[00-1C-25-AA-D0-B4]
ComputerName=学生机07
IP=192.168.2.4
[00-1C-25-A9-EC-34]
ComputerName=学生机08
IP=192.168.2.14
[00-1C-25-AA-D0-8C]
ComputerName=学生机09
IP=192.168.2.5
[00-1C-25-AA-D0-B9]
ComputerName=学生机10
IP=192.168.2.15
[00-1C-25-DA-62-F4]
ComputerName=学生机11
IP=192.168.2.6
[00-1C-25-DA-63-0D]
ComputerName=学生机12
IP=192.168.2.16
[00-1C-25-DA-63-1D]
ComputerName=学生机13
IP=192.168.2.7
[00-1C-25-AB-EB-44]
ComputerName=学生机14
IP=192.168.2.17
[00-1C-25-DA-63-0B]
ComputerName=学生机15
IP=192.168.2.8
[00-1C-25-AB-EB-2B]
ComputerName=学生机16
IP=192.168.2.18
[00-1C-25-AB-EB-AB]
ComputerName=学生机17
IP=192.168.2.9
[00-1C-25-A9-EC-54]
ComputerName=学生机18
IP=192.168.2.19
[00-1C-25-AB-EB-26]
ComputerName=学生机19
IP=192.168.2.10
[00-1C-25-DA-63-05]
ComputerName=学生机20
IP=192.168.2.20
[00-1C-25-AC-3C-62]
ComputerName=学生机21
IP=192.168.2.11


另外怎样生成b.txt？谢谢

@echo off
set n=10
::设置IP地址最后一位要减的值

::****改了这里就可以了
(for /f "delims=" %%a in (a.txt) do (set "str=%%a"&call :sub %%a))>b.txt
::****

goto :eof

:sub
::不是ip行不处理
if /i not "%1"=="ip" goto :nochange
set ip=%2

::点号替换为空格
set ip=%ip:.= %
call :sub2 %ip%

::替换修改后的结果
call set str=%%str:%2=%ip%%%
:nochange
echo %str%
goto :eof

:sub2
::第四位减n,再重组
set/a n=%4-n
set ip=%1.%2.%3.%n%
goto :eof

[00-1C-25-AA-D0-B6]
ComputerName=学生机01
IP=192.168.2.1
[00-1C-25-AA-D0-CD]
ComputerName=学生机02
IP=192.168.2.11
[00-1C-25-AA-D0-AC]
ComputerName=学生机03
IP=192.168.2.2
[00-1C-25-AC-3B-DC]
ComputerName=学生机04
IP=192.168.2.12
[00-1C-25-AA-D0-C2]
ComputerName=学生机05
IP=192.168.2.3
[00-1C-25-AB-EB-3E]
ComputerName=学生机06
IP=192.168.2.13
[00-1C-25-AA-D0-B4]
ComputerName=学生机07
IP=192.168.2.4

是隔行修改的，也就说只有第一个修改成功了

@echo off
set n=10
::设置IP地址最后一位要减的值

(for /f "delims=" %%a in (a.txt) do (set "str=%%a"&call :sub %%a))>b.txt


goto :eof

:sub
::不是ip行不处理
if /i not "%1"=="ip" goto :nochange
set ip=%2

::点号替换为空格
set ip=%ip:.= %
call :sub2 %ip%

::替换修改后的结果
call set str=%%str:%2=%ip%%%
:nochange
echo %str%
goto :eof

:sub2
::第四位减n,再重组
set/a m=%4-n
set ip=%1.%2.%3.%m%
goto :eof

增加一个变量m,应该没有问题了。

运行通过了，谢谢。你编程序很在行吧？批处理的编写也很注意格式的，容易阅读，虽然有些符号我还不明白，但看起来条理清晰，很是舒服。谢谢了。

如果有人帮你解决了问题，建议进行以下操作：

1、修改帖子标题，在标题最前面注明：[已结]

2、给正确回答问题者加分（你自己的积分不会减少）以示感谢，虽然大家来论坛是为了学习而不是为了积分，但加分聊表谢意总是或多或少能够让花费了时间和精力无私帮助你的人略感欣慰。

3、如果你是在别人的提示下自己写出了代码，请把自己的方法贴出来跟大家分享一下，也许他人可以帮你指出代码中的不足之处、告诉你如何提高执行效率等，有交流才能更快地进步。

下不为例，谢谢斑竹提醒！

Originally posted by HAT at 2009-2-20 11:27 PM:
如果有人帮你解决了问题，建议进行以下操作：

1、修改帖子标题，在标题最前面注明：

2、给正确回答问题者加分（你自己的积分不会减少 ...

针对楼主问题 可以简化下
@echo off&setlocal enabledelayedexpansion (for /f "delims=" %%i in (ip.txt) do ( set str=%%i if /i "!str:~,3!"=="ip=" (set /a n+=1&call echo %%~ni.!n!) else echo %%i ))>new_ip.txt pause

谢谢啊，高手如云啊，受益匪浅。