updateDates.fsx

let holidays = ["20.02.2024"; "23.02.2024"; "08.03.2024"; "01.05.2024"; "09.05.2024"; "12.06.2024"; "04.11.2024"]
let controlWorkPairNumbers = []
let fromPair = 1
let startDate = "23.09.2024"
let directoryPath = "software-design-extended"

open System.IO
open System
open System.Text.RegularExpressions

let convertedStartDate = DateTime.Parse startDate

let dirs = 
        Directory.GetDirectories directoryPath 
        |> Seq.filter (fun dir -> not ((FileInfo dir).Name.StartsWith("_")))
        |> Seq.filter (fun dir -> not ((FileInfo dir).Name.StartsWith(".")))
        |> Seq.sort

let courseDates = 
    Seq.initInfinite (fun i -> convertedStartDate + (TimeSpan.FromDays <| float (i * 7)))
    |> Seq.map (fun date -> date.ToShortDateString())
    |> Seq.except holidays
    |> Seq.indexed
    |> Seq.filter (fun (num, _) -> controlWorkPairNumbers |> List.contains (num + 1) |> not)
    |> Seq.map snd

let pairs = Seq.zip (dirs |> Seq.skip (fromPair - 1)) courseDates 

for dir, date in pairs do
    let texFiles = Directory.GetFiles(dir, "*.tex")
    for file in texFiles do
        let text = File.ReadAllText(file)

        let dateRegex = Regex @"\\date{\d\d\.\d\d\.\d\d\d\d.?}"
        let newDate = $"\\date{{{date}}}"
        let cscDateRegex = Regex @"}{\d\d\.\d\d\.\d\d\d\d.?}"
        let newCscDate = $"}}{{{date}}}"
        let updatedText = dateRegex.Replace(text, newDate)
        let cscUpdatedText = cscDateRegex.Replace(updatedText, newCscDate)

        File.WriteAllText(file, cscUpdatedText)