标题: [文本处理] [已解决]批处理怎样找自定义数值所在的行的内容? [打印本页]
作者: 乱乱 时间: 2012-11-1 13:09 标题: [已解决]批处理怎样找自定义数值所在的行的内容?
各位大侠
我想自定义一个数值,然后在数据文本中,找到数值所在的行,并把那一行的数据,导出写进自定义数值命名的文本中的第一行。
数据文本:
10,0.1871 ,1,1,面,4,耕
10,1.1619 ,1,2,面,2,耕
10,0.8063 ,1,3,面,4,耕
10,1.0766 ,1,4,面,6,耕
10,0.1043 ,1,5,面,4,耕
10,0.7868 ,1,6,面,7,耕
10,0.3033 ,1,7,面,4,耕
10,0.5889 ,1,8,面,3,耕
10,0.7498 ,1,9,面,4,耕
...
...
比如自定义数值为 8 ,就把 8,面 所在行的数据导出,写进8.txt的第一行。(8.txt文本有内容)
作者: apang 时间: 2012-11-1 16:03
是这意思吗?- @echo off
- set /p Input=输入:
- (find /i "%Input%,面"<"数据.txt"
- type %Input%.txt)>$
- move $ %Input%.txt
复制代码
作者: 冷玉公子 时间: 2012-11-1 16:10
- @Echo Off&SetLocal EnableDelayedExpansion
-
- Set "File=E:\Scrypt_T\Bactsh\String.txt"
- Set "Scring=8,面"
-
- For /F "tokens=*" %%A In (%File%) Do (
- Set "Scr=%%A"
- Set "Scr=!Scr:%Scring%=!"
- If Not "!Scr!" == "%%A" Echo %%A
- )
- Pause>Nul
复制代码
用这个就能找出你要的数据了,怎么输出不用我写了吧。
作者: 乱乱 时间: 2012-11-1 19:38
回复 2# apang
嗯,是这样,谢谢啦
作者: poter 时间: 2012-11-1 20:51
- @echo off
- setlocal enabledelayedexpansion
- set /p aa=输入字符:
- for /f "tokens=*" %%i in ('findstr "!aa!,面" 1.txt') do (
- echo %%i>>!aa!.txt
- )
复制代码
vbs- option explicit
- dim str, a, b, fso, txt, txt1, re
- str = inputbox("输入字符")
-
- set fso = createobject("scripting.filesystemobject")
- set txt = fso.opentextfile("1.txt")
- set txt1 = fso.createtextfile(str & ".txt")
- for each a in fun_re(txt.readall)
- txt1.writeline a
- next
-
- function fun_re(str1)
- set re = new regexp
- re.pattern = ".*" & str & ",面" & ".*"
- re.global = true
- set fun_re = re.execute(str1)
- end function
复制代码
作者: apang 时间: 2012-11-1 23:30
回复 5# poter
貌似楼主不要求创建新文件
无聊中,偶也来个vbs,不要笑。。。- Input = InputBox("输入数字:",,"8")
- If Input = "" Then Wscript.Quit
- Set FSO = CreateObject("Scripting.FileSystemObject")
- Set File = FSO.OpenTextFile("数据.txt",1)
- Str = FSO.OpenTextFile(Input & ".txt",1).ReadAll
- Do Until File.AtEndOfStream
- Text = File.ReadLine
- If Replace(Text,Input & ",面","") <> Text Then
- Str = Text & vbCrLf & Str :Exit Do
- End If
- Loop
- FSO.OpenTextFile(Input & ".txt",2).Write Str
- MsgBox "OK"
复制代码
欢迎光临 批处理之家 (http://www.bathome.net/) |
Powered by Discuz! 7.2 |