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

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

@הבוס-הגדול בעצם באו לתקן את התרגום הלא מוצלח בשאר השדות
הבחור הזעצער גם החליף בנקודה אחת בלבד, וגם.

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

@yossiz אמר בעזרה - שינוי שם בקבצי PDF מרובים לפי טקסט מתוך המסמך:

@מעלה-ומוריד

param([string]$path = '.')
 
$pdftotext = "C:\path\to\PdfToText.exe"
 
[Console]::OutputEncoding = [text.encoding]::utf8
 
Get-ChildItem -path $path -Filter '*.pdf' | ForEach-Object -Process {
  if ($_.BaseName -cmatch '^[A-Z0-9]{10}$') { # Check filename matches format
    $donor = &$pdftotext -enc UTF-8 -simple $_.FullName - | Select-Object -Index 9 # Get donor line
    $donor = $donor -replace "[$([Regex]::Escape(-join [IO.Path]::GetInvalidFileNameChars()))]", '_' # Replace illegal characters
    $donor = $donor -replace "[\u202b\u202c]", "" # Strip bidi chars
    $donor = (($donor -split ' ' | Select-Object -Unique) -join ' ').Trim() # Remove double name
    $date = &$pdftotext -enc UTF-8 -simple $_.FullName - | Select-Object -Index 4 # Get date line
    $date = $date -replace '^[^0-9\/]*([0-9/]+)[^0-9/]*$', '$1' # Get date
    $date = $date -replace "[\u202b\u202c]", "" # Strip bidi chars
    $date = $date -replace '/', '_'
    $filename = '{0}_({1}_{2}).pdf' -f $_.BaseName, $donor, $date
    $_ | Rename-Item -NewName $filename
  }
}

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

לשנות את שם הקובץ המקורי ל: שם המקורי+שם התורם.

לבדוק אם שם הקובץ גדול מ-10 תווים (ואז הוא טופל)

ממיר את כל התווים הלא תקניים לקו תחתון (מקור)

ולמדתי קצת powershell על הדרך.

נהדר! פצצה!
גם השארת השם המקורי חשובה מצד עצמה.
יישר כח גדול מאוד. לא ראיתי באופק דרך להתמודד עם 1424 קבלות. זה פשוט ישועה.

ולמדתי הרבה על מידות טובות ונתינה על הדרך.

@chv
@yossiz

@yossiz

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

מקווה שלא עברתי על איזה חוק.
דברים חשובים של הרב דסלר זצ"ל.
קצת יותר חשוב ממה שפורסם - דבריו על התערערות השלווה וכו'.
למה דווקא חרדים מכתב מאליהו.pdf

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

@zvinissim היקר הוריד כמה וכמה גרסאות עד שנמצאה הגירסה המבוקשת!
כל הכבוד למי שהשקיע מזמנו עבור סתם אדם אנונימי.
https://www.google.com/url?q=https://send.magicode.me/send-file/file/93aeddaf372c9842fd21a4453d4a3a77b1da94ca/view&sa=D&source=hangouts&ust=1540035929123000&usg=AFQjCNF4tzHEyhLmVeey57MggX5vLbzfDQ

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

• מאקרואים מותאמים אישית, עמל של שעות לאורך שנים.
• מקשי קיצור להפעלת פקודות ופקודות מאקרו, מעייף לשחזר הכל.

הנה דוגמה: https://tchumim.com/post/147744

בחסות GPT מצ"ב מאקרו לגיבוי של תבנית הנורמל, אצלי הכנסתי אותו בסרגל גישה מהירה ובכל פעם שאכניס מאקרו חדש לא נותר לי אלא ללחוץ על גיבוי...

Sub BackupNormalDotm()
    Dim fso As Object
    Dim sourcePath As String
    Dim destPath As String
    Dim fileName As String
    Dim dateTimeStamp As String

    Set fso = CreateObject("Scripting.FileSystemObject")
    
    sourcePath = "C:\Users\MyUser\AppData\Roaming\Microsoft\Templates\"
    destPath = "C:\Users\MyUser\AppData\Roaming\Microsoft\Templates\NormalBackup\"
    
    dateTimeStamp = Format(Now, "dd_mm_yy_hh_mm_ss")
    
    fileName = "Normal.dotm"
    
    If Not fso.FolderExists(destPath) Then
        fso.CreateFolder destPath
    End If
    
    If fso.FileExists(sourcePath & fileName) Then
        fso.CopyFile sourcePath & fileName, destPath & Left(fileName, Len(fileName) - 5) & "_" & dateTimeStamp & ".dotm"
        
        MsgBox "הקובץ הועתק בהצלחה ונוסף לתיקיית הגיבוי."
    Else
        MsgBox "הקובץ המקורי אינו קיים."
    End If
    
    Set fso = Nothing
End Sub

@OdedDvir תודה רבה!
נפלא לראות בכל פעם מחדש איך הידע שיש לך בכל ההיקף עומד לרשות הציבור...

@aknvtchtk
@bbn
תודה רבה על העזרה!
והוצאתי, והצלחתי, ופירקתי ושימנתי והחזרתי.
והקב"ה מצילנו.

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

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

https://answers.microsoft.com/he-il/microsoftedge/forum/all/הדפדפן/a1988505-2b41-4229-84ca-49e90c6ba86a

תוסף נפלא שנתקלתי בו לפתע: CrxMouse Chrome Gestures
שמאפשר לבצע פעולות על ידי גרירה של העכבר ב'מצבי לחץ'

פעולות מובנות של מחוות עכבר:

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

---

Super Drag פעולות מובנות:

הקש + החזק את הלחצן השמאלי וגרור קישורים כדי לבצע את הפעולות הבאות:
→ : פתח קישור בלשונית חדשה
← : פתח קישור בלשונית חדשה (רקע)
←↓→ : העתק טקסט
→↓← : העתק כתובת URL

לחץ + החזק את הלחצן השמאלי וגרור טקסט כדי לבצע את הפעולות הבאות:
← : חפש בכרטיסייה חדשה (רקע)
→ : חפש בכרטיסייה חדשה

---

מחוות גלגל פעולות מובנות:

לחץ + החזק את הלחצן הימני וגלול כדי לבצע את הפעולות הבאות:
↑: גלול למעלה

לחץ + החזק את הלחצן השמאלי וגלול כדי לבצע את הפעולות הבאות:
↓: גלול למטה

@גגד אמר באיך לפרסם רק לחרדים:

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

השלם: "תַּעֲשׂ֖וּ אֶת־אֵֽלֶּה: _ _ _ _"

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

pre code {
    float: right;
    border-radius: 3px;
    max-width: 100%;
}

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

עדכון: התקשרתי לסוכנות טויוטה, והם נתנו לי את מספר החלק, וכך מצאתי בשניות בעלי אקספרס
אם ולו יצוייר וכאשר מישהו יחפש נתון זה: מספר החלק 87945-02925

ורק לשים כאן השוואה. בטויוטה עלות הכיסוי 340 ש"ח ועלות צביעה 200 ש"ח
במוסך פשוט כאן בארץ מצאתי הכיסוי ב200 והצביעה ב50
ובעלי אקספרס מחיר הכיסוי נע בין 30-60 ש"ח

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

@א-ב-ו-ב השאלה שלך כתובה בצורה מוזרה
לגופו של צורך
https://tchumim.com/post/150957

@one1010

=VLOOKUP(MAX(IF(D1>=A:A,A:A)),A:B,2,FALSE)

התוצאה רצויה?