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

@mdy
בדרך כלל כן ובמיוחד אם היא לא על מקום יציב
חוץ מזה לא לשכוח שיש את המשקל של הכביסה ובסיבוב המשקל גודל בהרבה

@ששא בעיקרון התיעוד בכתובת הזו https://api.govmap.gov.il/docs/javascript-functions/intersect-features אמורה לספק
רק מה שאתה צריך זה טוקן שלהם תירשם ונסה לקבל בקשה לטוקן ואז לבדוק.

@ששא צהריים טובים האמת שאתגרת אותי...
היות וגם אני חיפשתי את ה api הזה לפני כ-שנתיים (ואולי יהיה לי צורך בזה בעתיד)
כרגע הצלחתי להתקדם חצי דרך באתר הנ"ל שהבאת.
https://www.govmap.gov.il/
אז לאחר חקירה מעצבנת ועקבית לגבי ה api שלם ואיך עובד הקישור הנה הם כדלהלן:
חיפשתי באתר כתובת ספציפית לדוגמא
הר"ן 16 ביתר עילית
התוצאה הייתה בכתובת

https://www.govmap.gov.il/?c=211219.95,623481.33&z=5&q=%D7%94%D7%A8%22%D7%9F+16+%D7%91%D7%99%D7%AA%D7%A8+%D7%A2%D7%99%D7%9C%D7%99%D7%AA

כלומר הכתובת הזו מקבלת 3 פרמטרים
C = מיקום מדוייק (מספר כל שהוא לדוגמא 211219.95,623481.33)
Z = זום של המפה ( מספרים מ 1 - 17)
Q = הכתובת שתוצג בחיפוש (פחות תעניין אותנו במצב הנוכחי)
הנה צלום מסך

לאחר שהבנתי את הפרמטרים הללו הלכתי לבדוק בשכבות מה קורה
לחצתי על שכבה של שכונות
וקיבלתי את הקישור הבא

https://www.govmap.gov.il/?c=211219.95,623481.33&z=12&lay=22&bs=22%7C211219.95,623481.33

