Lire la premier et la dernière ligne d'un texte

[nowlan]

Bonjour

j'ai fait un script pour ecrire dans un fichier le problème c'est que la première ligne n'a pas de texte et je voudrai supprimer la repmière ligne et aussi la dernière ligne car elle me sert à rien voici le résultat de mon script

--------------------------------------------------------

2009-11-8-00.00.00;2009-11-8-01.00.00;2;20226
2009-11-8-01.00.00;2009-11-8-02.00.00;1;319108
2009-11-8-02.00.00;2009-11-8-03.00.00;0;0
2009-11-8-03.00.00;2009-11-8-04.00.00;0;0
2009-11-8-04.00.00;2009-11-8-05.00.00;1;3377
2009-11-8-05.00.00;2009-11-8-06.00.00;4;16934
2009-11-8-06.00.00;2009-11-8-07.00.00;5;644822
2009-11-8-07.00.00;2009-11-8-08.00.00;71;4932532
2009-11-8-08.00.00;2009-11-8-09.00.00;322;68282785
2009-11-8-09.00.00;2009-11-8-10.00.00;500;136444457
2009-11-8-10.00.00;2009-11-8-11.00.00;503;138245717
2009-11-8-11.00.00;2009-11-8-12.00.00;551;85526621
2009-11-8-12.00.00;2009-11-8-12.10.55;35;6487617;
-----------------------------------------------------------------

voici un bout de monscript

Sub Initialize
Dim session As New NotesSession
Dim db As Notesdatabase
'Dim dateTime As New NotesDateTime( "" )
Dim datecrea As String
Dim titre As String

Dim doc As NotesDocument
Dim rtitem As Variant
Dim plainText As String
Dim rendutext As String
Dim fileNum As Integer
Set db=session.CurrentDatabase
Set collection = db.UnprocessedDocuments
datecrea=Today()
titre=replaceAlltitre(datecrea)
Set docref = collection.GetFirstDocument()
While Not(docref Is Nothing)
If docref.Subject(0)="Message Volume Summary" Then
Set rtitem = docref.GetFirstItem( "ReportTable" )
If ( rtitem.Type = RICHTEXT ) Then
plainText = rtitem.GetUnformattedText()
End If
rendutext=replaceAlldonne(replaceAllfin(replaceAll3(replaceAll2(replaceAll1(replaceAll(plainText))))))


fileNum = Freefile

Open "c:\"+titre+"_weeksender.txt" For Output As fileNum

Print #fileNum, rendutext

Close #fileNum
End If

If docref.Subject(0)="Résumé du volume des messages" Then
Set rtitem = docref.GetFirstItem( "ReportTable" )
If ( rtitem.Type = RICHTEXT ) Then
plainText = rtitem.GetUnformattedText()
End If
rendutext=Trim(replaceAlldonne(replaceAllfin(replaceAll3(replaceAll2(replaceAll1(replaceAll0(plainText)))))))
'rendutext=replaceAll3(replaceAll2(replaceAll1(replaceAll0(plainText))))


fileNum = Freefile

Open "c:\"+titre+"_weeksender.txt" For Output As fileNum

Print #fileNum, rendutext

Close #fileNum
End If


Set docref= collection.GetNextDocument(docref)

Wend
End Sub

Ne pas tenir compte des fonction replace all car il fait des remplacement de donnée

Merci encore

Nowlan

[Michael DELIQUE]

salut

Code : Tout sélectionner

un If ( rtitem.Type = RICHTEXT ) Then
if trim(rtitem.GetUnformattedText())<> "" then
plainText = rtitem.GetUnformattedText()
end if
End If

ne ferais pas l'affaire ?