קהילת תכנות

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

מאמרים אחרונים באתר

קהילת מתכנתות

קבוצה סגורה לנשים שעוסקות בתיכנות
מנהלת הפורום: פרוגיוזרית
להצטרפות הקישי כאן
פרטי
  • 243
  • כיום ניתן לשלוח בקשת HTTP דרך האתר https://console.cron-job.org/login
    שאלתי היא, האם ניתן ניתן לשלוח בקשת HTTP לפי זמני היום?
    [באתר הנ"ל ניתן להפעיל לפי שעות או לפי ימים וכו'].
    0 תגובות
    אני מעוניין לעשות קו ששולח תזכורות לפי זמני היום.
    [מה שיש היום
    https://www.prog.co.il/threads/רצית...גרמא-משתכלל-ובגדול.673957/page-2#post-9516368 זה חצי אוטומט, ואני רוצה משהו שיעבוד בלי מגע יד אדם].
    השאלה היא האם אפשר לעשות עם זה
    או עם חזון שמים, [הקו ללא מטרות רווח].
    כמה אמור לעלות כזה פיתוח?
  • 184
  • כיום ניתן להפעיל פקודות דפדפן באתר https://console.cron-job.org/login
    שאלתי היא, האם ניתן להפעיל פקודות דפדפן לפי זמני היום?
    [באתר הנ"ל ניתן להפעיל לפי שעות או לפי ימים וכו'].
    0 תגובות
  • 283
  • העליתי את הנושא בפורום אופיס, אך לאחר מכן הבנתי שיתכן וזהו המקום הנכון לכך.

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

    Sub Macro1()
    '
    ' Macro1 Macro
    '
    '
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
    .Text = ".*."
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchKashida = False
    .MatchDiacritics = False
    .MatchAlefHamza = False
    .MatchControl = False
    .MatchAllWordForms = False
    .MatchSoundsLike = False
    .MatchWildcards = True
    End With
    Selection.Find.Execute
    Selection.Copy
    Windows("עבור תיקון הטקסט").Activate
    Selection.WholeStory
    Selection.PasteAndFormat (wdFormatOriginalFormatting)
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
    .Text = ". "
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchKashida = False
    .MatchDiacritics = False
    .MatchAlefHamza = False
    .MatchControl = False
    .MatchAllWordForms = False
    .MatchSoundsLike = False
    .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
    .Text = "וגו'."
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchKashida = False
    .MatchDiacritics = False
    .MatchAlefHamza = False
    .MatchControl = False
    .MatchAllWordForms = False
    .MatchSoundsLike = False
    .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
    .Text = "."
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchKashida = False
    .MatchDiacritics = False
    .MatchAlefHamza = False
    .MatchControl = False
    .MatchAllWordForms = False
    .MatchSoundsLike = False
    .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.WholeStory
    Selection.Copy
    Windows("שמואל עבור נסיונות מאקרו").Activate
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
    .Text = "ויהי איש אחד"
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchKashida = False
    .MatchDiacritics = False
    .MatchAlefHamza = False
    .MatchControl = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.Copy
    Windows("מאקרו פרק ב").Activate
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
    .Text = "ויהי איש אחד"
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindAsk
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchKashida = False
    .MatchDiacritics = False
    .MatchAlefHamza = False
    .MatchControl = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    With Selection.Find
    .Text = "ויהי איש אחד"
    .Replacement.Text = "וַיְהִי אִישׁ אֶחָד"
    .Forward = True
    .Wrap = wdFindAsk
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchKashida = False
    .MatchDiacritics = False
    .MatchAlefHamza = False
    .MatchControl = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    End With
    With Selection
    If .Find.Forward = True Then
    .Collapse Direction:=wdCollapseStart
    Else
    .Collapse Direction:=wdCollapseEnd
    End If
    .Find.Execute Replace:=wdReplaceOne
    If .Find.Forward = True Then
    .Collapse Direction:=wdCollapseEnd
    Else
    .Collapse Direction:=wdCollapseStart
    End If
    .Find.Execute
    End With
    End Sub
    0 תגובות

    אשמח אם משהו יכול לתת לי עזרה בפירוט.
    תודה רבה.

    אולי מעניין אותך גם...

    הצטרפות לניוזלטר

    איזה כיף שהצטרפתם לניוזלטר שלנו!

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

    לוח מודעות

    הפרק היומי

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


    תהילים פרק כה

    אלְדָוִד אֵלֶיךָ יי נַפְשִׁי אֶשָּׂא:באֱלֹהַי בְּךָ בָטַחְתִּי אַל אֵבוֹשָׁה אַל יַעַלְצוּ אֹיְבַי לִי:גגַּם כָּל קוֶֹיךָ לֹא יֵבֹשׁוּ יֵבֹשׁוּ הַבּוֹגְדִים רֵיקָם:דדְּרָכֶיךָ יי הוֹדִיעֵנִי אֹרְחוֹתֶיךָ לַמְּדֵנִי:ההַדְרִיכֵנִי בַאֲמִתֶּךָ וְלַמְּדֵנִי כִּי אַתָּה אֱלֹהֵי יִשְׁעִי אוֹתְךָ קִוִּיתִי כָּל הַיּוֹם:וזְכֹר רַחֲמֶיךָ יי וַחֲסָדֶיךָ כִּי מֵעוֹלָם הֵמָּה:זחַטֹּאות נְעוּרַי וּפְשָׁעַי אַל תִּזְכֹּר כְּחַסְדְּךָ זְכָר לִי אַתָּה לְמַעַן טוּבְךָ יי:חטוֹב וְיָשָׁר יי עַל כֵּן יוֹרֶה חַטָּאִים בַּדָּרֶךְ:טיַדְרֵךְ עֲנָוִים בַּמִּשְׁפָּט וִילַמֵּד עֲנָוִים דַּרְכּוֹ:יכָּל אָרְחוֹת יי חֶסֶד וֶאֱמֶת לְנֹצְרֵי בְרִיתוֹ וְעֵדֹתָיו:יאלְמַעַן שִׁמְךָ יי וְסָלַחְתָּ לַעֲוֹנִי כִּי רַב הוּא:יבמִי זֶה הָאִישׁ יְרֵא יי יוֹרֶנּוּ בְּדֶרֶךְ יִבְחָר:יגנַפְשׁוֹ בְּטוֹב תָּלִין וְזַרְעוֹ יִירַשׁ אָרֶץ:ידסוֹד יי לִירֵאָיו וּבְרִיתוֹ לְהוֹדִיעָם:טועֵינַי תָּמִיד אֶל יי כִּי הוּא יוֹצִיא מֵרֶשֶׁת רַגְלָי:טזפְּנֵה אֵלַי וְחָנֵּנִי כִּי יָחִיד וְעָנִי אָנִי:יזצָרוֹת לְבָבִי הִרְחִיבוּ מִמְּצוּקוֹתַי הוֹצִיאֵנִי:יחרְאֵה עָנְיִי וַעֲמָלִי וְשָׂא לְכָל חַטֹּאותָי:יטרְאֵה אוֹיְבַי כִּי רָבּוּ וְשִׂנְאַת חָמָס שְׂנֵאוּנִי:כשָׁמְרָה נַפְשִׁי וְהַצִּילֵנִי אַל אֵבוֹשׁ כִּי חָסִיתִי בָךְ:כאתֹּם וָיֹשֶׁר יִצְּרוּנִי כִּי קִוִּיתִיךָ:כבפְּדֵה אֱלֹהִים אֶת יִשְׂרָאֵל מִכֹּל צָרוֹתָיו:
    נקרא  2  פעמים
    למעלה