领航

回复 30# flashercs


    感谢老师回复！
再问一下，这个批处理可以批量处理一批文档吧？能做在一个批处理当中吗？谢谢！
如把c:\a.txt 每一行写到一个特定的.dat  放在c:\news\1001\
      c:\c.txt   每一行写到一个特定的.dat  放在c:\news\1002\
      c:\d.txt   每一行写到一个特定的.dat  放在 c:\news\1003\

flashercs

回复 31# 领航


    又修改了一下代码,你试试这次能打开datacfg.dat吗

领航

回复 32# flashercs

可以了。
     感谢老师回复！
再问一下，我想处理一批文档；能做在一个批处理当中吗？谢谢！
如把c:\a.txt 每一行写到一个特定的.dat  放在c:\news\1001\
      c:\c.txt   每一行写到一个特定的.dat  放在c:\news\1002\
      c:\d.txt   每一行写到一个特定的.dat  放在 c:\news\1003\

flashercs

回复 33# 领航

<#*,:&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 {}
  }
}
复制代码

领航

回复 34# flashercs

报告老师，经反复测试，可以批量生成dat，但是软件读取不了，经比对，怀疑是之前的dat里面的历史数据都没有了，麻烦您分析一下是什么原因，谢谢！
附件里面是，单个导入和批量导入的前后文件，提供给老师参考https://wwn.lanzout.com/iBbDt08s090b

flashercs

回复 35# 领航


    34楼修改了

领航

回复 36# flashercs

请问老师，下面这个批处理，a.bat,b.bat,c,bat.d.bat分别运行完了，那些窗口怎么自动关闭？
    @echo off

start b.bat
start a.bat
start c.bat
start d.bat
exit

领航

回复 36# flashercs


    还是不行，不麻烦老师了，我就一个一个运行吧