Конвертирование документов через MS Word (только для Windows) - Работа с текстом - Интересные решения для программистов - Примеры кода

Работа с текстом → Конвертирование документов через MS Word (только для Windows) → PHP

Класс позволяет конвертировать любой документ, который может быть прочитан MS Word, в другой формат поддерживаемый Word. Использует COM. Только для Windows.

<?php
/* Class to convert any document, that can be read by MS Word, to another format supported by Word.
	 * © Alain M. Samoun 10/2001.
 	* alain@samoun.com
	* Gnu GPL code (see www.fsf.org for more information).
	* Tested on win98 + Apache1.3 PHP 4.8 dev as CGI - Word 2000
	* This file should be saved in the PHP's include directory.
	*If you try to use COM in XP/win2k or NT, you need to 
     set-up permissions to the application
 	with the program DCOMCNFG.EXE : 
	Run DCOMCNFG.exe, select the application and add permissions
    in Security:
	- Custom Access Permissions: “Allow” 
	Then Edit / Add
	- the “IUSR_<servername>” user access to the object.- The user
     account to run the application: “The interactive user” 
	And close.
	* Usage:
	<?php
		require ("wordconvert.php");
		new wordconvert($filename,$convert_to,$visible);
	?>
	* Conversion time example: Convert a 33 pages rtf document (133KB)
     to an htm file (268KB)in 6 sec. (300MHz processor). Not a speed 
     daemon, but will work for small files on servers
	 with low hits number (Intranet...).
*/
	class wordconvert
	{

/* variables */
	var $filename;	# Original File name with optional path.
			# If no path provided, will be looked for in 
            # My Documents.
	var $convert_to=0; 	
            # Extension (as a string) or number (See Doc on 
            # SaveAs method below),doc extension is the default.
	var $visible=0;# 0=Hidden, 1= Visible, hidden is the default.
	
   	 /* Constructor */

function wordconvert($filename,$convert_to=0,$visible=0) 
    		{
    			if (!file_exists($filename))
			{
				echo "File $filename doesn't exist";
				exit();
			}

$filename_path= substr($filename,0,-4);
			
			if (is_string ($convert_to))
			{
				$convert_to= strtolower($convert_to);
			
				 switch ($convert_to) 
				 {
   					case "doc":
   						$convert_to=0;
   						Break;
   					case "dot":
   						$convert_to=1;
   						Break;
   					case "txt":
   						$convert_to=2;
   						Break;
   					case "rtf":
   						$convert_to=6;
   						Break;
   					case "htm":
   						$convert_to=8;
   						Break;
   					case "html":
   						$convert_to=8;
   						Break;
   					case "asc":
   						$convert_to=9;
   						Break;
   					case "wri":
   						$convert_to=13;
   						Break;
   					case "wps":
   						$convert_to=28;
   						Break;
   					default:
   						$convert_to=0;
   				}
   			}
			# Instantiate MSWord
 			$word=new COM("Word.Application") or die("Cannot start MS Word");
 	
 			$word->visible = $visible ;
 	
			#Open the original file in word.
			$word->Documents->Open($filename)or die("Cannot find file to convert");

/* 
Doc on SaveAs method:
 expression.SaveAs(FileName, FileFormat, LockComments, Password, AddToRecentFiles, WritePassword, ReadOnlyRecommended, EmbedTrueTypeFonts, SaveNativePictureFormat, SaveFormsData, SaveAsAOCELetter)
 Only the two first parameters are supported in this class.
File save format number to use ( WdSaveFormat prop. ):
 wdFormatDocument = 0; wdFormatTemplate = 1; wdFormatText = 2; wdFormatTextLineBreaks = 3;
 wdFormatDOSText = 4; wdFormatDOSTextLineBreaks = 5; wdFormatRTF = 6; wdFormatUnicodeText = 7;
 Extensions=number: doc=0,dot =1,txt=2,htm=8,asc=9,wri=13,doc(word perfect DOS)=24,wps(works)=28
*/

#Save the new file
			$word->ActiveDocument->SaveAs($filename_path,$convert_to);

/*
 Doc on quit method:
 expression.Quit(SaveChanges, Format, RouteDocument)
 */
 
			$word->quit(0); #0: Quit without saving
			# print "done!";
	
		}#End of func
	
	}#End of class
?>

class, com, convert, document, office, php, word

KOS_MOS

