bat输出指定文本文档里面的文件

如果您需要在批处理中输出指定文本文档里面的文件，可以使用以下代码：

@echo off
set filename=example.txt
echo Outputting files listed in %filename%...
for /f "delims=" %%a in (%filename%) do (
  type %%a
)

在这个示例中，我们首先定义了一个变量 `filename`，并将其设置为包含要输出的文件名列表的文本文件的名称。然后，我们使用 `echo` 命令输出一条消息，指示正在输出特定文本文档中列出的文件。最后，我们使用一个 `for` 循环来逐行读取文本文件中的文件名列表，并使用 `type` 命令输出每个文件的内容。

请注意，在执行此脚本之前，确保要输出的文件都存在，并且它们的文件名包含在文本文件中，每个文件名占一行。

希望这可以帮助到您！

相关问题

bat脚本向指定文本中输出点击本文件的用户

可以使用以下代码实现：

echo %username% >> 指定文本路径\文件名.txt

其中，%username% 表示当前登录用户的用户名，可以将其输出到指定的文本文件中。请将“指定文本路径\文件名.txt”替换为你想要输出的文本文件的路径和文件名。

delphi执行bat文件并获取输出文本

在Delphi中执行批处理文件（.bat或.cmd）并获取其输出文本，通常需要使用`TExecuteProcess`或`TShellExecute`组件。以下是两个示例：

### 1. 使用`TExecuteProcess`

uses
  WinAPI.Files,
  System.SysUtils,
  System.IOUtils;

const
  BatFilePath = 'path_to_your_batch_file.bat';

var
  Process: TExecuteProcess;
  OutBuffer: TStringList;
begin
  // 创建并配置进程
  Process := TExecuteProcess.Create(nil);
  try
    Process.CommandLine := QuotedStrCat(BatFilePath); // 添加双引号保护文件路径

    // 设置进程属性，如标准输入输出
    Process.UseCurrentDirectory := True;
    Process.WorkingDirectory := GetCurrentDirectory(); // 或指定工作目录

    // 启动进程
    if Process.RunWait then
    begin
      // 获取输出
      SetLength(OutBuffer, Process.StandardOutputSize);
      FillChar(Pointer(OutBuffer)^, SizeOf(TString), #0);
      Process.StandardOutput.ReadBuffer(Pointer(OutBuffer)^, Process.StandardOutputSize);

      // 输出结果
      ShowMessage(OutBuffer.Text);
    end;
  finally
    Process.Free;
  end;
end;

### 2. 使用`TShellExecute`

uses
  ShellAPI;

const
  BatFilePath = 'path_to_your_batch_file.bat',
  StdInPipe = 'nul', // Windows 系统默认的无操作设备
  StdOutPipe = 'con:', // 可用于接收进程输出
  CmdShow = SW_HIDE; // 隐藏窗口

var
  ShellLink: TShellLink;
  hStdRead, hStdWrite: Integer;
begin
  // 初始化ShellLink对象
  ShellLink := TShellLink.Create;
  try
    // 指定执行的批处理文件
    ShellLink.Path := BatFilePath;
    
    // 创建管道句柄
    if not CreatePipe(@hStdWrite, @hStdRead, nil, 0) then
      raise Exception.CreateFmt('Failed to create pipe: %s', [GetLastErrorDescription]);

    // 连接到输出
    ShellLink.ShowWindow := CmdShow;
    ShellLink.Arguments := '/k | ' + IntToHex(hStdRead, 4); // 输出重定向到管道

    // 执行命令
    if ShellLink.Exec then
    begin
      // 关闭输入端
      CloseHandle(hStdRead);

      // 创建进程
      var ProcInfo: TProcessInformation;
      if OpenProcess(PROCESS_ALL_ACCESS, False, ShellLink.ProcessId) <> 0 then
      begin
        // 读取进程输出
        ReadFile(hStdWrite, @ProcInfo.HStdOutput, SizeOf(ProcInfo.HStdOutput), @ProcInfo.HStdOutputSize, nil);
        CloseHandle(hStdWrite);

        // 解析输出
        // 注意这里假设输出是一条条单独的行，实际可能需要解析
        SetLength(OutputLines, ProcInfo.HStdOutputSize div SizeOf(WideChar));
        for I := 0 to High(OutputLines) do
          OutputLines[I] := WideString(ExtractUnicodeBytes(PWideChar(@(ProcInfo.HStdOutput)^), SizeOf(WideChar)));
      end
    end;
  finally
    ShellLink.Free;
    CloseHandle(hStdWrite);
  end;
end;