$UneChaine = $UneChaine.CHR(13).CHR(13).CHR(13).CHR(13).CHR(13).CHR(10);
$UneChaine = preg_replace('/\r+/',CHR(13),$UneChaine);