UWSCでOCR機能を用いて画像からテキストを抽出する_MODI.Document

しいちゃん、なにで困っておるのじゃ?

パソコンに表示されている文字をコピーすることが出来なくて困ってるの

文字をコピーできないときは、画像にして、テキストにすることでコピーができるようになるのじゃ

画像をテキストに???どやってやるの?

UWSCとofficeの機能を利用することで可能なのじゃ

私のパソコンにofficeがあるから使えちゃうのね★

UWSCを利用する前に「MODI」のインストールが必要じゃ

https://support.microsoft.com/ja-jp/help/982760/install-modi-for-use-with-microsoft-office-2010

文字をコピーしたい部分を「01target.bmp」で保存しておくのじゃ

CONST miLANG_ENGLISH = 9            // English
CONST miLANG_JAPANESE = 17          // 日本語
// BMPをOCRに読み込む
doc = CreateOLEObj("MODI.Document")
try
doc.Create("01target.bmp")
except
doc.Create("01target.bmp")
endtry
doc.OCR(miLANG_ENGLISH, False, False)
for i = 0 to doc.Images.Count-1
print doc.Images[i].Layout.Text
next

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です