标题: 求助：分析TXT文件的批处理 [打印本页]
作者: gene771771 时间: 2007-7-4 09:23 标题: 求助：分析TXT文件的批处理
请看，附件中的两个TXT文件，我要分析的就是这两个文件
第一个文件 由于包括了“租赁” 这个关键词，所以这个文件予以保留
第二个文件 由于不包括“租赁” 这个关键词，所以这个文件予以删除
我写了很久但是都没有分析出来，不知道怎么回事？？？:)
[ Last edited by bjsh on 2007-7-31 at 10:09 AM ]
附件 1:1.txt (2007-7-4 09:23, 4.77 K,下载次数： 16)
附件 2:
作者: ccwan 时间: 2007-7-4 09:50
@echo off
for /f %%i in ('dir/b *.txt') do (
findstr /c:"租赁" %%i>nul
if errorlevel 1 del %%i
)
for /f %%i in ('dir/b *.txt') do (
findstr /c:"租赁" %%i>nul
if errorlevel 1 del %%i
)
作者: gene771771 时间: 2007-7-4 09:58
谢谢！！！
作者: pcqq 时间: 2007-7-4 11:04
2楼的强,学习
作者: gene771771 时间: 2007-7-4 11:10
根据你的代码，我写了如下代码
@echo off
for /l %%a in (226,1,925) do (
cd /d H:\下载\筛选\xw%%a\Paper\pdf
copy H:\下载\筛选\xw%%a\Paper\pdf\ml.htm ml.txt
for /f %%i in ('dir/b *.txt') do (
findstr /c:"证券" %%i>nul
if errorlevel 1 goto 2
)
goto 1
:2
for /f %%i in ('dir/b *.txt') do (
findstr /c:"银行" %%i>nul
if errorlevel 1 goto 3
)
goto 1
:3
for /f %%i in ('dir/b *.txt') do (
findstr /c:"股市" %%i>nul
if errorlevel 1 goto 4
)
goto 1
:4
for /f %%i in ('dir/b *.txt') do (
findstr /c:"信托" %%i>nul
if errorlevel 1 goto 5
)
goto 1
:5
for /f %%i in ('dir/b *.txt') do (
findstr /c:"保险" %%i>nul
if errorlevel 1 goto 6
)
goto 1
:6
for /f %%i in ('dir/b *.txt') do (
findstr /c:"经济" %%i>nul
if errorlevel 1 goto 7
)
goto 1
:7
for /f %%i in ('dir/b *.txt') do (
findstr /c:"利率" %%i>nul
if errorlevel 1 goto 8
)
goto 1
:8
for /f %%i in ('dir/b *.txt') do (
findstr /c:"汇率" %%i>nul
if errorlevel 1 goto 9
)
goto 1
:9
for /f %%i in ('dir/b *.txt') do (
findstr /c:"贷款" %%i>nul
if errorlevel 1 goto 10
)
goto 1
:10
for /f %%i in ('dir/b *.txt') do (
findstr /c:"公司" %%i>nul
if errorlevel 1 goto 11
)
goto 1
:11
for /f %%i in ('dir/b *.txt') do (
findstr /c:"商业" %%i>nul
if errorlevel 1 goto 12
)
goto 1
:12
for /f %%i in ('dir/b *.txt') do (
findstr /c:"服务业" %%i>nul
if errorlevel 1 goto 13
)
goto 1
:13
for /f %%i in ('dir/b *.txt') do (
findstr /c:"资产" %%i>nul
if errorlevel 1 goto 14
)
goto 1
:14
for /f %%i in ('dir/b *.txt') do (
findstr /c:"企业" %%i>nul
if errorlevel 1 goto 15
)
goto 1
:15
for /f %%i in ('dir/b *.txt') do (
findstr /c:"货币" %%i>nul
if errorlevel 1 goto 16
)
goto 1
:16
for /f %%i in ('dir/b *.txt') do (
findstr /c:"财政" %%i>nul
if errorlevel 1 goto 17
)
goto 1
:17
for /f %%i in ('dir/b *.txt') do (
findstr /c:"债券" %%i>nul
if errorlevel 1 goto 18
)
goto 1
:18
for /f %%i in ('dir/b *.txt') do (
findstr /c:"融资" %%i>nul
if errorlevel 1 goto 19
)
goto 1
:19
for /f %%i in ('dir/b *.txt') do (
findstr /c:"股票" %%i>nul
if errorlevel 1 goto 20
)
goto 1
:20
for /f %%i in ('dir/b *.txt') do (
findstr /c:"金融" %%i>nul
if errorlevel 1 goto 21
)
goto 1
:21
for /f %%i in ('dir/b *.txt') do (
findstr /c:"储蓄" %%i>nul
if errorlevel 1 goto 22
)
goto 1
:22
for /f %%i in ('dir/b *.txt') do (
findstr /c:"投资" %%i>nul
if errorlevel 1 goto 23
)
goto 1
:23
for /f %%i in ('dir/b *.txt') do (
findstr /c:"管理" %%i>nul
if errorlevel 1 goto 24
)
goto 1
:24
for /f %%i in ('dir/b *.txt') do (
findstr /c:"基金" %%i>nul
if errorlevel 1 goto 25
)
goto 1
:25
for /f %%i in ('dir/b *.txt') do (
findstr /c:"租赁" %%i>nul
if errorlevel 1 goto 26
)
goto 1
:26
rd /s /q H:\下载\筛选\xw%%a
del /q /s /a H:\下载\筛选\xw%%a.zip
echo 已删除！
goto again
:1
echo 已保存！
)
但是，运行以后，只能正常执行一次，就自动退出了，我不知道问题出在哪里，请指教。。。
如果不要最开始的FOR循环（226－925）程序可以正常运行，加上FOR循环以后，只能执行226这一个文件。。。
谢谢
作者: ThinKing 时间: 2007-7-4 11:22
貌似 for 命令内部的标签跳转无效。
你要达到什么目的呢？
作者: gene771771 时间: 2007-7-4 11:31
在 H:\下载\筛选\ 里边有很多文件夹，每个都是用xw+数字来命名的，
现在以266为例
首先需要进入H:\下载\筛选\xw266\Paper\pdf
然后将文件 ml.htm 变成 ml.txt
然后继续分析文件是不是包含关键字，不包含删除，包含保存。
现在的问题是：如何自动循环进入文件夹（分析和处理文件的部分我测试了，虽然看起来很复杂，但是是没有问题的）
for /l %%a in (226,1,925) do ( ... )
cd /d H:\下载\筛选\xw%%a\Paper\pdf
copy H:\下载\筛选\xw%%a\Paper\pdf\ml.htm ml.txt
[ Last edited by gene771771 on 2007-7-4 at 11:32 AM ]
作者: ThinKing 时间: 2007-7-4 11:51
for /L %%a in (226,1,925) do (
ren "H:\下载\筛选\xw%%a\Paper\pdf\ml.htm" ml.txt
findstr "urword" "H:\下载\筛选\xw%%a\Paper\pdf\ml.txt" >nul 2>nul || del "H:\下载\筛选\xw%%a\Paper\pdf\ml.txt"
)
ren "H:\下载\筛选\xw%%a\Paper\pdf\ml.htm" ml.txt
findstr "urword" "H:\下载\筛选\xw%%a\Paper\pdf\ml.txt" >nul 2>nul || del "H:\下载\筛选\xw%%a\Paper\pdf\ml.txt"
)
作者: ccwan 时间: 2007-7-4 11:52
我没有试验环境，不知具体情况，你的代码长度实在让我害怕^_^
不过是否可以变相思考，例如：
@echo off
for /l %%a in (226,1,925) do cd /d H:\下载\筛选\xw%%a\Paper\pdf&© ml.htm ml.txt&&call :123 ml.txt
:123
for /f %%i in (%1) do (
findstr /c:"**" %%i>nul....
作者: gene771771 时间: 2007-7-4 11:58
太感谢了，我测试一下。。。
作者: bjsh 时间: 2007-7-4 12:42
grep 一行代码 筛选出 不含关键字的文件名;
for 来删除....