DominoArea.org [Archive]

Quelqu'un a t il un code ou un produit (gratuit de préférence) permettant de rechercher et de remplacer une chaine de caractères dans les formules de masque.

salut

pour les produit pouvant le faire , il sont tous payant (mais certain comme ytria peuvent être loué à la journée pour pas chère du tout)

pour le code tout dépend si tes formules sont en dure dans les champs ou sont des valeurs des champs

dans la section bidouille tu peu extraire via DXL l'ensemble d'une structure lotus notes au format XML

puis la recharger, apres avoir changer ce que tu veux

je ne t'assure pas que ca va marcher
mais tu peu toujours regarder la doc

Michael DELIQUE a écrit:salut

pour les produit pouvant le faire , il sont tous payant (mais certain comme ytria peuvent être loué à la journée pour pas chère du tout)

pour le code tout dépend si tes formules sont en dure dans les champs ou sont des valeurs des champs

Quasiment toutes mes formules sont en 'Valeur Calculée'.

Si on ne peut pas modifier globalement, est il possible de retrouver les formulaires qui contiennent une chaine de caractères dans les 'Valeur Calculée'

LSong a écrit:dans la section bidouille tu peu extraire via DXL l'ensemble d'une structure lotus notes au format XML

puis la recharger, apres avoir changer ce que tu veux

je ne t'assure pas que ca va marcher
mais tu peu toujours regarder la doc

Merci, c'est déjà mieux que rien...

jcvaillant a écrit:Si on ne peut pas modifier globalement, est il possible de retrouver les formulaires qui contiennent une chaine de caractères dans les 'Valeur Calculée'

Tu peux essayer de remettre la main sur ddsearch.

http://darkmag.net/darkBlog/index.php?2 ... c-ddsearch

voici le code que j'ai utilisé pour extraire des bases dans un fichier CSV
tu peu t'en inspirer pour l'extraction

Code : Tout sélectionner

   
   On Error Goto catch
   
   Dim s As New NotesSession
   Dim db As NotesDatabase
   Dim dbMDB As New NotesDatabase ("", "")
   Dim dbLocal As NotesDatabase
   Dim doc As NotesDocument
   Dim rtItem As NotesRichTextItem
   Dim txt As String
   Dim var As Variant
   Dim oXml As Variant
   
   Dim numFile As Integer
   Dim numFileAccess As Integer
   Dim opened As Boolean
   Dim domParser As NotesDOMParser
   Dim nb List As Integer
   Dim filename As String
   
   Dim exporter As NotesDXLExporter
   Set exporter = s.CreateDXLExporter
   Dim stream As NotesStream
   
   
   Set stream = s.CreateStream
   filename$ = "c:\temp\dxl\output.dxl"
   Dim inputStream As NotesStream, outputStream As NotesStream
   Dim outputFile As String
   Dim docNode As NotesDOMDocumentNode
   Dim res As String
   
   
   outputFile = "c:\temp\dxl\DOMtree.txt"
   Set outputStream =s.CreateStream
   outputStream.Open (outputFile)
   outputStream.Truncate
   Set inputStream = s.CreateStream
   
   nb("total") = 0
   nb("open") = 0
   
   Set db = s.CurrentDatabase
   ' ouverture de du fichier
   
   numFile = Freefile ()
   Open "C:\TEMP\Hermes\Asie.csv" For Input As numFile%
   Line Input #numFile%, txt$
   
   numFileAccess = Freefile ()
   Open "C:\TEMP\Hermes\AsieResult.csv" For Output As numFileAccess%
   
   Do While Not Eof(numFile%)
      Line Input #numFile%, txt$
      nb("total") = nb("total") + 1
      ' ouverture de la base
      Set dbMDB = New NotesDatabase ("", "")
      var = Split (txt, ",")
      res = ""
      If dbMDB.Open (var (0), var (1)) Then
         If dbMDB.IsOpen Then
            res = "Acces"
            ' copier la base
            Set dbLocal = New NotesDatabase ("", "")
            Call dbLocal.Open ("", dbMDB.FileName)
            If dbLocal.IsOpen = False Then
               Delete dbLocal
               Set dbLocal = dbMDB.createCopy ("", dbMDB.FileName)
               Call dbLocal.GrantAccess (s.CommonUserName, 6)
            End If
            
            If Dir ("c:\temp\dxl\" & dbMDB.FileName & ".txt") = "" Then
               Call stream.Open(filename)
               Call stream.Truncate ()
               
               Call exporter.SetInput(dbLocal)
               Call exporter.SetOutput(stream)
               
               Call exporter.Process
               Call stream.Close ()
               
               Call stream.Truncate ()
               
               Name "c:\temp\dxl\output.dxl" As "c:\temp\dxl\" & dbMDB.FileName & ".txt"
            End If
            nb ("open") = nb ("open") + 1
            Print "total : " & nb ("total") & "/" & nb ("open")
         Else
            res = res & "Not Acces"
         End If
      Else
         res = "No Acces"
         'Delete dbMDB
      End If
NextDB:
      Print #numFileAccess, res
   Loop
   Print "total : " & nb ("total") & "/" & nb ("open")
   On Error Goto 0
   Close #numFile
   Close #numFileAccess
   Exit Sub