کتابخانه بسیار کاربردی PersianJson

[mrnazari 6]

سلام

این کتابخونه رو خریدم ولی مثل قبلی زده در انتظار

پیگیری کنید

با تشکر

[محمدرضا شاهپیری 5,631]

در 10 ساعت قبل، mrnazari گفته است :

 

سلام خدمت شما.

خیلی عجیبه که برای شما فقط این مورد هست. دوستان دیگه این مشکل رو ندارن.

فاکتور براتون صادر شد عزیز.

[mrnazari 6]

در 4 ساعت قبل، محمدرضا شاهپیری گفته است :

سلام خدمت شما.

خیلی عجیبه که برای شما فقط این مورد هست. دوستان دیگه این مشکل رو ندارن.

فاکتور براتون صادر شد عزیز.

نمیدونم چرا اینجوری میشه

به هر حال دست شما درد نکنه

[majid08 266]

سلام

اگر میشه این رو برام تبدیل کنید به PersianJson

Dim parser As JSONParser
parser.Initialize(Json)
Dim root As Map = parser.NextObject
Dim NewPosts As List = root.Get("NewPosts")
For i = 0 To NewPosts.Size-1
Dim colNewPosts As Map = NewPosts.Get(i)
Dim id As String = colNewPosts.Get("id")
Dim onvan As String = colNewPosts.Get("onvan")
Next

ممنونم

[محمدرضا شاهپیری 5,631]

در ۱ ساعت قبل، majid08 گفته است :

سلام

اگر میشه این رو برام تبدیل کنید به PersianJson

Dim parser As JSONParser
parser.Initialize(Json)
Dim root As Map = parser.NextObject
Dim NewPosts As List = root.Get("NewPosts")
For i = 0 To NewPosts.Size-1
Dim colNewPosts As Map = NewPosts.Get(i)
Dim id As String = colNewPosts.Get("id")
Dim onvan As String = colNewPosts.Get("onvan")
Next

ممنونم

سلام.لطفا جیسون رو بذارید. اینجوری یه خورده سخته تبدیل کردنش.

[majid08 266]

در 2 ساعت قبل، محمدرضا شاهپیری گفته است :

سلام.لطفا جیسون رو بذارید. اینجوری یه خورده سخته تبدیل کردنش.

سلام

{"AdsPosts":[{"id":"1","Title":"\u0627\u0633\u062a\u062e\u062f\u0627\u0645 \u0641\u0631\u0648\u0634\u0646\u062f\u0647","Image":"http:\/\/192.168.1.100\/Divar\/image\/1.png","Adress":"\u0645\u0634\u0647\u062f\u060c \u0641\u0644\u0633\u0637\u06cc\u0646","Time":"0","Location":"0","Catagory":"\u0641\u0631\u0648\u0634\u0646\u062f\u0647","jobdone":"ok"},{"id":"2","Title":"\u0627\u0633\u062a\u062e\u062f\u0627\u0645 \u0641\u0631\u0648\u0634\u0646\u062f\u06472","Image":"http:\/\/192.168.1.100\/Divar\/image\/1.png","Adress":"\u0645\u0634\u0647\u062f\u060c \u067e\u06cc\u0631\u0648\u0632\u06cc","Time":"0","Location":"0","Catagory":"\u0641\u0631\u0648\u0634\u0646\u062f\u0647","jobdone":"ok"}]}

 

[محمدرضا شاهپیری 5,631]

در 2 ساعت قبل، majid08 گفته است :

سلام

{"AdsPosts":[{"id":"1","Title":"\u0627\u0633\u062a\u062e\u062f\u0627\u0645 \u0641\u0631\u0648\u0634\u0646\u062f\u0647","Image":"http:\/\/192.168.1.100\/Divar\/image\/1.png","Adress":"\u0645\u0634\u0647\u062f\u060c \u0641\u0644\u0633\u0637\u06cc\u0646","Time":"0","Location":"0","Catagory":"\u0641\u0631\u0648\u0634\u0646\u062f\u0647","jobdone":"ok"},{"id":"2","Title":"\u0627\u0633\u062a\u062e\u062f\u0627\u0645 \u0641\u0631\u0648\u0634\u0646\u062f\u06472","Image":"http:\/\/192.168.1.100\/Divar\/image\/1.png","Adress":"\u0645\u0634\u0647\u062f\u060c \u067e\u06cc\u0631\u0648\u0632\u06cc","Time":"0","Location":"0","Catagory":"\u0641\u0631\u0648\u0634\u0646\u062f\u0647","jobdone":"ok"}]}

  

