رفتن به مطلب
برای استفاده از انجمن و عضـویت کلیک کنید.
جستجو در
  • تنظیمات بیشتر ...
نمایش نتایجی که شامل ...
جستجو در ...

AnswerCenter

مرکز پاسخگویی به سوالات برنامه نویسی

  • مرجع پاسخگویی
  • تولید آموزش
  • سفارش پروژه

درخواست سفارش پروژه

اطلاعیه

کاربر گرامی

به انجمن برنامه نویسی AnswerCenter.ir خوش آمدید

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


پست های پیشنهاد شده

arastooms    1,029

پاسخگو و راهنما

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

اضافه میشه این امکان. بررسی میکنم.

سپاس و تشکر منتظر هستم و کد های خودم رو تغیر نمیدم تا نسخه جدید منتشر بشه :53:
فقط اگر ممکنه امکان لیست رو هم بررسی بفرمایید که اون هم مثل map کاربردهای خودش رو داره:heart:
متشکرم :hi:

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


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
محمدرضا شاهپیری    3,406

معاون انجمن

نسخه جدید اضافه شد.
مثال استفاده برای جیسون خودتون.

{"as":"AS12874 Fastweb","city":"Turin","country":"Italy","countryCode":"IT","isp":"Fastweb","lat":45.05,"lon":7.6667,"org":"Fastweb","query":"93.36.162.171","region":"21","regionName":"Piedmont","status":"success","timezone":"Europe/Rome","zip":"10127"}
 
Dim prjs As PersianJSONOBject
prjs.initialaizJsonString(JsonString)

Dim root As Map =prjs.MapObject

Dim zip As String = root.Get("zip") 
Dim country As String = root.Get("country") 
Dim city As String = root.Get("city") 
Dim org As String = root.Get("org") 
Dim timezone As String = root.Get("timezone") 
Dim isp As String = root.Get("isp") 
Dim query As String = root.Get("query") 
Dim regionName As String = root.Get("regionName") 
Dim lon As Double = root.Get("lon") 
Dim as As String = root.Get("as") 
Dim countryCode As String = root.Get("countryCode") 
Dim region As String = root.Get("region") 
Dim lat As Double = root.Get("lat") 
Dim status As String = root.Get("status") 

 

  • پسندیدن 1

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


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
arastooms    1,029

پاسخگو و راهنما

سلام جناب شاهپیری عزیز 
امروز به یک متد برای تبدیل map به جی سون استرینگ  نیاز داشتم 
که در این پست مطرح کردم
ممکنه این متد رو در کتابخونه جیسون شما داشته باشیم ؟
و اگر جواب مثبت هست ممکنه بفرمایید چه زمانی آپدیت میکنید که منتظر باشیم
با تشکر


 

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


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
محمدرضا شاهپیری    3,406

معاون انجمن

 

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


 

بله به کتابخونه اضافه میشه انشالا. زمان دقیقشو نمیدونم ولی نهایتا یکی دوروز آینده.

  • پسندیدن 1

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


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
arastooms    1,029

پاسخگو و راهنما

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

 

بله به کتابخونه اضافه میشه انشالا. زمان دقیقشو نمیدونم ولی نهایتا یکی دوروز آینده.

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

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


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
محمدرضا شاهپیری    3,406

معاون انجمن

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

نحوه استفاده.

Dim m As Map
m.Initialize
m.Put("key1","value1")
m.Put("key2","value2")
m.Put("key3","value3")
m.Put("key4","value4")
Dim pr As PersianJSONOBject
Dim prj2 As PersianJSONOBject=pr.mapToObject(m)
Label1.Text= prj2.toString

 

  • پسندیدن 1

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


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
arastooms    1,029

پاسخگو و راهنما

در 12 ساعت قبل، Amir - B گفته است :

سلام

استاد ببخشید میشه بگید json دقیقا چی هستش؟

یکم جستجو کردم متوجه نشدم 

ممنونم

