Advertisement
ZTTrak

AMTK

May 23rd, 2024 (edited)
626
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.  
  2. $stationCode = Read-Host "Enter the Amtrak Station Code you would like to monitor."
  3.  
  4.  
  5. $url = "https://dixielandsoftware.net/Amtrak/solari/data/" + $stationCode + "_schedule.txt"
  6. $url2 = "_schedule.txt"
  7.  
  8. $urlfinal = $url + "" + $url2
  9.  
  10.  
  11. try {
  12.     $response = Invoke-WebRequest -Uri $url -UseBasicParsing
  13.  
  14.     if ($response.StatusCode -eq 200) {
  15.         Write-Output $response.Content
  16.         $jsonObject = $response.Content | ConvertFrom-Json
  17.  
  18.         $currentDate = Get-Date
  19.  
  20.  
  21.         $year = $currentDate.Year
  22.         $month = $currentDate.Month
  23.         $day = $currentDate.Day
  24.         Write-Output $year
  25.         Write-Output $month.toString("D2")
  26.         Write-Output $day      
  27.         $phrase2 = "</a>"
  28.  
  29.  
  30.         foreach ($item in $jsonObject) {
  31.             Write-Output "--=New Section=--"
  32.             $trainnonew = $item.trainno
  33.             $outputString = $trainnonew -replace [regex]::Escape($aphrase)
  34.             Write-Output $newTrainNumber
  35.             Write-Output "Train Number: $($outputString)"
  36.             Write-Output "Scheduled: $($item.scheduled)"
  37.             Write-Output "Scheduled 24h: $($item.scheduled24)"
  38.             Write-Output "Service: $($item.service)"
  39.             Write-Output "Destination: $($item.destination)"
  40.             Write-Output "Origin: $($item.origin)"
  41.             Write-Output "Remarks/Boarding: $($item.remarks_boarding)"
  42.             Write-Output "New Time: $($item.newtime)"
  43.             Write-Output "New Time 24h: $($item.newtime24)"
  44.             Write-Output ""
  45.         }  
  46.         while ($true) {& $refreshDataStart-Sleep -Seconds 30}
  47.     } else {
  48.         Write-Output "Failed to fetch data for station code $stationCode. Please check the station code and try again."
  49.     }
  50. } catch {
  51.     Write-Output "Failed to fetch data for station code $stationCode. Please check the station code and try again. URL was $url"
  52. }
  53.  
  54.  
  55. $refreshData = {
  56.     $url = "https://dixielandsoftware.net/Amtrak/solari/data/" + $stationCode + "_schedule.txt"
  57. $url2 = "_schedule.txt"
  58.  
  59. $urlfinal = $url + "" + $url2
  60.  
  61.  
  62. try {
  63.     $response = Invoke-WebRequest -Uri $url -UseBasicParsing
  64.  
  65.     if ($response.StatusCode -eq 200) {
  66.         Write-Output $response.Content
  67.         $jsonObject = $response.Content | ConvertFrom-Json
  68.  
  69.         $currentDate = Get-Date
  70.  
  71.  
  72.         $year = $currentDate.Year
  73.         $month = $currentDate.Month
  74.         $day = $currentDate.Day
  75.         Write-Output $year
  76.         Write-Output $month.toString("D2")
  77.         Write-Output $day      
  78.         $phrase2 = "</a>"
  79.  
  80.  
  81.         foreach ($item in $jsonObject) {
  82.             Write-Output "--=New Section=--"
  83.             $trainnonew = $item.trainno
  84.             $outputString = $trainnonew -replace [regex]::Escape($aphrase)
  85.             Write-Output $newTrainNumber
  86.             Write-Output "Train Number: $($outputString)"
  87.             Write-Output "Scheduled: $($item.scheduled)"
  88.             Write-Output "Scheduled 24h: $($item.scheduled24)"
  89.             Write-Output "Service: $($item.service)"
  90.             Write-Output "Destination: $($item.destination)"
  91.             Write-Output "Origin: $($item.origin)"
  92.             Write-Output "Remarks/Boarding: $($item.remarks_boarding)"
  93.             Write-Output "New Time: $($item.newtime)"
  94.             Write-Output "New Time 24h: $($item.newtime24)"
  95.             Write-Output ""
  96. }      
  97.     } else {
  98.         Write-Output "Failed to fetch data for station code $stationCode. Please check the station code and try again."
  99.     }
  100. } catch {
  101.     Write-Output "Failed to fetch data for station code $stationCode. Please check the station code and try again. URL was $url"
  102. }
  103.     Get-Date
  104. }
  105.  
  106.  
  107.  
  108.  
  109.  
  110. Write-Host "Press any key to exit..." -NoNewline
  111. $x = $host.UI.RawUI.ReadKey("NoEcho,IncludeKeyDown")
  112.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement