• דף הבית
  • קטגוריות
  • פוסטים אחרונים
  • משתמשים
  • חיפוש
  • חוקי הפורום
כיווץ
תחומים

תחומים - פורום חרדי מקצועי

גישה למערך פנימי בjson|קוד vba

מתוזמן נעוץ נעול הועבר תכנות
6 פוסטים 2 כותבים 88 צפיות
    • מהישן לחדש
    • מהחדש לישן
    • הכי הרבה הצבעות
תגובה
  • תגובה כנושא
התחברו כדי לפרסם תגובה
נושא זה נמחק. רק משתמשים עם הרשאות מתאימות יוכלו לצפות בו.
  • צבי-שצ מנותק
    צבי-שצ מנותק
    צבי-ש
    כתב ב נערך לאחרונה על ידי
    #1

    אני שולח בקשת HTTP בקוד vba, ומקבל בתגובה מערך json המכיל למשל { "Status" : "Error" , "Message" : "שגיאה לא ידועה" }.

    אני רוצה להקפיץ למשתמש רק את הודעת השגיאה (ולא את כל הjson).

    כרגע אני משתמש בקוד זה

    MsgBox "json", vbInformation, "כותרת החלון"
    

    שמקפיץ הודעה אבל רושם את כל הjson.

    ואני לא מצליח לגשת ל json.Erorr (להודעה עצמה).
    ושאלתי היא,
    האיך ניתן לגשת לאיבר בקובץ json בשביל לבודד את הודעת השגיאה משאר הjson.

    ניסתי לעשות כבר
    json.Erorr
    json("Erorr")
    json.("Erorr")
    וזה לא עבד.

    כיף לגלות דברים חדשים.
    חוק ה-50-50-90: בכל פעם שיש סיכוי של 50-50 שמשהו יעבוד, יש סיכוי של 90 אחוז שהוא לא. מקור

    מנחםמ תגובה 1 תגובה אחרונה
    0
  • מנחםמ מנותק
    מנחםמ מנותק
    מנחם
    השיב לצבי-ש ב נערך לאחרונה על ידי
    #2

    @צבי-ש תנסה את זה,
    בהנחה שיש לך את הקוד שממיר JOSN
    שמקורו כאן

    Dim ResponseJson As Object
    Set ResponseJson = JsonConverter.ParseJson(Response.Content)    
    Debug.Print ResponseJson("Message")
    
    צבי-שצ תגובה 1 תגובה אחרונה
    2
  • צבי-שצ מנותק
    צבי-שצ מנותק
    צבי-ש
    השיב למנחם ב נערך לאחרונה על ידי
    #3

    @מנחם אמר בגישה למערך פנימי בjson|קוד vba:

    @צבי-ש תנסה את זה,
    בהנחה שיש לך את הקוד שממיר JOSN
    שמקורו כאן

    Dim ResponseJson As Object
    Set ResponseJson = JsonConverter.ParseJson(Response.Content)    
    Debug.Print ResponseJson("Message")
    

    תוכל להסביר מה זה כל דבר בדוגמא?
    מה תפקידה של כל שורה לעשות כדי שאני ילמד מה אני צריך לשנות כדי שזה יתאים אליי.

    כיף לגלות דברים חדשים.
    חוק ה-50-50-90: בכל פעם שיש סיכוי של 50-50 שמשהו יעבוד, יש סיכוי של 90 אחוז שהוא לא. מקור

    מנחםמ תגובה 1 תגובה אחרונה
    0
  • מנחםמ מנותק
    מנחםמ מנותק
    מנחם
    השיב לצבי-ש ב נערך לאחרונה על ידי
    #4

    @צבי-ש התשובה מתקבלת ב-JOSN, ויש להמירה למערך-אובייקט שמכיל מפתחות וערכים.
    בשורה הראשונה מצהירים על אובייקט
    בשורה השניה מתבצעת טעינת הערכים לאובייקט על ידי קריאה לפונקציה (*)JsonConverter.ParseJson
    הכוכביות זה בעצם ה-JOSN שאתה ממיר
    ובשורה האחרונה מתבצעת קריאה למפתח Message שבמקרה שלך הערך שלו הוא שגיאה לא ידועה

    צבי-שצ תגובה 1 תגובה אחרונה
    2
  • צבי-שצ מנותק
    צבי-שצ מנותק
    צבי-ש
    השיב למנחם ב נערך לאחרונה על ידי
    #5

    @מנחם הוא מעביר אותי לפונקציה שהם כתבו ועושה שם שגיאה.

    70dd44f8-49c4-4208-8351-d08fb460180f-image.png

    כיף לגלות דברים חדשים.
    חוק ה-50-50-90: בכל פעם שיש סיכוי של 50-50 שמשהו יעבוד, יש סיכוי של 90 אחוז שהוא לא. מקור

    צבי-שצ תגובה 1 תגובה אחרונה
    0
  • צבי-שצ מנותק
    צבי-שצ מנותק
    צבי-ש
    השיב לצבי-ש ב נערך לאחרונה על ידי צבי-ש
    #6

    הסתדרתי .
    דובר על זה גם פה.
    הפתרון הוא להוסיף כאן -
    20a298db-92a2-4043-84a1-bd87bad98aaf-image.png

    את הפונקציה הזאת -
    b261b67d-a777-421e-94c2-43e7923491ad-image.png
    וזהו.

    כיף לגלות דברים חדשים.
    חוק ה-50-50-90: בכל פעם שיש סיכוי של 50-50 שמשהו יעבוד, יש סיכוי של 90 אחוז שהוא לא. מקור

    תגובה 1 תגובה אחרונה
    0
  • dovidD dovid העביר נושא זה מ-תכנות ב-

  • התחברות

  • אין לך חשבון עדיין? הרשמה

  • התחברו או הירשמו כדי לחפש.
  • פוסט ראשון
    פוסט אחרון
0
  • דף הבית
  • קטגוריות
  • פוסטים אחרונים
  • משתמשים
  • חיפוש
  • חוקי הפורום
  • התחברות

  • אין לך חשבון עדיין? הרשמה

  • התחברו או הירשמו כדי לחפש.