Split

[yael800]

Split

היי, אני צריכה להגיע ע"י SPLIT לזה ב vba איך אני עושה זאת??? המון תודה מראש, יעל.

strField = Rs![fname] '"C:\demo\myfile.doc#C:\demo\myfile.doc#" strLink = Split(strField, "#")(0) ' "..Desktop\myfile.doc" ' now I want to get "myfile.doc" How??​

 

[המלך ברק הראשון]

בהנחה שזה מה שאת רוצה..

לאחר הפעולה שלך strLink מכיר את הנתיב המלא לקובץ. אם אני לא טועה, את מנסה לחלץ מתוך זה רק את שם הקובץ. את יכולה לבצע split נוסף עפ"י המחלק '\' כלומר:

strArrayFile = split(strLink,"\")​

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

Ubound(strArrayFile)​

יחזיר איזה שהוא אינדקס שהוא האינדקס של שם הקובץ שבו את יכולה להשתמש והפקודה -

strArrayFile(Ubound(strArrayFile))​

תחזיר את שם הקובץ. ואת תמיד יכולה לעשות את זה במכה אחת -

strFile = split(strLink,"\")(ubound(split(strLink,"\")))​

מובן?

 

[yael800]

WOW

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

strFile = "myfile.doc" ' check if this file exist in C:\MyDir folder ' if not copy this FileCopy strFile , "C:\MyDir\" & strFile​

המון תודה, יעל

 

[yael800]

הסתדרתי..תודה רבה לך../images/Emo140.gif

 

[המלך ברק הראשון]

אין בעד מה, הפורום פה בשביל זה.

(אבל תודה על הפרח

)