עזרה | קוד להסרת ' או " לפי התאמה אישית

[3157686]

@אוריי אני משאר שיש אבל אני לא כ"כ יתסקתי בזה אבל אני ינסה לבנות משהו רק אם יהיה לי זמן

[pcinfogmach]

@אוריי
אני מאוד ממליץ לך להעלות לכאן דוגמא לכל הפחות אינו דומה ראייה לשמיעה ותשועה ברוב יועץ

[3157686]

@pcinfogmach כתב בעזרה | קוד להסרת ' או " לפי התאמה אישית:

אני מאוד ממליץ לך להעלות לכאן דוגמא לכל הפחות אינו דומה ראייה לשמיעה ותשועה ברוב יועץ

ברור שכך

[pcinfogmach]

@אוריי כתב בעזרה | קוד להסרת ' או " לפי התאמה אישית:

@3157686
יש מאקרו שאחרי שהוא מוצא את התוצאה בהחלף הוא יתן לי לבחור האם להחליף או לדלג?

לזה לא צריך מאקרו פשוט מאוד בחפש והחלף
אם אתה רוצה להלחילף לחץ על החלף (לא החלף הכל)
אם אתה לא רוצה להחליף לחץ על על חפש את הבא
אגב מומלץ לחפש כך:
בתיבת חפש את: ([א-ת])(\")([א-ת])
ובתיבת החלף ב: \1\3
ולסמן בוי את השתמש בתווים כלליים

[אוריי]

הנה דוגמא
מוקצה סימן שח_03.docx

[אוריי]

@pcinfogmach כתב בעזרה | קוד להסרת ' או " לפי התאמה אישית:

@אוריי כתב בעזרה | קוד להסרת ' או " לפי התאמה אישית:

@3157686
יש מאקרו שאחרי שהוא מוצא את התוצאה בהחלף הוא יתן לי לבחור האם להחליף או לדלג?

לזה לא צריך מאקרו פשוט מאוד בחפש והחלף
אם אתה רוצה להלחילף לחץ על החלף (לא החלף הכל)
אם אתה לא רוצה להחליף לחץ על על חפש את הבא
אגב מומלץ לחפש כך:
בתיבת חפש את: ([א-ת])(")([א-ת])
ובתיבת החלף ב: \1\3
ולסמן בוי את השתמש בתווים כלליים

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

@אוריי כתב בעזרה | קוד להסרת ' או " לפי התאמה אישית:

הבעיה בדרך זו שהוא גם מחזיר לי ר"ת כמו ז"א ויל"ב ואכמ"ל למיניהם שלעולם הם לא יכולים להיות סימנים.

[pcinfogmach]

@אוריי

@אוריי כתב בעזרה | קוד להסרת ' או " לפי התאמה אישית:

הבעיה בדרך זו שהוא גם מחזיר לי ר"ת כמו ז"א ויל"ב ואכמ"ל למיניהם שלעולם הם לא יכולים להיות סימנים.

ראיתי את המסמך וראיתי את ההערה עכשיו יותר מובן מה אתה רוצה:

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

[pcinfogmach]

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

[אוריי]

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

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

[אוריי]

@pcinfogmach
לבנתיים אני התחלתי עם פונקציה של גימטריה שמחזירה לי את הר"ת לפי בחירה אם או בלי.
זה הקוד:

Function GIMATRIA(x, Acronyms As Boolean)
 
    g = ""
    TV = Int(x / 400)
    For i = 1 To TV
        g = g & "ת"
    Next i
    x = x - (TV * 400)
    TV = Int(x / 300)
    For i = 1 To TV
        g = g & "ש"
    Next i
    x = x - (TV * 300)
    TV = Int(x / 200)
    For i = 1 To TV
        g = g & "ר"
    Next i
    x = x - (TV * 200)
    TV = Int(x / 100)
    For i = 1 To TV
        g = g & "ק"
    Next i
    x = x - (TV * 100)
    TV = Int(x / 90)
    For i = 1 To TV
        g = g & "צ"
    Next i
    x = x - (TV * 90)
    TV = Int(x / 80)
    For i = 1 To TV
        g = g & "פ"
    Next i
    x = x - (TV * 80)
    TV = Int(x / 70)
    For i = 1 To TV
        g = g & "ע"
    Next i
    x = x - (TV * 70)
    TV = Int(x / 60)
    For i = 1 To TV
        g = g & "ס"
    Next i
    x = x - (TV * 60)
    TV = Int(x / 50)
    For i = 1 To TV
        g = g & "נ"
    Next i
    x = x - (TV * 50)
    TV = Int(x / 40)
    For i = 1 To TV
        g = g & "מ"
    Next i
    x = x - (TV * 40)
    TV = Int(x / 30)
    For i = 1 To TV
        g = g & "ל"
    Next i
    x = x - (TV * 30)
    TV = Int(x / 20)
    For i = 1 To TV
        g = g & "כ"
    Next i
    If x = 15 Then
        g = g & "טו"
    Else
        If x = 16 Then
            g = g & "טז"
        Else
            
            x = x - (TV * 20)
            TV = Int(x / 10)
            For i = 1 To TV
                g = g & "י"
            Next i
            x = x - (TV * 10)
            TV = Int(x / 9)
            For i = 1 To TV
                g = g & "ט"
            Next i
            x = x - (TV * 9)
            TV = Int(x / 8)
            For i = 1 To TV
                g = g & "ח"
            Next i
            x = x - (TV * 8)
            TV = Int(x / 7)
            For i = 1 To TV
                g = g & "ז"
            Next i
            x = x - (TV * 7)
            TV = Int(x / 6)
            For i = 1 To TV
                g = g & "ו"
            Next i
            x = x - (TV * 6)
            TV = Int(x / 5)
            For i = 1 To TV
                g = g & "ה"
            Next i
            x = x - (TV * 5)
            TV = Int(x / 4)
            For i = 1 To TV
                g = g & "ד"
            Next i
            x = x - (TV * 4)
            TV = Int(x / 3)
            For i = 1 To TV
                g = g & "ג"
            Next i
            x = x - (TV * 3)
            TV = Int(x / 2)
            For i = 1 To TV
                g = g & "ב"
            Next i
            x = x - (TV * 2)
            TV = Int(x / 1)
            For i = 1 To TV
                g = g & "א"
            Next i
            x = x - (TV * 1)
        End If
    End If
    
    If Acronyms = True Then
        If Len(g) > 1 Then g = Left(g, Len(g) - 1) & """" & Right(g, 1)
        If Len(g) = 1 Then g = g & "'"
    End If
    
    GIMATRIA = g
    
End Function

[pcinfogmach]

@אוריי
הסבר נא למה הגימטריא מועיל למקרה זה
ובמה בדיוק תרצה שנעזור לך

[דנבו]

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

[אוריי]

@pcinfogmach
ע"י זה אני יכול להחזיר את הסימנים בלבד
אני מריץ בלופ את כל המספרים ומקבל את הגימטרייה שלו כולל ה"
ואני שולח את זה לפונקצית החלפה ועובר על כל המופעים של א' ומחליף אותם לפי בחירה
ואח"כ את בל המופעים של ב' וכו'...

[אוריי]

@דנבו
אתה רוצה לעזור לי....
לבנתיים אין לי אף אחד

[pcinfogmach]

@אוריי

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

אגב איך הגימטריאות יכללו מפעים כמו סק"א ?

[אוריי]

@pcinfogmach
אם אני יחפש באופן הנ"ל אני יקבל גם ר"ת כמו כי"א שלעולם זה לא יכול להיות סימן

[pcinfogmach]

@אוריי
אהה
ואיך הגימטריא יפתור את זה?

[אוריי]

@pcinfogmach
מה לא ברור בזה?

[pcinfogmach]

@אוריי
למה באופן של גימטריא שלא תקבל את הר"ת של כי"א הרי הוא יזהה את י"א כגימטריא לא?

[אוריי]

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