תכנות

4.5k נושאים 37.6k פוסטים

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


  • 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 פוסטים
    214 צפיות

    @dovid כתב באיך אתם מקשרים SQL ל FRONT END בצורה יעילה ובטוחה:

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

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

  • יצירת מסנן לדו"ח באקסס עם תנאים

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

    @hp079 לפי הדוגמא שלך זה הקוד שאתה צריך

    Private Sub פקודה16_Click() Dim DynamicCondition As New Collection If Not IsNull(ts_active) Then DynamicCondition.Add "פעיל=" & ts_active If Not IsNull(ts_conected) Then DynamicCondition.Add "מחובר=" & ts_active If Len(txt_sug) > 0 Then DynamicCondition.Add "סוג='" & CStr(txt_sug) & "'" If Len(txt_name) > 0 Then DynamicCondition.Add "שם='" & CStr(txt_name) & "'" DoCmd.OpenReport "דוח1", acViewPreview, WhereCondition:=JoinCollection(DynamicCondition, " AND ") End Sub Function JoinCollection(col As Collection, operator As String) Dim result As String For i = 1 To col.Count If i <> 1 Then result = result & operator & " " result = result & "(" & col(i) & ") " Next JoinCollection = result End Function

    הקרדיט כמובן ל @dovid ו @OdedDvir

  • 3 הצבעות
    15 פוסטים
    273 צפיות

    @OdedDvir תודה על ההשקעה!
    לענות על השאלה המקורית, אני מוודא שהבנתי אותך נכון: אתה טוען שב-API מבוסס REST כל בקשה אמור להתייחס לישות יחיד לבד?

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

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

  • נושא זה נמחק!

    2
    0 הצבעות
    2 פוסטים
    10 צפיות
  • BLAZOR - האם זה יעיל?

    8
    2 הצבעות
    8 פוסטים
    391 צפיות

    @mekev כתב בBLAZOR - האם זה יעיל?:

    @Y-Excel-Access כתב בBLAZOR - האם זה יעיל?:

    ההתרשמות שלי מלכלוך הידיים

    אשמח לחוות דעתך (הסובייקטיבית)
    על תחושת ה'זמן תגובה' בטעינה / פעולות
    אצל המשתמש בBLAZOR

    הידיים שלי עדיין מלוכלכות...

    אני רושם את ההתרשמות שהספקתי לקבל, ולפני כן הערה - כאן במחשב שאני עובד על פרויקט זה ה VISUAL STUDIO עובד לאט גם ב C# CONSOLE, כך שהוא לא כל כך פרמטר נכון...
    עכ"פ הקמפול לקח זמן כל פעם, התגובה בדפדפן מהירה, והשליפה מ SQL באמצעות SQLCLIENT לקחה כמה שניות בפעם הראשונה ששלפתי.

    כל האמור הוא ב BLAZOR SERVER בלבד, ב WEB ASSAMBLY לא עבדתי עדיין.

  • הרכשת נתונים באמצעות API

    1
    0 הצבעות
    1 פוסטים
    91 צפיות
    אין תגובות
  • 6 הצבעות
    4 פוסטים
    159 צפיות

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

  • 0 הצבעות
    13 פוסטים
    119 צפיות

    @dovid כתבתי כעת מחדש את הקוד שלי תוך שימת לב לקלט שמגיע בפועל, וזה אכן עובד מעולה.

    let coordinates = `[32.0809247 , 34.8426006, 32.0856592 , 34.840563, 32.0903809 , 34.8357482, 32.084932 , 34.835226, 32.0762743 , 34.8356051, 32.0766089 , 34.8085407]` function haversineSort(coordinates) { var sortedCoords = []; var remainingCoords = coordinates.slice(); var currentCoord = remainingCoords[0].split(", ").map(Number); sortedCoords.push(currentCoord); remainingCoords.splice(0, 1); while (remainingCoords.length > 0) { var closestCoord = null; var closestDistance = Number.POSITIVE_INFINITY; for (var i = 0; i < remainingCoords.length; i++) { var distance = haversineDistance(currentCoord, remainingCoords[i].split(", ").map(Number)); if (distance < closestDistance) { closestCoord = remainingCoords[i]; closestDistance = distance; } } sortedCoords.push(closestCoord.split(", ").map(Number)); remainingCoords.splice(remainingCoords.indexOf(closestCoord), 1); currentCoord = closestCoord.split(", ").map(Number); } return sortedCoords; } function haversineDistance(coord1, coord2) { var R = 6371e3; var lat1 = coord1[0] * Math.PI / 180; var lat2 = coord2[0] * Math.PI / 180; var deltaLat = (coord2[0] - coord1[0]) * Math.PI / 180; var deltaLon = (coord2[1] - coord1[1]) * Math.PI / 180; var a = Math.sin(deltaLat / 2) * Math.sin(deltaLat / 2) + Math.cos(lat1) * Math.cos(lat2) * Math.sin(deltaLon / 2) * Math.sin(deltaLon / 2); var c = 2 * Math.atan2(Math.sqrt(a), Math.sqrt(1 - a)); return R * c; }

    תודה ענקית 👍 👏 ↗ על העזרה וההכוונה, זה לא מובן מאליו

  • 5 הצבעות
    2 פוסטים
    182 צפיות

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

    לטובת מי שרוצה להגיב:
    https://mitmachim.top/topic/51604

  • הרצת שאילתה בלולאה - VBA אקסס

    26
    0 הצבעות
    26 פוסטים
    370 צפיות

    @dovid עובד! תודה ענקית!

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

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

    @dovid כתב בבסיס נתונים עם עמודות דינאמיות בדומה ל CRM:

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

    @חוקר כתב בבסיס נתונים עם עמודות דינאמיות בדומה ל CRM:

    אשמח להבין למה לא להשתמש בשדה json הקיים ב mysql ובעצם לשמור עמודה id של השורה ואז עמודה json עם מידע דינאמי?

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

    בהחלט ייתכן שJSON עדיף,
    ראה מאמר בעניין https://coussej.github.io/2016/01/14/Replacing-EAV-with-JSONB-in-PostgreSQL/

  • עזרה בלולאה על מערך בג'אווה סקריפט

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

    @dovid תודה רבה!

  • vue, v-model ללולאה של selects

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

    @chagold
    נכון, הם כותבים את זה בתיעוד שלהם.

    export default { watch: { someObject: { handler(newValue, oldValue) { // Note: `newValue` will be equal to `oldValue` here // on nested mutations as long as the object itself // hasn't been replaced. }, deep: true } } }

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

  • נושא זה נמחק!

    1
    0 הצבעות
    1 פוסטים
    6 צפיות
    אין תגובות
  • שליחת מייל מאקסס - עיצוב html

    16
    0 הצבעות
    16 פוסטים
    242 צפיות

    @Shmuel754 תודה, אבל התשובה כאן פתרה את הבעיה.
    תודה לכולם!

  • 0 הצבעות
    6 פוסטים
    123 צפיות

    למי שתוהה, תו ה-BOM (ובשמה המלא BYTE ORDER MARK) נועד במקור לציין את סדר הבתים שהקובץ משתמש בו כדי להציג מספרים בני 16 או 32 ביטים.
    בקידודים UTF-16 ו-UTF-32 אבני הבסיס הם מספרים בני 16 ו-32 ביטים לכן התו הזה נחוץ (בהעדר מידע מבחוץ) בשביל לזהות את סדר הבתים בו הקובץ משתמש.
    בנוסף, התו שימושי כדי להבחין בין UTF-16 ל-UTF-32 כי ה-BOM מיוצג בצורה שונה בשני הקידודים
    בקידוד UTF-8, אבן הבסיס הוא מספר בן 8 ביטים, שכל המעבדים מייצגים בצורה זהה, לכן אין צורך ב-BOM עבור זיהוי סדר הבתים, (וגם אפשר בקלות לזהות אם קובץ הוא UTF-8 תקין בלי צורך להשתמש ב-BOM), אבל זה יכול להשתמש כסוג של רמז שמדובר (בסבירות גבוה) בקובץ יוניקוד ולא ascii או ansi או משהו אחר
    מייקרוסופט אימצו לעצמם נוהג שלפיה כל קובץ בלי BOM מזוהה כ-ANSI, ועם BOM זה מזוהה כיוניקוד
    לפעמים כשאין צורך ב-BOM זה יכול גם להזיק אם התוכנה מצפה לקבל ASCII ובלי ה-BOM בטקסט פשוט הרי UTF-8 הוא גם ASCII תקין, וה-BOM מקלקל
    במקרה של קובץ CSV עבור אקסל שכולל בתוכו תווים מחוץ לטווח ה-ASCII ה-BOM רק עוזר
    הנ"ל מה שהבנתי מתוך הכתבה בויקיפדיה ש@dovid ציין, ומתוך ה-FAQ הזה באתר הבית של תקן יוניקוד

  • פקד auto complete לapn.net של Mvc

    6
    0 הצבעות
    6 פוסטים
    172 צפיות

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

  • 0 הצבעות
    8 פוסטים
    130 צפיות
  • שימוש בgmail api בקוד פתוח

    16
    0 הצבעות
    16 פוסטים
    255 צפיות

    @A0533057932 כתב בשימוש בgmail api בקוד פתוח:

    @הפצת-אנקי למה שלא תפתח מייל משלך בגוגל
    ואליו תשלח

    הבנתי שזה היה הרעיון הראשון בנושא, אבל הבעיה שמשתמש יכול לעשות במייל הזה שימושים בעייתיים מגוונים.

  • 0 הצבעות
    6 פוסטים
    85 צפיות

    @chagold אם אתה משתמש בphp 8 אתה יכול לדלג על פרמטר אופציונלי על ידי מתן שם לפרמטרים:

    curl_file_create(filename: $filename, posted_filename: basename($filename)));

    https://wiki.php.net/rfc/named_params
    הייתה הצעה (שנדחתה) לאפשר דילוג על פרמטרים פה:
    https://wiki.php.net/rfc/skipparams,