[其他] 【已解决】批处理如何实现有序名单每星期循环排列？

$a=gc asdf.txt
while(1){
$a[-5..-1]|%{
$b=$_ -split '\s+'
'{0}{1}' -f $b[-1],$b[-2]
if(((get-date)+[timespan]::FromDays(++$i)).dayofweek -eq 'Sunday'){break}
}
}
复制代码

$name  = '姓名.txt';       #每行2个人名，以逗号(,)隔开
$arr   = gc $name;
$count = $arr.Count;
$today = (get-Date).DayOfWeek;

$csv = @('日期,星期,上午,下午');
$csv += for ($i = 0; $i -le (7-$today); $i++){
    $date = (get-Date).AddDays($i);
    $m    = $i % $count;
    $date.ToString('yyyy/MM/dd') + ',' +  $date.ToString('ddd') + ',' + $arr[$m];
}

sc '值班表.csv' -Value $csv;

if ($count - $m - 1) {
    $arr = $arr[($m + 1)..($count - 1)] + $arr[0..$m];  #重新排序
}
$arr = $arr -replace '^([^,]+),([^,]+)$', '$2,$1';   #调换上、下午人员顺序

sc $name -Value $arr;
复制代码

$namelist="老赵,小赵,老钱,小钱,老孙,小孙,老李,小李,老周,小周"      #原名字序列
$namelist -split '(\w+,\w+)'|%{
  $a=$_.split(',',[stringsplitoptions]::removeemptyentries) 
  [array]::reverse($a)
  $new+=$a
}
$exchange=$new -join ","                     #交换上下午名字序列                                           
$lastname="小李,老李"                           #上一次csv文件最后出现的名字顺序
if ($namelist -match $lastname){$nameall=$namelist+","+$exchange}
if ($exchange -match $lastname){$nameall=$exchange+","+$namelist}
$namenew=($nameall -split "$lastname")[-1]         #将两个序列按情况拼接在一起！
$namenew=$namenew.split(',',[stringsplitoptions]::removeemptyentries)

$csv = @('日期,上午,下午')
$today=(get-date).dayofweek
$csv+=for($i=0;$i -le (7-$today);$i++){
  $n=$i*2                              #模运算有点烧脑。。添加$n来取名单
  $date=(get-date).adddays($i)
  "{0},{1},{2}" -f ($date.tostring('yyyy/MM/dd')+$date.tostring('ddd')),$namenew[$n],$namenew[$n+1]
}
$csvname=$date.tostring('yyyyMMdd')+".csv"
sc $csvname -value $csv
复制代码