Configuration LibreOffice / OpenOffice Calc — chaîne eval, mode colonne

Enregistrements : 20
Débuts déjà utilisés : La personne indique qu'elle est ac | Les professionnels précisent

Chapitre;Critère;Cotations;Commentaires
"Chapitre 1";"1.1.1";"4;3;4";"AT2 : la personne explique qu'elle est accompagnée depuis 2021…"
"Chapitre 1";"1.1.2";"3";"les professionnels disent qu'il n'y a pas eu de formation"

import json
import urllib.request
import urllib.error

RUKH_URL = "https://rukh.w3hc.org/ask"
TIMEOUT = 300  # secondes ; ~6 s en mode cellule, 1 à 2 min en mode colonne

def ask(message, context):
    """Renvoie "OK:<texte>" ou "ERR:<code>". Les exceptions Python ne
    traversent pas proprement le pont UNO : le code d'erreur voyage donc dans
    la chaîne de retour, ce qui permet à Basic de distinguer un 429 d'une
    vraie panne."""
    body = json.dumps(
        {"message": message, "model": "anthropic", "context": context}
    ).encode("utf-8")
    req = urllib.request.Request(
        RUKH_URL, data=body, headers={"Content-Type": "application/json"}
    )
    try:
        with urllib.request.urlopen(req, timeout=TIMEOUT) as r:
            return "OK:" + json.loads(r.read().decode("utf-8"))["output"]
    except urllib.error.HTTPError as e:
        return "ERR:%d" % e.code
    except Exception as e:
        return "ERR:0 %s" % e

g_exportedScripts = (ask,)

Option Explicit

Const RUKH_SCRIPT = "vnd.sun.star.script:rukh.py$ask?language=Python&location=user"
Const CONTEXT_FULL = "eval-oc-full"
Const TARGET_HEADER = "Commentaires réécrits"
Const CHUNK = 20              ' enregistrements par appel — le seul réglage à connaître
Const RETRIES = 1             ' relances automatiques sur écart de compte
Const MAX_CALLS = 45          ' garde-fou par exécution, marge sous le quota de 50/heure
Const OPENING_CHARS = 32      ' longueur des débuts transmis au lot suivant

Dim oRukhScript As Object     ' résolu une fois, réutilisé pour toute l'exécution

