رفتن به مطلب
  • 0

همفکری تکمیل پروژه ocr


رضا قاسمی پور

سوال

spacer.pngسلام دوستان     

من  خیلی  گشتم  راجب  ocr با  بیسیک  تمام  سورس  قدیمی  از  کار  افتاده 

تصمیم  گرفتم  خودم  دست  به  کار  شم  به  یک  نتایجی  رسیدم  ولی   جاهایی  مشکل  دارم  دوستان   اگ همه  همفکری  کنیم  یک سورس ocr   انشالله ساخته  میشه    خب  بریم  سر  اصل  مطلب 

در  قست اول  لینک  عکس  میدی  بعد ست میکنی بعد ارسال   جوابش  که به  این  شکل میشه 

spacer.png

  "ParsedResults": [
    {
      "TextOverlay": {
        "Lines": [],
        "HasOverlay": false,
        "Message": "Text overlay is not provided as it is not requested"
      },
      "TextOrientation": "0",
      "FileParseExitCode": 1,
      "ParsedText": "GAVE AWAY MY BOOK\r\nFREE ON\r\nREACHED TOP OF AMAZON\r\nBESTSELLER\r\n",
      "ErrorMessage": "",
      "ErrorDetails": ""
    }
  ],
  "OCRExitCode": 1,
  "IsErroredOnProcessing": false,
  "ProcessingTimeInMilliseconds": "343",
  "SearchablePDFURL": "Searchable PDF not generated as it was not requested."
}

 

با  مپ   مشخص کردم  که

 ParsedResults

پیدا  کن   برابر  لیبل  کن  الان  

جواب  توی  

ParsedText

چطوری  باید  بگم  بیا  فقط 

 ParsedText

برابر   لیبل  کن   ن  کل  جوابو  سورس  میزارم 

ببینید  چه میشه  کرد/ 

 

 

https://uupload.ir/view/jevm_cor1.zip  /

لینک ارسال
به اشتراک گذاری در سایت های دیگر

2 پاسخ به این سوال تاکنون داده شده است

ارسال های توصیه شده

  • 0

سلام

قطعه کد کل این جیسون به شکل زیر در میاد

Dim parser As JSONParser
parser.Initialize("json daryafti")
Dim root As Map = parser.NextObject
Dim IsErroredOnProcessing As String = root.Get("IsErroredOnProcessing")
Dim ParsedResults As List = root.Get("ParsedResults")
For Each colParsedResults As Map In ParsedResults
	Dim TextOrientation As String = colParsedResults.Get("TextOrientation")
	Dim ParsedText As String = colParsedResults.Get("ParsedText")
	Dim FileParseExitCode As Int = colParsedResults.Get("FileParseExitCode")
	Dim ErrorDetails As String = colParsedResults.Get("ErrorDetails")
	Dim ErrorMessage As String = colParsedResults.Get("ErrorMessage")
	Dim TextOverlay As Map = colParsedResults.Get("TextOverlay")
	Dim Message As String = TextOverlay.Get("Message")
	Dim Lines As List = TextOverlay.Get("Lines")
	Dim HasOverlay As String = TextOverlay.Get("HasOverlay")
Next
Dim ProcessingTimeInMilliseconds As String = root.Get("ProcessingTimeInMilliseconds")
Dim SearchablePDFURL As String = root.Get("SearchablePDFURL")
Dim OCRExitCode As Int = root.Get("OCRExitCode")

قسمتایی هم که اضافس می تونید حذفشون کنین و فقط جاییکه مدنظرتون هست رو بزارین.

 

قسمتی که لازم دارین به این صورت

Dim parser As JSONParser
parser.Initialize("json daryafti")
Dim root As Map = parser.NextObject
Dim ParsedResults As List = root.Get("ParsedResults")
For Each colParsedResults As Map In ParsedResults
	Dim ParsedText As String = colParsedResults.Get("ParsedText")
    label1.Text = ParsedText
Next

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

  • 0
در 2 ساعت قبل، دانشجو گفته است :

سلام

قطعه کد کل این جیسون به شکل زیر در میاد

Dim parser As JSONParser
parser.Initialize("json daryafti")
Dim root As Map = parser.NextObject
Dim IsErroredOnProcessing As String = root.Get("IsErroredOnProcessing")
Dim ParsedResults As List = root.Get("ParsedResults")
For Each colParsedResults As Map In ParsedResults
	Dim TextOrientation As String = colParsedResults.Get("TextOrientation")
	Dim ParsedText As String = colParsedResults.Get("ParsedText")
	Dim FileParseExitCode As Int = colParsedResults.Get("FileParseExitCode")
	Dim ErrorDetails As String = colParsedResults.Get("ErrorDetails")
	Dim ErrorMessage As String = colParsedResults.Get("ErrorMessage")
	Dim TextOverlay As Map = colParsedResults.Get("TextOverlay")
	Dim Message As String = TextOverlay.Get("Message")
	Dim Lines As List = TextOverlay.Get("Lines")
	Dim HasOverlay As String = TextOverlay.Get("HasOverlay")
Next
Dim ProcessingTimeInMilliseconds As String = root.Get("ProcessingTimeInMilliseconds")
Dim SearchablePDFURL As String = root.Get("SearchablePDFURL")
Dim OCRExitCode As Int = root.Get("OCRExitCode")

قسمتایی هم که اضافس می تونید حذفشون کنین و فقط جاییکه مدنظرتون هست رو بزارین.

 

قسمتی که لازم دارین به این صورت

Dim parser As JSONParser
parser.Initialize("json daryafti")
Dim root As Map = parser.NextObject
Dim ParsedResults As List = root.Get("ParsedResults")
For Each colParsedResults As Map In ParsedResults
	Dim ParsedText As String = colParsedResults.Get("ParsedText")
    label1.Text = ParsedText
Next

 

خیلی  ممنون  برم  تست  کنم :give_heart:

لینک ارسال
به اشتراک گذاری در سایت های دیگر

به گفتگو بپیوندید

هم اکنون می توانید مطلب خود را ارسال نمایید و بعداً ثبت نام کنید. اگر حساب کاربری دارید، برای ارسال با حساب کاربری خود اکنون وارد شوید .
توجه: مطلب ارسالی شما پس از تایید مدیریت برای همه قابل رویت خواهد بود.

مهمان
پاسخ به این سوال ...

×   شما در حال چسباندن محتوایی با قالب بندی هستید.   حذف قالب بندی

  تنها استفاده از 75 اموجی مجاز می باشد.

×   لینک شما به صورت اتوماتیک جای گذاری شد.   نمایش به صورت لینک

×   محتوای قبلی شما بازگردانی شد.   پاک کردن محتوای ویرایشگر

×   شما مستقیما نمی توانید تصویر خود را قرار دهید. یا آن را اینجا بارگذاری کنید یا از یک URL قرار دهید.

  • کاربران آنلاین در این صفحه   0 کاربر

    هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.

×
  • اضافه کردن...