[文本处理] 批处理如何在多个文本里寻找关键字并输出？

Rank: 2

帖子: 15
积分: 127
技术: 0
捐助: 0
注册时间: 2009-9-27

17楼

发表于 2012-5-1 08:41 | 只看该作者

回复 15# canyuexiaolang

能不能帮忙在增加几个关键字的查找，本来想自己改改，怎知水平有限啊，代码大概能读懂，
第一行为这样：
SERIALNAME，LUNO，NETNO，HostPortNo0，IP，子网掩码，网关，处理器主频，物理内存总量，注册的所有人

SERIALNAME的取值，知道怎么弄，直接在set "cline=SERIALNAME;LUNO; 加上即可。物理内存总量的获取，搞了搞，没搞成，麻烦帮帮忙

Rank: 2

帖子: 15
积分: 127
技术: 0
捐助: 0
注册时间: 2009-9-27

16楼

发表于 2012-4-30 22:57 | 只看该作者

使用canyuexiaolang 的代码搞定了，谢谢坛友支持。

canyuexiaolang

荣誉版主

Rank: 8 Rank: 8

帖子: 647
积分: 3454
技术: 24
捐助: 0
注册时间: 2009-4-25

15楼

发表于 2012-4-30 06:49 | 只看该作者

::pushd A 这个A是要处理的文件夹。如果路径中有空格要加引号。比如"E:\E:\Users\Canyue\Te st"
@echo off & setlocal enabledelayedexpansion
set "now=%cd%" & pushd A || exit
set "cline=LUNO;NETNO;HostPortNo0;IP-Address;Subnet-Mask;Default-Gateway"
set temp=%cline:IP-Address=IP%
set temp=%temp:Subnet-Mask=子网掩码%
set temp=%temp:Default-Gateway=网关%
echo %temp:;=,%,处理器频率 > "%now%\a.csv"
for /f "tokens=* delims=" %%f in ('dir /b /a-d *.txt') do (call :findc "%%f") >> "%now%\a.csv"
echo 所有完成。
pause>nul
exit

:findc
setlocal
for %%i in (%cline%) do (
    set "cfind=%%i" & set "cfind=!cfind:-= !"
    for /f "skip=2 tokens=2 delims==,:" %%j in ('find "!cfind!" "%~1"') do set %%i=%%~j
)
for %%i in (%cline%) do call set /p=%%%%i%%,<nul 
for /f "skip=2 tokens=1 delims=[]: " %%i in ('find /n "处理器:" "%~1"') do set line=%%i
for /f "skip=%line% tokens=2 delims=: usebackq" %%i in ("%~1") do if not defined v echo %%i & set v=b
endlocal
goto :eof
复制代码

hfg1977

上尉

Rank: 5 Rank: 5

帖子: 425
积分: 1096
技术: 57
捐助: 0
注册时间: 2009-9-14

14楼

发表于 2012-4-30 00:24 | 只看该作者

ipconfig /all 命令返回的信息每行后面有个"退格键" (CMD环境)
保存为TXT后不会存在.

现在不确定你的实心方框到底是什么.
添加一行过滤,把换成你自己的.

...
)
for /f "tokens=1* delims==" %%a in ('set _') do set "%%a=!%%a:=++!"
echo !_LUNO!.......
复制代码

“阿姐走了。。。可是。。。我。。。我愿意。”

Rank: 2

帖子: 15
积分: 127
技术: 0
捐助: 0
注册时间: 2009-9-27

13楼

发表于 2012-4-29 23:34 | 只看该作者

感谢大家的支持
利用hfg1977 的代码
最后输出多个在ip，掩码，网关后面多了个实心方框，无法正确的排列，我手工修改输出文件cc.txt，将ip，掩码，网关后面实心方框删除，并把cc.txt后缀改成cc.csv后，排列正常。帮忙搞搞输出时候，别让他输出实心方框。

Rank: 2

帖子: 15
积分: 127
技术: 0
捐助: 0
注册时间: 2009-9-27

12楼

发表于 2012-4-29 23:33 | 只看该作者

neorobin

技术组成员

Rank: 7 Rank: 7 Rank: 7

帖子: 675
积分: 4012
技术: 112
捐助: 0
注册时间: 2009-11-25

11楼

