中国DOS联盟

@echo off
setlocal ENABLEDELAYEDEXPANSION
for /f "delims=" %%a in ('dir /b /s /a 1366\*.xml') do (
        echo %%a
        type "%%a">%%~dpa\%%~na.txt
        fr -rnnlic:".*name=\"click\">([0-9]*)\</item\>.*" -t:"\1" %%~dpa\%%~na.txt
        set /p click=<%%~dpa\%%~na.txt
        echo !click!

)
pause

@echo off
setlocal ENABLEDELAYEDEXPANSION
for /f "delims=" %%a in ('dir /b /s /a 1366\*.xml') do (
        for /f "delims=" %%i in ('type "%%a"^|fr -rnnlic:".*name=\"click\">([0-9]*)\</item\>.*" -t:"\1"') do (
                set click=%%i
       
)
        echo 点击率!click! 文件名%%a

)

pause

Dim fso,wsp,doc,xxx
Set fso=CreateObject("Scripting.FileSystemObject")
Set wsp=CreateObject("Shell.Application")
Set doc=CreateObject("Microsoft.XMLDOM")
doc.async="false"
filename="info.xml"  '要提取的xml文件名,小写

SFolder fso.GetFolder(wsp.BrowseForFolder(0,"选择要提取的目录",0).self.path)

Sub SFolder(xFolder)
        If xFolder.Files.Count > 0 Then
                SFile xFolder
        End If
        If xFolder.SubFolders.Count > 0 Then
                For Each yFolder In xFolder.SubFolders
                        SFolder yFolder
                Next
        End If
End Sub

Sub SFile(xFile)
        For Each fs In xFile.Files
                If LCase(fs.Name) = filename Then
                        Parse fs.path
                End If
        Next
End Sub


Sub Parse(path)
        doc.load path
        xxx=xxx &_
        doc.documentElement.selectSingleNode("//item[@name='click']").text & vbTab &_
        doc.documentElement.selectSingleNode("//item[@name='name']").text & vbTab &_
        path & vbCrLf
'这里可以添加判断当click小于多少直接删除
'If doc.documentElement.selectSingleNode("//item[@name='click']").text <50 Then delete
End Sub

Wscript.Echo xxx

@echo off
setlocal ENABLEDELAYEDEXPANSION
for /f "delims=" %%a in ('dir /b /s /a 1366\*.xml') do (
        for /f "delims=" %%i in ('fr -rnnlic:".*name=\"click\">([0-9]*)\</item\>.*" -t:"\1" "%%a" -stdout') do (
                set "click=%%i"       
)
        echo !click! %%a
)
pause