@echo off
for /f "delims=" %%a in (test.txt) do (
for /f "tokens=1-2 delms=^|" %%b in ("%%a") do (
echo %%a>%%b-%%c.dat
))
复制代码

cd "c:\txt"
for /f "tokens=1-2* delims=|" %%i in (a.txt) do echo,%%i^|%%j^|%%k>"c:\news\1001\%%i_%%j.dat"
复制代码

<#*,:&cls
@echo off
cd /d "%~dp0"
powershell -C "Set-Location -LiteralPath ([Environment]::CurrentDirectory);. ([ScriptBlock]::Create((Get-Content -LiteralPath \"%~f0\" -ReadCount 0 | Out-String)))"
pause
exit /b
#>
$txtpath = "c:\txt\a.txt"
$dirdata = "c:\news\1001"
$dicDataPath = @{}
$rootdir = [System.IO.Directory]::CreateDirectory($dirdata)
foreach ($line in (Get-Content -LiteralPath $txtpath -ReadCount 0)) {
  if ($line -match '^\s*$') {
    continue
  }
  $a, $b, $c, $d = $line -split '\|'
  $datapath = [System.IO.Path]::Combine($rootdir.FullName, "${a}_${b}.dat")
  if (-not $dicDataPath.ContainsKey($datapath)) {
    $dicDataPath[$datapath] = 1
    $filemode = [System.IO.FileMode]::Create
  } else {
    $filemode = [System.IO.FileMode]::Append
  }
  try {
    $stream = New-Object System.IO.FileStream -ArgumentList @($datapath, $filemode, [System.IO.FileAccess]::Write, [System.IO.FileShare]::Read)
    $bw = New-Object System.IO.BinaryWriter -ArgumentList $stream
    $bw.Write($c -as [int])
    $bw.Write($d -as [float])
  } finally {
    if ($bw) {
      $bw.Close()
      $bw = $null
    }
    if ($stream) {
      $stream.Close()
      $stream = $null
    }
  }
  trap {}
}
复制代码

1|603982|20220722|39200819
1|603982|20220725|735065
复制代码

<#*,:&cls
@echo off
cd /d "%~dp0"
powershell -C "Set-Location -LiteralPath ([Environment]::CurrentDirectory);. ([ScriptBlock]::Create((Get-Content -LiteralPath \"%~f0\" -ReadCount 0 | Out-String)))"
pause
exit /b
#>
# txtpath = dirdata
$dictxtpath = @{
  "c:\txt\a.txt" = "c:\news\1001"
  "c:\txt\b.txt" = "c:\news\1002"
  "c:\txt\c.txt" = "c:\news\1003"
}
function Import-WgcCsv {
  # support ps2.0, -LiteralPath
  [CmdletBinding(DefaultParameterSetName = 'Delimiter')]
  param (
    [Parameter(Mandatory = $true, ValueFromPipeline = $true, ValueFromPipelineByPropertyName = $true)]
    [Alias('PSPath')]
    [string[]]$LiteralPath,
    [ValidateSet('ASCII', 'BigEndianUnicode', 'Default', 'OEM', 'Unicode', 'UTF7', 'UTF8', 'UTF32')]
    [string]$Encoding = 'ASCII',
    [Parameter(ParameterSetName = 'Delimiter')]
    [char]$Delimiter = ',',
    [Parameter(ParameterSetName = 'UseCulture')]
    [switch]$UseCulture,
    [Parameter()]
    [ValidateNotNullOrEmpty()]
    [string[]]$Header
  )
  process {
    foreach ($lPath in $LiteralPath) {
      trap {}
      try {
        $txt = (Get-Content -ReadCount 0 -LiteralPath $lPath -Encoding $Encoding) -join ([Environment]::NewLine)
        if ($PSCmdlet.ParameterSetName -eq 'Delimiter') {
          if ($null -ne $Header -and $Header.Count -gt 0) {
            ConvertFrom-Csv -InputObject $txt -Delimiter $Delimiter -Header $Header
          } else {
            ConvertFrom-Csv -InputObject $txt -Delimiter $Delimiter
          }
        } else {
          if ($null -ne $Header -and $Header.Count -gt 0) {
            ConvertFrom-Csv -InputObject $txt -UseCulture:$UseCulture -Header $Header
          } else {
            ConvertFrom-Csv -InputObject $txt -UseCulture:$UseCulture
          }
        }
      } finally {
    
      }
    }
  }
}
$sortlist = New-Object 'System.Collections.Generic.SortedList[int,float]'
foreach ($txtpath in $dictxtpath.Keys) {
  $txtpath
  $dirdata = $dictxtpath[$txtpath]  
  $rootdir = [System.IO.Directory]::CreateDirectory($dirdata)

  Import-WgcCsv -LiteralPath $txtpath -Encoding UTF8 -Delimiter '|' -Header a, b, c, d | Group-Object -Property a, b | ForEach-Object {
    $datapath = [System.IO.Path]::Combine($rootdir.FullName, "$($_.Values -join '_').dat")
    $sortlist.Clear()
    if (Test-Path -LiteralPath $datapath) {
      # read data record
      try {
        $stream = New-Object System.IO.FileStream -ArgumentList @($datapath, [System.IO.FileMode]::Open, [System.IO.FileAccess]::Read, [System.IO.FileShare]::Read)
        $br = New-Object System.IO.BinaryReader -ArgumentList $stream
        while ($true) {
          $key = $br.ReadInt32()
          $value = $br.ReadSingle()
          $sortlist[$key] = $value
        }
      } catch {}
      finally {
        if ($br) {
          $br.Close()
          $br = $null
        }
        if ($stream) {
          $stream.Close()
          $stream = $null
        }
      }
    }
    # add txt record
    foreach ($pso in $_.Group) {
      $sortlist[($pso.c -as [int])] = $pso.d -as [float]
    }
    # write data record
    try {
      $stream = New-Object System.IO.FileStream -ArgumentList @($datapath, [System.IO.FileMode]::Create, [System.IO.FileAccess]::Write, [System.IO.FileShare]::Read)
      $bw = New-Object System.IO.BinaryWriter -ArgumentList $stream
      foreach ($key in $sortlist.Keys) {
        $bw.Write($key)
        $bw.Write($sortlist[$key])
      }
    } finally {
      if ($bw) {
        $bw.Close()
        $bw = $null
      }
      if ($stream) {
        $stream.Close()
        $stream = $null
      }
    }
    trap {}
  }
}
复制代码