1 Konuyu açan metin Son düzenleyen, metin (26.10.2009 11:14:10)

  • metin
  • metin
  • Uzman Üye
  • Offline
  • Yer: istanbul
  • Kayıt Tarihi: 16.10.2006
  • İleti: 1,460

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ı?

Visual Fox Pro
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.

Haksızlıklar karşısında susanlar, dilsiz şeytanlardır!
www.metinemre.com

metin's Website

2 Cevaplayan ugurlu2001

  • ugurlu2001
  • ugurlu2001
  • Uzman Üye
  • Offline
  • Yer: Istanbul
  • Kayıt Tarihi: 11.10.2006
  • İleti: 1,642

Re: OCR

Metin; eğer CodePlex ten GDI+ demosunı inceleyebilirsen; TIFF dosyasının belirli bir kısmını kesip alman yada başka bir formata çevirmen mümkün.

Uğur
-------------------------------------------------------------------------------------------------------------
Hayat bir bisiklete binmek gibidir. Pedalı çevirmeye devam ettiğiniz sürece düşmezsiniz. Claude Peppeer
Kusuru söylenmeyen adam, ayıbını hüner sanır.  Türk Atasözü