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

[رضا قاسمی پور 0]

سلام دوستان     

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

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

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

  "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  /

[دانشجو 39]

سلام

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

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

 

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