标题: 请达人帮个忙，对一个文件关键字的查找个 [打印本页]
作者: Splinxus 时间: 2010-2-1 20:42 标题: 请达人帮个忙，对一个文件关键字的查找个
我有一个文件如下，我想通过实现对文件查找false，来提取false行的NAME=""，并将name=""中的内容设置变量，再用echo显示变量。
<?xml version="1.0" encoding="GB2312"?><ROOT>
<CLIENT NAME="A001" IP="192.168.0.1" ERRORTIME="1264034350" LASTRIGHTTIME="1264034350" IsCheckMatch="false">
<FILES/>
</CLIENT>
<CLIENT NAME="A002" IP="192.168.0.2" ERRORTIME="1264034518" LASTRIGHTTIME="1264034518" IsCheckMatch="true">
<FILES/>
</CLIENT>
<CLIENT NAME="A003" IP="192.168.0.3" ERRORTIME="1264036520" LASTRIGHTTIME="1264036520" IsCheckMatch="false">
<FILES/>
</CLIENT>
<CLIENT NAME="A005" IP="192.168.0.4" ERRORTIME="1264029084" LASTRIGHTTIME="1264029084" IsCheckMatch="true">
<FILES/>
</CLIENT>
<CLIENT NAME="A006" IP="192.168.0.5" ERRORTIME="1264034340" LASTRIGHTTIME="1264034340" IsCheckMatch="true">
<FILES/>
</CLIENT>
</ROOT>
<CLIENT NAME="A001" IP="192.168.0.1" ERRORTIME="1264034350" LASTRIGHTTIME="1264034350" IsCheckMatch="false">
<FILES/>
</CLIENT>
<CLIENT NAME="A002" IP="192.168.0.2" ERRORTIME="1264034518" LASTRIGHTTIME="1264034518" IsCheckMatch="true">
<FILES/>
</CLIENT>
<CLIENT NAME="A003" IP="192.168.0.3" ERRORTIME="1264036520" LASTRIGHTTIME="1264036520" IsCheckMatch="false">
<FILES/>
</CLIENT>
<CLIENT NAME="A005" IP="192.168.0.4" ERRORTIME="1264029084" LASTRIGHTTIME="1264029084" IsCheckMatch="true">
<FILES/>
</CLIENT>
<CLIENT NAME="A006" IP="192.168.0.5" ERRORTIME="1264034340" LASTRIGHTTIME="1264034340" IsCheckMatch="true">
<FILES/>
</CLIENT>
</ROOT>
作者: mountvol 时间: 2010-2-1 23:37
@echo off
set /a n=1
for /f "tokens=3 delims== " %%i in ('findstr /i "false" a.xml') do call :Sub %%i
pause
goto :eof
:Sub
echo 第%n%个Name:%~1
set /a n+=1
goto :eof
set /a n=1
for /f "tokens=3 delims== " %%i in ('findstr /i "false" a.xml') do call :Sub %%i
pause
goto :eof
:Sub
echo 第%n%个Name:%~1
set /a n+=1
goto :eof
str = ""
Set oXML = CreateObject("Microsoft.XMLDOM")
oXML.Load "a.xml"
For Each x In oXML.getElementsByTagName("CLIENT")
if Lcase(x.getAttribute("IsCheckMatch")) = "false" Then
str = str & x.getAttribute("NAME") & vbCrLf
end if
Next
WScript.Echo str
Set oXML = CreateObject("Microsoft.XMLDOM")
oXML.Load "a.xml"
For Each x In oXML.getElementsByTagName("CLIENT")
if Lcase(x.getAttribute("IsCheckMatch")) = "false" Then
str = str & x.getAttribute("NAME") & vbCrLf
end if
Next
WScript.Echo str
作者: Splinxus 时间: 2010-2-2 01:58
呵呵 我自己也弄了一下，可以是可以了，但是要2次生成txt文件....
SETLOCAL ENABLEDELAYEDEXPANSION
type CheckResult.xml | find "false" >> 1.txt
for /f "delims=" %%i in (1.txt) do (
set var=%%i
>>2.txt set/p=!var:~14,4! <nul
)
for /f "delims=" %%a in (2.txt) do (
set msg=%%a
)
senmail %msg%"
pause
作者: Splinxus 时间: 2010-2-2 02:00
| Quote: | |
|
感谢你的回复，哎....这个就是差距啊！
作者: Splinxus 时间: 2010-2-2 02:09
还有点问题，因为我需要把得到的的变量用curl通过飞信发送，可是飞信不支持空格等符号，可否把三个变量改为一个变量A001,A003...这样显示？
作者: Splinxus 时间: 2010-2-2 02:24
我自己弄了一下，可是怎么让echo %std1%自加呢？
@echo off
set /a n=1
for /f "tokens=3 delims== " %%i in ('findstr /i "false" CheckResult.xml') do call :Sub %%i
echo %std1%,%std2%
pause
goto :eof
:Sub
set std%n%=%~1
set /a n+=1
goto :eof
set /a n=1
for /f "tokens=3 delims== " %%i in ('findstr /i "false" CheckResult.xml') do call :Sub %%i
echo %std1%,%std2%
pause
goto :eof
:Sub
set std%n%=%~1
set /a n+=1
goto :eof
作者: mountvol 时间: 2010-2-2 09:18
@echo off
for /f "tokens=3 delims== " %%i in ('findstr /i "false" a.txt') do call set "str=%%i,%%str%%"
set "str=%str:"=%"
echo %str:~0,-1%
pause
for /f "tokens=3 delims== " %%i in ('findstr /i "false" a.txt') do call set "str=%%i,%%str%%"
set "str=%str:"=%"
echo %str:~0,-1%
pause