[文本处理] [已解决]批处理怎样找自定义数值所在的行的内容？

乱乱

各位大侠
我想自定义一个数值，然后在数据文本中，找到数值所在的行，并把那一行的数据，导出写进自定义数值命名的文本中的第一行。
数据文本：
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

回复 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"
复制代码

poter

@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
复制代码

乱乱

回复 2# apang


    嗯，是这样，谢谢啦

冷玉公子

@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
复制代码

用这个就能找出你要的数据了，怎么输出不用我写了吧。

apang

是这意思吗？

@echo off
set /p Input=输入:
(find /i "%Input%,面"<"数据.txt"
type %Input%.txt)>$
move $ %Input%.txt
复制代码