@echo off&setlocal enabledelayedexpansion
set "a= "
set "han=F:\zhubi\"
set "ye=F:\zhubi\合并%date%.txt"
set "gu=内盘成交笔数 内盘成交量 内盘单笔最大成交量 外盘成交笔数 外盘成交量 外盘单笔最大成交量 委托买入总量 委买总笔 委买单笔最大成交量 委托卖出总量 委卖总笔 委卖单笔最大成交量"
for %%a in (内盘 外盘 内盘笔 外盘笔 委买 委卖 委买笔 委卖笔) do for /l %%b in (1,1,31) do call:xing "%%a%%b"
for %%a in (%gu%) do call:xing "%%a"
echo.开始合并到文本"%ye%"
>"%ye%" echo.名称%a%日期!xing!
for /f "usebackq tokens=1,2" %%a in ("%han%内盘1.txt") do >>"%ye%" echo.%%a%a%%%b!#%%a!
echo.操作已完成&pause&exit
:xing
set "xing=!xing!%a%%~1"
set "b=%han%%~1.txt"
echo.正在预处理%b%...
for /f "usebackq tokens=1,3" %%a in ("%b%") do set "#%%a=!#%%a!%a%%%b"
复制代码

@echo off
set t=%time%
(
set /p=名称 日期<nul 
for %%i in (*.txt) do set /p =%%~ni<nul 
echo.
for /f "tokens=1,2" %%i in (委买1.txt) do (
    echo 正在处理 %%i>con
    set /p=%%i %%j<nul 
    for /f "tokens=3" %%x in ('findstr /bc:"%%i" *.txt') do set /p=%%x<nul 
    echo.
)
echo.
)>result
start notepad.exe result
cls
echo 处理完毕
echo %t%
echo %time%
pause
复制代码

@echo off
set t=%time%
set "olddir=%cd%"
cd /d f:\zhubi
(
set /p=名称 日期<nul 
for %%i in ( *.txt) do set /p =%%~ni<nul 
echo.
for /f "tokens=1,2" %%i in (委买1.txt) do (
    echo 正在处理 %%i>con
    set /p=%%i %%j<nul 
    for /f "tokens=3" %%x in ('findstr "%%i" *.txt') do set /p=%%x<nul 
    echo.
)
echo.
)>"%olddir%\result.txt"
start "" "%olddir%\result.txt"
cls
echo 处理完毕
echo %t%
echo %time%
pause
复制代码

@echo off
set "olddir=%cd%"
cd /d f:\zhubi
set t=%time%
cd.>"%olddir%\tmp.txt"
for %%i in (*.txt) do (
    call set str1=%%str1%%+%%i
    call set str2=%%str2%% %%~ni
)
copy %str1:~1% "%olddir%\tmp.txt"
echo 名称 日期 %str2%>"%olddir%\result.txt"
cls
(for /f "tokens=1,2" %%i in (委买1.txt) do (
    echo 正在处理 %%i>con
    set /p=%%i %%j<nul 
    for /f "tokens=3" %%x in ('findstr /ib "%%i" "%olddir%\tmp.txt"') do (
        set /p=%%x<nul 
    )
    echo.
))>>"%olddir%\result.txt"
start "" "%olddir%\result.txt"
cls
echo 处理完毕
echo %t%
echo %time%
pause
复制代码

Option Explicit

Sub Try()
    Dim lngRow As Long, i As Integer, objFso As Object, objFolder As Object, arrData, _
        objFl As Object, objOpFl As Object, strPth As String, intCol As Integer, strTime As String, intSh As Integer

    strPth = "f:\zhubi"     '在此指定要处理的目标文件夹
    Set objFso = CreateObject("scripting.filesystemobject")
    If objFso.folderexists(strPth) = False Then
        MsgBox "文件夹" & Chr(34) & strPth & Chr(34) & "不存在!!!" & Chr(10) & vbCrLf & _
            "请按 Alt + F11 打开 VBE 编辑器指定新的路径...", 48, " ：("
        Set objFso = Nothing
        Exit Sub
    End If
    strTime = Time
    intSh = 1
    Sheets(intSh).Select
    Application.ScreenUpdating = False
    Range("a1:iv65536").ClearContents
    Cells(1, 1) = "名称": Cells(1, 2) = "日期"
    Set objFolder = objFso.getfolder(strPth)
    Set objOpFl = objFso.opentextfile(strPth & "\" & "内盘笔4.txt", 1)
    lngRow = 1: intCol = 2
    Do Until objOpFl.atendofstream
        arrData = Split(objOpFl.readline, vbTab, -1, 1)
        lngRow = lngRow + 1
        Cells(lngRow, 1) = arrData(0): Cells(lngRow, 2) = arrData(1)
    Loop
    objOpFl.Close
    For Each objFl In objFolder.Files
        If objFso.GetExtensionName(strPth & "\" & objFl.Name) = "txt" Then
            Set objOpFl = objFso.opentextfile(strPth & "\" & objFl.Name)
            lngRow = 1: intCol = intCol + 1
            If intCol > 256 Then
                intCol = 1: intSh = intSh + 1
                For i = 1 To 256
                    Columns(i).AutoFit
                Next i
                Sheets(intSh).Select
            End If
            Cells(1, intCol) = objFso.GetbaseName(objFl.Name)
            Do Until objOpFl.atendofstream
                arrData = Split(objOpFl.readline, vbTab, -1, 1)
                lngRow = lngRow + 1
                Cells(lngRow, intCol) = arrData(2)
            Loop
            objOpFl.Close
        End If
    Next
    Set objFso = Nothing: Set objFolder = Nothing: Set objOpFl = Nothing
    For i = 1 To Range("iv1").End(xlToLeft).Column
        Columns(i).AutoFit
    Next i
    Application.ScreenUpdating = True
    MsgBox strTime & vbCrLf & Time & Chr(10) & "Done!", 0, "Right?"
End Sub
复制代码

@echo off
set var=内盘 外盘 内盘笔 外盘笔 委买 委卖 委买笔 委卖笔
md tem
for %%i in (%var%) do (
   for /l %%L in (1 1 31) do (
      for /f "tokens=1-3" %%a in (%%i%%L.txt) do >>"tem\%%a %%b.txt" echo %%c
    )
)
set num=内盘成交笔数 内盘成交量 内盘单笔最大成交量 外盘成交笔数 外盘成交量 外盘单笔最大成交量
set num=%num% 委托买入总量 委买总笔 委买单笔最大成交量 委托卖出总量 委卖总笔 委卖单笔最大成交量
set /p=名称 日期 %var% %num%<nul>test.txt
for %%i in (%num%) do (
   for /f "tokens=1-3" %%a in (%%i.txt) do >>"tem\%%a %%b" echo %%c
)
set lj=%cd%
cd/d tem
for %%i in (*.txt) do (
   set/p=%%~ni<nul>>"%lj%\test.txt"
   for /f "usebackq delims=" %%a in ("%%i") do set /p= %%a<nul>>"%lj%\test.txt"
   echo;
)
cd..
rd /s /q tem
start test.txt
复制代码