מקבל 4 פרמטרים
C המספר הסיראלי של המקום
Z זום של מפה
LAY מספר שכבה (בנידו"ד מדובר על שכבה 22 של שכונות)
BS מציג את החלון הימני של פרטי השכונה (שים לב שאחרי ה 22%C הוא שוב פעם מחזיר את המיקום

כך שמה שנשאר לעשות זה כך
ליצור חיפוש של הכתובת
לקבל את המספר של המיקום פה יש תיעוד לקבלת הurl
לחפש את המיקום בכתובת השניה של השכונה ולשלוף איכשהוא את שם השכונה (את זה אני לא יודע לעשות). עריכה: פה יש תיעוד להחזרת ערכים לפי מיקום.
בהצלחה!

@yossiz אני יודע שיכול להיות שלא כתבתי מעולה..
אני הגעתי למצב שבו אני צריך לכתוב את זה כי כל קוד שקיבלתי מ gpt החזיר שגיאה ולא היה לי כח להתאמץ ולמעשה התייאשתי מלכתוב את הקוד כלל.
דא עקא יום אחד עלה לי רעיון בענין הזה וכך מצאתי את עצמי יושב וכותב את הקוד הזה ובדקתי מול gpt והתשובה שלו הייתה שלא ניתן להחזיר את הגלגל אחורה היות וקיימים מספר פעמים של הכפלה וחילוק ואין לו שום אפשרות לדעת כמה פעמים זה נעשה ואם אני רוצה לקבל קוד שידבג אחורה אני צריך להביא לו את הסיסמה המקורית
אמנם ידעתי שכנראה לא כתבתי מעולה ואני רוצה לדעת מה הטעויות ואיך ניתן לשפר אותו לרמה מקצועית.

עכשיו אני שם לב שהשתרבב לך $ במקום @

מצאתי זה מסיר את שם הקובץ

(Get-Item $updated.Path).DirectoryName

@מטעמים כתב בהאטת ריצת קוד vba:

אבל שמתי לב שהוא נתקע דוקא מיד בתחילת הקוד בשורה שהוא מבצע פעולת פתיחת קובץ.

הבעיה היא כך
המחשב פותח את הקובץ ולאחר מכן אתה מסתמא מבקש שגם יגש לקובץ שהמחשב פתח ויעשה בו פעולות.
מה שקורה זה שהמחשב שלך לא מצליח לסיים לפתוח את הקובץ, וכבר הקוד vba שלך שולח בקשה לבצע פעולה בקובץ ומשום שהוא לא מצליח אז הוא קורס....

וזו הסיבה שבריצה ע"י F8 הקוד עובד מעולה.

והפתרון לזה הוא להכניס לאחר הקוד של פתיחת הקובץ קוד של טיימר של לולאה שמחכה זמן מסויים לאחר פתיחת הקובץ עד שבוודאות הקובץ נפתח ואז תוכל לגשת לקובץ ולעשות בו פעולות.
(אני לא יודע מה השימוש שלך בקובץ שאתה פותח אבל אם זה שליפת נתונים לפעמים אפשרי לשלוף אותם ללא פתיחת הקובץ כלל).

בהצלחה.

@פלורידה ראשית כל הרבה תודה על היוזמה נהניתי מאווווד מהרעיון ועל אופן הביצוע הכמעט מושלם (מושלם אין אף פעם כך שזה מושלם לגמרי)

לגבי המסד נתונים לא הרבה התעמקתי במה ש @OdedDvir כתב..
אבל אני רוצה לציין כמה דברים

• לבנות מסד נתונים באקסל זה לא משהו בריא למערכת כמו שלך ובמיוחד עם עדכונים הייתי ממליץ לך להתקדם לאקסס אני עשיתי שם דברים הרבה יותר טובים וכמה מעלות טובות באקסס

1. הפרדת הנתונים מטפסים (כלומר התוכנה עצמה מהמסד הנתונים)
2. בעת עדכון אתה לא צריך לוודא שהנתונים של המשתמש עוברים לעדכון החדש כי אתה מעדכן רק את התוכנה ולא את המסד נתונים
3. סגירת האקסס בצורה בטוחה למשתמש וכו'
   ואני מאמין שיש עוד הרבה אבל לא עולה לי כעת ...

• בכל אופן שים לב שכעת אתה מאפיין את המסד נתונים לפי ש"ס ששם יש לך 3 פרמטרים

1. מסכת
2. פרק
3. עמוד

אבל אם תרצה לצורך העניין להוסיף שו"ע
יש לך 4 פרמטרים

1. חלק
2. הלכות
3. סימן
4. סעיף

ויש עוד דוגמאות מעוד ספרים וכו'

@אביי
ברמת העיקרון את יכול להוריד כל שנה בנפרד מקלוח
יש להגדיר מיקום ואז להוריד
שים לב זה לא כזה מדוייק

@davidnead אמר בתכנות | איך להתחיל?:

ממליץ על זה, ועל עוד כמה מאמרים מעניינים שמופיעים שם:
https://he.quora.com/אילו-כישורים-חסרים-לעיתים-למתכנתים

ועוד משהו חשוב עוד יותר:
https://he.quora.com/עכשיו-כשכל-אחד-יכול-ללמוד-לתכנת-האם-זה

2 הקישורים האלו חסומים בנטפריי

@magicode אמר בתכנות | איך להתחיל?:

מטרה של להיות מתכנת זה לא נחשב מטרה לדעתי.

עד עכשיו שתקתי.. אבל על המשפט הזה אני חולק מכל וכל!!!!
אני בניתי כבר כמה פרויקטים גדולים באקסס וכן אלפי שורות קוד ב vba כו' ועוד כמה פרויקטים קטנים ב#C וחשבתי (לתומי) להיתמר כמתכנת (לפחות של vba) והרי כבר עשיתי פרויקטים ... למה לא!!
אולם לאחר ש @dovid עשה לי שטיפת מוח בנידון והסביר לי מהו מתכנת אני לא רק חושב אלא בטוח שאם לא יהיה לך מטרה להיות מתכנת לא תגיע לשם לעולם אתה תבנה מלא דברים אבל כאשר תגיע לתקלות ... לא נעים.. אבל לא תמצא ידיים ורגלים בכלל (מניסיון!).

בקיצור נמרץ מתכנת הוא אחד שיודע לבנות קוד נכון (כלומר ליצור שגיאות לכל מהלך לא נכון של המשתמש בצורה הכי מיטבית) וכן לקרוא קוד נכון לא משנה באיזה צורה המתכנת הקודם כתב.
ולא רק להעתיק או לכתוב כל מיני שורות למיניהם שאתה איכשהו זוכר זה יביא אותך במקסימום לאיזו שהיא תוכנה עובדת שאתה מתפלל כל דקה שלא יצוצו לך תקלות .. שיכניסו אותך לאי נעימות.

בדרך אגב לגבי האנגלית ברור שרצוי שתלמד אנגלית (אם יש כח זה בוודאי מוסיף) אבל אני אישית בכל אופן חוץ מאותיות ולקרוא איכשהו בלי להבין כמעט מילה ב"ה אני מסתדר היטב.

מה שנשאר לאחל לך הוא בהצלחה!!!
ואל תהסס לשאול כאן בפורום מניסיון שלי .... החברה כאן מאוד אוהבים לעזור...

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

@dovid @OdedDvir הרבה תודה על העזרה
פשוט נפתרה הבעיה ב"ה (את האמת גם אני לא יודע למה אבל משום מה הכל הסתדר)....

@dovid אמר בלא מצליח לגשת למשתנה בתוך תנאי #C:

@אוריי סליחה על החריפות אבל אתה עושה דברים בלי להבין.

לא נבהל מחריפות ... אם לא זה איך אני ילמד... ככל שעולה החריפות אני לומד יותר
אבל עד כמה שתחשוב שאני עושה דברים בלי להבין אבל אתה צריך להבין אותי שאני מגיע ממקום של vba ולכן אתה רואה את הקוד שלי מסורבל מידי אבל (לאט לאט אבל בטוח) אני משתפר בזה..

@dovid אמר בלא מצליח לגשת למשתנה בתוך תנאי #C:

בשביל לבנות כזה קוד, אתה כותב פיסת קוד נסיונית קטנה שמכילה רק את מה שרלוונטי:

את האמת התחלתי גם מחתיכת קוד ניסיונית והכל עבד מעולה ומשם המשכתי. אך מה שקרה זה שבעת שהמרתי לint התחילו הצרות (מה שהתברר כטעות).

@dovid אמר בלא מצליח לגשת למשתנה בתוך תנאי #C:

אני כתבתי לך את הקוד כדי להקל על השיעורי בית וללמד אותך עוד טיפ או שניים:

אני מקווה שזה לא יהיה בגדר של לעזור לאפרוח לצאת מהביצה ...
אני בע"ה ישב טוב במוצא"ש להבין את הקוד לעומקו (אני לא מסכים לעצמי בשופו"א להעתיק סתם קוד בלי להבין יהיה כמה מסורבל שיהיה זה בשבילי קו אדום)

מצאתי את הבעיה היא הייתה בשורה הזו (שורה 7)

DisplayText = DisplayText & Result(i) & vbNewLine

החלפתי את vbNewLine ל Chr(10)
וזה עובד מעולה

התוצאה הסופית היא

Dim TextStrng As String
Dim Result() As String
Dim DisplayText As String
TextStrng = Range("a1").Value
Result = Split(TextStrng, ";", 1000)
For i = LBound(Result()) To UBound(Result())
DisplayText = DisplayText & Result(i) & Chr(10)
Next i
MsgBox DisplayText
Range("b1").Value = DisplayText

@dovid כל מילה בסלע שום דבר לא מיותר
אני הייתי חושב להוסיף עוד משפט קטן
כשהתחלתי לכתוב קוד vab היה לי מאד קשה לזכור את השפה כך שכל פעם הייתי צריך לחפש מה עשיתי בפרוייקט אחר ולהעתיק משם את הקוד עד שלאט לאט קלטתי מה כל פקודה עושה (פשוט ללמוד ארמית בגמ')
גם כאן בעברית הזו זה לא יקל כי סו"ס אני יצטרך לזכור מה כל מילה אומרת (לא פחות אם זה היה אנגלית)

@chagold

יש לי קוד כזה שמחזיר בעמודה B האם הערך קיים בקובץ וורד לפי ערכים בעמודה A
זה הקוד
אני מאמין שתוכל לשפר אותו עוד

Sub FindName()

    Dim X
    X = 1
  
    Dim wrdApp As Object
    Dim wrdDoc As Object
    Set wrdApp = CreateObject("Word.Application")
        wrdApp.Visible = True
    Set wrdDoc = wrdApp.Documents.Open("C:\Users\sbhtk\Documents\ssss.docx")
    Dim FindWord As String
    Dim result As String
    
       Do While Range("A" & X).Value <> ""
   
    FindWord = Range("A" & X).Value
   ' MsgBox FindWord
    
    '// Defines selection for Word's find function
    wrdDoc.SelectAllEditableRanges
    
    '// Word Find Method Setup Block
    With wrdDoc.ActiveWindow.Selection.Find
        .Text = FindWord
        .Replacement.Text = ""
        .Forward = True
        .Wrap = 1 ' wdFindContinue (Word constant not defined in Excel)
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
'        .Style = ("choose your style to look for")
    End With
    
    '// Execute find method selects the found text if found
    wrdDoc.ActiveWindow.Selection.Find.Execute
    
    '// Store Selected text
    result = wrdDoc.ActiveWindow.Selection.Text
    
    '// Test if the selection string found match value required converted case for comparison
    If UCase(result) = UCase(FindWord) Then
        Range("B" & X).Value = "קיים"
    Else
        Range("B" & X).Value = "לא קיים"
    End If
    X = X + 1
    Loop
    '// Close and don't save application
    wrdApp.Quit SaveChanges:=0 ' wdDoNotSaveChanges (Word constant not defined in Excel)

End Sub

מקור

בהצלחה

@WWW אמר בחידה מתמטית לשמחת החג ולחדד את מוחות הילדים (והמבוגרים):

אתה מזכיר לי את ההוא שהיה חוצה כבישים עם תפו"א על הראש, כשביאר את כוונתו בזה שהרי סטטיסטית יש סיכון מאד גבוה במעבר כביש (רוב התאונות הקטלניות זה בעוברי רגל), אך הסיכויים שיקרה תאונה לאדם עם תפו"א על הראש שואפים לאפס...

אבל הם הוא יפגע אז הוא הופך את זה למסוכן מאד 100%

@ראש-פינה אמר בפיתרון לסליקה ממוחשבת למכונות כביסה וייבוש:

@אוריי אמר בפיתרון לסליקה ממוחשבת למכונות כביסה וייבוש:

הבעיה היא שלפעמים במצב השהייה יכול להיות שצריכת החשמל היא כמו מכונה ללא פעולה ואז במצב כזה הוא יפסיק את החשמל באמצע תוכנית

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

ואם הוא יפעיל מכונה מיד לאחר שמסתיים הוא יוכל להפעיל כמה מכונות רצוף זה פשוט חור גדול במערכת

@אף-אחד-3
מנסיון של הרבה שקעים
פרופילה מספיק אמנם היו לי מקרים שהתפרק ..
מאז אני משתמש במלט לבן עם מעט חול (טיט) לאחר שמתייבש שמתי שכבה דקה של פרופילה (ואם יש לך מתאם בונרול תוכל להיות בטוח שגם לא יהיה לך קילופים בצבע) וצבע וכו' ותשקוט הארץ ...
ואם תשתמש בשקעי גביס אתה יכול גם להיות רגוע שהשקע עצמו לא יצא מהקופסא.. מאז שאני החלפתי לא יצא לי לתקן אותם מעולם לא חיזוקים ולא כלום יש לי את זה כמה שנים