|
- 帖子
- 35
- 积分
- 176
- 技术
- 0
- 捐助
- 0
- 注册时间
- 2009-12-22
|
@echo off & setlocal enabledelayedexpansion
echo 在处理请耐心等待………………
cd /d D:\招商\RemoteSH\
echo.>汇总.tx&del 汇总.txt 1>nul 2>nul
for /f "tokens=*" %%x in ('dir /b *.txt') do (
set n=0
findstr "☆曾用名" "%%~x" >>汇总.tx
for /f "tokens=1 delims=:" %%a in ('findstr /n "大股东进出" "%%~x"') do set /a x1=%%a-1
for /f "tokens=1 delims=:" %%a in ('findstr /n "所属行业:" "%%~x"') do set /a xx1=%%a-1
for /f "tokens=1 delims=:" %%a in ('findstr /n "证监会行业:" "%%~x"') do set /a xx2=%%a-1
for /f "tokens=1 delims=:" %%a in ('findstr /n /c:"────────────" "%%~x"') do (
if %%a gtr !x1! set /a n+=1
if !n! lss 3 set /a x2=%%a+1
)
set xxx= &call :x !xx1! "%%~x" !xx2!
echo.!xxx!>>汇总.tx
call :xx !x1! "%%~x" !x2!
echo.>>汇总.tx
)
ren 汇总.tx 汇总.txt
start 汇总.txt
exit
:x
for /f "skip=%1 tokens=1,* delims=: " %%a in ('findstr /n .* %2') do (
if %%a lss %3 (set xxx=!xxx!%%b) else (goto :eof)
)
:xx
for /f "skip=%1 tokens=1,* delims=:" %%a in ('findstr /n .* %2') do (
if %%a lss %3 (echo.%%b) else (goto :eof)
)>>汇总.tx
上面代码能将行业的分段落也可以提取，但不知为何部分文本总是不提取如600009这个代码。
@echo off & setlocal enabledelayedexpansion
echo 在处理请耐心等待………………
set "_s= ─────────────────────────────────────"
for /f "delims=" %%i in ('dir /b /a-d *.txt') do (
set "n="
(for /f "usebackq delims=" %%j in ("%%i") do (
set "str=%%j"
if "!str:☆曾用名=!" neq "%%j" echo;%%j
if "!str:所属行业:=!" neq "%%j" echo;%%j
if "!str: 大股东进出 =!" neq "%%j" set "m=0"
if "!m!" equ "0" (
set /a n+=1
set "_!n!=%%j"
if "!str:总 计=!" neq "%%j" set "m=1"
)
)
for /l %%a in (1 1 !n!) do echo !_%%a!
echo %_s%&echo;)>>汇总.txt
)
pause
这个出现2问题未能将行业的分段落内容提取和不按顺序提取问题出在600093开始接着本来是600094变成提取900***开头的，如何修改成按文件夹排列图标-类型的顺序就好。
上面公式基本完善只出现一个问题不按文本名称顺序提取，如何修改成按文件夹排列图标-类型的顺序或名称排序就好。问题自600093开始进入9字头。文本全部名称是由600000-600999-601***-900901--900**
提取文本按名称排序或类型排序也可以 |
|
发表于 2010-4-24 22:03
|