In Anbetracht der kommenden Abo Optionen am 10. Dezember, wollen viele Kunden wissen, wie viel Geld Sie in den letzten Jahren für Tickets ausgegeben hatten. Es ist fragwürdig, warum die SBB eine Übersicht der Bestellung nur für maximal ein Jahr zur Verfügung stellt? Ich kann mir nicht vorstellen, dass diese Daten nicht vorhanden sind und es sich somit um eine Einschränkung der kundenseitigen Abfrage handelt.
Leider ist es auch nicht möglich eine Summe der Ticketpreise über den angezeigten Zeitraum zu erhalten. Hierfür möchte ich eine Anleitung und kleines R-Script zur Verfügung stellen.
- Vollständiger Text der Webseite Bestellungen mit gewähltem Zeitraum kopieren (Ctrl-A Ctrl-C)
- Ein Textdokument (.txt) mit dem kopierten Text abspeichern
- R-Script bspw. mit RStudio ausführen (Pfad zum Textdokument anpassen)
R-Script
# Read the input string from the .txt file
file_path <- file.path("path/to/your/file.txt")
input_string <- readLines(file_path, warn = FALSE, encoding = "UTF-8")
# Combine lines into a single string
input_string <- paste(input_string, collapse = "\n")
# Extract CHF prices using regular expression
prices <- regmatches(input_string, gregexpr("(?<=CHF )\\d+\\.\\d{2}", input_string, perl = TRUE))
# Convert the extracted prices to numeric
prices_numeric <- as.numeric(unlist(prices))
# Print the extracted prices
cat("CHF Prices:", prices_numeric, "\n")
# Print the sum of the extracted prices
sum(prices_numeric)
Es wäre kundenorientiert, wenn weitere Jahre auf der Bestellungsübersicht und einfache Zusammenfassungen auf der Webseite zur Verfügung stehen würden.
Beste Grüsse