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

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

שמות אובייקטים ממערך

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

    ערב טוב.
    אני משתמש בקוד VBA אקסס בפונקציה שממירה json למערך (JsonConverter), ומוציא ממנו נתונים עם קוד כזה: element("Name")
    אני מנסה עכשיו לכתוב קוד שיציג לי את כל השמות של האלמנטים הקיימים, ניסיתי לעשות לולאה ולכתוב element(1) לדוג' אבל הוא מזהה רק שם של האלמנט ולא במספר.
    האם יש אופציה למצוא את השמות שלהם?
    תודה.

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

    @ארי
    element(1).Keys()(0) עובד לך?
    (מודה ומתוודה זה מגוגל מכאן אם זה לא עובד אני אמחק)

    עזרתי לך? תראה לי את זה על ידי לחיצה על ה^ בצד שמאל למטה.

    תגובה 1 תגובה אחרונה
    0
  • dovidD מנותק
    dovidD מנותק
    dovid ניהול
    השיב לארי ב נערך לאחרונה על ידי
    #3

    @ארי שים פה את הקוד שניסית.

    אפשר ליצור קשר dovid@tchumim.com

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

    @dovid משהו כזה:

    Set Json = JsonConverter.ParseJson(Response)
    
    For Each element In Json
            
        Debug.Print element(i)
        i = i + 1
        
    Next element
    

    הוא לא מחזיר שגיאה, אבל פשוט מתעלם.
    תודה.

    dovidD תגובה 1 תגובה אחרונה
    0
  • dovidD מנותק
    dovidD מנותק
    dovid ניהול
    השיב לארי ב נערך לאחרונה על ידי
    #5

    @ארי אמר בשמות אובייקטים ממערך:

    JsonConverter.ParseJson

    תנסה ככה:

    Set Json = JsonConverter.ParseJson(Response)
     
    For Each key In Json.Keys()
        Debug.Print Json(key)
        i = i + 1
    Next element
    

    אפשר ליצור קשר dovid@tchumim.com

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

    @dovid לא עובד.
    הוא נתקע בשורה הראשונה

    For Each Key In Json.Keys()
    
    dovidD תגובה 1 תגובה אחרונה
    0
  • dovidD מנותק
    dovidD מנותק
    dovid ניהול
    השיב לארי ב נערך לאחרונה על ידי
    #7

    @ארי אם הוא נתקע תנסה לדחוף מאחורה...

    אפשר ליצור קשר dovid@tchumim.com

    א תגובה 1 תגובה אחרונה
    4
  • א מנותק
    א מנותק
    ארי
    השיב לdovid ב נערך לאחרונה על ידי
    #8

    @dovid 🙄
    הוא מחזיר שגיאה:
    1acda292-52d2-4574-b6da-0b6f45d1be2e-image.png

    תודה!

    dovidD תגובה 1 תגובה אחרונה
    0
  • dovidD מנותק
    dovidD מנותק
    dovid ניהול
    השיב לארי ב נערך לאחרונה על ידי
    #9

    @ארי זה כבר יותר טוב מ"לא עובד".
    איך אתה מצהיר על Json? איזה סוג?
    כלומר יש שורה בה כתוב Dim Json As XYZ?

    אפשר ליצור קשר dovid@tchumim.com

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

    @dovid

    Dim Json        As Object
    Dim Key         As Object
    
    א תגובה 1 תגובה אחרונה
    0
  • א מנותק
    א מנותק
    ארי
    השיב לארי ב נערך לאחרונה על ידי
    #11

    @dovid הקפצה.
    תודה.

    תגובה 1 תגובה אחרונה
    0

  • התחברות

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

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

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

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