[文本处理] 求显示文本中第30行冒号后面字符的批处理

lzwudi

假如文本内容如下:

Windows IP Configuration
 
        Host Name . . . . . . . . . . . . : wudi
        Primary Dns Suffix  . . . . . . . : 
        Node Type . . . . . . . . . . . . : Unknown
        IP Routing Enabled. . . . . . . . : No
        WINS Proxy Enabled. . . . . . . . : No
 
Ethernet adapter 本地连接:
 
        Connection-specific DNS Suffix  . : 
        Description . . . . . . . . . . . : Realtek RTL8168/8111 PCI-E Gigabit Ethernet NIC
        Physical Address. . . . . . . . . : 00-30-18-A1-5D-A1
        Dhcp Enabled. . . . . . . . . . . : No
        IP Address. . . . . . . . . . . . : 192.168.1.151
        Subnet Mask . . . . . . . . . . . : 255.255.255.0
        Default Gateway . . . . . . . . . : 192.168.1.1
        DNS Servers . . . . . . . . . . . : 202.96.64.68
                                            202.96.69.38
 
PPP adapter 宽带连接:
 
        Connection-specific DNS Suffix  . : 
        Description . . . . . . . . . . . : WAN (PPP/SLIP) Interface
        Physical Address. . . . . . . . . : 00-53-45-00-00-00
        Dhcp Enabled. . . . . . . . . . . : No
        IP Address. . . . . . . . . . . . : 119.119.183.168
        Subnet Mask . . . . . . . . . . . : 255.255.255.255
        Default Gateway . . . . . . . . . : 119.119.183.168
        DNS Servers . . . . . . . . . . . : 202.96.64.68
                                            202.96.69.38
        NetBIOS over Tcpip. . . . . . . . : Disabled
复制代码

需要显示"Default Gateway . . . . . . . . . : 119.119.183.168"中的"119.119.183.168"
我看了FOR/?
我做完显示的内容是这样的:
119.119.183.168
202.96.64.68
202.96.69.38
Disabled
不知道怎么弄了
请高手帮忙!!!!

下面还有一个问题注:和上面的没有关系)
利用批处理显示当前外网IP并复制到剪切版
如果有路由器,不要显示路由器的地址哦

batman

@echo off
for /f "skip=29 tokens=2 delims=:" %%i in (a.txt) do set "str=%%i"&goto next
:next
echo %str:~1%&pause>nul
复制代码

[ 本帖最后由 batman 于 2008-9-6 18:04 编辑 ]

Batcher

如果你能把自己的代码贴出来，让别人指出你的代码中的问题，这样效果更更好。

Batcher

@echo off
findstr /i "Gateway" "a.txt"|findstr /v ".1$">"%temp%\b.txt"
set /p ip=<"%temp%\b.txt"
set ip=%ip:*: =%
echo %ip%
复制代码

lzwudi

怎么复制到剪切版呢?

lzwudi

哈哈 我弄好了:

@echo off
ipconfig/all>ip.txt
for /f "skip=29 tokens=2 delims=:" %%i in (ip.txt) do set "str=%%i"&goto next
:next
del ip.txt
start mshta vbscript:msgbox("您的IP为%str:~1% 已复制到剪切板中",32,"提示")(window.close)
echo Set WshShell=wscript.createobject("Wscript.Shell") >%n%.vbs
echo Set objIE = CreateObject("InternetExplorer.Application") >>%n%.vbs
echo objIE.Navigate("about:blank") >>%n%.vbs
echo objIE.document.parentwindow.clipboardData.SetData "text","%str:~1%">>%n%.vbs
echo Set fso = CreateObject("Scripting.FileSystemObject")>>%n%.vbs
echo fso.DeleteFile(WScript.ScriptName)>>%n%.vbs
START %n%.vbs
复制代码

pusofalse

@echo off
for /f "tokens=15" %%a in ('ipconfig^|findstr /i /c:"ip address"') do set "ip=%%a"&goto :next
:next
for /f "delims={}" %%a in ('wmic nicconfig get ipaddress^|findstr /i /v "ipaddress %ip% 0.0"') do if %%~a geq 0 echo %%~a|winclip -c
pause
复制代码

复制到剪切板。

Batcher

winclip.exe
http://bbs.bathome.net/viewthrea ... e%3D1&frombbs=1