ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Microsoft Office Document Imaging avec FoxPro   



L'auteur

Mike Gagnon
Canada Canada
Membre Simple
# 0000000025
enregistré le 14/10/2004

Gagnon Mike
Pointe Cla H9R 3K8
de la société Carver Technologies Inc.
Fiche personnelle


Note des membres
pas de note

Contributions > 09 - Automation

Microsoft Office Document Imaging avec FoxPro
# 0000000125
ajouté le 23/12/2004 15:17:45 et modifié le 23/12/2004
consulté 11465 fois
Niveau expert

Version(s) Foxpro :
VFP 7.0

Description

Cette technique requiert Microsoft Office 2003 (La version MODI de XP est plus limitée)

Le OCR (optical character recognition) est à nos portes? Possible, ceci se rapproche, pas parfait mais...Le Microsoft Office Document imaging permet maintenant d'avoir un object modèle programmable. Voici quelques example de son utilisation.

Code source :
&& Comment lire un document (un document Fax par example - format .TIF), compter le nombre de mots, le nombre de polices, et copier tout le text dans un champ memo.

Local miDoc,miLayout,lcStr
lcStr=''
CREATE CURSOR mondocument (mondococr m)
miDoc = Createobject('MODI.Document')
miDoc.Create"C:\untitled.tif")
miDoc.Images(0).OCR
miLayout = miDoc.Images(0).Layout
strLayoutInfo ="Language: " + Transform(miLayout.Language )+Chr(13)+Chr(10)
strLayoutInfo=strLayoutInfo+"Number of characters: " + Transform(miLayout.NumChars)+Chr(13)+Chr(10)
strLayoutInfo=strLayoutInfo+"Number of fonts: "Transform(miLayout.NumFonts )+Chr(13)+Chr(10)
strLayoutInfo=strLayoutInfo+"Number of words: " + Transform(miLayout.NumWords)+Chr(13)+Chr(10)+Chr(13)+Chr(10)
strLayoutinfo = strLayoutinfo+miLayout.text
INSERT INTO mondocument (mondococr) VALUES (strLayoutinfo)
MODIFY MEMO mondocument.mondococr

&& Comment récupérer les priopriétés d'un document (TIF, JPG, BMP etc.)

Local strPropsInfo
strPropsInfo=''
On Error *
miDoc = Createobject('MODI.Document')
miDoc.Create"C:\recu.jpg")
For Each p In miDoc.BuiltInDocumentProperties
  strPropsInfo = strPropsInfo + p.Name +  ": " + Transform(p.Value) +Chr(13)
Next
Messagebox( strPropsInfo,64,"Propriétés du document")



Commentaires
Aucun commentaire enregistré ...

Publicité

Les pubs en cours :


www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2024.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3