DominoArea.org [Archive]

En préparation à un futur dév (évol de fonction dans un projet en cours) voici le prémices de cette évolution : récupérer le texte d'un message, c'est-à-dire extraire le texte du champ body et l'enregistrer dans un tableau afin de l'exploiter ligne à ligne ou d'en créer un fichier .txt

Code : Tout sélectionner

Sub Initialize
   Dim s As notessession
   Dim w As notesuiworkspace
   Dim doc As notesdocument
   Dim collection As notesdocumentcollection
   Dim db As notesdatabase
   Dim v As Variant
   Set s=New notessession
   Set w=New notesuiworkspace
   Set db=s.currentdatabase   
   Set collection=db.UnprocessedDocuments
   Set doc=collection.getfirstdocument()
   Close      
   Open "c:\body.txt" For Output As 1
   v=doc.getitemvalue("Body")
   Print #1,v(0)
   Close
   Msgbox v(0)
   v=atExplode(v(0),Chr$(13)+Chr$(10))
   Forall l In v
      Msgbox l
   End Forall
End Sub

Function atExplode(s As String, div As String) As Variant
   Redim result(0 To 0) As String
   Dim i As Integer
   Dim pos As Long
   Dim oldpos As Long
   Dim skip As Long   
   oldpos = 1
   skip = Len(div)
   pos = Instr(s, div)
   Do Until pos = 0
      Redim Preserve result(0 To i+1)
      result(i) = Mid$(s, oldpos, pos-oldpos)
      i = i + 1
      oldpos = pos + skip
      pos = Instr(oldpos, s, div)
   Loop
   result(i) = Mid$(s, oldpos)
   atExplode = result
End Function