سلام و درود به شما دوست عزیز 
یکی از راه هایی که میتونه به شما خیلی کمک کنه در پیدا کردن مطالب جستجو در قسمت ( چستچو ) انجمن هست که در سمت راست بالا قرار داره و با نوشتن کلمه 
" جیسون " به جای 4 خط بالا میتونید به همه مطالب انجمن دست رسی داشته باشید و از اونجایی که انجمن درزمینه بیسیک قوی ترین انجمن فارسی زبان هست حتما موضوعی برای مطالعه پیدا خواهید کرد
در هر صورت این موضوع رو ننوشتم که گوش زد کنم باید سرچ کنید !! بلکه یک راهنمایی هست برای اینکه سریعتر به نتیجه بهتر برسید
برای اثبات این موضوع هم خودم براتون سرچ کردم و نتایج رو قرار میدم تا دوستانی هم که مثل شما این سوال رو دارند بتونن زود تر جواب رو پیدا کنند
موفق باشید

:hi:

 

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


B4J - JSON Tree Example

 

  • پسندیدن 2

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


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
Amir - B    180

کاربر رو به رشد

@arastooms

سلام استاد عزیز و خسته نباشید 

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

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

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

اونطور هم که من تو تاپیک های شما دیدم، خیلی بحث و گفتگو در این حیطه داشتید که json رو فرا گرفتید و همونطور که من گفتم فکر میکنم اولین سوالم تو این حیطه بود . 

بازم تشکر میکنم که بنده رو راهنمایی کردید 

از این به بعد هم در سمت چپ بالا سرچ میکنم . 

و اینکه فکر میکنم کسی که کل یک تاپیک رو در مورد json پر کرده، زشته که با اولین سوال در مورد json تو همون تاپیک، با الفاظی نه چندان مناسب به بقیه گوش زد کنه . 

موفق باشید

:hi:

  • پسندیدن 1

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


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

کاربر رو به رشد

سلام جیسون زیر رو به چه صورت پارس کنیم؟ با همین کتابخونه؟

 

{"ok":true,"result":{"user":{"id":42521,"is_bot":false,"first_name":"محقق","language_code":"en-US"},"status":"left"}}

 

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


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
محمدرضا شاهپیری    3,406

معاون انجمن

در 36 دقیقه قبل، sourse گفته است :

 


{"ok":true,"result":{"user":{"id":42521,"is_bot":false,"first_name":"محقق","language_code":"en-US"},"status":"left"}}

 

Dim pr As PersianJSONOBject
pr.initialaizJsonString("YOURJSON")
'''''''''''''''''''''''''''''''''''''''جیسون اصلی 

Dim ok As Boolean=pr.getBoolean("ok")
'''''''''''''''''''''''''''''''''''''''''''''''''''''''

Dim result As PersianJSONOBject=pr.getJsonObject("result")
	''''''''''''''''''''''''''''''''''''''''''''''''''''''''' آبجکت result
Dim user As PersianJSONOBject=result.getJsonObject("user")
	''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' آبجکت user