发表于 2012-4-29 23:17 | 只看该作者

回复 9# CrLf

在 EXCEL 打开文件的对话框的文件类型下拉列表框那里就可以看到很多可以打开的文件类型, 事实上我常用的类型也屈指可数
这里也有点说明:
http://office.microsoft.com/assi ... ;LCS=1&respos=4

neorobin

技术组成员

Rank: 7 Rank: 7 Rank: 7

帖子: 675
积分: 4012
技术: 112
捐助: 0
注册时间: 2009-11-25

10楼

发表于 2012-4-29 23:10 | 只看该作者

回复 9# CrLf

EXCEL 可以打开 CSV 文件, 但不会把全角逗号当分列符,
半角逗号分列, CRLF 分行(仅 CR 或 LF 没测试过, 不知可否)

http://en.wikipedia.org/wiki/Comma-separated_values
http://zh.wikipedia.org/wiki/逗号分隔值

1 评分人数

CrLf: 3q，学习了，我一直是保存为 xls 的PB + 5

CrLf

论坛巡查

Rank: 8 Rank: 8

帖子: 6388
积分: 18843
技术: 982
捐助: 100
注册时间: 2010-10-9

9楼

发表于 2012-4-29 23:03 | 只看该作者

回复 7# neorobin

我只知道 xls 默认能识别以 tab 分割的表格或者 htm 表格...比如

@echo off
set "tab=tab制表符"
rem 这里请自行替换成实际符号
(for /l %%a in (1 1 9) do (
	setlocal enabledelayedexpansion
	for %%b in (a b c d e) do set "str=!str!%tab%%%a%%b
	echo !str:~1!
	endlocal
))>1.xls
pause
复制代码

或

@echo off
(echo ^<table^>
for /l %%a in (1 1 9) do (
	setlocal enabledelayedexpansion
	for %%b in (a b c d e) do set "str=!str!<td>%%a%%b</td>"
	echo ^<tr^>!str!^</tr^>
	endlocal
)
echo ^</table^>)>1.xls
pause
复制代码

除了 htm 格式和 tab 制表符，是否还有其他可识别的分隔符？

链接：在线第三方命令行工具下载 bat、vbs、js 原生混编

apang

上将

Rank: 8 Rank: 8

帖子: 2085
积分: 14204
技术: 665
捐助: 0
注册时间: 2011-11-27

8楼

发表于 2012-4-29 22:51 | 只看该作者

回复 7# neorobin

多谢提醒，已改过来了。

neorobin

技术组成员

Rank: 7 Rank: 7 Rank: 7

帖子: 675
积分: 4012
技术: 112
捐助: 0
注册时间: 2009-11-25

7楼

发表于 2012-4-29 22:44 | 只看该作者

回复 5# apang

用了全角的逗号, 我用的 EXCEL 2003 没有对这样的 CSV 分列

CrLf

论坛巡查

Rank: 8 Rank: 8

帖子: 6388
积分: 18843
技术: 982
捐助: 100
注册时间: 2010-10-9

6楼

发表于 2012-4-29 22:33 | 只看该作者

是工作急用的吧？看楼主这么纠结，干脆按 3 楼的建议帮你改了...
平时看到新会员犯规时常会帮忙改一下，老会员则一贯是警告，下不为例哦~

链接：在线第三方命令行工具下载 bat、vbs、js 原生混编

apang

上将

Rank: 8 Rank: 8

帖子: 2085
积分: 14204
技术: 665
捐助: 0
注册时间: 2011-11-27

5楼

发表于 2012-4-29 22:26 | 只看该作者

本帖最后由 apang 于 2012-4-29 23:12 编辑

@echo off&setlocal enabledelayedexpansion
echo LUNO,NETNO,HostPortNo0,IP,子网掩码,网关,处理器主频>a.csv
for /f "delims=" %%i in ('dir /b *.txt') do (
  set str=
  for %%a in ("LUNO" "NETNO" "HostPortNo0" "IP Address" "Subnet Mask" "Default Gateway" "Mhz") do (
    for /f "tokens=2 delims=,:=" %%b in ('findstr /i /c:"%%~a" "%%i"') do (
      set "str=!str!,%%~b"
    )
  )
  if not "!str!"=="" echo,!str:~5!>>a.csv
)
复制代码