5i365

回复 21# flashercs

多谢大侠, 稍后我多测试一下,

flashercs

回复 19# 5i365


    16楼 已修改.

5i365

回复 14# idwma

不好意思, 我最前面总结的规律是错的, 实际情况是上面19楼的描述

5i365

回复 18# flashercs

不好意思, 刚看到, 是我又大意了, 虽然眼看着是成绩在科目的右边, 实际中间却还有单元格, 感觉我的算法不灵了, 确实有难度了
   
我把要取的科目颜色设为了红色, 原本是黑色的,

现在唯一的规律就是: 成绩左边或右边的文本是固定的, 例如, 语文成绩的右边的文本肯定是物理: 但中间有没有合并单元格不好判断

https://t.wss.ink/f/9borrlf6ksr 复制链接到浏览器打开

flashercs

回复 17# 5i365


    有没有个样本.xlsx ?网盘?

5i365

回复 16# flashercs

感谢大侠支招, 输出为空,
姓名和科目字段的文本右边有个:  把这个:删了也没有输出
但有一点可以肯定, 这几个文本都是唯一的,


$fields = @('姓名:', '语文:', '数学:', '社会:', '历史:')
$keyField = '姓名:'

flashercs

Add-Type -LiteralPath .\EPPlus.dll -ErrorAction Stop
$fields = @('姓名:', '语文:', '数学:', '社会:', '历史:')
$keyField = '姓名:'
$groupPso = Get-ChildItem -Path .\*.xlsx -Filter *.xlsx | Where-Object { -not $_.PSIsContainer } | ForEach-Object {
  try {
    $pack = New-Object OfficeOpenXml.ExcelPackage -ArgumentList $_.FullName
    $pso = New-Object psobject
    $a2d = $pack.Workbook.Worksheets[1].Cells.Value
    for ($x = $a2d.GetLowerBound(0); $x -le $a2d.GetUpperBound(0); $x++) {
      $propName = $null
      for ($y = $a2d.GetLowerBound(1); $y -le $a2d.GetUpperBound(1); $y++) {
        if ($null -eq $propName) {
          if ($fields -contains $a2d[$x, $y]) {
            $propName = $a2d[$x, $y]
          }
        } else {
          if ($null -ne $a2d[$x, $y]) {
            $pso | Add-Member -MemberType NoteProperty -Name $propName -Value $a2d[$x, $y]
            $propName = $null
          }
        }
      }
    }
    $pso
  } finally {
    if ($pack) {
      $pack.Dispose()
      $pack = $null
    }
  }
  trap {}
} | Group-Object -Property $keyField
function Get-StudentScore {
  param (
    [string[]]$UserName
  )
  $groupPso | Where-Object { $null -eq $UserName -or $UserName -contains '*' -or $UserName -contains $_.Name } | ForEach-Object {
    $pso = New-Object psobject -Property @{$keyField = $_.Name }
    $_.Group | Measure-Object -Property ($fields -ne $keyField) -Sum | ForEach-Object {
      $pso | Add-Member -MemberType NoteProperty -Name $_.Property -Value ([int]$_.Sum)
    }
    $pso
  }
}
# main
# search 佟玉
# Get-StudentScore -UserName 佟玉 | Format-Table -AutoSize
# search 张三,李四
# Get-StudentScore -UserName 张三, 李四 | Format-Table -AutoSize
# search 所有学生
# Get-StudentScore -UserName * | Format-Table -AutoSize
# search 所有学生
# Get-StudentScore | Format-Table -AutoSize
# 左对齐
Get-StudentScore | Out-GridView -Title 学生成绩汇总 -Wait
# 筛选姓名
Get-StudentScore | Out-GridView -Title 学生成绩汇总_多选 -OutputMode Multiple | Out-GridView -Title 学生成绩汇总_已选择 -Wait
复制代码

5i365

回复 14# idwma

随机! 但都是名在左, 值在右
我用下面的代码, 找到了姓名的坐标, 看来有戏了! 其它逻辑的代码, 我还写不出来
________________________________________________________

Add-Type -Path ".\EPPlus.dll"

$ex = New-Object OfficeOpenXml.ExcelPackage(".\a.xlsx")

$ex.Workbook.Worksheets[1].Cells.where({ $_.value -like "姓名" }).Address

idwma

那找到张三的位置他的成绩相对位置是横坚斜还是随机的?

5i365

回复 10# idwma

在模块论坛找到了点查找替换的代码
大图链接:  i.ibb.co/MpSdHtC/err.png
网址: https://github.com/dfinke/ImportExcel/issues/565

   

$xl = Open-ExcelPackage <<path>>
$xl.<<sheet>>.Cells.where({$_.value -like "*find*"}).foreach({$_.value = $value -replace "find","Replace"}) 
close-excelPackage $xl 
复制代码

#我必须使用以下格式来更改匹配单元格中的值：
$xl.<<sheet>>.Cells.where({$_.value -like "*find*"}).foreach({$_.Value = "Replace"})
复制代码

5i365

回复 10# idwma
输入:
$in = "张三"
___________________________________________________

输出 上面指定的姓名的, 各科目的和, 就行了, 例如下面这样:
张三是在两个xlsx文件中, 其语文,在A文件中得分35 , 在B文件中得分45, 那就直接显示其和 80 就行了, 其它科目也一样


姓名, 语文, 数学, 社会, 历史
张三, 80, 70, 160, 160
___________________________________________________

此题最大的难点: 查找姓名和科目文本

5i365

回复 10# idwma

真遇到难题了,
__________________________________________________________________________________________________
难点1:

分数的所在的单元格不是固定的, 但是有个规律:
名字和分数都在 姓名和科目名的右边, 例如下面这样: 看来要先找到姓名和科目的文本, 取到它所在的单元格坐标, 然后再取到其右边一个单元格的值

姓名 | 张三

语文 | 86

数学 | 96

__________________________________________________________________________________________________

难点2:

学校的电脑里装的是WPS, 没有装excel , 不过, 我试了一下, 给wps装上VBA组件,  也可以用 com对象, 但是要给别的电脑上全装东西, 有点麻烦
所以目前看来用那个 epplus.dll 是最好了, 我试了一下, 取单元格的值, 就是用我上面的代码,
但是要查找文本, 不知道这个模块有没有查找文本函数, 这有点难度了, 不过那个模块里有很多示例文件

idwma

那要的结果是取值还是整理还是全都要

#@&cls&powershell "type '%~0'|out-string|iex"&pause&exit
$a=new-object -com excel.application
$n='张三'
$arr=('姓名','d5',''),('语文','g19',''),('数学','w20',''),('社会','p21',''),('历史','ag21','')
dir *.xlsx|%{
    $b=$a.workbooks.open($_.fullname)
    $c=$b.sheets.item(1)
    if($c.range($arr[0][1]).value() -eq $n){
        $arr[1..$arr.count]|%{
            [int]$_[2]+=$c.range($_[1]).value()
        }
    }
    $b.close()
}
$a.quit()
$arr|%{$_ -join ':'}
复制代码

5i365

回复 8# idwma


   没有规律的就是要按单元格坐标来取值+
把下面的值先整理规律后再处理也行
姓名的值 如果在 D5
语文的值 如果在 G19
数学的值 如果在 W20
社会的值 如果在 P21
历史的值 如果在 AG21

idwma

姓名和成绩在表格里斜着排是吗
还是说没有规律的就是要按单元格坐标来取值