עזרה | קוד להסרת ' או " לפי התאמה אישית
-
@pcinfogmach כתב בעזרה | קוד להסרת ' או " לפי התאמה אישית:
@אוריי כתב בעזרה | קוד להסרת ' או " לפי התאמה אישית:
@3157686
יש מאקרו שאחרי שהוא מוצא את התוצאה בהחלף הוא יתן לי לבחור האם להחליף או לדלג?לזה לא צריך מאקרו פשוט מאוד בחפש והחלף
אם אתה רוצה להלחילף לחץ על החלף (לא החלף הכל)
אם אתה לא רוצה להחליף לחץ על על חפש את הבא
אגב מומלץ לחפש כך:
בתיבת חפש את: ([א-ת])(")([א-ת])
ובתיבת החלף ב: \1\3
ולסמן בוי את השתמש בתווים כללייםעד היום השתמשתי בזה אבל זה לא פותר לי את הבעיה שכתבתי בפוסט הראשון
@אוריי כתב בעזרה | קוד להסרת ' או " לפי התאמה אישית:
הבעיה בדרך זו שהוא גם מחזיר לי ר"ת כמו ז"א ויל"ב ואכמ"ל למיניהם שלעולם הם לא יכולים להיות סימנים.
-
@אוריי כתב בעזרה | קוד להסרת ' או " לפי התאמה אישית:
הבעיה בדרך זו שהוא גם מחזיר לי ר"ת כמו ז"א ויל"ב ואכמ"ל למיניהם שלעולם הם לא יכולים להיות סימנים.
ראיתי את המסמך וראיתי את ההערה עכשיו יותר מובן מה אתה רוצה:
תתקן אותי אם אני טועה אבל למעשה הסימון של הסימן או האות מופיע תמיד אחד מהמופעים כגון:
סימן או סו"ס או ס"ק או אות וכו'
אם אני צודק למעשה הפתרון הוא שתעלה לכאן רשימה מסודרת של כל סוגי המופעים ממין אלו ונעשה לך בל"נ מאקרו מותאם. -
@אוריי
פתרון נוסף יהיה כמובן כמו שאתה רצית דהיינו לכתוב מאקרו לחיפוש רק מופעים שעלולים להיות סימנים או אותיות ולא שאר ראשי תיבות, אבל לדעתי זו דרך קצרה שהיא ארוכה.
איך שלא יהיה תכתוב פה איזה דרך אתה מעדיף ובעז"ה נחבר לך איזשהו מאקרו. -
@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 גם אותו אני לא רוצה שיופיע