1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
|
<?php
$Nom = "Dupont";
$Prenom = "François";
$Adresse = "12 blablabla";
$Ville = "PARIS";
$Cp = "75800";
// Lettre
$f=fopen("./word/toto.rtf","r");
$R=fopen("./word/toto.doc","w");
while (!feof($f))
{
$ligne=fgets($f,20000);
$Long=strlen($ligne);
$Nouvligne="";
for ($i=$inc;$i<$Long;$i++)
{
if (substr($ligne,$i,4)=="\{\{")
{
$deb=$i;
$var="";
for ($j=$i+4;$j<$Long;$j++)
{
if (substr($ligne,$j,4)=="\}\}")
{
$fin=$j;
break;
}
}
$var=substr($ligne,$deb+4,$fin-$deb-4);
if ($var=="NOM") $Nouvligne.=$Nom;
else if ($var=="PRENOM") $Nouvligne.=$Prenom;
else if ($var=="ADRESSE") $Nouvligne.=$Adresse;
else if ($var=="CP") $Nouvligne.=$Cp;
else if ($var=="VILLE") $Nouvligne.=$Ville;
else $Nouvligne.="???????";
$i=$j+3;
}
else
{
$Nouvligne.=substr($ligne,$i,1);
}
}
fwrite($R,$Nouvligne);
}
fclose($f);
fclose($R);
?> |
