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

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

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

@echo off
setlocal enabledelayedexpansion
set /p aa=输入字符:
for /f "tokens=*" %%i in ('findstr "!aa!,面" 1.txt') do (
	echo %%i>>!aa!.txt
)
复制代码

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

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