Files
Owen Leibman 826451937e Better Definitions for Mixed Parameters and Values Part 4 of Many
Continuing work started with PR #4016, PR #4026, and PR #4060. Improve documentation within program by making explicit what types of values are allowed for variables described as "mixed". In order to avoid broken functionality, this is done mainly through doc-blocks. This will get us closer to Phpstan Level 9, but many changes will be needed before we can consider that.

After this PR, 231 changes remain, all in src/Calculation.
2024-08-24 22:08:13 -07:00

307 lines
14 KiB
PHP

<?php
// not yet ready for prime time
declare(strict_types=1);
namespace PhpOffice\PhpSpreadsheetTests\Writer\Xlsx;
use PhpOffice\PhpSpreadsheet\Calculation\Calculation;
use PhpOffice\PhpSpreadsheet\Cell\DataValidation;
use PhpOffice\PhpSpreadsheet\NamedRange;
use PhpOffice\PhpSpreadsheet\Spreadsheet;
use PhpOffice\PhpSpreadsheet\Style\Alignment;
use PhpOffice\PhpSpreadsheet\Style\Border;
use PhpOffice\PhpSpreadsheet\Worksheet\Worksheet;
use PHPUnit\Framework\TestCase;
// TODO - I think the spreadsheet below is too difficult for PhpSpreadsheet to calculate correctly.
class ArrayFunctions2Test extends TestCase
{
private const STYLESIZE14 = [
'font' => [
'size' => 14,
],
];
private const STYLEBOLD = [
'font' => [
'bold' => true,
],
];
private const STYLEBOLD14 = [
'font' => [
'bold' => true,
'size' => 14,
],
];
private const STYLECENTER = [
'alignment' => [
'horizontal' => Alignment::HORIZONTAL_CENTER,
],
];
private const STYLETHICKBORDER = [
'borders' => [
'outline' => [
'borderStyle' => Border::BORDER_THICK,
'color' => ['argb' => '00000000'],
],
],
];
private array $trn;
private string $outputFile = '';
protected function tearDown(): void
{
if ($this->outputFile !== '') {
unlink($this->outputFile);
$this->outputFile = '';
}
}
private function odd(int $i): bool
{
return ($i % 2) === 1;
}
private function doPartijen(Worksheet $ws): int
{
$saring = explode("\n", $this->trn['PARINGEN']);
$s = $this->trn['PLAYERSNOID'];
$g = $this->trn['RONDEGAMES'];
$KD = $this->trn['KALENDERDATA'];
$si = $this->trn['PLAYERSIDS'];
$a = [
['Wit', null, null, null, 'Zwart', null, null, null, 'Wit', 'Uitslag', 'Zwart', 'Opmerking', 'Datum'],
['Winstpunten', 'Weerstandspunten', 'punten', 'Tegenpunten', 'Winstpunten', 'Weerstandspunten', 'punten', 'Tegenpunten'],
];
$ws->fromArray($a, null, 'A1');
$ws->getStyle('A1:L1')->applyFromArray(self::STYLEBOLD);
$ws->getStyle('A1:L1')->applyFromArray(self::STYLESIZE14);
$lijn = 1;
for ($i = 1; $i <= $this->trn['RONDEN']; ++$i) {//aantal ronden oneven->heen en even->terug
$countSaring = count($saring);
for ($j = 0; $j < $countSaring; ++$j) {//subronden
++$lijn;
if (isset($KD[(($i - 1) * $this->trn['SUB_RONDEN']) + $j], $KD[(($i - 1) * $this->trn['SUB_RONDEN']) + $j]['RONDE'])) {
$ws->setCellValue([9, $lijn], $KD[(($i - 1) * $this->trn['SUB_RONDEN']) + $j]['RONDE']);
} else {
$ws->setCellValue([9, $lijn], 'Kalenderdata zijn niet(volledig) ingevuld');
}
if (isset($KD[(($i - 1) * $this->trn['SUB_RONDEN']) + $j], $KD[(($i - 1) * $this->trn['SUB_RONDEN']) + $j]['TXT'])) {
$ws->setCellValue([10, $lijn], $KD[(($i - 1) * $this->trn['SUB_RONDEN']) + $j]['TXT']);
} else {
$ws->setCellValue([10, $lijn], 'Kalenderdata zijn niet(volledig) ingevuld');
}
$ws->getStyle('A' . $lijn . ':L' . $lijn . '')->applyFromArray(self::STYLEBOLD14);
$s2 = explode(' ', $saring[$j]);
$counts2 = count($s2);
for ($k = 0; $k < $counts2; ++$k) {//borden
if (trim($s2[$k]) == '') {
continue;
}
$s3 = explode('-', $s2[$k]); //wit-zwart
$s3[0] = (int) $s3[0];
$s3[1] = (int) $s3[1];
++$lijn;
$ws->setCellValue([1, $lijn], '=IF(SUBSTITUTE(TRIM($J' . $lijn . '),"-","")="","",XLOOKUP($K' . $lijn . ',Spelers!$B$2:$B$' . (count($s) + 1) . ',Spelers!$C$2:$C$' . (count($s) + 1) . ',FALSE) * VLOOKUP(J' . $lijn . ', PuntenLijst,4,FALSE))');
$ws->setCellValue([2, $lijn], '=IF(SUBSTITUTE(TRIM($J' . $lijn . '),"-","")="","",VLOOKUP($K' . $lijn . ',Spelers!$B$2:$D$' . (count($s) + 1) . ',3,FALSE) * VLOOKUP(J' . $lijn . ', PuntenLijst,5,FALSE))');
$ws->setCellValue([3, $lijn], '=IF(TRIM($J' . $lijn . ')="","",XLOOKUP($J' . $lijn . ', Punten!$A$2:$A$50,Punten!$B$2:$B$50,0,0))');
$ws->setCellValue([4, $lijn], '=IF(TRIM($J' . $lijn . ')="","",XLOOKUP($J' . $lijn . ', Punten!$A$2:$A$50,Punten!$G$2:$G$50,0,0))');
$ws->setCellValue([5, $lijn], '=IF(SUBSTITUTE(TRIM($J' . $lijn . '),"-","")="","",VLOOKUP($I' . $lijn . ',Spelers!$B$2:$D$' . (count($s) + 1) . ',3,FALSE) * VLOOKUP(J' . $lijn . ', PuntenLijst,6,FALSE))');
$ws->setCellValue([6, $lijn], '=IF(SUBSTITUTE(TRIM($J' . $lijn . '),"-","")="","",VLOOKUP($I' . $lijn . ',Spelers!$B$2:$D$' . (count($s) + 1) . ',3,FALSE) * VLOOKUP(J' . $lijn . ', PuntenLijst,5,FALSE))');
$ws->setCellValue([7, $lijn], '=IF(TRIM($J' . $lijn . ')="","",XLOOKUP($J' . $lijn . ', Punten!$A$2:$A$50,Punten!$C$2:$C$50,0,0))');
$ws->setCellValue([8, $lijn], '=IF(TRIM($J' . $lijn . ')="","",XLOOKUP($J' . $lijn . ', Punten!$A$2:$A$50,Punten!$H$2:$H$50,0,0))');
if ($this->odd($i)) {
if (
isset($g[$i][$si[((int) $s3[0]) - 1]][$si[((int) $s3[1]) - 1]])
) {
$pw = $g[$i][$si[((int) $s3[0]) - 1]][$si[((int) $s3[1]) - 1]];
} else {
$pw = ['SYMBOOLWIT' => '', 'SYMBOOLZWART' => '', 'UITSLAG' => '', 'OPMERKING' => '', 'DATUM' => ''];
}
$ws->setCellValue([9, $lijn], '=Spelers!$B$' . ($s3[0] + 1));
$ws->setCellValue([11, $lijn], '=Spelers!$B$' . ($s3[1] + 1));
} else {
if (
isset($g[$i][$si[((int) $s3[1]) - 1]][$si[((int) $s3[0]) - 1]])
) {
$pw = $g[$i][$si[((int) $s3[1]) - 1]][$si[((int) $s3[0]) - 1]];
} else {
$pw = ['SYMBOOLWIT' => '', 'SYMBOOLZWART' => '', 'UITSLAG' => '', 'OPMERKING' => '', 'DATUM' => ''];
}
$ws->setCellValue([9, $lijn], '=Spelers!$B$' . ($s3[1] + 1));
$ws->setCellValue([11, $lijn], '=Spelers!$B$' . ($s3[0] + 1));
}
if ($pw['SYMBOOLWIT'] != '') {
$ws->setCellValue([10, $lijn], $pw['SYMBOOLWIT'] . '-' . $pw['SYMBOOLZWART']);
}
$ws->setCellValue([13, $lijn], $pw['OPMERKING']);
$ws->setCellValue([14, $lijn], $pw['DATUM']);
$this->doValidationPunten($ws, 'J' . $lijn);
$ws->getRowDimension($lijn)->setOutlineLevel(1);
}
++$lijn;
}
++$lijn;
}
$ws->getStyle('J1:J' . $lijn)->applyFromArray(self::STYLECENTER);
$ws->getColumnDimension('A')->setVisible(false);
$ws->getColumnDimension('B')->setVisible(false);
$ws->getColumnDimension('C')->setVisible(false);
$ws->getColumnDimension('D')->setVisible(false);
$ws->getColumnDimension('E')->setVisible(false);
$ws->getColumnDimension('F')->setVisible(false);
$ws->getColumnDimension('G')->setVisible(false);
$ws->getColumnDimension('H')->setVisible(false);
for ($i = 65; $i < ord('M'); ++$i) {
$ws->getColumnDimension(chr($i))->setAutoSize(true);
}
$ws->setAutoFilter('A2:M' . $lijn);
$ws->setSelectedCell('A1');
return $lijn;
}
private function doValidationPunten(Worksheet $s, string $cel): void
{
$validation = $s->getCell($cel)->getDataValidation();
$validation->setType(DataValidation::TYPE_LIST);
$validation->setErrorStyle(DataValidation::STYLE_STOP);
$validation->setAllowBlank(false);
$validation->setShowInputMessage(false);
$validation->setShowErrorMessage(true);
$validation->setShowDropDown(true);
$validation->setFormula1('=punten');
}
private function doPunten(Spreadsheet $ss, Worksheet $ws): void
{
$ws->fromArray(['Uitslag', 'Wit', 'Zwart', 'Winstverhouding WIT', 'Weerstandverhouding', 'Winstverhouding ZWART', 'Tegenpunten Wit', 'Tegenpunten Zwart'], null, 'A1');
$ws->fromArray(['0-3', '0', '3', '0', '1', '1', '0', '0'], null, 'A2');
$ws->fromArray(['1-3', '1', '3', '0', '1', '1', '0', '-1'], null, 'A3');
$ws->fromArray(['2-3', '2', '3', '0', '1', '1', '0', '-2'], null, 'A4');
$ws->fromArray(['3-0', '3', '0', '1', '1', '0', '0', '0'], null, 'A5');
$ws->fromArray(['3-1', '3', '1', '1', '1', '0', '-1', '0'], null, 'A6');
$ws->fromArray(['3-2', '3', '2', '1', '1', '0', '-2', '0'], null, 'A7');
$ws->fromArray(['U-U', '0', '0', '0', '0', '0', '0', '0'], null, 'A8');
$ss->addNamedRange(new NamedRange('Punten', $ws, '=$A$2:$A$8'));
$ss->addNamedRange(new NamedRange('PuntenLijst', $ws, '=$A$2:$H$8'));
$ws->getStyle('A1:H1')->applyFromArray(self::STYLETHICKBORDER);
$ws->getStyle('A1:A8')->applyFromArray(self::STYLETHICKBORDER);
$ws->getStyle('B2:H8')->applyFromArray(self::STYLETHICKBORDER);
for ($i = 65; $i < ord('I'); ++$i) {
$ws->getColumnDimension(chr($i))->setAutoSize(true);
}
$ws->setSelectedCell('A1');
}
private function doSpelers(Worksheet $ws, int $maxLijn): void
{
$this->doKoppen($ws);
$i = 1;
foreach ($this->trn['SPELERS'] as $speler) {
$ws->setCellValue([1, ++$i], '=RANK(D' . $i . ',$D$2:$D$' . (count($this->trn['SPELERS']) + 1) . ',0)-1+COUNTIF($D$2:D' . $i . ',D' . $i . ')');
$ws->setCellValue([2, $i], $speler);
$ws->setCellValue([3, $i], '=COUNTIFS(Partijen!$I$3:$I$' . $maxLijn . ',$B' . $i . ',Partijen!$J$3:$J$' . $maxLijn . ',"<>")+COUNTIFS(Partijen!$K$3:$K$' . $maxLijn . ',Spelers!$B' . $i . ',Partijen!$J$3:$J$' . $maxLijn . ',"<>")'); // - SUM(H' . $i . ':I' . $i . ')
$ws->setCellValue([4, $i], '=SUMIFS(Partijen!C$3:C$' . $maxLijn . ',Partijen!$I$3:$I$' . $maxLijn . ',$B' . $i . ')+SUMIFS(Partijen!G$3:G$' . $maxLijn . ',Partijen!$K$3:$K$' . $maxLijn . ',$B' . $i . ')');
$ws->setCellValue([5, $i], '=SUMIFS(Partijen!D$3:D$' . $maxLijn . ',Partijen!$I$3:$I$' . $maxLijn . ',$B' . $i . ')+SUMIFS(Partijen!H$3:H$' . $maxLijn . ',Partijen!$K$3:$K$' . $maxLijn . ',$B' . $i . ')');
$ws->setCellValue([6, $i], '=SUMIFS(Partijen!A$3:A$' . $maxLijn . ',Partijen!$I$3:$I$' . $maxLijn . ',$B' . $i . ')+SUMIFS(Partijen!E$3:E$' . $maxLijn . ',Partijen!$K$3:$K$' . $maxLijn . ',$B' . $i . ')');
$ws->setCellValue([7, $i], '=SUMIFS(Partijen!B$3:B$' . $maxLijn . ',Partijen!$I$3:$I$' . $maxLijn . ',$B' . $i . ')+SUMIFS(Partijen!F$3:F$' . $maxLijn . ',Partijen!$K$3:$K$' . $maxLijn . ',$B' . $i . ')');
$ws->setCellValue([8, $i], '=C' . $i . '*MAX(Punten!$B$2:$B$50)-D' . $i . '');
}
$ws->setSelectedCell('A1');
}
private function doSort1(Worksheet $ws): void
{
$ws->setCellValue('A2', '=FILTER(SORTBY(Spelers!A2:H101,Spelers!D2:D101,-1,Spelers!E2:E101,1),(Spelers!B2:B101<>"Bye")*(NOT(ISBLANK(Spelers!B2:B101))))');
$this->doKoppen($ws);
$ws->setSelectedCell('A1');
}
private function doSort2(Worksheet $ws): void
{
$ws->setCellValue('A2', '=SORT(FILTER(Spelers!A2:H101,(Spelers!B2:B101<>"Bye") * (NOT(ISBLANK(Spelers!B2:B101)))),7,1,FALSE)');
$this->doKoppen($ws);
$ws->setSelectedCell('A1');
}
private function doKoppen(Worksheet $ws): void
{
$ws->setCellValue('A1', 'Plaats');
$ws->setCellValue('B1', 'Naam');
$ws->setCellValue('C1', 'Partijen');
$ws->setCellValue('D1', 'Punten');
$ws->setCellValue('E1', 'Tegenpunten');
$ws->setCellValue('F1', 'Winstpunten');
$ws->setCellValue('G1', 'Weerstandspunten');
$ws->setCellValue('H1', 'Verlorenpunten');
for ($i = 65; $i < ord('I'); ++$i) {
$ws->getColumnDimension(chr($i))->setAutoSize(true);
}
$ws->getStyle('A1:H1')->applyFromArray(self::STYLEBOLD);
}
public function testManyArraysOutput(): void
{
$json = file_get_contents('tests/data/Writer/XLSX/ArrayFunctions2.json');
self::assertNotFalse($json);
$trn = json_decode($json, true);
self::assertIsArray($trn);
$this->trn = $trn;
$spreadsheet = new Spreadsheet();
Calculation::getInstance($spreadsheet)->setInstanceArrayReturnType(Calculation::RETURN_ARRAY_AS_ARRAY);
$wsPartijen = $spreadsheet->getActiveSheet();
$wsPartijen->setTitle('Partijen');
$wsPunten = new Worksheet($spreadsheet, 'Punten');
$wsSpelers = new Worksheet($spreadsheet, 'Spelers');
$wsSort1 = new Worksheet($spreadsheet, 'Gesorteerd punten');
$wsSort2 = new Worksheet($spreadsheet, 'Gesorteerd verlorenpunten');
$wsPartijen->getTabColor()->setRGB('FF0000');
$wsPunten->getTabColor()->setRGB('00FF00');
$wsSpelers->getTabColor()->setRGB('0000FF');
$wsSort1->getTabColor()->setRGB('FFFF00');
$wsSort2->getTabColor()->setRGB('00FFFF');
foreach ([$wsPunten, $wsSpelers, $wsSort1, $wsSort2] as $ws) {
$spreadsheet->addSheet($ws);
}
$this->doPunten($spreadsheet, $wsPunten);
$maxLijn = $this->doPartijen($wsPartijen);
$this->doSpelers($wsSpelers, $maxLijn);
$this->doSort1($wsSort1);
$this->doSort2($wsSort2);
self::assertSame('Dirk', $wsPartijen->getCell('I3')->getCalculatedValue());
self::assertSame('Rudy', $wsPartijen->getCell('K4')->getCalculatedValue());
$calcArray = $wsSort2->getCell('A2')->getCalculatedValue();
self::assertCount(8, $calcArray);
$spreadsheet->disconnectWorksheets();
}
}