Sub FormaliserColonne
    Dim oDoc As Object, oSheet As Object, oCur As Object, oSel As Object, oAddr As Object
    Dim oInd As Object
    Dim lastRow As Long, lastCol As Long, headerRow As Long
    Dim cChapitre As Long, cCritere As Long, cCotation As Long, cComm As Long
    Dim cQuestion As Long, cTarget As Long
    Dim selStart As Long, selEnd As Long, bSingle As Boolean
    Dim aTodo() As Long, nTodo As Long, nDone As Long, nCalls As Long
    Dim aOpen(1) As String
    Dim aLines() As String, nOut As Long
    Dim nPos As Long, nIn As Long, nTry As Long
    Dim r As Long, c As Long, j As Long, k As Long
    Dim h As String, s As String, sCot As String, sPayload As String, sRes As String

    oDoc = ThisComponent
    oSheet = oDoc.CurrentController.ActiveSheet

    oCur = oSheet.createCursor()
    oCur.gotoEndOfUsedArea(False)
    lastRow = oCur.RangeAddress.EndRow
    lastCol = oCur.RangeAddress.EndColumn

    ' --- ligne d'en-tête : colonne A = « Chapitre » ---
    headerRow = -1
    For r = 0 To lastRow
        If Norm(oSheet.getCellByPosition(0, r).getString()) = "chapitre" Then
            headerRow = r
            Exit For
        End If
    Next r
    If headerRow < 0 Then
        MsgBox "Ligne d'en-tête introuvable (colonne A = « Chapitre »).", 16, "Rukh"
        Exit Sub
    End If

    ' --- repérage des colonnes par intitulé, jamais par position ---
    cChapitre = -1 : cCritere = -1 : cCotation = -1 : cComm = -1 : cQuestion = -1 : cTarget = -1
    For c = 0 To lastCol
        h = Norm(oSheet.getCellByPosition(c, headerRow).getString())
        If h = "chapitre" And cChapitre < 0 Then cChapitre = c
        If h = "critère" And cCritere < 0 Then cCritere = c   ' « Critère ID » exclu : identifiant interne
        If StartsWith(h, "cotation") And cCotation < 0 Then cCotation = c
        If h = Norm(TARGET_HEADER) Then
            cTarget = c
        ElseIf StartsWith(h, "commentaires") And cComm < 0 Then
            cComm = c        ' la colonne de sortie commence aussi par « Commentaires » : à exclure
        End If
        If StartsWith(h, "is question") And cQuestion < 0 Then cQuestion = c
    Next c
    If cChapitre < 0 Or cComm < 0 Or cQuestion < 0 Then
        MsgBox "Colonnes « Chapitre », « Commentaires » ou « Is Question? » introuvables.", 16, "Rukh"
        Exit Sub
    End If

    If cTarget < 0 Then
        cTarget = lastCol + 1
        oSheet.getCellByPosition(cTarget, headerRow).setString(TARGET_HEADER)
    End If

    ' --- périmètre : c'est la sélection qui dit quoi traiter ---
    oSel = oDoc.CurrentSelection
    If IsNull(oSel) Then
        MsgBox "Sélectionner d'abord une cellule ou une plage.", 16, "Rukh"
        Exit Sub
    End If
    If oSel.supportsService("com.sun.star.sheet.SheetCellRanges") Then
        oAddr = oSel.getRangeAddresses()(0)   ' sélection multiple : première plage seulement
    ElseIf oSel.supportsService("com.sun.star.sheet.SheetCellRange") Then
        oAddr = oSel.RangeAddress
    Else
        MsgBox "Sélectionner d'abord une cellule ou une plage.", 16, "Rukh"
        Exit Sub
    End If
    selStart = oAddr.StartRow
    selEnd = oAddr.EndRow
    bSingle = (selStart = selEnd)

    ' --- enregistrements à traiter : lignes de critère non encore réécrites ---
    ReDim aTodo(lastRow)
    nTodo = 0
    For r = headerRow + 1 To lastRow
        If r >= selStart And r <= selEnd Then
            If StartsWith(oSheet.getCellByPosition(cChapitre, r).getString(), "Chapitre ") Then
                If Trim(oSheet.getCellByPosition(cQuestion, r).getString()) = "" Then
                    If Trim(oSheet.getCellByPosition(cComm, r).getString()) <> "" Then
                        If bSingle Or Trim(oSheet.getCellByPosition(cTarget, r).getString()) = "" Then
                            aTodo(nTodo) = r
                            nTodo = nTodo + 1
                        End If
                    End If
                End If
            End If
        End If
    Next r

    If nTodo = 0 Then
        MsgBox "Rien à faire : toutes les cellules de la sélection sont déjà réécrites.", 64, "Rukh"
        Exit Sub
    End If

    ' --- mémoire des débuts, réamorcée depuis la colonne de sortie ---
    aOpen(0) = "" : aOpen(1) = ""
    For r = aTodo(0) - 1 To headerRow + 1 Step -1
        s = Trim(oSheet.getCellByPosition(cTarget, r).getString())
        If s <> "" Then
            If aOpen(1) = "" Then
                aOpen(1) = Left(s, OPENING_CHARS)
            Else
                aOpen(0) = Left(s, OPENING_CHARS)
                Exit For
            End If
        End If
    Next r

    oInd = oDoc.CurrentController.Frame.createStatusIndicator()
    oInd.start("Rukh : réécriture par lots…", nTodo)
    nPos = 0 : nDone = 0 : nCalls = 0

    Do While nPos < nTodo
        If nCalls >= MAX_CALLS Then Exit Do

        nIn = nTodo - nPos
        If nIn > CHUNK Then nIn = CHUNK

        ' --- construction du CSV du lot ---
        sPayload = "Enregistrements : " & nIn & Chr(10)
        If aOpen(0) <> "" Or aOpen(1) <> "" Then
            sPayload = sPayload & "Débuts déjà utilisés : " & JoinOpenings(aOpen) & Chr(10)
        End If
        sPayload = sPayload & Chr(10) & "Chapitre;Critère;Cotations;Commentaires" & Chr(10)

        For k = 0 To nIn - 1
            r = aTodo(nPos + k)

            ' cotations des lignes E.E. rattachées à ce critère, pour la règle « cependant »
            sCot = ""
            For j = r + 1 To lastRow
                If Trim(oSheet.getCellByPosition(cQuestion, j).getString()) = "" Then Exit For
                If cCotation >= 0 Then
                    s = Trim(oSheet.getCellByPosition(cCotation, j).getString())
                    If s <> "" Then
                        If sCot <> "" Then sCot = sCot & ";"
                        sCot = sCot & s
                    End If
                End If
            Next j

            s = ""
            If cCritere >= 0 Then s = oSheet.getCellByPosition(cCritere, r).getString()

            ' OneLine() sur le commentaire : un enregistrement tient sur une ligne physique,
            ' ce qui supprime à la source la principale cause de décalage.
            sPayload = sPayload & _
                Csv(oSheet.getCellByPosition(cChapitre, r).getString()) & ";" & _
                Csv(s) & ";" & Csv(sCot) & ";" & _
                Csv(OneLine(oSheet.getCellByPosition(cComm, r).getString())) & Chr(10)
        Next k

        ' --- appel, avec relance sur écart de compte ---
        nOut = -1
        For nTry = 0 To RETRIES
            sRes = RukhAsk(sPayload, CONTEXT_FULL)
            nCalls = nCalls + 1

            If Left(sRes, 7) = "ERR:429" Then
                oInd.end()
                MsgBox "Quota atteint après " & nDone & " cellule(s). Reste " & (nTodo - nDone) & _
                       ". Relancer dans une heure.", 48, "Rukh"
                Exit Sub
            ElseIf Left(sRes, 4) = "ERR:" Then
                oInd.end()
                MsgBox "Erreur " & Mid(sRes, 5) & " sur le lot commençant ligne " & (aTodo(nPos) + 1) & _
                       ". " & nDone & " cellule(s) écrite(s), conservées.", 16, "Rukh"
                Exit Sub
            End If

            nOut = SplitLines(StripFence(Mid(sRes, 4)), aLines())
            If nOut = nIn Then Exit For
        Next nTry

        ' --- garde-fou de calage : sur écart, ce lot n'est pas écrit du tout ---
        If nOut <> nIn Then
            oInd.end()
            MsgBox nOut & " ligne(s) reçue(s) pour " & nIn & " enregistrement(s) envoyé(s) : " & _
                   "ce lot n'a pas été écrit, pour ne pas décaler la colonne." & Chr(10) & _
                   "Lot commençant ligne " & (aTodo(nPos) + 1) & ". " & nDone & _
                   " cellule(s) écrite(s) avant, conservées." & Chr(10) & _
                   "Réduire CHUNK puis relancer : la reprise repartira de ce lot.", 16, "Rukh"
            Exit Sub
        End If

        ' --- écriture du lot ---
        For k = 0 To nIn - 1
            oSheet.getCellByPosition(cTarget, aTodo(nPos + k)).setString(OneLine(aLines(k)))
            nDone = nDone + 1
        Next k
        oInd.setValue(nDone)

        ' --- débuts transmis au lot suivant ---
        If nIn >= 2 Then
            aOpen(0) = Left(OneLine(aLines(nIn - 2)), OPENING_CHARS)
        Else
            aOpen(0) = aOpen(1)
        End If
        aOpen(1) = Left(OneLine(aLines(nIn - 1)), OPENING_CHARS)

        nPos = nPos + nIn
    Loop

    oInd.end()

    If nTodo - nDone > 0 Then
        MsgBox nDone & " cellule(s) réécrite(s) en " & nCalls & " appel(s). Reste " & _
               (nTodo - nDone) & " : relancer.", 64, "Rukh"
    Else
        MsgBox nDone & " cellule(s) réécrite(s) en " & nCalls & " appel(s). Sélection terminée.", 64, "Rukh"
    End If
