Konu: OCR
slm,
aşağıdaki kodla ocr çıktısı alabiliyorum. ancak bu bütün metni boşlukları yokederek veriyor. boşlukları yoketmeden veya metnin istediğimiz bir parçasını almanın bir yolu var mı?
Lparameters xfile
Local miDoc,miLayout,lcStr
lcStr=''
CREATE CURSOR mondocument (mondococr m)
Public midoc
miDoc = Createobject('MODI.Document')
miDoc.Create( m.xfile)
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
tif dosyasının istediğimiz belli bir parçasını cut edip yeni bir dosyaya kaydedebilme imkanı varsa o da şimi görür.
www.metinemre.com