Question

批处理：如何循环读取两字符之间的内容？

吉日在大都是韩国土困苦电动车要蚌埠城（65464321）芝加哥百销售量田 蝗歇(5451546)膦田时果夺回歇爵士黑暗父爱(4643434)。

比方说上面是一个TXT文本，我们怎么写一个BAT批处理，把整个文档中()之间的字符读取出来。如何能记取一个文件夹里的多篇文档就更好了。
把批处理文件放在有多个要读取的文档里，双击就可以生成一个读取完成的文档。

最后生成一个文本为：
65464321
5451546
4643434

吉日在大都是韩国土困苦电动车要蚌埠城（65464321）芝加哥百销售量田 蝗歇(5451546)膦田时果夺回歇爵士黑暗父爱(4643434)。

比方说上面是一个TXT文本，我们怎么写一个BAT批处理，把整个文档中()之间的字符读取出来。如何能记取一个文件夹里的多篇文档就更好了。
把批处理文件放在有多个要读取的文档里，双击就可以生成一个读取完成的文档。

最后生成一个文本为：
65464321
5451546
4643434
这个问题已经解决，找人开发了个软件搞定了~~！！

Answer 1

怎么觉得这么处理的结果好象没什么实际意义呢
写了一个把批处理文件所在文件夹里的txt文件搜索一遍,只要是括号里的内容就集中放到一新文件里

@echo off&color f1
setlocal enabledelayedexpansion
echo. 请稍候
set ff=getda.txt
cd.>"%ff%"
for /f "delims=" %%a in (
'findstr "(..*) （..*）" *.txt')do (
set h=%%a
set h=!h:^(=^(ゅ!&set h=!h:^)=ゅ^)!
set h=!h:（=（ゅ!&set h=!h:）=ゅ）!
call :yky)
ping -n 2 127.1>nul
start "" "%ff%"
exit
:yky
for /f "tokens=1,2* delims=ゅ" %%u in ("%h%")do (
if "%%v"=="" goto :eof
set/a n+=1&set "sn= !n!"
cls&echo/&echo 正在收集并写入 第!sn:~-5! 条信息
echo.%%v>>"%ff%"
set nh=%%w)
set h=%nh%&goto yky

Answer 2

用 VB吧：
Private Sub Form_Load()
Dim a As String, b As String, c As String, i As Long
Dim fn As String
Open App.Path & "\out.txt" For Output As #2
fn = Dir(App.Path & "\*.txt")
While fn <> ""
If fn <> "out.txt" Then
Open App.Path & "\" & fn For Input As #1
Do While Not EOF(1)
Line Input #1, c
a = a & c & vbCrLf
Loop
Close #1
For i = 1 To Len(a)
c = Mid(a, i, 1)
If c = "(" And i < Len(a) Then
b = ""
Do
i = i + 1
c = Mid(a, i, 1)
b = b & c
Loop While i < Len(a) And Mid(a, i + 1, 1) <> ")"
Print #2, b
End If
Next
End If
fn = Dir()
Wend
Close #2
End Sub

Answer 3

哎╮(╯▽╰)╭，浪费时间的事情。