读取CSV文件并根据日期输出结果

时间:2018-07-19 12:10:20

标签: csv date vbscript

我有一个2列的CSV文件

02/07/2018,Week A
09/07/2018,Week B
16/07/2018,Week A
23/07/2018,Week B
30/07/2018,Summer Break

如何将其读入VBScript,然后查找当前星期,然后显示一条消息以显示第二列中的文本?

例如,如果今天是19/07/2018,则显示的消息将是Week A

1 个答案:

答案 0 :(得分:2)

选择使用powershell .....从来没有意识到使用powershell可以完成多少工作。...

    #Get the Current Week
$today = Get-Date
$delta = $today.DayOfWeek.value__ - 1

#Import CSV
$CheckDate = $today.AddDays(-$delta).Date
$data = Import-Csv weeks.csv | 
    Where-Object {
        ($_."WeekDate" -as [DateTime]) -eq $CheckDate
    }

#Rename Wallpaper
if ($data.WeekAB -eq "Week A") {
  Copy-Item "\\server\netlogon\Wallpapers\Staff_WeekA.jpg" "\\server\netlogon\Wallpapers\Staff.jpg"
  Copy-Item "\\server\netlogon\Wallpapers\Student_WeekA.jpg" "\\server\netlogon\Wallpapers\Staff.jpg"
    Write-Host "Week A"
}
else {
Copy-Item "\\server\netlogon\Wallpapers\Staff_WeekB.jpg" "\\server\netlogon\Wallpapers\Staff.jpg"
  Copy-Item "\\server\netlogon\Wallpapers\Student_WeekB.jpg" "\\server\netlogon\Wallpapers\Staff.jpg"
  Write-Host "Week B"
}

此方法使我可以设置墙纸,而不显示消息。

感谢Powershell指针:-)