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

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

יש עדיין מה לשפר בסקריפט שכתבתי:

אני לא מבין בPS אבל הנה השני סנט שלי:

צריך לתת שם ייחודי לכל קובץ כדי שלא יהיה שגיאה כאשר יש שני קבצים עם שם תורם זהה

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

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

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

צריך לסנן תווים מיוחדים מתוך השם החדש הקובץ

$Path.Split([IO.Path]::GetInvalidFileNameChars()) -join '_'

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

ישר כח על העזרה @yossiz !

@יוס אמר באיטיות ב SUM ב MYSQL:

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

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

@nigun אמר בייעוץ לבחירת שרתים עבור מרכזייה ומערכת תוכן ב-freeswitch:

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

אני מבקש סליחה מראש על ש

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

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

אפשרות א: להשתמש בדוח במקום בטופס - בדוחות יש אפשרות להוספת חישוב סכומים מצטברים.
יתרונות:

• הכי קל לביצוע.
• נתונים עקביים: החישוב מבוצע בכל תצוגה מחדש.

חסרונות:

• הדוח לא ניתן לעריכה.
• מאוד לא יעיל מבחינת חישובים, במיוחד בטבלאות עם הרבה רשומות.

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

יתרונות:

• עקיבות: חישוב מדויק של הסכום המצטבר, כי הוא מחושב בזמן אמת.

חסרונות:

• השאילתא לא ניתנת לעריכה (קריאה בלבד).
• מאד לא יעיל מבחינת חישובים, במיוחד בטבלאות עם הרבה רשומות.

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

יתרונות:

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

חסרונות:

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

אני נוהג להשתמש באפשרות השלישית.

@OdedDvir כתב בחיפוש תוכנה: המרת קובץ אקסל (xlsx) לcsv:

נחכה לשדרוג לגרסה 0.2

הנה גרסה 0.2 שדורשת רק שני קבצים (קרדיט ל-@dovid על ההערה)

סקריפט vb

if WScript.Arguments.Count <> 2 Then
    Wscript.Echo "Error: invalid number of arguments specified." & vbNewline
    WScript.Echo "Usage: ExcelCsvConvertor <InputFileName> <OutputFormat>" & vbNewline
    WScript.Echo "Example: ExcelCsvConvertor input.xlsx csv"
    Wscript.Quit
End If


InputFileName = Wscript.Arguments.Item(0)
OutputFormat = lcase(WScript.Arguments.Item(1))

Select Case OutputFormat
Case "csv"
    XlFileFormatValue = 62
Case "xlsx"
    XlFileFormatValue = 51
Case Else
    Wscript.Echo "Unsupported output format specified: " & OutputFormat
    Wscript.Quit
End select

With CreateObject("Scripting.FileSystemObject")
    OutputFileName = .GetBaseName(InputFileName) & "." & OutputFormat
    InputFileName = .GetAbsolutePathName(InputFileName)
    OutputFileName = .GetParentFolderName(InputFileName) & "\" & OutputFileName
End With

WScript.Echo "Converting: " & InputFileName & " to " & OutputFormat & ": " & OutputFileName

With CreateObject("Excel.Application")
    With .Workbooks.Open(InputFileName)
        .SaveAs OutputFileName, XlFileFormatValue
        .Close False
    End With
    .Quit
End With

קובץ התקנה

@echo off

set convertor_path=%~dp0ExcelCsvConvertor.vbs
cls
echo ==========================================================================
echo ExcelCsvConvertor: Context menu setup
echo ==========================================================================
echo.
echo [1] Install   : Adds "Convert to CSV/Excel" options to context menu
echo [2] Uninstall : Removes "Convert to CSV/Excel" options from context menu
echo [Q] Quit
echo.
choice /C 12Q /T 1000 /D Q /N /M "Please select an option: "

IF [%errorlevel%]==[1] GOTO Install
IF [%errorlevel%]==[2] GOTO Uninstall
exit /b

:Install
echo Installing...
REG ADD HKEY_CLASSES_ROOT\SystemFileAssociations\.xlsx\shell\ConvertToCSV /f /d "Convert to CSV..."
REG ADD HKEY_CLASSES_ROOT\SystemFileAssociations\.xlsx\shell\ConvertToCSV\command /f /d "cscript /nologo \"%convertor_path%\" \"%%1\" csv"
REG ADD HKEY_CLASSES_ROOT\SystemFileAssociations\.csv\shell\ConvertToExcel /f /d "Convert to Excel..."
REG ADD HKEY_CLASSES_ROOT\SystemFileAssociations\.csv\shell\ConvertToExcel\command /f /d "cscript /nologo \"%convertor_path%\" \"%%1\" xlsx"
goto Done

:Uninstall
echo Uninstalling...
REG DELETE HKEY_CLASSES_ROOT\SystemFileAssociations\.xlsx\shell\ConvertToCSV /f
REG DELETE HKEY_CLASSES_ROOT\SystemFileAssociations\.csv\shell\ConvertToExcel /f
goto Done

:Done
echo Done!
pause

כל החבילה v0.2:
ExcelCsvConvertor.vbs
Setup (run as Administrator).cmd

@mekev הזריז הקדים אותי, אבל אני משאיר לו לשדרג את הפיצ'ר שלו לגרסה 0.3

@laswater אם תשתף מה שעשית נוכל להגיב. בינתיים זה נראה כאילו התכוונת לאתגר אותנו.

