תחומים - פורום חרדי מקצועי

@פלורידה כתב בשיתוף | סקריפט החלפות להיברובוקס:

@dovid

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

גם אני חוויתי כך.

@dovid
כנס לספר הבא: https://hebrewbooks.org/pdfpager.aspx?req=917&pgnum=1
ותנסה ללחוץ על הסקריפט כפי שאתה כתבת. (זה לא עובד)

תודה. זה כנראה בדיוק מה שאני צריך.

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

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

למאגר הנ"ל יש שני אתרים: האתר הרגיל והישן – hebrewbooks.org, ואתר הבטא – beta.hebrewbooks.org. מספרו של כל ספר (הכלול בתוך ה-URL) זהה בשני האתרים. באתר הישן הקריאה קשה ומסורבלת; באתר הבטא היא נוחה עם אפשרויות רבות (כמו העתקת טקסט, חיפוש, סימניות ועוד)

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

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

javascript:
tex=location.href;

 if (tex.includes("hebrewbooks")){
   
     if (tex.includes("beta"))

             {tex2=tex. replace('beta.', ''). replace('reader/reader.aspx?sfid',
             'pdfpager.aspx?req'). replace('#p', '&pgnum'). replace('&fitMode=fitwidth&hlts=&ocr=', ''); }
     else
             {tex2=tex.replace('www.', ''). replace('hebrewbooks', 'beta.hebrewbooks'). replace('pdfpager.aspx?req', 'reader/reader.aspx?sfid'). replace('&pgnum', '#p')}

location=(tex2)                  }

else {alert ('הסקריפט מיועד לאתר היברובוקס')}

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

קרדיט ליוצר: ה"ה [[משתמש:איסתרק]] מאתר המכלול.

@WWW כתב בבירור | מחפש כלי פשוט לסיווג הורדות:

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

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

אני צריך משהו שפועל על הדפדפן עצמו.

@dovid תודה רבה על ההשקעה בתשובה, אבל זה לא מה שאני מחפש.

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

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

ושוב תודה על ההשקעה,
(אין לי ציפייה שיכתבו לו כאן קוד שלם רק לכוון אותי אם יש כזה תוסף או קוד שניתן לכתוב אותו בפייתון או ב-JS)

שלום.

אני זקוק להוריד מדי שבוע רשימה שלמה של קבצים מסוימים ברשת.
חלקם בפורמט PDF
חלקם בפורמט CSV

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

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

תודה רבה לעונים!

@חנון-המרבה האמת שלא כ"כ הבנתי לאיזו בעיה עונה הפתרון שכתבת.
עשיתי כפי שכתב @mekev וזה ממש מצוין.

@yossiz אצלי בדיוק הפוך, ראה את הצילום הבא:

video-convert-1684702607045.webm

@mekev כתב בדרוש מידע | פונקציה באקסל שמחזירה רק את שם התיקיה בה נמצא הקובץ:

שזה מחזיר את שם התיקייה האחרונה במחשב שבה מופע אקסל פתוח

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

פתחתי 5 קבצים במקביל ובכולם הוא שינה לאחרון.

יפה. תודה לשניכם.
הנוסחה (ללא הפניה לתא אחר) היא:

=TRIM(RIGHT(SUBSTITUTE(LEFT(CELL("filename"),FIND("[",CELL("filename"))-2),"\",REPT(" ",50)),50))

שלום.
יש פונקציה באקסל המאפשרת להחזיר את שם הקובץ ואת נתיב הקובץ:

=CELL("filename")

התוצאה היא:

מצאתי נוסחה המשלבת שני פונקציות המחזירה בתא את נתיב הקובץ לבדו:

=LEFT(CELL("filename"),FIND("[",CELL("filename"))-2)

התוצאה היא:

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

(באמצעות פונקציה או באמצעות קוד מאקרו).

תודה רבה לעונים.

@amik יפה מאוד. תודה.

א. (רק כדי להיות בטוח במה שעשית) ההבדל בין הטבלאות ששמת הוא רק הרווח לאחר הפסיק. נכון?
ב. הפונקציה FILTER, יכולה להיות פעילה רק ב"טבלה"? או גם בטווח נתונים רגיל?

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

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

(לשם ההבנה הקדלתי ידנית את התוצאה שאני רוצה להגיע אליה אצל תלמיד 557,
לפי הדרישה הפונקציה צריכה להחזיר לי בתא המקביל ל- 559 : "קלמנטינה, תפוח")

מצורף קובץ:

סיכום פירות.xlsx

@מעלה-ומוריד כתב בעזרה באקסל:

=VLOOKUP

אם יש לך גירסה של אופיס 365 (או 2021 ומעלה) כדאי שתכיר את XLOOKUP, יש הרבה מגבלות שהוא חוסך (בהוספת עמודות וכו')

@האדם-החושב כתב בפקודת מאקרו בוורד שפותחת תוכנה אחרת ויכולה לעשות פעולות בתוך התוכנה האחרת:

למאקרו שיחפש באוצר החכמה את הטקסט המועתק

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

Sub OpenKaluach3()

Shell "C:\Program Files (x86)\Kaluach3\Kaluach3.exe"

SendKeys "{DOWN}"
SendKeys "{DOWN}"
SendKeys "{DOWN}"
SendKeys "{DOWN}"


End Sub

יש תיעוד של מיקרוסופט כיצד לשלוח קיצורי מקלדת:
https://learn.microsoft.com/en-us/office/vba/language/reference/user-interface-help/sendkeys-statement

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

(לדעתי [ואני ממש לא בטוח בזה] ההסבר הוא, שזה לא קוד אמיתי, בקוד אמיתי יש סדר פעולות ברור, לעולם התוכנה לא תריץ את שורה 3 לפני שורה 2, אבל כאן, התוכנה שולחת סדרה של קיצורי מקלדת ללא כל קשר לתוכן פעולתם)

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

(כיוון שהנושא נפתח כאן אני משתף אותו למקרה ומאן דהו יחפש ג"כ תשובה לשאלה הפותחת של האשכול)

Sub Macro2()
 
' שמירה בשם, אותו שם, אותו נתיב קובץ, החלפת שם הסיומת, החלפת הפורמט

ActiveWorkbook.SaveAs Replace(ActiveWorkbook.Path & "\" & ActiveWorkbook.Name, ".csv", ".xlsx"), 51
   
End Sub

@dovid
עזרת לי מאוד מאוד. ישר כח!

@dovid כתב בעזרה קטנה בקוד מאקרו - אקסל:

אתה פותח קובץ קובץ ומפעיל את המאקרו הזה?

בדיוק. (זה חוסך לי המון לחיצות על כל קובץ על פני לחיצה אחת)

אם יש לך דרך אחרת לעשות את זה, אשמח לשמוע.