1 Konuyu açan metin

  • metin
  • Moderator
  • Offline
  • Yer: istanbul
  • Kayıt Tarihi: 16.10.2006
  • İleti: 1,151

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
1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

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.

Son düzenleyen, metin (26.10.2009 12:14:10)

Haksızlıklar karşısında susanlar, dilsiz şeytanlardır!

metin's Website

  • Yer: Istanbul
  • Kayıt Tarihi: 11.10.2006
  • İleti: 718

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ü