Никитос

05.09.2008

Меню

Подписка на RSS:

Подпишись на RSS-ленту

Поиск

Облако тегов

	Работа с текстом → Конвертирование документов через MS Word (только для Windows) → PHP Класс позволяет конвертировать любой документ, который может быть прочитан MS Word, в другой формат поддерживаемый Word. Использует COM. Только для Windows. <?php /* Class to convert any document, that can be read by MS Word, to another format supported by Word. * © Alain M. Samoun 10/2001. * alain@samoun.com * Gnu GPL code (see www.fsf.org for more information). * Tested on win98 + Apache1.3 PHP 4.8 dev as CGI - Word 2000 * This file should be saved in the PHP's include directory. If you try to use COM in XP/win2k or NT, you need to set-up permissions to the application with the program DCOMCNFG.EXE : Run DCOMCNFG.exe, select the application and add permissions in Security: - Custom Access Permissions: “Allow” Then Edit / Add - the “IUSR_<servername>” user access to the object.- The user account to run the application: “The interactive user” And close. Usage: <?php require ("wordconvert.php"); new wordconvert($filename,$convert_to,$visible); ?> * Conversion time example: Convert a 33 pages rtf document (133KB) to an htm file (268KB)in 6 sec. (300MHz processor). Not a speed daemon, but will work for small files on servers with low hits number (Intranet...). / class wordconvert { / variables / var $filename; # Original File name with optional path. # If no path provided, will be looked for in # My Documents. var $convert_to=0; # Extension (as a string) or number (See Doc on # SaveAs method below),doc extension is the default. var $visible=0;# 0=Hidden, 1= Visible, hidden is the default. / Constructor / function wordconvert($filename,$convert_to=0,$visible=0) { if (!file_exists($filename)) { echo "File $filename doesn't exist"; exit(); } $filename_path= substr($filename,0,-4); if (is_string ($convert_to)) { $convert_to= strtolower($convert_to); switch ($convert_to) { case "doc": $convert_to=0; Break; case "dot": $convert_to=1; Break; case "txt": $convert_to=2; Break; case "rtf": $convert_to=6; Break; case "htm": $convert_to=8; Break; case "html": $convert_to=8; Break; case "asc": $convert_to=9; Break; case "wri": $convert_to=13; Break; case "wps": $convert_to=28; Break; default: $convert_to=0; } } # Instantiate MSWord $word=new COM("Word.Application") or die("Cannot start MS Word"); $word->visible = $visible ; #Open the original file in word. $word->Documents->Open($filename)or die("Cannot find file to convert"); / Doc on SaveAs method: expression.SaveAs(FileName, FileFormat, LockComments, Password, AddToRecentFiles, WritePassword, ReadOnlyRecommended, EmbedTrueTypeFonts, SaveNativePictureFormat, SaveFormsData, SaveAsAOCELetter) Only the two first parameters are supported in this class. File save format number to use ( WdSaveFormat prop. ): wdFormatDocument = 0; wdFormatTemplate = 1; wdFormatText = 2; wdFormatTextLineBreaks = 3; wdFormatDOSText = 4; wdFormatDOSTextLineBreaks = 5; wdFormatRTF = 6; wdFormatUnicodeText = 7; Extensions=number: doc=0,dot =1,txt=2,htm=8,asc=9,wri=13,doc(word perfect DOS)=24,wps(works)=28 / #Save the new file $word->ActiveDocument->SaveAs($filename_path,$convert_to); / Doc on quit method: expression.Quit(SaveChanges, Format, RouteDocument) / $word->quit(0); #0: Quit without saving # print "done!"; }#End of func }#End of class ?> class, com, convert, document, office, php, word* KOS_MOS Никитос 05.09.2008 Ваше имя Ваш E-mail (если хотите отслеживать комментарии) Дoкажи, что ты не робот Текст комментария	Меню CodeIgniter Алгоритмы Базы данных Дата и Время Интернет Интерфейс Мультимедиа ОС и Железо Работа с текстом Разное Технологии Файлы Подписка на RSS: Подпишись на RSS-ленту Поиск Облако тегов .net array asp bash browser charset check class clean convert count create css curl database date delete directory download element email equivalent extension file find form format function get height html http ie image javascript jquery load mysql number page perl php random scriplet send shell size sql string text time url utf8 variable vb visual basic width window xml xslt