CorrectPonct.lua

--[[
     CorrectPonct
     Copyright (C) 2014-2016 LeSaint

     To contact me (bug report / evol) : LeSaint_Fansub {at} hotmail {dot} fr
     This program is free software: you can redistribute it and/or modify
     it under the terms of the GNU General Public License as published by
     the Free Software Foundation, either version 3 of the License, or
     (at your option) any later version.

     This program is distributed in the hope that it will be useful,
     but WITHOUT ANY WARRANTY; without even the implied warranty of
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
     GNU General Public License for more details.

     You should have received a copy of the GNU General Public License
     along with this program.  If not, see <http://www.gnu.org/licenses/>.
]]

--[[
Release Note:

v1.7.2
- Prise en charge d’autres cas pour les espaces insécables fines ou non
- Prise en charge des nombres monétaires à virgules

v1.7.1
- Ne corrige maintenant la ponctuation que des lignes sélectionnées
- Retrait de l’option de rectification d'effet de bord sur les chiffres à virgule qui cause un effet non désiré sur ce genre de ligne : « 1, 2, 3, 5, 6. »

v1.7
- effet de bord avec des espaces autour de \N sur une correction en 1.6

v1.6
- correction d'espaces restant avant un \N lors d'exécutions successives du script
- mauvais espaces autour de guillemets si entouré d'apostrophe.
- problème d'espace avant points de suspension dans certains cas (notamment si les points de suspension suivent directement des guillemets)
- correction pour éviter d'avoir plusieurs fois le tag "{ErrGuillemets}" en début de ligne si le script est lancé plusieurs fois.
  (Pour rappel, cette erreur n'apparait que si les guillemets initiaux sont des guillemets droits (non français))

v1.5
- prise en charge de l'espace insécable fine (utilisée pour le point virgule, le point d'exclamation, le point d'interrogation), avec espace insécable pour les deux-point et les guillemets

v1.4
- correction pour prise en charge nouvelle version aegisub (à partir de 3.1)

v1.3
- espace insécable autour des guillemets français si utilisation de l'espace insécable demandé

v1.2
- Prise en charge des nombres décimaux (pas d'espace après . ou , si c'est un séparateur décimal)
- Prise en compte des symboles monétaires ($, £, € et ¥ pris en charge)
- Prise en compte des acronymes (composés d'un ensemble de lettres majuscules, chacune suivie d'un point, comme "A.C.M.E") (idée de Fenounet)
- Remplacement des doubles apostrophes (droites ou non) comme des guillemets. (idée de Fenounet)

v1.1
- Correction de bug : Lors d'un texte contenant "\N(", le \ devant le N était dupliqué à chaque exécution. (Merci Jikan ^^)

v1.0beta2 :
- Ajout du choix des points de suspension, de l'utilisation des espaces insécables et du type d'apostrophe

]]

script_author = "LeSaint & Vardë"
script_version = "1.7.2"
script_name = "Correction Ponctuation " .. script_version
script_description = "Corrige la ponctuation de la sélection du script courant."
script_modified = "13th Feb 2020"

-- Déclaration des variables
m_Ponctuation = {}
m_CurrencyUnits = {}
m_DblePonct = {}
m_DblePonctFine = {}
m_DblePtsnCo = {}
m_PointVirgule = {}
m_GuillemetsFR = {}
eTypeGuillemets = {}

SuspReplacement = "&µ_|#_#_"
ErrGuillTag="{ErrGuillemets}"

eTypeGuillemets.GuillemetsFR = 1
eTypeGuillemets.GuillemetsDroits = 2

-- Valeurs par défaut
UseSuspChar = true
UseRealApostroph = true
UseEspaceInsec = true

-- function: create_adjust_config
-- purpose: create config structure for adjust GUI.
-- @subs: table containing subtitles.
-- @meta: metatable.
-- return: config structure.
function create_ponct_config(subs)
    conf = {
        to = {
            class = "label",
            x = 0, y = 0, width = 4, height = 2,
            label = "Corrige la ponctuation de la sélection du script courant."
        },
        t_titre = {
            class = "label",
            x = 0, y = 2, width = 1, height = 2,
            label = "Type de guillemets : "
        },
        t_guil = {
            class = "dropdown", name = "t_guil",
            x = 1, y = 2, width = 2, height = 2,
            items = {"Français (« »)", 'Droits (" ")'}, value = "Français (« »)", hint = "Type de guillemets utilisés."
        },
        SuspChar = {
            class = "checkbox", name = "SuspChar",
            label = "Utiliser … au lieu de ...",
            x = 0, y = 4, width = 1, height = 1,
            value = UseSuspChar, hint = "Utiliser … au lieu de ..."
        },
        Apost = {
            class = "checkbox", name = "Apost",
            label = 'Utiliser ' .. "’" .. ' au lieu de ' .. "'",
            x = 1, y = 4, width = 1, height = 1,
            value = UseRealApostroph, hint = 'Utiliser ' .. "’" .. ' au lieu de ' .. "'"
        },
        EspInsec = {
            class = "checkbox", name = "EspInsec",
            label = "Utiliser l'espace insécable avant les double ponctuation",
            x = 0, y = 5, width = 4, height = 1,
            value = UseEspaceInsec, hint = "Utiliser l'espace insécable avant les double ponctuation"
        },
        t_fineEspLabel = {
            class = "label",
            x = 0, y = 6, width = 1, height = 1,
            label = "Espace insécable fine : "
        },
        t_espfine = {
            class = "dropdown", name = "t_espfine",
            x = 1, y = 6, width = 2, height = 1,
            items = {"Oui", 'Non'}, value = "Oui", hint = "Indique si l'espace insécable fine doit être utilisée."
        }

    }
    return conf
end

-- function: load_macro_ponct
-- purpose: Afficher l'IHM de correction de ponctuation.
-- @subs: table containing subtitles.
-- @sel: indexes of selected subtitle lines.
-- return: /
function load_macro_ponct(subs,sel)
    local IdxGuil
    local buttons = {"OK", "Annuler"}
    local UseEspInsecFine=false
    ok, config = aegisub.dialog.display(create_ponct_config(subs), buttons)

    if ok == "OK" or ok==true then

        if config.t_guil == "Français (« »)" then
            IdxGuil = eTypeGuillemets.GuillemetsFR
        else
            IdxGuil = eTypeGuillemets.GuillemetsDroits
        end
        if config.t_espfine == "Oui" then
            UseEspInsecFine = true
        else
            UseEspInsecFine = false
        end

        CorrigePonctuationMain(subs, sel, IdxGuil, config.EspInsec, UseEspInsecFine, config.SuspChar, config.Apost)
        aegisub.set_undo_point("Correction ponctuation")
    end
end

-- function: InitData
-- purpose: Initialisation des variables utilisées dans la correction de ponctuation.
-- return: /
function InitData()
    -- Réinitialisation du contenu des tables pour éviter les doublons et
    -- corriger quelques effets de bord (espace avant \N sur les exécutions successives).
    m_Ponctuation = {}
    m_CurrencyUnits = {}
    m_DblePonct = {}
    m_DblePonctFine = {}
    m_DblePtsnCo = {}
    m_PointVirgule = {}
    m_GuillemetsFR = {}

    table.insert(m_Ponctuation, ".")
    table.insert(m_Ponctuation, ",")
    table.insert(m_Ponctuation, ":")
    table.insert(m_Ponctuation, ";")
    table.insert(m_Ponctuation, "!")
    table.insert(m_Ponctuation, "?")
    table.insert(m_Ponctuation, '"')
    table.insert(m_Ponctuation, "«")
    table.insert(m_Ponctuation, "»")
    table.insert(m_Ponctuation, "(")
    table.insert(m_Ponctuation, ")")
    table.insert(m_Ponctuation, "'")
    table.insert(m_Ponctuation, "’")
    table.insert(m_Ponctuation, "%")
    table.insert(m_Ponctuation, "$")
    table.insert(m_Ponctuation, "€")
    table.insert(m_Ponctuation, "£")
    table.insert(m_Ponctuation, "¥")

    aegisub.log(5, "#m_Ponctuation: " .. #m_Ponctuation .. "\n")

    table.insert(m_DblePonct, "!")
    table.insert(m_DblePonct, "?")
    aegisub.log(5, "#m_DblePonct: " .. #m_DblePonct .. "\n")

    table.insert(m_DblePtsnCo, ":")
    table.insert(m_DblePtsnCo, ";")
    table.insert(m_DblePtsnCo, "%")
    table.insert(m_DblePtsnCo, "$")
    table.insert(m_DblePtsnCo, "€")
    table.insert(m_DblePtsnCo, "£")
    table.insert(m_DblePtsnCo, "¥")
    aegisub.log(5, "#m_DblePtsnCo: " .. #m_DblePtsnCo .. "\n")

    table.insert(m_DblePonctFine, "!")
    table.insert(m_DblePonctFine, "?")
    table.insert(m_DblePonctFine, ";")
    aegisub.log(5, "#m_DblePonctFine: " .. #m_DblePonctFine .. "\n")

    table.insert(m_CurrencyUnits, "%")
    table.insert(m_CurrencyUnits, "$")
    table.insert(m_CurrencyUnits, "€")
    table.insert(m_CurrencyUnits, "£")
    aegisub.log(5, "#m_CurrencyUnits: " .. #m_CurrencyUnits .. "\n")

    table.insert(m_PointVirgule, ".")
    table.insert(m_PointVirgule, ",")
    table.insert(m_PointVirgule, SuspReplacement)
    aegisub.log(5, "#m_PointVirgule: " .. #m_PointVirgule .. "\n")

    table.insert(m_GuillemetsFR, "«")
    table.insert(m_GuillemetsFR, "»")
    aegisub.log(5, "#m_GuillemetsFR: " .. #m_GuillemetsFR .. "\n")
    end

-- function: CorrigePonctuationMain
-- purpose: Réaliser la correction du script courant.
-- @subs: table des sous-titres
-- @sel: index des lignes de sous-titres sélectionnés
-- @iTypeGuillemets: type de guillemets utilisés (1 = guillemets FR (« ») ; 2 = guillemets anglais (" "))
-- return: /
function CorrigePonctuationMain(subs, sel, iTypeGuillemets, iUseEspaceInsec, iUseEspInsecFine, iUseSuspChar, iUseApost)

    local firstlineIdx=nil -- indice de première ligne de sous titre
    local sub
    local Text

    InitData()

    aegisub.progress.task("Correction de ponctuation en cours")
    aegisub.progress.set(0)
    for k, i in ipairs(sel) do
        sub = subs[i]

        if sub.class == "dialogue" then
            if firstlineIdx == nil then
                firstlineIdx = i
            end

            if not sub.comment then
                Text = CorrigePonctLigne(sub.text, iTypeGuillemets, iUseEspaceInsec, iUseEspInsecFine, iUseSuspChar, iUseApost)
                sub.text = Text
                subs[i] = sub
            end

            if firstlineIdx ~= nil then
                aegisub.progress.set((i-firstlineIdx-1) / (#subs-firstlineIdx-1) *100)
            end
        end
    end
end

-- function: CorrigePonctLigne
-- purpose: Fonction transformant une ligne en tableau, sur la base d'un séparateur. S'utilise comme toute autre fonction de la classe string.
-- @iText : texte sur lequel on cherche à corriger la ponctuation
-- @iTypeGuillements : type de guillemets utilisés (1 = guillemets FR (« ») ; 2 = guillemets anglais (" "))
-- @iUseEspaceInsec : Indique si les espaces insécables sont utilisés
-- @iUseEspInsecFine : Si les espaces insécables sont utilisés, indique si l'espace insécable fine doit être utilisée
-- @iUseSuspChar : indique si le caractère "…" doit être utilisé pour les points de suspension
-- @iUseApost : indique si le caractère apostrophe doit être utilisé
-- @return : Ligne avec ponctuation corrigée
function CorrigePonctLigne(iText, iTypeGuillements, iUseEspaceInsec, iUseEspInsecFine, iUseSuspChar, iUseApost)
    local MainStr = iText
    local splitstringtext, splitstringtag = {}, {}
    local tmpsplitstring = {}
    local TagReplacement = '¤'
    local ifor1, ifor2
    local tmpstring, tmpstring2
    local ProblemeGuillemets = false
    local mod1

    -- Séparation des tags de la chaine de texte :
    -- Préparation des tags consécutifs pour les laisser ensemble :
    aegisub.log(5, "Préparation des tags consécutifs pour les laisser ensemble :\n")
    MainStr = MainStr:Replace('}{', TagReplacement)
    aegisub.log(5, MainStr .. "\n\n")

    -- Découper la chaine d'origine :
    aegisub.log(5, "Découper la chaine d'origine :\n")
    splitstringtext = MainStr:split("{")
    aegisub.log(5, MainStr .. "\n\n")

    -- Séparation effective des tags et du texte dans splitstringtext et splitstringtags
    aegisub.log(5, "Séparation effective des tags et du texte dans splitstringtext et splitstringtags\n")
    for ifor1= 2, #splitstringtext do

        tmpstring = splitstringtext[ifor1]
        tmpsplitstring = tmpstring:split("}")
        tmpstring = "{" .. tmpsplitstring[1]:Replace(TagReplacement, "}{") .. "}"
        table.insert(splitstringtag, tmpstring)
        splitstringtext[ifor1] = tmpsplitstring[2]

    end
    aegisub.log(5, MainStr .. "\n\n")

    -- On recrée la MainStr en remplaçant les tags
    aegisub.log(5, "On recrée la MainStr en remplaçant les tags\n")
    MainStr = splitstringtext[1]

    for ifor1 =2, #splitstringtext do
        MainStr = MainStr .. TagReplacement .. splitstringtext[ifor1]
    end
    aegisub.log(5, MainStr .. "\n\n")

    -- Retrait des espaces bizarres :
    aegisub.log(5, "Retrait des espaces bizarres :\n")

    MainStr = MainStr:Replace(" ", " ") -- oui oui... ces deux espaces ne sont pas pareils... et le premier n'est apparemment pas l'insécable...
    MainStr = MainStr:Replace(" ", " ") -- remplacement de l'espace insécable fine
    MainStr = MainStr:Replace(" ", " ") -- remplacement de l'espace ponctuation
    MainStr = MainStr:Replace(" ", " ") -- remplacement de l'espace insécable
    aegisub.log(5, MainStr .. "\n\n")

    -- Retrait des espaces autour des ponctuations :
    aegisub.log(5, "Retrait des espaces autour des ponctuations :\n")
    for ifor1 = 1, #m_Ponctuation do
        tmpstring = m_Ponctuation[ifor1]
        MainStr = MainStr:Replace(" " .. tmpstring, tmpstring)
        MainStr = MainStr:Replace(tmpstring .. " ", tmpstring)
    end
    aegisub.log(5, MainStr .. "\n\n")

    -- Ajout des espaces autour des doubles ponctuations :
    aegisub.log(5, "Ajout des espaces autour des doubles ponctuations :\n")
    for ifor1 = 1, #m_DblePonct do
        tmpstring = m_DblePonct[ifor1]
        MainStr = MainStr:Replace(tmpstring, " " .. tmpstring .. " ")
    end
    aegisub.log(5, MainStr .. "\n\n")

    -- Retrait des doubles espaces :
    aegisub.log(5, "Retrait des doubles espaces :\n")
    while MainStr:Contains("  ") do
        MainStr = MainStr:Replace("  ", " ")
    end
    while MainStr:Contains(" " .. TagReplacement .. " ") do
        MainStr = MainStr:Replace(" " .. TagReplacement .. " ", " " .. TagReplacement)
    end
    aegisub.log(5, MainStr .. "\n\n")

    -- On recrée les groupes de ponctuation ! et ?
    aegisub.log(5, "On recrée les groupes de ponctuation ! et ?\n")
    for ifor1 = 1, #m_DblePonct do
        for ifor2 = 1, #m_DblePonct do
            while MainStr:Contains(m_DblePonct[ifor1] .. " " .. m_DblePonct[ifor2]) do
                MainStr = MainStr:Replace(m_DblePonct[ifor1] .. " " .. m_DblePonct[ifor2], m_DblePonct[ifor1] .. m_DblePonct[ifor2])
            end
            while MainStr:Contains(m_DblePonct[ifor1] .. " " .. TagReplacement .. m_DblePonct[ifor2]) do
                MainStr = MainStr:Replace(m_DblePonct[ifor1] .. " " .. TagReplacement .. m_DblePonct[ifor2], m_DblePonct[ifor1] .. TagReplacement .. m_DblePonct[ifor2])
            end
            while MainStr:Contains(m_DblePonct[ifor1] .. TagReplacement .. " " .. m_DblePonct[ifor2]) do
                MainStr = MainStr:Replace(m_DblePonct[ifor1] .. TagReplacement .. " " .. m_DblePonct[ifor2], m_DblePonct[ifor1] .. TagReplacement .. m_DblePonct[ifor2])
            end
        end
    end
    aegisub.log(5, MainStr .. "\n\n")

    -- Gestion des points de suspension :
    aegisub.log(5, "Gestion des points de suspension :\n")
    MainStr = MainStr:Replace("…", "..")
    while MainStr:Contains("...") do
        MainStr = MainStr:Replace("...", "..")
    end
    aegisub.log(5, MainStr .. "\n\n")

    -- On remplace les points de suspension pour les différencier des points :
    aegisub.log(5, "On remplace les points de suspension pour les différencier des points :\n")
    MainStr = MainStr:Replace("..", SuspReplacement)
    aegisub.log(5, MainStr .. "\n\n")

    -- On traite le cas des parenthèses :
    aegisub.log(5, "On traite le cas des parenthèses :\n")
    MainStr = MainStr:Replace("(", " (")
    MainStr = MainStr:Replace(")", ") ")
    aegisub.log(5, MainStr .. "\n\n")

    -- On traite le cas des doubles ponctuations :
    aegisub.log(5, "On traite le cas des doubles ponctuations :\n")
    for ifor1 = 1, #m_DblePtsnCo do
        tmpstring = m_DblePtsnCo[ifor1]
        MainStr = MainStr:Replace(tmpstring, " " .. tmpstring .. " ")
    end
    aegisub.log(5, MainStr .. "\n\n")

    -- On rajoute les espaces autour des guillemets FR :
    aegisub.log(5, "On rajoute les espaces autour des guillemets FR :\n")
    for ifor1 = 1, #m_GuillemetsFR do
        tmpstring = m_GuillemetsFR[ifor1]
        MainStr = MainStr:Replace(tmpstring, " " .. tmpstring .. " ")
    end
    aegisub.log(5, MainStr .. "\n\n")

    -- On remplace les guillemets anglais par des guillemets droits :
    aegisub.log(5, "On remplace les guillemets anglais par des guillemets droits :\n")
    MainStr = MainStr:Replace('“', '"') -- remplacement du guillemet anglais d'ouverture
    MainStr = MainStr:Replace('”', '"') -- remplacement du guillemet anglais de fermeture
    MainStr = MainStr:Replace("''", '"') -- remplacement des doubles apostrophes en guillemets
    MainStr = MainStr:Replace("'''", '\'"') -- remplacement des triples apostrophes en apostrophe + guillemets
    MainStr = MainStr:Replace("’’", '"') -- remplacement des doubles apostrophes en guillemets
    aegisub.log(5, MainStr .. "\n\n")

    -- On remplace les guillemets anglais par des français :
    aegisub.log(5, "On remplace les guillemets anglais par des français :\n")
    tmpsplitstring = nil
    mod1 = 0
    if MainStr:Contains('"') then
        tmpsplitstring = MainStr:split('"')
        mod1 = #tmpsplitstring % 2
    end
    aegisub.log(5, MainStr .. "\n\n")

    -- Génération de la phrase avec les nouveaux guillemets :
    aegisub.log(5, "Génération de la phrase avec les nouveaux guillemets :\n")
    if tmpsplitstring ~= nil then
        local idxguillemet

        tmpstring = tmpsplitstring[1]
        for ifor1 = 2, #tmpsplitstring do
            idxguillemet = 2-((ifor1+1) % 2) -- on converti l'indice en modulo 2 (1 ou 2) pour récupérer l'indice du guillemet dans m_GuillemetsFR
            tmpstring = tmpstring .. " " .. m_GuillemetsFR[idxguillemet] .. " " .. tmpsplitstring[ifor1]
        end
        if mod1 == 0 then
            -- Problème sur le nombre de guillemets trouvés
            aegisub.log(5, "Problème sur le nombre de guillemets trouvés\n")
            ProblemeGuillemets = true
        end
        MainStr = tmpstring
    end
    aegisub.log(5, MainStr .. "\n\n")

    -- v1.6: correction espaces autour de guillemets si associé à un apostrophe ou des points de suspension
    aegisub.log(5, "Correction espaces autour de guillemets si associé à un apostrophe\n")
    MainStr = MainStr:Replace("' «", "'«")
    MainStr = MainStr:Replace("’ «", "’«")
    aegisub.log(5, MainStr .. "\n\n")

    -- Si demandé, on repasse en guillemets droits
    aegisub.log(5, "Si demandé, on repasse en guillemets droits\n")
    if iTypeGuillements == eTypeGuillemets.GuillemetsDroits then
        MainStr = MainStr:Replace("« ", '"')
        MainStr = MainStr:Replace(" »", '"')
    end
    aegisub.log(5, MainStr .. "\n\n")

    -- On traite le cas des points et des virgules :
    aegisub.log(5, "On traite le cas des points et des virgules :\n")
    for ifor1 = 1, #m_PointVirgule do
        tmpstring = m_PointVirgule[ifor1]
        MainStr = MainStr:Replace(tmpstring, tmpstring .. " ")
        MainStr = MainStr:Replace(" " .. tmpstring, tmpstring)
    end
    aegisub.log(5, MainStr .. "\n\n")

    -- Rectification d'effet de bord :
    aegisub.log(5, "Rectification d'effet de bord :\n")
    for ifor1 = 1, #m_DblePonct do
        tmpstring = m_DblePonct[ifor1]
        MainStr = MainStr:Replace(tmpstring .. ".", tmpstring .. " .")
    end
    aegisub.log(5, MainStr .. "\n\n")

    -- Opérations de fignolage en fin de traitement :
    -- On remplace les points de suspension :
    aegisub.log(5, "On remplace les points de suspension :\n")
    MainStr = MainStr:Replace(SuspReplacement, "... ")
    aegisub.log(5, MainStr .. "\n\n")

    -- Retrait des doubles espaces :
    aegisub.log(5, "Retrait des doubles espaces :\n")
    while MainStr:Contains("  ") do
        MainStr = MainStr:Replace("  ", " ")
    end
    while MainStr:Contains(" " .. TagReplacement .. " ") do
        MainStr = MainStr:Replace(" " .. TagReplacement .. " ", " " .. TagReplacement)
    end
    aegisub.log(5, MainStr .. "\n\n")

    -- Si on a des retours à la ligne par \N, on vérifie qu'il n'y a pas d'espace autour :
    aegisub.log(5, "Si on a des retours à la ligne par \\N, on vérifie qu'il n'y a pas d'espace autour :\n")
    MainStr = MainStr:Replace(" \\N", "\\N")
    MainStr = MainStr:Replace("\\N ", "\\N")
    MainStr = MainStr:Replace(" \\n", "\\n")
    MainStr = MainStr:Replace("\\n ", "\\n")
    aegisub.log(5, MainStr .. "\n\n")

    -- Si le premier caractère de la chaine est un espace, on le vire :
    aegisub.log(5, "Si le premier caractère de la chaine est un espace, on le vire :\n")
    MainStr = MainStr:gsub("^ +","")
    MainStr = MainStr:gsub("^" .. TagReplacement .. " +", TagReplacement)
    aegisub.log(5, MainStr .. "\n\n")

    -- Si le dernier caractère de la chaine est un espace, on le vire :
    aegisub.log(5, "Si le dernier caractère de la chaine est un espace, on le vire :\n")
    MainStr = MainStr:gsub(" +$","")
    MainStr = MainStr:gsub(" +" .. TagReplacement .. "$", TagReplacement)
    aegisub.log(5, MainStr .. "\n\n")

    -- Ajustement des parenthèses avec les doubles ponctuations :
    aegisub.log(5, "Ajustement des parenthèses avec les doubles ponctuations :\n")
    for ifor1 = 1, #m_DblePonct do
        tmpstring = m_DblePonct[ifor1]
        MainStr = MainStr:Replace(tmpstring .. " )", tmpstring .. ")")
    end

    for ifor1 = 1, #m_DblePtsnCo do
        tmpstring = m_DblePtsnCo[ifor1]
        MainStr = MainStr:Replace(tmpstring .. " )", tmpstring .. ")")
    end
    aegisub.log(5, MainStr .. "\n\n")



    -- rectification d'effet de bord sur le % et les monnaies :
    aegisub.log(5, "Rectification d'effet de bord sur le % et les monnaies\n")
    for ifor1 = 1, #m_CurrencyUnits do
        tmpstring = m_CurrencyUnits[ifor1]
        for ifor2 = 1, #m_PointVirgule do
            tmpstring2 = m_PointVirgule[ifor2]
            MainStr = MainStr:Replace(tmpstring .. " " .. tmpstring2, tmpstring .. tmpstring2)
            MainStr = MainStr:gsub("(%d+)%" .. tmpstring2 .. "%s(%d+)%s%" .. tmpstring, "%1%" .. tmpstring2 .. "%2% %" .. tmpstring)
        end
    end
    aegisub.log(5, MainStr .. "\n\n")

    -- -- rectification d'effet de bord sur les chiffres à virgule
    -- aegisub.log(5, "Rectification d'effet de bord sur les nombres rééls\n")
    -- for ifor1 = 1, #m_PointVirgule do
    -- tmpstring = m_PointVirgule[ifor1]
    -- MainStr = MainStr:gsub("(%d+)%" .. tmpstring .. "%s(%d+)","%1%" .. tmpstring .. "%2")
    -- end
    -- aegisub.log(5, MainStr .. "\n\n")

    if ProblemeGuillemets then
        aegisub.log(5, "Notification de problème de guillemets\n")
        MainStr = ErrGuillTag .. MainStr

        aegisub.log(5, MainStr .. "\n\n")
    end

    -- cas particulier des acronymes :
    aegisub.log(5, "Cas particulier des acronymes\n")
    MainStr=MainStr:gsub("(%u)%. (%u)%.","%1%.%2%.")
    MainStr=MainStr:gsub("(%u)%. (%u)%.","%1%.%2%.")
    aegisub.log(5, MainStr .. "\n\n")

    -- Prise en compte des préférences :
    if iUseSuspChar then
        MainStr = MainStr:Replace("...", "…")
    end

    if iUseEspaceInsec then
        for ifor1 = 1, #m_DblePonct do
            tmpstring = m_DblePonct[ifor1]
            MainStr = MainStr:Replace(" " .. tmpstring, " " .. tmpstring)
            MainStr = MainStr:Replace(" " .. TagReplacement .. tmpstring, " " .. tmpstring)
        end
        for ifor1 = 1, #m_DblePtsnCo do
            tmpstring = m_DblePtsnCo[ifor1]
            MainStr = MainStr:Replace(" " .. tmpstring, " " .. tmpstring)
            MainStr = MainStr:Replace(" " .. TagReplacement .. tmpstring, " " .. tmpstring)
        end
        for ifor1 = 1, #m_CurrencyUnits do
            tmpstring = m_CurrencyUnits[ifor1]
            MainStr = MainStr:Replace(" " .. tmpstring, " " .. tmpstring)
            MainStr = MainStr:Replace(" " .. TagReplacement .. tmpstring, " " .. tmpstring)
        end

        MainStr = MainStr:Replace("« ", "« ")
        MainStr = MainStr:Replace(" »", " »")

        MainStr = MainStr:Replace("– ", "– ")
        MainStr = MainStr:Replace("— ", "— ")

        MainStr = MainStr:gsub("(%d+) (%d+)","%1 %2")
        MainStr = MainStr:gsub("(%d+) (%d+)","%1 %2")

        if iUseEspInsecFine then
            for ifor1 = 1, #m_DblePonctFine do
                tmpstring = m_DblePonctFine[ifor1]
                MainStr = MainStr:Replace(" " .. tmpstring, " " .. tmpstring)
            end
            for ifor1 = 1, #m_CurrencyUnits do
                tmpstring = m_CurrencyUnits[ifor1]
                MainStr = MainStr:Replace(" " .. tmpstring, " " .. tmpstring)
                MainStr = MainStr:Replace(" " .. TagReplacement .. tmpstring, " " .. tmpstring)
            end
            MainStr = MainStr:Replace("« ", "« ")
            MainStr = MainStr:Replace(" »", " »")

            MainStr = MainStr:Replace("– ", "– ")
            MainStr = MainStr:Replace("— ", "— ")

            MainStr = MainStr:gsub("(%d+) (%d+)","%1 %2")
            MainStr = MainStr:gsub("(%d+) (%d+)","%1 %2")
        end
    end

    if iUseApost then
        MainStr = MainStr:Replace("'", "’")
    else
        MainStr = MainStr:Replace("’", "'")
    end

    -- On replace les tags à leur place :
    aegisub.log(5, "On replace les tags à leur place :\n")
    splitstringtext = MainStr:split(TagReplacement)
    MainStr = splitstringtext[1]

    for ifor1 = 2, #splitstringtext do
        MainStr = MainStr .. splitstringtag[ifor1 - 1] .. splitstringtext[ifor1]
    end

    -- On évite les doublons du tag ErrGuillemets
    while MainStr:Contains(ErrGuillTag .. ErrGuillTag) do
        MainStr = MainStr:Replace(ErrGuillTag .. ErrGuillTag, ErrGuillTag)
    end

    aegisub.log(5, MainStr .. "\n\n")
    aegisub.log(5, "\n\n")
    return MainStr
end

-- function: string:split
-- purpose: Fonction transformant une ligne en tableau, sur la base d'un séparateur. S'utilise comme toute autre fonction de la classe string.
-- @delimiter : séparateur à utiliser (généralement un caractère seul).
-- @return : tableau résultat.
function string:split(delimiter)
    local result = { }
    local from  = 1
    local delim_from, delim_to = string.find( self, delimiter, from  )
    while delim_from do
    table.insert( result, string.sub( self, from , delim_from-1 ) )
    from  = delim_to + 1
    delim_from, delim_to = string.find( self, delimiter, from  )
    end
    table.insert( result, string.sub( self, from  ) )
    return result
end

-- function: string:Replace
-- purpose: Fonction de remplacement de texte (plain text)
-- @oldstring : chaine à remplacer
-- @newstring : chaine de remplacement
-- @return : ligne après remplacement
function string:Replace(oldstring, newstring)
    local line=nil
    local str1 = oldstring
    local str2 = newstring

    -- préparation des chaines de remplacement pour échaper tous les caractères non alphanumériques
    str1 = str1:gsub("(%W)", "%%%1")
    str2 = str2:gsub("(%W)", "%%%1")

    -- réalisation du remplacement
    line = self:gsub(str1, str2)
    return line
end

-- function: string:Contains
-- purpose: Fonction indiquant la présence d'une chaine dans une autre.
-- @str : chaine à rechercher
-- @return : true si la chaine est trouvée, false sinon
function string:Contains(str)
    local tmpstr = str:gsub("(%W)", "%%%1")
    local startid, endid
    startid, endid = self:find(tmpstr)

    if startid == nil then
        return false
    else
        return true
    end
end

---------------------------------------------------------------------
---- Macro Registrations - need to stay at the end of the script ----
---------------------------------------------------------------------
aegisub.register_macro("Corriger Ponctuation", "Corrige la ponctuation de la sélection du script courant.", load_macro_ponct)