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

@שוהם307 כתב בשקע+מתג:

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

אני כבר כתבתי לך כבר לעיל שאם אתה מושך חשמל מהשקע לתאורה החדשה אין שום בעיה וכמובן שאתה לא מחבר אותה עם החשמל של התאורה הקיימת.

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

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

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

@מעמד אמר בטייפ טושיבה שלא קורא את הUSB - עזרה:

@בערל אמר בטייפ טושיבה שלא קורא את הUSB - עזרה:

@מעמד בכדי להיות בטוח, כדאי לבדוק בכונן של 4 ג'יגה. אולי זה לא תומך ביותר מזה..

גאון !!
עובד !!
מה הדפקת הזה שביותר זה לא נתמך ?

אע''פ שהנושא הזה סטה הרבה מהכותרת....
אבל רציתי להעלות השערה שנתקלתי בה בעבר שלפעמים טייפ קורא רק שירים שנמצאים בתוך הכונן בראשי ולא בתוך תיקיה שבתוך הכונן ויכול להיות שלכן לא קרא את השירים ב8 ג'יגה..

@clickone @yossiz המון תודות עובד מעולה
אין עליכם

נעזרתי ב gpt וזה עובד כולל החלפת גופן

Function FindAndHit(findWhat As Variant, text As Variant) As String

    If IsNull(findWhat) Or IsNull(text) Then
        FindAndHit = IIf(IsNull(text), "", text)
        Exit Function
    End If

    Dim openTag As String
    openTag = "<font face=FrankRuehl size=5>"
    Dim closeTag As String
    closeTag = "</font>"

    FindAndHit = Replace(text, findWhat, openTag & findWhat & closeTag)

End Function

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

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

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

כתבתי קוד משלי לשמירת סיסמאות בdb אקסס
זה הקוד:

Public Function EncryptString(str As String) As String
    Dim i As Integer
    Dim encryptedStr As String
    Dim Doubl As Long
    Dim todivide As Long
    Dim encoded As Long
    encryptedStr = ""
    
    For i = 1 To Len(str)
    
    If i - 1 < 1 Then todivide = Len(str) Else: todivide = i - 1
    If i + 1 > Len(str) Then Doubl = 1 Else: Doubl = i + 1
    encoded = Asc(Mid(str, i, 1)) * Asc(Mid(str, Doubl, 1)) / Asc(Mid(str, todivide, 1))
    If encoded = 32 Then encoded = encoded * Asc(Mid(str, Doubl, 1)) / Asc(Mid(str, todivide, 1))
    If encoded = 13 Then encoded = encoded * Asc(Mid(str, Doubl, 1)) / Asc(Mid(str, todivide, 1))
        Do While encoded >= 191
            encoded = encoded - 191
            If encoded = 32 Then encoded = encoded * Asc(Mid(str, Doubl, 1)) / Asc(Mid(str, todivide, 1))
            If encoded = 13 Then encoded = encoded * Asc(Mid(str, Doubl, 1)) / Asc(Mid(str, todivide, 1))
        Loop
        encryptedStr = encryptedStr & Chr(encoded)
    Next i
    
    EncryptString = encryptedStr

End Function

התוצאות של הקוד שהזנתי הם

M›rG
cfoq

האם אפשר לדבג אותם אחורה או שכתבתי מעולה?

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

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

לא שמתי לב שכתבת את זה
ותוך כדי כבר הגעתי לתשובה שכתבת ובכל אופן תודה רבה
בשביל לגשת לנתיב שלו אני צריך לגשת ל

$changes.InputObject.path

לתועלת הציבור הקוד הזה עובד מעולה

    $folder1 = "X:\Test"
    
    $folder2 = "X:\MyBackup\Test"
     
    $folder1Items = Get-ChildItem $folder1 -Recurse | Get-FileHash -Algorithm MD5

    $folder2Items  = Get-ChildItem $folder2 -Recurse | Get-FileHash -Algorithm MD5
  
    $changes = Compare-Object $folder1Items $folder2Items -Property Name, Path -IncludeEqual
 
    $updated = $changes | Where-Object {$_.SideIndicator -eq "<="}
    

        $updated | ForEach-Object {
            
            $ww = (Get-Item $_.Path).DirectoryName.replace($folder1,$folder2)
            if (!(Test-Path -path $ww)) {
            New-Item $ww -Type Directory
            }
            Copy-Item $_.Path $ww -Force 
        }

כמובן שיש לשנות את הנתיבים

@מטעמים את האמת אני נתקלתי בזה לפני איזה 3 שנים, וזה היה הפתרון.

1. איפה בדיוק שמת את הקוד של ההמתנה (באיזו שורה)???
2. ולכמה זמן נתנת לו המתנה ומה יקרה אם תתן לו דקה שלימה להמתין.

אין לי כרגע גישה לקובץ שאיתו היה לי את הבעיה בכדי לבדוק מה בדיוק עשיתי ועם איזה קוד השתמשתי.

@odeddvir תודה
תשובה פשוטה ועובד חלק!

יש לי שרת SQL מותקן על המחשב האישי שלי
בנוסף מותקן לי על המחשב תוכנת לינקפד (בהמלצת @dovid ... וב"ה נהנה ממנה כל רגע)
כעת אני רוצה לגשת לdb מתוך הלינקפד כלומר מכאן

השאלה היא איך ניתן לחבר

@מלא אמר בפתיחת ערכי תיבת רשימה ע"י קוד vba אקסס:

@אוריי אמר בפתיחת ערכי תיבת רשימה ע"י קוד vba אקסס:

שאלה שניה אני אני סוגר את התיבת רשימה אותו אם יש פחות מ0?

לא מוכר לי דרך, כשאתה יוצא מהתא הוא נסגר אוט'

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

@מלא אמר בפתיחת ערכי תיבת רשימה ע"י קוד vba אקסס:

שים לב, שבאירוע בעת שינוי צריך לקרוא לערך עם value ככה: cobBoxName.value

צריך לכתוב text ולא value

@chagold @מלא
ב"ה הסתדרתי
זה היה קוד שהוא לא כזה נצרך.
והגעתי לאותה התוצאה בצורה שונה.
הרבה תודה על הרצון הטוב לעזור

הצלחתי לעלות על הבעיה היה צריך לכתוב כך

xl_app.ActiveSheet.DisplayRightToLeft = True

ולא xl_wks
@מנחם למה בחלק הוא מצריך xl_wks ובחלק מהקודים xl_app ??