Dim id As Int=user.getInt("id")
Dim is_bot As Boolean=user.getBoolean("is_bot")
Dim first_name As String=user.getString("first_name")
Dim language_code As String=user.getString("language_code")
'''''''''''''''''''''''''''''''''''''''''''''''''''
Dim status As String =result.getString("status")

 

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


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

کاربر عادی

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

 

java.lang.NoClassDefFoundError: Failed resolution of: Lokhttp3/OkHttpClient$Builder;

ببخشید دوتاش رو همزمان گرفتم اشتباهی تو جیسون پست گداشتم توی کتابخانه ی persian fast network ذین اررور میاد

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


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
محمدرضا شاهپیری    3,406

معاون انجمن

:malih: اشکال نداره عزیز.

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

  • پسندیدن 1

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


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
arastooms    1,029

پاسخگو و راهنما

در در 1396/08/02, 08:49:55، محمدرضا شاهپیری گفته است :

:malih: اشکال نداره عزیز.

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

سلام جناب شاهپیری من یک استرینگ به صورت زیر دارم

["ali shemirani","maryam namjo","hasan mozafari","nastaran ahmadi"]

که در سایت مرجع با خود کتابخونه بیسیک راهنمایی میکنه و میگیره و میریزه تو یه لیست

Dim parser As JSONParser 
parser.Initialize(string_ex) 
Dim root As List = parser.NextArray 
For Each colroot As String In root 
Next

 


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

 

image.png.c2bf44a3abbfc634f2fe2971f6da13e7.png

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


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
محمدرضا شاهپیری    3,406

معاون انجمن

در در 1396/10/05, 09:18:52، arastooms گفته است :

 

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

    Dim per As PersianJSONArray
	per.initialize(your_jsonstring)
	For i=0 To per.size-1
		Log(per.geTObject(i))
	Next

 

  • پسندیدن 1

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


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

کاربر عادی

سلام آقای شاهپیری

من برای اینکه بتونم خروجی جیسونم به شکل زیر باشه باید چیکار کنم

 

{ "amount": "1000"
, "traceNumber": "22958"
, "sourceCard": "6362141092952671"
, "settlements": [ {"id": "72", "amount": "501"}]
, "pin": "fLIX+jdXhpmGz4Mach+i8Q=="
}

کدهام را به صوررت زیر مینویسم اما settlements را خراب میکنه برای اینکه آرایه بهش بدم چیکار کنم

pj2.putToJSON("amount","1000")
    pj2.putToJSON("traceNumber","01")
    pj2.putToJSON("sourceCard","1235468594664")
    pj2.putToJSON("pin","123456")
    pj2.putToJSON("settlements",Array As String("id","72","amount","501"))

    

خروجی کدهای من :

{"amount":"1000","traceNumber":"01","settlements":"[Ljava.lang.String;@5289c6a8","pin":"123456","sourceCard":"1235468594664"}

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

 

راه حل چیست؟

 

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


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
محمدرضا شاهپیری    3,406

معاون انجمن

در 13 ساعت قبل، smr گفته است :

 

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

   Dim pj2 As PersianJSONOBject
    pj2.initialaizJsonObject
	pj2.putToJSON("amount","1000")
	pj2.putToJSON("traceNumber","01")
	Dim ar As PersianJSONArray
	ar.initializeDefault
	Dim prj3 As PersianJSONOBject
	prj3.initialaizJsonObject
	prj3.putToJSON("id",72)
	prj3.putToJSON("amount",501)
	ar.putToJSON(prj3.DefaultJsonObject)
	pj2.putToJSON("settlements",ar.DefaultJsonArray)
	pj2.putToJSON("sourceCard","1235468594664")
	pj2.putToJSON("pin","123456")

 

  • پسندیدن 1

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


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

کاربر رو به رشد

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

به نام خدا

سلام و عرض ادب خدمت همه دوستان عزیز

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

ساختاری بسیار ساده منعطف و جذاب داره ولی متاسفانه توی بیسیک به روش درستی پیاده سازی نشده و ضعفهای بسیار جدی و عمده ای داره که یا باهاش مواجه شدین یا در آینده ای نزدیک میشین:malih:

کتابخونه حاظر از کتابخونه قدرتمند org.json ایمپلمنت شده و نهایت سادگی و جذابیت رو شما در کار با جیسون تجربه میکنید توی بیسیک

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

persianlibeju

در نهایت امیدوارم دوستان از این کتابخونه نهایت استفاده رو ببرن

شاد و موفق باشید

لینک خرید کتابخانه

لینک آموزش و حل مشکل با ariavolley

سلام من این کتابخونه رو خریدم و ورژن 2.2 رو دانلود کردم ولی داخل کتابخانه ها که تیک زدم v1.00 نشون میده حتی ورژن های 2 و 2.1 رو هم جایگزین کردم که همین طور هست.

 ورژن خود b4a من 8.00

ممنون اززحمات شما :give_heart:

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


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
امین مهدی نژاد    1,851

معاون انجمن

شماره نسخه رو ظاهرا درست وارد نکرده اند.

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

تا در نسخه بعدی اصلاح بشه

«موفق باشید.»

  • پسندیدن 1

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


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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

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

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

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

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

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

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


×
×
  • جدید...