End Sub

' --- pont vers le script Python ---------------------------------------------

Function RukhAsk(sMessage As String, sContext As String) As String
    Dim oFactory As Object
    Dim aArgs(1) As Variant
    Dim aOutIdx(), aOutArgs()

    If IsNull(oRukhScript) Then
        oFactory = createUnoService("com.sun.star.script.provider.MasterScriptProviderFactory")
        oRukhScript = oFactory.createScriptProvider("").getScript(RUKH_SCRIPT)
    End If

    aArgs(0) = sMessage
    aArgs(1) = sContext
    RukhAsk = oRukhScript.invoke(aArgs(), aOutIdx(), aOutArgs())
End Function

' --- utilitaires propres au mode colonne -------------------------------------

' Champ CSV : toujours entre guillemets, guillemet interne doublé.
Function Csv(sText As String) As String
    Csv = """" & Join(Split(sText, """"), """""") & """"
End Function

' Découpe la réponse en lignes non vides. Les lignes vides sont ignorées plutôt
' que comptées : les instructions les interdisent, et les ignorer évite de
' rejeter un lot par ailleurs correct.
Function SplitLines(sText As String, aOut() As String) As Long
    Dim a() As String, k As Long, n As Long, s As String
    a = Split(Join(Split(sText, Chr(13) & Chr(10)), Chr(10)), Chr(10))
    ReDim aOut(UBound(a))
    n = 0
    For k = 0 To UBound(a)
        s = Trim(a(k))
        If s <> "" Then
            aOut(n) = s
            n = n + 1
        End If
    Next k
    SplitLines = n
