דילוג לתוכן

תכנות

4.8k נושאים 39.2k פוסטים

קטגוריות משנה


  • 22 נושאים
    137 פוסטים

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

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

    נתחיל...

    שלב א:

    ראשית בקובץ ה- Excel של רשימת הנמענים, הוסיפו לטבלת הנתונים ארבעה עמודות בשמות כדלהלן (חשוב שהשמות יהיו מדויקים ללא רווחים מיותרים - לתשומת ליבכם):

    DocFolderPath

    DocFileName

    PdfFolderPath

    PdfFileName

    שלב ב:
    צרו שתי תיקיות נפרדות, אחד לקבצי הפלט בפורמט docx, ואחד לקבצי הקלט בפורמט pdf, העתיקו את נתיב התיקייה של קבצי ה- docx והדביקו אותם עבור כל רשומה בשדה שיצרתם בשם DocFolderPath, לאחמ"כ חזרו על הפעולה והפעם העתיקו את נתיב התיקייה של קובצי ה- PDF והדביקו בשדה PdfFolderPath.
    בשדה DocFileName כתבו את השם של הקובץ עבור הרשומה - ניתן להשתמש בנוסחאות, כמו"כ בשדה PdfFileName כתבו את שם הקובץ כנ"ל.

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

    שלב ד:
    פתחו את לשונית מפתחים בקובץ ה- word פתחו את עורך הקוד הוסיפו מודל חדש מצו"ב צילום מסך:
    3eb2538f-9ab1-41eb-a1df-452212916da6-image.png

    הדביקו את הקוד הבא:

    Sub MailMergeToPdfBasic() ' Mark the start of the Subroutine (i.e. Macro) and name it "MailMergeToPdf" ' Macro created by Imnoss Ltd ' Please share freely while retaining attribution ' Last Updated 2021-05-03 Dim masterDoc As Document, singleDoc As Document, lastRecordNum As Long ' Create variables ("Post-it Notes") for later use Set masterDoc = ActiveDocument ' Identify the ActiveDocument (foremost doc when Macro run) as "masterDoc" masterDoc.MailMerge.DataSource.ActiveRecord = wdLastRecord ' jump to the last active record (active = ticked in edit recipients) lastRecordNum = masterDoc.MailMerge.DataSource.ActiveRecord ' retrieve the record number of the last active record so we know when to stop masterDoc.MailMerge.DataSource.ActiveRecord = wdFirstRecord ' jump to the first active record (active = ticked in edit recipients) Do While lastRecordNum > 0 ' create a loop, lastRecordNum is used to end the loop by setting to zero (see below) masterDoc.MailMerge.Destination = wdSendToNewDocument ' Identify that we are creating a word docx (and no e.g. an email) masterDoc.MailMerge.DataSource.FirstRecord = masterDoc.MailMerge.DataSource.ActiveRecord ' Limit the selection to just one document by setting the start ... masterDoc.MailMerge.DataSource.LastRecord = masterDoc.MailMerge.DataSource.ActiveRecord ' ... and end points to the active record masterDoc.MailMerge.Execute False ' run the MailMerge based on the above settings (i.e. for one record) Set singleDoc = ActiveDocument ' Identify the ActiveDocument (foremost doc after running the MailMerge) as "singleDoc" singleDoc.SaveAs2 _ FileName:=masterDoc.MailMerge.DataSource.DataFields("DocFolderPath").Value & Application.PathSeparator & _ masterDoc.MailMerge.DataSource.DataFields("DocFileName").Value & ".docx", _ FileFormat:=wdFormatXMLDocument ' Save "singleDoc" as a word docx with the details provided in the DocFolderPath and DocFileName fields in the MailMerge data singleDoc.ExportAsFixedFormat _ OutputFileName:=masterDoc.MailMerge.DataSource.DataFields("PdfFolderPath").Value & Application.PathSeparator & _ masterDoc.MailMerge.DataSource.DataFields("PdfFileName").Value & ".pdf", _ ExportFormat:=wdExportFormatPDF ' Export "singleDoc" as a PDF with the details provided in the PdfFolderPath and PdfFileName fields in the MailMerge data singleDoc.Close False ' Close "singleDoc", the variable "singleDoc" can now be used for the next record when created If masterDoc.MailMerge.DataSource.ActiveRecord >= lastRecordNum Then ' test if we have just created a document for the last record lastRecordNum = 0 ' if so we set lastRecordNum to zero to indicate that the loop should end Else masterDoc.MailMerge.DataSource.ActiveRecord = wdNextRecord ' otherwise go to the next active record End If Loop ' loop back to the Do start End Sub ' Mark the end of the Subroutine

    שלב ה וסיום:
    סגרו את עורך הקוד.
    לחצו על כפתור פקודות מאקרו שבכרטיסיית מפתחים, בחרו את המאקרו בשם MailMergeToPdfBasic ולחצו הפעל מצו"ב צילום מסך
    3890ce69-c0e9-4f30-89ce-3e97b7de750b-image.png

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

    מקור

  • ארכיון האתר הקודם והחביב קוד-613

    1k נושאים
    10k פוסטים

    @אבי אמר בשוב, צילומי הצ'קים בבנקים:

    התעסקתי לאחרונה עם סורקים של חברת MAGTEK, הם ידידותיים ונוחים להתממשקות, אבל כמדומני שהבנקים בישראל מוכנים לקבל סריקות רק מסורקים של חברת PANINI

    @אבי איך יוצרים אתך קשר?

  • 31 נושאים
    133 פוסטים

    יש כמה נוסחאות חדשות שממש משנות את כללי המשחק בגוגל שיטס:

    CHOOSECOLS לבחירת עמודות ממערך CHOOSEROWS לבחירת שורות ממערך WRAPROWS להמרת מערך חד ממדי לרב ממדי - פריסה לשורות WRAPCOLS כנ"ל - פריסה לעמודות HSTACK ו VSTACK - הפעולה של {} אך בלי סוגריים - לא משמעותי לכאורה

    והעולה על כולנה, סוף סוף:

    LET - ליצירת משתנים.

    כל אלו מצטרפות לפונקציות שנוספו מוקדם יותר -
    https://blog.sheetgo.com/google-sheets-formulas/10-new-google-sheets-functions/

    וכלול בתוכם - LAMBDA, MAP (חלקי - לא עובד לקנן ב MAP ודומיו מערכים אחרים), פונקציות בעלות שם, וכו' ע"ש בקישור.

  • 0 הצבעות
    8 פוסטים
    328 צפיות

    @איש-ימיני

    לכאורה, אפשר אולי להכליל בצורה גסה שהתכנון תלוי עד כמה אתה רוצה לתכנן תבנית ברורה ובנויה עד הסוף.

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

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

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

    לגוף השאלה:

    @איש-ימיני כתב באקסס | איך מתכננים גביית הו"ק מזומן?:

    או אולי טוב יותר ליצור בתחילת בחודש שורת חובה לכל תשלום, במקום לחשב הכל בשאילתות?

    אני רק עונה רעיון איך ליצור את זה בלי קוד / מאקרו - אפשר ליצור את זה עם DSUM בפקד מחושב על ידי בונה הביטויים (קונטרול F2).

  • 0 הצבעות
    47 פוסטים
    2k צפיות

    @yyy כתבתי מהשערה...

  • WSA + crt netfree + netspark

    3 במרץ 2023, 11:10
    0 הצבעות
    12 פוסטים
    329 צפיות

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

    echo "Expand images" if [ ! -f /etc/mtab ]; then $SUDO ln -s /proc/self/mounts /etc/mtab; fi e2fsck -pf "$WORK_DIR"/wsa/"$ARCH"/system_ext.img || abort SYSTEM_EXT_SIZE=$(($(du --apparent-size -sB512 "$WORK_DIR"/wsa/"$ARCH"/system_ext.img | cut -f1) + 20000)) if [ -d "$WORK_DIR"/gapps/system_ext ]; then SYSTEM_EXT_SIZE=$(( SYSTEM_EXT_SIZE + $(du --apparent-size -sB512 "$WORK_DIR"/gapps/system_ext | cut -f1) )) fi resize2fs "$WORK_DIR"/wsa/"$ARCH"/system_ext.img "$SYSTEM_EXT_SIZE"s || abort e2fsck -pf "$WORK_DIR"/wsa/"$ARCH"/product.img || abort PRODUCT_SIZE=$(($(du --apparent-size -sB512 "$WORK_DIR"/wsa/"$ARCH"/product.img | cut -f1) + 20000)) if [ -d "$WORK_DIR"/gapps/product ]; then PRODUCT_SIZE=$(( PRODUCT_SIZE + $(du --apparent-size -sB512 "$WORK_DIR"/gapps/product | cut -f1) )) fi resize2fs "$WORK_DIR"/wsa/"$ARCH"/product.img "$PRODUCT_SIZE"s || abort e2fsck -pf "$WORK_DIR"/wsa/"$ARCH"/system.img || abort SYSTEM_SIZE=$(($(du --apparent-size -sB512 "$WORK_DIR"/wsa/"$ARCH"/system.img | cut -f1) + 90000)) if [ -d "$WORK_DIR"/gapps ]; then SYSTEM_SIZE=$(( SYSTEM_SIZE + $(du --apparent-size -sB512 "$WORK_DIR"/gapps | cut -f1) - $(du --apparent-size -sB512 "$WORK_DIR"/gapps/product | cut -f1) )) if [ -d "$WORK_DIR"/gapps/system_ext ]; then SYSTEM_SIZE=$(( SYSTEM_SIZE - $(du --apparent-size -sB512 "$WORK_DIR"/gapps/system_ext | cut -f1) )) fi fi if [ -d "$WORK_DIR"/magisk ]; then SYSTEM_SIZE=$(( SYSTEM_SIZE + $(du --apparent-size -sB512 "$WORK_DIR"/magisk/magisk | cut -f1) )) fi if [ -f "$MAGISK_PATH" ]; then SYSTEM_SIZE=$(( SYSTEM_SIZE + $(du --apparent-size -sB512 "$MAGISK_PATH" | cut -f1) )) fi if [ -d "../$ARCH/system" ]; then SYSTEM_SIZE=$(( SYSTEM_SIZE + $(du --apparent-size -sB512 "../$ARCH/system" | cut -f1) )) fi resize2fs "$WORK_DIR"/wsa/"$ARCH"/system.img "$SYSTEM_SIZE"s || abort e2fsck -pf "$WORK_DIR"/wsa/"$ARCH"/vendor.img || abort VENDOR_SIZE=$(($(du --apparent-size -sB512 "$WORK_DIR"/wsa/"$ARCH"/vendor.img | cut -f1) + 20000)) resize2fs "$WORK_DIR"/wsa/"$ARCH"/vendor.img "$VENDOR_SIZE"s || abort echo -e "Expand images done\n"

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

  • הורדה והדפסה של קובץ PDF - אקסס

    25 בפבר׳ 2023, 21:32
    0 הצבעות
    4 פוסטים
    165 צפיות

    @מנחם אתה צודק.
    שכחתי להוסיף מידע חשוב. לא מותקנת לי תוכנה של pdf, אלא אני משתמש בדפדפן Edge לפתוח קבצי pdf.
    האם בשביל הקוד הזה אני חייב אדובי במחשב?

  • 0 הצבעות
    7 פוסטים
    213 צפיות

    @dovid כתב ביש לוגים של הפעולות בשרת קונטאבו? ואם כן, אז איפה?:

    @A0533057932 כתב ביש לוגים של הפעולות בשרת קונטאבו? ואם כן, אז איפה?:

    היום עושים

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

    כוונתי שרוב מוחלט של המדריכים בקטע של NGINX כוללים הגדרה לקובץ נפרד

  • 0 הצבעות
    9 פוסטים
    239 צפיות

    אפשר גם להריץ את הnginx בתוך Docker.
    שימושי גם במקרים שאין גישה כאדמין

  • 1 הצבעות
    15 פוסטים
    583 צפיות

    @dovid כתב בC# - הוספת פעולת Poperty מאיבר לאיבר כשהם מקוננים ב List בתוך List.:

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

    אתה צודק, לא חשבתי עד הסוף...
    נפק"מ באמת היא רק במקרה ואתה יוצר טבלה חדשה מתוך הקוד. אבל בדר"כ אתה מנסה לקרוא לטבלה קיימת שאינה ממוקמת ב C# עצמו אלא חיצונית לו, בשונה מ ACCESS / SAP-ABAP שם לכאורה זה ממש חלק מהתוכנה...

    איך? אתה מתכוון פשוט לבנות CASE? וכך לבדוק את הTYPE של כל ערך אם הוא נמצא ברשימה?

    לא ממש הבנתי את השאלה, אולי בהזדמנות אכתוב קוד.

    יוצא שבאמת אין מנוס מלכתוב CASE על הטיפוס המתקבל (GetType), ולפ"ז להכניס לSQL בצורה הנכונה, (לא צריך לכתוב - אני יודע לכתוב CASE פשוט:)

    כמובן כל זה יהיה נצרך כל עוד שאני לא משתמש בגלגל קיים: EntityFramework או ב Dapper או אפילו בתוך SqlClint בספריות DataTable-TableAdapter וכו' בתנאי שזה לא כולל הרכבת משפט SQL ידנית.

  • התראה בטופס אקסס

    28 בפבר׳ 2023, 8:09
    0 הצבעות
    9 פוסטים
    205 צפיות

    @OdedDvir לא.

  • 1 הצבעות
    2 פוסטים
    104 צפיות

    הסתדרתי.
    הייתי צריך לנקות את המטמון לפני ההורדה.
    מצורף הקוד המעודכן.

    Option Compare Database Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long Private Declare PtrSafe Function DeleteUrlCacheEntry Lib "Wininet.dll" Alias "DeleteUrlCacheEntryA" (ByVal lpszUrlName As String) As Long Private Sub ImportCSV_Click() Dim file As String file = "https://XXXX.co.il/File.csv" Dim done, saveTo saveTo = CurrentProject.PATH & "\Files\" & "File.csv" 'ניקוי מטמון DeleteUrlCacheEntry file done = URLDownloadToFile(0, file, saveTo, 0, 0) If done = 0 Then Else MsgBox "נכשל בשמירת קובץ" End If 'ייבוא ' מחיקת השורות הישנות CurrentDb.Execute "Delete * from Table" ' ייבוא DoCmd.TransferText acImportDelim, "import template", "Table", saveTo, True MsgBox "הייבוא הסתיים" End Sub
  • vba המתנה עד לסיום הריצה

    26 בפבר׳ 2023, 19:23
    0 הצבעות
    2 פוסטים
    91 צפיות

    @ארי כתב בvba המתנה עד לסיום הריצה:

    יש לי קוד שמריץ כמה שאילתות

    אפשר דוגמה קטנה של המשפט הזה?

  • 0 הצבעות
    2 פוסטים
    105 צפיות

    @אביי תעלה קובץ דוגמה קטנה בבקשה

  • 4 הצבעות
    7 פוסטים
    275 צפיות

    ובלי קינון.

  • select של sql לא עובד על עברית

    26 בפבר׳ 2023, 10:31
    0 הצבעות
    4 פוסטים
    177 צפיות

    @dovid כתב בselect של sql לא עובד על עברית:

    ככה עובד?

    where HeCityName = N'ירושלים';

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

  • 0 הצבעות
    3 פוסטים
    375 צפיות

    @aaaa כתב בשליחת מידע ל-iframe של נדרים פלוס בריאקט:

    @Aviv-0 הדף תשלום של נדרים עצמם שולח את הנתונים בפוסט פשוט

    נכון, מהדף שמה אפשר בPOST פשוט, אבל לא מדף אחר (בגלל CORS).

  • #C | למה לא לרשת מ <List<T

    22 בפבר׳ 2023, 22:07
    4 הצבעות
    2 פוסטים
    137 צפיות

    @קומפיונט יצא לי להשתמש בהורשה ב list<T> כשהייתי צריך לעשות parsing מ yaml עם ספריית yamldotnet, ורציתי להשתמש ב linq על אובייקטים, חסך לי קוד ספגטי.

  • 0 הצבעות
    11 פוסטים
    274 צפיות

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

    $result = pg_query_params($dbconn, 'SELECT * FROM shops WHERE name = $1', array("ר' משה"));

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

  • איקס עיגול|בדיקה האם יש מנצח|js

    23 בפבר׳ 2023, 0:04
    2 הצבעות
    12 פוסטים
    426 צפיות

    @צבי-ש נשמח לראות את התוצאה אחרי שתגמור לקודד ולעצב וכו':)

  • עמודת "תגיות", סינון כמה תגיות

    23 בפבר׳ 2023, 14:36
    1 הצבעות
    9 פוסטים
    184 צפיות

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

  • 13 הצבעות
    2 פוסטים
    257 צפיות

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

  • 0 הצבעות
    27 פוסטים
    514 צפיות

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

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

    @OdedDvir אלוף!
    הסימנים והרמזים היו לשם... אבל רק אחד מצא את המטמון!

בא תתחבר לדף היומי!
רוצה לזכור קריאת שמע בזמן? לחץ כאן!