@פשוט-אבל-תותח בבקשה:

1. תייבא את הספריה VBA-JSON מכאן. תוריד את הקובץ bas ותייבא לפרוייקט שלך.
2. תוסיף הפנייה לספרייה "Microsoft Scripting Runtime".
3. הקוד הבא שולח בקשת GET ומחזיר מחרוזת של התוכן:

Public Function HttpGet(url As String) As String
    Dim httpRequest As Object
    Set httpRequest = CreateObject("WinHttp.WinHttpRequest.5.1")
    Dim res As String
    
    httpRequest.Open "GET", url, False
    httpRequest.Send
    HttpGet = httpRequest.responseText
End Function

4. את התגובה אתה צריך לפרסר עם הספריה VBA-JSON.
   הנה דוגמא לשימוש ב-API של טסטים, שמחזיר נתוני דמה של משתמשים, ושליפת ערך השדה "firstname" מהתגובה:

    Dim res As String
    Dim json As Object
    
    res = HttpGet("https://jsonplaceholder.typicode.com/users/1")
    Set json = ParseJson(res)
    
    MsgBox json("username")

התוצאה:

@y0527643446 אפשר להתמודד עם המגבלה הזו, בתנאי שתדאגו מראש לקיים את התנאים הבאים:

1. הנתונים יוצגו כמחרוזת
2. הנתונים ירופדו עם אפסים מובילים כדי להשלים ל-9 תוים (כלומר כל מספר ת.ז. יכיל בדיוק 9 ספרות)

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

=MOD(MID(A1,1,1)+MID("0246813579",MID(A1,2,1)+1,1)+MID(A1,3,1)+MID("0246813579",MID(A1,4,1)+1,1)+MID(A1,5,1)+MID("0246813579",MID(A1,6,1)+1,1)+MID(A1,7,1)+MID("0246813579",MID(A1,8,1)+1,1)+MID(A1,9,1),10)=0

• הערה: הנוסחא לעיל היא להגדרה של אימות נתונים על תא A1, אח"כ ניתן לגרור לתאים אחרים.
  מצ"ב צילום מסך לדוגמא:
  
  קובץ להורדה: בדיקת תקינות תעודת זהות.xlsx

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

בטופס A אתה פותח את B כך:

DoCmd.OpenForm "B",,,,,,X

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

עריכה: במחשבה שניה, יש עוד צורת כתיבה, והיא הרבה יותר מובנת, כך:

DoCmd.OpenForm "B", OpenArgs:=X

ובטופס B, בארוע טעינה של הטופס אתה מאתחל את התיבה המשולבת עם הערך שב OpenArgs, כך:

Private Sub Form_Load()
   Me.MyComboBox.Value = Me.OpenArgs
End Sub

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

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

=IF(AND((TIME(HOUR(B1),MINUTE(B1),SECOND(B1)) >=הגדרות!D2),(TIME(HOUR(B1),MINUTE(B1),SECOND(B1)) <=הגדרות!E2)),"בוקר",IF(AND((TIME(HOUR(B1),MINUTE(B1),SECOND(B1)) >=הגדרות!D3),(TIME(HOUR(B1),MINUTE(B1),SECOND(B1)) <=הגדרות!E3)),"ערב","שעות נוספות מחוץ למשמרת"))

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

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

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

@yossiz אמר במדריך: שורת הפקודה - תגובות:

לכתוב מדריך (או שלך זה קל? )

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

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

@יוסף-חיים-016 אמר בווינדוס 98 בעברית:

חובב נוסטלגיה

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

כמובן פתוח בנטפרי

כדי שתדע מראש ששימוש בפונטים מוגנים עשוי להיות הפרה של זכויות יוצרים, ולגרור קנס כספי גבוה.
אחרי ההבהרה הזו, ובהנחה שאתה לא מתכוון לעשות בפונט שימוש אסור -
אם אתה מתכוון לפונט שבאתר, ויש לך כרום, כנס לאתר, תפתח את ה-dev tools, גש ל-Application, ובסרגל השמאלי תאתר את הגופן תחת Fonts.
קליק ימני - open in new tab. הפונט ירד אל המחשב שלך (בפורמט woff2).

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

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

הכנתי לך קובץ: איפוס מספרי מסכים מרובים.reg באחריותך בלבד, אבל ניסיתי אצלי ועבד ללא בעיה.

א. תקליק על הקובץ המצורף ותאשר לייבא את הערכים לתוך הרישום.
ב. כבה את המחשב.
ג. תפעיל מחדש את המחשב כשהמסך הסורר לא מחובר
ד. אחרי שWindows עלה, חבר שוב את המסך המשני, הפעם הוא אמור לקבל את המספר 2.
ה. לחץ Win+P ותבחר "הרחב"
ו. תעדכן אם הבעיה נפתרה

@פלורידה אמר בnextcloud.com | האם אפשר לשתף קובץ בלי סיסמא?:

מהתגובה שלך אני מבין שהקמת את החשבון במיוחד בשביל לעזור לי. קצת מתבייש...

אין לך מה להתבייש זו הפרעה נפשית שלי...

@Y-Excel-Access אמר בהסבר על פורום תכנות המצומצם:

לא הבנתי מה הכוונה...

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

(יתכן גם שדוד התכוון שתבין לבד, ואני מקלקל את המכוון )