אני רוצה ליצור רוטינה קצרה (Batch או WScript) אשר תבדוק גודל קובץ ותגבה אותו לשמות המציניים תאריך ושעה (אפילו בפורמט נומרי)

אבל לצערי לא מצאתי אתר עם הסברים לכך, למישהו יש קישור מתאים?

תודה מראש

מה ז"א תגבה אותו לשמות המכילים תאריך ושעה?

על איזו סביבה מדובר???

אם הבנתי נכון וזה סביבת דוס, אז:

dir example.dat > log.txt
time > log.txt
date >log.txt

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

הכוונה היא :

אני מחפש דרך אוטומטית ליצור קבצים (Rename) ששמותיהם הינם התאריך באותו רגע נתון

ואיך אתה מתכוון להפנות את הקבצים לאינפוט? להביא אותם כארגומנט?

אני אסביר את עצמי שוב

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

ועל כן ברצוני ליצור שם קובץ (Rename) שהוא בעצם התאריך של אותו היום מהקובץ הקיים.

בתודה

רני

ראשית כל אם מערכת ההפעלה שלך היא nt4 עם sp6 ומעלה אז ישנם משתני מערכת %DATE% ו %TIME%. ועל כן, פשוט תשתמש בזה.

אם אתה על מערכת הפעלה ישנה יותר אז תשתמש בטריק הבא:

לשעה:

@ECHO OFF

FOR /F "TOKENS=*" %%A IN ('TIME/T') DO SET TIME=%%A

ECHO It's %TIME% now

לתאריך:

@ECHO OFF

FOR /F "TOKENS=1* DELIMS= " %%A IN ('DATE/T') DO SET DATE=%%B

ECHO It's %DATE% today

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

date:

WScript.echo Date()

time:

MyTime = Time()

ואם אתה מעונין בתשובה מלאה לגבי wscript אז בבקשה:

(סורי אין לי כח לכתוב את זה גם ב-batch אבל הדוגמאות נמצאות בהתחלה)

'sFileName = "C:\MyDir\MyFile.Ext"

dDate = Now

sDate = Mid("0", 1+Day(dDate)\10) & Day(dDate) _

& "-" & Mid("0", 1+Month(dDate)\10) & Month(dDate) _

& "-" & Year(dDate) _

& " " & Mid("0", 1+Hour(dDate)\10) & Hour(dDate) _

& "-" & Mid("0", 1+Minute(dDate)\10) & Minute(dDate) _

& "-" & Mid("0", 1+Second(dDate)\10) & Second(dDate)

Set oFSO = CreateObject("Scripting.FileSystemObject")

Set oFile = oFSO.GetFile(sFileName)

oFile.Name = oFSO.GetBaseName(oFile.Name) & " " & sDate & "." & _

oFSO.GetExtensionName(oFile.Name)

מקווה שעזרתי ,

אבנר.

נ.ב- אני אצרף את זה גם בתור קובץ שיהיה יותר קל...

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

או לחילופין - אם מישהו מעונין להרים פורום שכזה אנא צור עימי קשר (המייל רשום בפרופיל...)

[attachment deleted by admin]

CAMEL MAN,

ברוך הבא לפורומים, רק למה מצאת לנכון לענות למישהו ששאל שאלה לפני 3 שנים ?!?!?!?

כל הכבוד על היוזמה, אך תקרא את חוקי הפורום...

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

:-[ פאדיחות.