[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[文本处理] [已解决]请教,代码有无恶意

本帖最后由 lxh623 于 2011-11-17 07:20 编辑

我去一个网站求代码,估计是外国人开的。现在有些文件无法移动、命名。
原始问题:http://www.bathome.net/thread-14568-1-1.html
我想问,代码有无恶意?
有恶意的话,有没有办法消除?
怎样批处理获得这些文件名称,输出到文本?然后删除文件?
这些文件有个特征,右键“发送到”下面的都没有了。包括“剪切、复制、删除、从命名”等。
  1. @echo off &SetLocal EnableExtensions EnableDelayedExpansion
  2. for /f "usebackq tokens=1,2 delims= " %%a in (
  3.    "b2.txt"
  4. ) do(
  5.    echo.a=%%~a_, b=%%~b_
  6.    set /a $error = 0
  7.    ::
  8.    for /f "delims=" %%? in (
  9.       '2^>nul dir /b /a:-D /s  "E:\JP-WKA\*.pdf" "E:\JP-WKA\*.txt"
  10.    ) do (
  11.       if /i ["%%~a"] == ["%%~?"] (
  12.          set /a $error += 1
  13.       )
  14.       if /i ["%%~b"] == ["%%~?"] (
  15.          set /a $error += 1
  16.       )
  17.    )
  18.    if !$error! equ 2 (
  19.       ::
  20.       set /a $error = 0
  21.       ::
  22.       for /f "delims=" %%? in (
  23.          '2^>nul dir /b /a:D-H /s "E:\"'
  24.       ) do (
  25.          if /i ["%%~a"] == ["%%~?"] (
  26.             set /a $error += 1
  27.          )
  28.          if /i ["%%~b"] == ["%%~?"] (
  29.             set /a $error += 1
  30.          )
  31.       )
  32.       if !$error! equ 2 (
  33.          ::
  34.          echo.I'm unsure what you plan to do here, sorry.
  35.       )
  36.    )
  37. )
  38. pause
复制代码
1

评分人数

    • CrLf: 感谢给帖子标题标注[已解决]字样PB + 2

我自己看不出来,所以,结题。

TOP

返回列表