Mike Gagnon 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é 11764 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='' CREATECURSOR 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 INSERTINTO mondocument (mondococr) VALUES (strLayoutinfo) MODIFYMEMO mondocument.mondococr
&& Comment récupérer les priopriétés d'un document (TIF, JPG, BMP etc.)
Local strPropsInfo
strPropsInfo='' OnError *
miDoc = Createobject('MODI.Document')
miDoc.Create( "C:\recu.jpg") ForEach p In miDoc.BuiltInDocumentProperties
strPropsInfo = strPropsInfo + p.Name + ": " + Transform(p.Value) +Chr(13) Next Messagebox( strPropsInfo,64,"Propriétés du document")
Retour à la liste
Canada
Fiche personnelle
Note des membres