[R] Fonction _Arraydelete dans fichier.txt

[Nowaire]

Bonjour,

J'ai un script de signature Outlook qui fonctionn très bien.
Mon script crée une signature corporative pour Outlook pour chaques utilisateurs du domaine en effectuant une requête Ldap et en modifiant un fichier texte source par les informations de la dites requêtes.

La ou j'ai un problème, c'est que certains usagés n'ont pas d'information dans certain champ et comme résultat, la signature aura certaine ligne vide.

J'ai tenté d'insérer la fonction _Arraydelete et _Arraysearch sans résultat. J'ai une erreur de syntaxe (Normale pour un novice). J'ai effectué quelques recherches sur ce forum et sur google et recueillis quelques indices mais rien de concret pour mon problème.

Je solicite votre expérience en la matière et vous remercie à l'avance.

Voici une parti de mon code, la ligne de texte que j'aimerais supprimer concerne seulement les sections "faxnumber" et "mobilenumber".

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstants.au3>
#include <Misc.au3>
#include <File.au3>
#include <Process.au3>
#include <Constants.au3>
#include <string.au3>
#Include <Array.au3>

DIM $UserObj ;......................................................
DIM $sigpath  ;..............................
...
-------------------------------

call ("textsig")

FileDelete($sigpath & "\tmp.txt")