Dim prjson As PersianJSONOBject
	prjson.initialaizJsonString(Json)
	Dim AdsPostsArray As PersianJSONArray=prjson.getJsonArray("AdsPosts")
	For i=0 To AdsPostsArray.size-1
		Dim jsonobj As PersianJSONOBject=AdsPostsArray.getJsonObject(i)
		Dim id As String=jsonobj.getString("id")
		Dim Title As String=jsonobj.getString("Title")
		Dim Image As String=jsonobj.getString("Image")
		.
		.
		.
	Next

 

[mrnazari 6]

سلام

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

{code:fgfhfh, tedad:5}{code:hjsfhgsfd, tedad:10}

ممنون میشم راهنمایی کنید

[mohammadmehrabi 11]

با وجود اینکه کتابخانه پرشین جیسون از قبل هست و اپدیتی نشده و بیسیک بروزرسانی های زیادی شده، بازهم کارایی و کاربرد خودش رو داره و همون مشکلات توی بیسیک هست؟

یعنی برای ارتباط جیسون لازم هست از پرشین جیسون استفاده بشه؟

[محمدرضا شاهپیری 5,631]

در 1 ساعت قبل، mohammadmehrabi گفته است :

با وجود اینکه کتابخانه پرشین جیسون از قبل هست و اپدیتی نشده و بیسیک بروزرسانی های زیادی شده، بازهم کارایی و کاربرد خودش رو داره و همون مشکلات توی بیسیک هست؟

یعنی برای ارتباط جیسون لازم هست از پرشین جیسون استفاده بشه؟

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

در در 1398/03/04, 17:01:06، mrnazari گفته است :

سلام

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

{code:fgfhfh, tedad:5}{code:hjsfhgsfd, tedad:10}

ممنون میشم راهنمایی کنید

میخواین خودتون اتوماتیک تولید کنید؟ یا میحواید پارس کنید این جیسونو؟

[mohammadmehrabi 11]

در 34 دقیقه قبل، محمدرضا شاهپیری گفته است :

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

بله میدونم. منظورم این بود خود بیسیک که تا الان اون مشکلات رو رفع نکرده و هنوز باید از همین کتابخانه استفاده کرد درسته؟

[محمدرضا شاهپیری 5,631]

در 3 ساعت قبل، mohammadmehrabi گفته است :

بله میدونم. منظورم این بود خود بیسیک که تا الان اون مشکلات رو رفع نکرده و هنوز باید از همین کتابخانه استفاده کرد درسته؟

عزیز این کتابخونه فرق عمده ای که داره با کتابخانه پیشفرض سهولت و سرعت استفاده ش هست. کتابخونه پیشفرض برای جیسونای پیچیده و تودرتو مخصوصا نحوه استفادش پیچیده میشه. و اینکه بیسیک تغییری توی جیسون داده یا نه رو در جریانش نیستم میتونید چک کنید.

[mrnazari 6]

در 15 ساعت قبل، محمدرضا شاهپیری گفته است :

میخواین خودتون اتوماتیک تولید کنید؟ یا میحواید پارس کنید این جیسونو؟

میخوام تولید کنم

[محمدرضا شاهپیری 5,631]

در 47 دقیقه قبل، mrnazari گفته است :

میخوام تولید کنم

به شکل زیر عمل کنید. چون جیسون شما آرایه اس بنابراین باید خروجیتونم آرایه باشه. اول دو ساب زیر رو اضافه کنید

Private Sub generateArray(jsons() As PersianJSONOBject) As PersianJSONArray
	Dim st As StringBuilder
	st.Initialize
	st.Append("[")
	For i=0 To jsons.Length-1
		Dim prjsonobj As PersianJSONOBject=jsons(i)
		st.Append(prjsonobj.toString)
		If i<jsons.Length-1 Then st.Append(",")
	Next
	st.Append("]")
	Dim prjson As PersianJSONArray
	prjson.initialize(st.ToString)
	Return prjson
End Sub
Private Sub generateGson(code As String,tedad As Int) As PersianJSONOBject
	Dim prjson As PersianJSONOBject
	prjson.initialaizJsonObject
	prjson.putToJSON("code",code)
	prjson.putToJSON("tedad",tedad)
	Return prjson