End Function

' --- utilitaires partagés avec la macro cellule par cellule -------------------

Function Norm(v As String) As String
    Dim s As String
    s = LCase(Trim(v))
    s = Join(Split(s, Chr(10)), " ")
    s = Join(Split(s, Chr(13)), " ")
    s = Join(Split(s, Chr(9)), " ")
    Do While InStr(s, "  ") > 0
        s = Join(Split(s, "  "), " ")
    Loop
    Norm = Trim(s)
End Function

Function StartsWith(sText As String, sPrefix As String) As Boolean
    StartsWith = (Left(sText, Len(sPrefix)) = sPrefix)
End Function

Function JoinOpenings(aOpen() As String) As String
    If aOpen(0) <> "" And aOpen(1) <> "" Then
        JoinOpenings = aOpen(0) & " | " & aOpen(1)
    Else
        JoinOpenings = aOpen(0) & aOpen(1)
    End If
End Function

Function StripFence(sText As String) As String
    Dim a() As String, i0 As Long, i1 As Long, k As Long, sOut As String
    a = Split(Join(Split(sText, Chr(13) & Chr(10)), Chr(10)), Chr(10))
    i0 = LBound(a)
    i1 = UBound(a)
    Do While i0 <= i1 And Trim(a(i0)) = ""
        i0 = i0 + 1
    Loop
    Do While i1 >= i0 And Trim(a(i1)) = ""
        i1 = i1 - 1
    Loop
    If i0 <= i1 And Left(Trim(a(i0)), 3) = "```" Then i0 = i0 + 1
    If i0 <= i1 And Trim(a(i1)) = "```" Then i1 = i1 - 1
    For k = i0 To i1
        If sOut <> "" Then sOut = sOut & Chr(10)
        sOut = sOut & a(k)
    Next k
    StripFence = sOut
End Function

Function OneLine(sText As String) As String
    Dim s As String
    s = Join(Split(sText, Chr(13)), " ")
    s = Join(Split(s, Chr(10)), " ")
    Do While InStr(s, "  ") > 0
        s = Join(Split(s, "  "), " ")
    Loop
    OneLine = Trim(s)
End Function