[color=#0000BF]Func[/color] textsig ()

FileInstall("sig.txt", $sigpath & "\tmp.txt",1)
$filename1 = $sigpath & "\tmp.txt"
_ReplaceStringInFile($filename1,"namenamename",$fullname)
_ReplaceStringInFile($filename1,"emailemailemail",$emailaddress)
_ReplaceStringInFile($filename1,"titletitletitle",$title)
_ReplaceStringInFile($filename1,"department",$department)
_ReplaceStringInFile($filename1,"streetAddress",$streetaddress)
_ReplaceStringInFile($filename1,"citycitycity",$city)
_ReplaceStringInFile($filename1,"zipzipzip",$zipcode)
If $mainOfficeNumber <> "" Then
    _ReplaceStringInFile($filename1,"offnumoffnumoffnum",$mainOfficeNumber)
    _ReplaceStringInFile($filename1,"diddiddid","")
Else
    _ReplaceStringInFile($filename1,"offnumoffnumoffnum",$mainnumber)
    _ReplaceStringInFile($filename1,"diddiddid", "poste " & $officenumber)
EndIf
If $faxnumber <> "" Then
    _ReplaceStringInFile($filename1,"faxfaxfax",$faxnumber)
Else
    _ReplaceStringInFile($filename1,"Télécopieur: faxfaxfax","") ;[u]Supression de la ligne au lieu du texte vide[/u]
EndIf
If $mobilenumber <> "" Then
    _ReplaceStringInFile($filename1,"mobilemobilemobile",$mobilenumber)
Else
    _ReplaceStringInFile($filename1,"Cellulaire: mobilemobilemobile","") ;[u]Suppression de la ligne au lieu du texte vide[/u]
EndIf
FileCopy($filename1,$sigpath & "\" & $sigtxt,1)

EndFunc

Merci et au plaisir de voir vos commentaires

Nowaire n'est pas introuvable

[sylvanie]

Bonsoir,
et bien justement, il faut remplacer par rien comme vous l'avez fait.
Maintenant ce qu'il manque c'est la suppression des lignes vides du fichier.
Pour ceci, avant d'effectuer le
FileCopy($filename1,$sigpath & "\" & $sigtxt,1)

vous allez inserrez ceci (si ça vous va biensûr ^^) :

Code : Tout sélectionner

$contenu=FileRead($filename1)
$contenu=StringRegExpReplace($contenu,"(\x0D\x0A){2,}",@CRLF)
FileDelete($filename1)
FileWrite($filename1,$contenu)
 

premiere ligne : on buffurise tout le texte
deuxième on recherche dans ce buffer, toutes les séquences de 2 retours chariots ou plus pour les supprimer
3 - on effece le fichier
4 - on saue le buffer nettoyé

[Nowaire]

Merci sylvanie pour cette proposition

Maintenant ce qu'il manque c'est la suppression des lignes vides du fichier.
Pour ceci, avant d'effectuer le
FileCopy($filename1,$sigpath & "\" & $sigtxt,1

Malheureusement cette option ne peu s'appliquer, mon mandat doit respecter un model de signature préci.
Voici ce model type:
-------------------------------------------------------
_____________________________________
namenamename
titletitletitle

department
streetAddress
citycitycity
zipzipzip

emailemailemail
Téléphone: offnumoffnumoffnum poste diddiddid
Télécopieur : faxfaxfax
Cellulaire: mobilemobilemobile
________________________________________
-------------------------------------------------------------

Les espaces après le titre doivent demeurrer, comme je le disait,ma seule embuche est lorsque j'ai un usager qui à un téléphone mobile, mais pas de fax !
Sinon, tous serais impécable.

Je vais peut-être essayer de formuler une condition du genre, si fax est vide then remplace fax par mobile.

Ah mais j'y pense cela non plus ne fera pas car sous la dernière information je dois respecter une ligne vide et une ligne continue.

Merci encore et au plaisir de vous relire sur le sujet

[sylvanie]

Malheureusement cette option ne peu s'appliquer, mon mandat doit respecter un model de signature préci.

Ah bah voilà on ne me dit jamais rien à moi (voir dernier épisode de la saison 1 du donjon de Naheulbeuk ^^ )

et bien voilà ce qu'on va faire :
si la donnée est vide on va faire un
_ReplaceStringInFile($filename1,"Télécopieur: faxfaxfax","PLEASEDELETEME") à la place de "" (pareil pour le mobile)

puis on reprends le stringregexpreplace proposé en le modifiant ainsi :

$contenu=StringRegExpReplace($contenu,"(PLEASEDELETEME\x0D\x0A)","")

Ainsi le nombre se retours chariots des autres sections est préservé.

[Nowaire]

Moi qui croyait avoir tout dit, voici l'occasion de sortir à nouveau cette citation:

Ah bah voilà on ne me dit jamais rien à moi

Voilà oui, oui, si près du but, mon problème est réglé pour ma signature automatique en format texte.
Mais avant d'inscrire un petit [R] au début de mon sujet j'aimerai m'excuser d'avoir omis de vous dire mon script effectue aussi une création de la signature Htm et rtf.

Dans les 2 cas, la petite commande magique que vous m'avez transmit ne fonctionne pas.
Je me retrouve avec PLEASEDELETEME au lieu du #télécopieur.

Voici mon code pour les 3 signature, désolé, j'aurais cru que cette fonction aurait été viable pour les 3 fichiers.

► Afficher le texte

Code : Tout sélectionner

call ("regsig")
call ("textsig")
call ("rtfsig")

FileDelete($sigpath & "\tmp.htm")
FileDelete($sigpath & "\tmp.rtf")
FileDelete($sigpath & "\tmp.txt")

Func regsig ()

FileInstall("sig.htm", $sigpath & "\tmp.htm",1)
$filename1 = $sigpath & "\tmp.htm"
_ReplaceStringInFile($filename1,"namenamename",$fullname)
_ReplaceStringInFile($filename1,"emailemailemail","<a href='mailto:"& $emailaddress &"'>" & $emailaddress & "</a>")
_ReplaceStringInFile($filename1,"titletitletitle",$title)
_ReplaceStringInFile($filename1,"department",$department)
_ReplaceStringInFile($filename1,"streetAddress",$streetaddress)
If $PostalBox <> "" Then
    _ReplaceStringInFile($filename1,"pbox", "C. P. " & $PostalBox)
Else
    _ReplaceStringInFile($filename1,"pbox","PLEASEDELETEME")
EndIf
_ReplaceStringInFile($filename1,"citycitycity",$city)
_ReplaceStringInFile($filename1,"zipzipzip",$zipcode)
_ReplaceStringInFile($filename1,"sig_fichiers",$sightmdir)
If $mainOfficeNumber <>"" Then
    _ReplaceStringInFile($filename1,"offnumoffnumoffnum", "Téléphone : " & $mainOfficeNumber)
    _ReplaceStringInFile($filename1,"diddiddid","")
Else
    _ReplaceStringInFile($filename1,"offnumoffnumoffnum", "Téléphone : " & $mainnumber)
    _ReplaceStringInFile($filename1,"diddiddid", "poste " & $officenumber)
EndIf
If $mainOfficeNumber & $mainnumber = "" Then
    _ReplaceStringInFile($filename1,"Téléphone :","")
    _ReplaceStringInFile($filename1,"poste ","")
    _ReplaceStringInFile($filename1,$officenumber,"")
EndIf
If $faxnumber <> "" Then
    _ReplaceStringInFile($filename1,"faxfaxfax","<span lang=""EN-AU"" style=""FONT-SIZE: 10pt; COLOR: Black; FONT-FAMILY: 'Arial','sans-serif'; mso-ansi-language: EN-AU"">Télécopie </span><span lang=""EN-AU"" style=""FONT-SIZE: 10pt; COLOR: black; FONT-FAMILY: 'Arial','sans-serif'; mso-ansi-language: EN-AU"">:&nbsp;" & $faxnumber & "</span>")
Else
    _ReplaceStringInFile($filename1,"faxfaxfax","PLEASEDELETEME")
EndIf
If $mobilenumber <>"" Then
    _ReplaceStringInFile($filename1,"mobilemobilemobile","<span lang=""EN-AU"" style=""FONT-SIZE: 10pt; COLOR: Black; FONT-FAMILY: 'Arial','sans-serif'; mso-ansi-language: EN-AU"">Cellulaire </span><span lang=""EN-AU"" style=""FONT-SIZE: 10pt; COLOR: black; FONT-FAMILY: 'Arial','sans-serif'; mso-ansi-language: EN-AU"">:&nbsp;" & $mobilenumber & "</span>")
Else
    _ReplaceStringInFile($filename1,"mobilemobilemobile","PLEASEDELETEME")
EndIf
$contenu=FileRead($filename1)
$contenu=StringRegExpReplace($contenu,"(PLEASEDELETEME\x0D\x0A)","")
FileDelete($filename1)
FileWrite($filename1,$contenu)
FileCopy($filename1,$sigpath & "\" & $sightm,1)
DirCreate($sigpath & "\" & $sightmdir)
FileInstall(".\sig_fichiers\image001.jpg", $sigpath & "\" & $sightmdir & "\image001.jpg",1)
FileInstall(".\sig_fichiers\colorschememapping.xml", $sigpath & "\" & $sightmdir & "\colorschememapping.xml",1)
FileInstall(".\sig_fichiers\filelist.xml", $sigpath & "\" & $sightmdir & "\filelist.xml",1)
FileInstall(".\sig_fichiers\themedata.thmx", $sigpath & "\" & $sightmdir & "\themedata.thmx",1)
EndFunc



Func textsig ()

FileInstall("sig.txt", $sigpath & "\tmp.txt",1)
$filename1 = $sigpath & "\tmp.txt"
_ReplaceStringInFile($filename1,"namenamename",$fullname)
_ReplaceStringInFile($filename1,"emailemailemail",$emailaddress)
_ReplaceStringInFile($filename1,"titletitletitle",$title)
_ReplaceStringInFile($filename1,"department",$department)
_ReplaceStringInFile($filename1,"streetAddress",$streetaddress)
If $PostalBox <> "" Then
    _ReplaceStringInFile($filename1,"pbox", "C. P. " & $PostalBox)
Else
    _ReplaceStringInFile($filename1,"pbox","PLEASEDELETEME")
EndIf
_ReplaceStringInFile($filename1,"citycitycity",$city)
_ReplaceStringInFile($filename1,"zipzipzip",$zipcode)
If $mainOfficeNumber <>"" Then
    _ReplaceStringInFile($filename1,"offnumoffnumoffnum", "Téléphone : " & $mainOfficeNumber)
    _ReplaceStringInFile($filename1,"diddiddid","")
Else
    _ReplaceStringInFile($filename1,"offnumoffnumoffnum", "Téléphone : " & $mainnumber)
    _ReplaceStringInFile($filename1,"diddiddid", "poste " & $officenumber)
EndIf
If $mainOfficeNumber & $mainnumber = "" Then
    _ReplaceStringInFile($filename1,"Téléphone :","")
    _ReplaceStringInFile($filename1,"poste ","")
    _ReplaceStringInFile($filename1,$officenumber,"")
EndIf
If $faxnumber <> "" Then
    _ReplaceStringInFile($filename1,"faxfaxfax","Télécopie : " & $faxnumber)
Else
    _ReplaceStringInFile($filename1,"faxfaxfax","PLEASEDELETEME")
EndIf
If $mobilenumber <> "" Then
    _ReplaceStringInFile($filename1,"mobilemobilemobile","Cellulaire : " & $mobilenumber)
Else
    _ReplaceStringInFile($filename1,"mobilemobilemobile","PLEASEDELETEME")
EndIf
$contenu=FileRead($filename1)
$contenu=StringRegExpReplace($contenu,"(PLEASEDELETEME\x0D\x0A)","")
FileDelete($filename1)
FileWrite($filename1,$contenu)
FileCopy($filename1,$sigpath & "\" & $sigtxt,1)

EndFunc

Func rtfsig ()

FileInstall("sig.rtf", $sigpath & "\tmp.rtf",1)
$filename1 = $sigpath & "\tmp.rtf"
_ReplaceStringInFile($filename1,"namenamename",$fullname)
_ReplaceStringInFile($filename1,"emailemailemail",$emailaddress)
_ReplaceStringInFile($filename1,"titletitletitle",$title)
_ReplaceStringInFile($filename1,"department",$department)
_ReplaceStringInFile($filename1,"streetAddress",$streetaddress)
If $PostalBox <> "" Then
    _ReplaceStringInFile($filename1,"pbox", "C. P. " & $PostalBox)
Else
    _ReplaceStringInFile($filename1,"pbox","PLEASEDELETEME")
EndIf
_ReplaceStringInFile($filename1,"citycitycity",$city)
_ReplaceStringInFile($filename1,"zipzipzip",$zipcode)
If $mainOfficeNumber <>"" Then
    _ReplaceStringInFile($filename1,"offnumoffnumoffnum", "Téléphone : " & $mainOfficeNumber)
    _ReplaceStringInFile($filename1,"diddiddid","")
Else
    _ReplaceStringInFile($filename1,"offnumoffnumoffnum", "Téléphone : " & $mainnumber)
    _ReplaceStringInFile($filename1,"diddiddid", "poste " & $officenumber)
EndIf
If $mainOfficeNumber & $mainnumber = "" Then
    _ReplaceStringInFile($filename1,"Téléphone :","")
    _ReplaceStringInFile($filename1,"poste ","")
    _ReplaceStringInFile($filename1,$officenumber,"")
EndIf
If $faxnumber <> "" Then
    _ReplaceStringInFile($filename1,"faxfaxfax","Télécopie : " & $faxnumber)
Else
    _ReplaceStringInFile($filename1,"faxfaxfax","PLEASEDELETEME")
EndIf
If $mobilenumber <> "" Then
    _ReplaceStringInFile($filename1,"mobilemobilemobile","Cellulaire : " & $mobilenumber)
Else
    _ReplaceStringInFile($filename1,"mobilemobilemobile","PLEASEDELETEME")
EndIf
$contenu=FileRead($filename1)
$contenu=StringRegExpReplace($contenu,"(PLEASEDELETEME\x0D\x0A)","")
FileDelete($filename1)
FileWrite($filename1,$contenu)
FileCopy($filename1,$sigpath & "\" & $sigrtf,1)

EndFunc

Mille Merci et bon week-end.

[sylvanie]

Pour le html et le rtf, ça doit sûrement venir de la finc de ligne, qui doit différé légèrement de \r\n collé derrière le dernier caractère.
Je m'y plonerai plus tard ...
Bon week end

[sylvanie]

pour le html, si tous les <br> sont suivis d'un retours chariots à la DOS (CRLF), alors l'expression
$contenu=StringRegExpReplace($contenu,"(PLEASEDELETEME[^\x0D]*\x0D\x0A)","")

va couvrir le cas texte et HTML.

pour le RTF, c'est plus compliqué, car avec cette méthode je corromps le format RTF. Faudra peut être passer par une UDF WORD ...

[Nowaire]

La modification pour la section Htm est concluante.

Je peu désormais considérer que mon problème est résolu avec la fonction "StringRegExpReplace($contenu".
Je tiens à remercier sylvanie pour son aide et son expérience en la matière .

Parfois la simplicité deviens complexe surtout pour un néophite en la matière comme moi.

Mon projet de signature corporative est presque à terme, me manque seulement la suppression de la ligne "PLEASEDELETEME" du fichier .RTF. Je continue mes recherches à ce sujet.
Par contre , malgré cette variable, je commence mes tests en prod. aujourd'hui sur quelques usagers(+/-25 user) puisque les signatures en format .rtf ne sont presque plus utilisées.

Merci encore et si jamais vous avec une piste pour mon fichier .rtf, n'hésitez pas à laisser un post.