Objet COMRésolu

Question

Bonjour &#224; tous, 

J'instancie un objet COM ('word.application') afin de r&#233;cup&#233;rer un document word au format texte, ce que j'arrive &#224; faire. Mon probl&#232;me que je signale en rouge ci-dessous est que j'aimerai ins&#233;rer des saut de ligne comme il est possible de le faire en VBScript.

$word = new COM("word.application") or die("Impossible d\'instancier word");
 $word->visible = 1;
            
 $word->Documents->Open("C://document.doc");
 $word->ActiveDocument->SaveAs("c:/document.txt",2);
    
    Je pense qu'il y a un param&#232;tre a rajouter a cette ligne la apr&#232;s le '2' mais je ne sais pas lequel !!.

$word->Quit();
$word = null;
unset ($word);

Merci d'avance.

malalam · Accepted Answer

$sString = file_get_contents ('C://document.txt');
$sString = str_replace (':', "
", $sString);
file_put_contents ('C://document2.txt', $sString);

si tu n'es pas en php5, remplace file_get_contents et file_put_contents par leurs &#233;quivalents php4. Bref tu lis, tufous dans une cha&#238;ne, tu remplaces, tu r&#233;&#233;cris.

Tarvos · Answer

C'est &#224; dire ins&#233;rer des sauts de lignes? Tu peux toujours modifier le fichier texte apr&#232;s...

raven44 · Answer

Oui en effet mais je ne veu pas que se soit l'utilisateur qui fasse des saut de ligne, je dois pouvoir les faire directement dans mon code !! En faisant une macro avec Word j'ai pu r&#233;cup&#233;rer le VBscript qu'il execute lors de la g&#233;n&#233;ration du .txt avec insertion de saut de ligne .

Sub Macro1()
    ActiveDocument.SaveAs FileName:="SPATOLA2.txt",FileFormat:=wdFormatText,
        LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword
        :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
        SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:=
        False, Encoding:=1252, InsertLineBreaks:=True, AllowSubstitutions:=False, _
         LineEnding:=wdCRLF
End Sub

Cette partie de code Vbscript en rouge, il faudrait que je puisse la faire en php.

Merci.

Tarvos · Answer

$fh = fopen('C://document.txt','w+');
while (!feof($fh)) {
    $content = fgets($fh,256)."
";
}

fwrite($fh,$content);

non?

raven44 · Answer

Ah oui tu veux que je r&#233;&#233;crive dans le document texte apr&#232;s !!

Oui ca peut etre une solution int&#233;ressante, je vai tester.

raven44 · Answer

Arrrr !! l&#233;ger probl&#232;me, j'&#233;cris bien dans le fichier mais je n'&#233;cris rien !!

Au contraire, tout s'efface !! &#233;trange non ??

Tarvos · Answer

$fh = fopen('C://document.txt','w+');
while (!feof($fh)) {
    $content = fgets($fh,256)."
";
    echo fgets($fh,256);
}
echo $content;

&#231;a retourne quoi &#231;a?

raven44 · Answer

Ca ne renvoi rien, il ne doit pas passer dans le while !! semble t'il !

Tarvos · Answer

if (fopen('C://document.txt','w+')) echo 'Youpi';

raven44 · Answer

ca, Ca fonctionne, il ouvre donc bien le fichier en mode ecriture ca vien du while !! c clair

Tarvos · Answer

$fh =  fopen('C://document.txt','w+');
while (!feof($fh)) {
    $content  .  = fgets($fh,256)."
";
}

fwrite($fh,$content);

raven44 · Answer

Ca ne change strictement rien, je ne comprend vraiment pas pourquoi !!

Tarvos · Answer

$fh =  fopen('C://document.txt','w+');
while (!feof($fh)) {
    $content  .  = fgets($fh,256)."
";
}

rewind($fh);
fwrite($fh,$content);

raven44 · Answer

Idem, toujours vide le fichier !! et je peux t'assurer que le doc lui n'est pas vide !! puisque sans r&#233;&#233;criture j'obtiens les informations !!

Tarvos · Answer

Bon alors on va essayer une autre mani&#232;re, plus lourde m'enfin...

$lines = file('C://document.txt');
$content = implode("
",$lines);
file_put_contents('C://document.txt',$content);

Et question b&#234;te... t'as bien pens&#233; &#224; changer le nom du fichier?

raven44 · Answer

LOL oui t'inqui&#232;te pas, ces 3 lignes tu les mets dans le while ou compl&#232;tement en dehors ??

Tarvos · Answer

Tu vires le premier truc et tu met juste &#231;a :)

malalam · Answer

Hello,

'w+' &#233;crase le fichier directement. Utilisez 'r+' plut&#244;t, avec la m&#234;me m&#233;thode qui devrait fonctionner.

raven44 · Answer

OK et bien en reviens au point de d&#233;part, tout s'efface dans le fichier et rien n'est inscrit !

raven44 · Answer

ah bah c'est deja mieu avec 'r+', il n'efface plus le fichier merci a malalam

Seulement il n'a pas fai les saut de ligne !!

raven44 · Answer

Dans la solution pr&#233;c&#233;dente avec le "while" $content est vide !! il ne prend aucune valeur quand je l'affiche !

malalam · Answer

Tu veux les ins&#233;rer tous les combien de caract&#232;res, tes sauts de ligne ? C'est la partie que je n'ai pas pig&#233;e.

raven44 · Answer

et bien en r&#233;alit&#233;, word arrive a le faire automatiquement mai bon disons a chaque fois qu'il y a un ':' ( deux point ) !!

Objet COM

23 réponses

Votre réponse

Discussions similaires