End Sub

حالا به این شکل جیسون اصلی رو تولید کنید.

Dim prjson1 As PersianJSONOBject=generateGson("fgfhfh",5)
Dim prjson2 As PersianJSONOBject=generateGson("hjsfhgsfd",10)
Dim prjson As PersianJSONArray=generateArray(Array As PersianJSONOBject(prjson1,prjson2))
Log(prjson.toString)

 

[mrnazari 6]

در در 1398/03/06, 14:29:54، محمدرضا شاهپیری گفته است :

به شکل زیر عمل کنید

ممنون از جوابتون

یه سوال دیگه دارم

الان من یه جیسون به شکل زیر دارم:

{"3065279282_Z0OKqj36489":"4","3065279282_n7JeQV88650":"4"}

یکی از دوستان همین جیسون رو داشتن و شما کد زیر رو گفتید:

Dim per As PersianJSONArray
per.initialize(pr.getString (1))
For z=0 To per.size-1
	Log(per.geTObject(z))
Next

من از همین کد استفاده کردم ولی ارور زیر رو داد:

org.json.JSONException: Value {"3065279282_Z0OKqj36489":"4","3065279282_n7JeQV88650":"4"} of type org.json.JSONObject cannot be converted to JSONArray

مشکل کجاست؟! 

[محمدرضا شاهپیری 5,631]

در 6 ساعت قبل، mrnazari گفته است :

org.json.JSONException: Value {"3065279282_Z0OKqj36489":"4","3065279282_n7JeQV88650":"4"} of type org.json.JSONObject cannot be converted to JSONArray

 

خطای بالا مشخصه عزیز. شما باید دقت داشته باشید که جیسونتون آبجکت هست یا آرایه. تو مثال شما آرایه بود ولی برای ایشون آبجکت بود. فرق میکنن با هم

[mrnazari 6]

در 3 ساعت قبل، محمدرضا شاهپیری گفته است :

خطای بالا مشخصه عزیز. شما باید دقت داشته باشید که جیسونتون آبجکت هست یا آرایه. تو مثال شما آرایه بود ولی برای ایشون آبجکت بود. فرق میکنن با هم

من الان میخوام اینو به map تبدیل کنم

چجوری باید این کارو انجام بدم؟

[محمدرضا شاهپیری 5,631]

در 27 دقیقه قبل، mrnazari گفته است :

من الان میخوام اینو به map تبدیل کنم

چجوری باید این کارو انجام بدم؟

برای تبدیل جیسون آبجکت به مپ از دستور prjson.MapObject استفاده کنید. 

[fun_code 222]

در در 1395/09/17, 09:19:22، محمدرضا شاهپیری گفته است :

اگه اهل برنامه های سمت سرور باشید قطعا تا حالا اسم جیسون(json) به گوشتون خورده و آشنایی نسبی رو با اون دارید یکی از پرکاربردترین کتابخونه ها برای نرم افزارهای آنلاین و حتی بعضی از مواقع برای آفلاینها همین کتابخونه جیسون هست 

سلام

خدایی روانی شدم.

این کتابخانه هم سورس هاش کار نمیکنه.

اصلا کتابخاه پرشین جیسون تیک نمیخوره !

اصلا نوع P_JsonOBject رو نمیشناسه و به احتمال 99 درصد در نسخه جدید کتابخانه چنان تغییر دادین که نوع آن هم تغییر کرده.

سورس هاش کتابخانه customlistview هم میخوان که دانلود کردم اما نمیشناسه.

چکار کنم ؟

[محمدرضا شاهپیری 5,631]

در 3 ساعت قبل، fun_code گفته است :

 

دوست عزیز کتابخون ها و سورسها یکی دوتا نیست که من بتونم همه ی اونا رو هرد فه که کتابخونه آپدیت میشه آپدیت کنم و دوباره هی آموزش بدم. ده ها برابر این سورسها و آموزشها که شما تو این چندروز دیدین من سورس و آموزش گذاشتم تو انجمن. بخوام اینا رو هی بروز کنم کل عمرمو باید واسه این کار بزارم اونم بدون هیچ درامد و سودی واقعا.در ضمن من هر تغیر جدیدی که تو کتابخونه داده میشه توی تاپیک مربوطه اطلاعرسانی میکنم

سورسهای این کتابخونه هم آپدیت شد. دوباره دریافت کنید. موفق باشید