حذف پسوند فایل از دستور CommonDialog.FileTitle

[Restlesa]

سلام بر دوستان گرامی عزیز
همان طوری که همگی شما دوستان می دونید با استفاده از دستور CommonDialog.FileTitle می تونید نام فایل ذخیره شده در سیستم و نوع پسوند فایل رو بدست بیارید.
حال چه طوری می تونم تنها نام فایل ذخیره شده رو بدست بیارم؟؟؟؟
ممنون میشم راهنماییم کنید

[returnx]

حال چه طوری می تونم تنها نام فایل ذخیره شده رو بدست بیارم؟؟؟؟
خوب بدیهی هست که تمام پسوند ها در ویندوز سه حرفی اند ، پس لازم چهار حرف(دات رو هم باید در نظر گرفت) آخر را با تابع mid نگیرید به اینصورت:

stri= Mid(string, 1, Len(string) - 4)

[Restlesa]

ممنونم دوست عزیز
به جای String باید مقدار CommonDialog1.FileTitle رو بزارم ؟؟؟:متفکر::متفکر::متفکر::متف� �ر:

[returnx]

بله دقیقا ، البته اول می تونید این مقدار برابر یک متغیر از نوع String بزارید بعد متغیر را بجای String در تابع قرار دهید اینجوری خوانایی برنامه هم بالا تر می ره...

[Restlesa]

البته اول می تونید این مقدار برابر یک متغیر از نوع String بزارید بعد متغیر را بجای String در تابع قرار دهید اینجوری خوانایی برنامه هم بالا تر می ره...
این قسمت رو یه خورده بیشتر برام توضیح میدی متوجه نشدم

[returnx]

یعنی اینجوری:

Dim file_title As String 'Variable for File title & extention
Dim file_name As String 'variable for file name without extention
file_title = CommonDialog1.FileTitle
file_name = Mid(file_title, 1, Len(file_title) - 4)

اینجوری قشنگ تره نه؟!
بعد ها متوجه میشی که این نوع کد نوشتن چه فوایدی داره...

[parselearn]

سلام بر دوستان گرامی عزیز
همان طوری که همگی شما دوستان می دونید با استفاده از دستور CommonDialog.FileTitle می تونید نام فایل ذخیره شده در سیستم و نوع پسوند فایل رو بدست بیارید.
حال چه طوری می تونم تنها نام فایل ذخیره شده رو بدست بیارم؟؟؟؟
ممنون میشم راهنماییم کنید


's = "file.docx"
s = CommonDialog1.FileTitle
d = InStrRev(s, ".")
s = Left(s, d - 1)
MsgBox s




خوب بدیهی هست که تمام پسوند ها در ویندوز سه حرفی اند ، پس لازم چهار حرف(دات رو هم باید در نظر گرفت) آخر را با تابع mid نگیرید به اینصورت:

stri= Mid(string, 1, Len(string) - 4)


خير، اينطور نيست
در ويندوز نام فايل به همراه پسوند ميتونه تا 256 حرف باشه
مثال:
A.inyekpasvandtoolaniast
پسوند هم در ويندوز از نقطه آخر به بعد حساب ميشود
a.b.c.d.a.axsd

[vbhamed]

سلام


CommonDialog1.ShowOpen

Dim f$, p%
f = CommonDialog1.FileTitle
p = InStrRev(f, ".")

If p > 0 Then f = Left(f, p - 1)

MsgBox f

[returnx]

A.inyekpasvandtoolaniast
الان این چه نوع فایلی هست؟

[parselearn]

الان این چه نوع فایلی هست؟

هر فايلي كه شما بخواين
ميتونه يك تصوير باشه
ميتونه فايل يك پروژه باشه
ميتونه يك فايل متني باشه
ميتونه ...
فرقي نداره
شما مي توانيد هر نوع پسوندي را براي فايلهاي پروژتون انتخاب كنيد
شايد بخواين يك اديتور فايل متني ايجاد كنيد. دليل نداره كه فقط يك فايلي با پسوند txt را باز كند
ميشه فايل برنامه با پسوند inyekpasvandtoolaniast باشد.

[returnx]

من فکر کردم این یک پسوند Valid (مخصوص یک شرکت بزرگ) هست..
درسته ، این کار که خودمون هم می کنیم اما نمی دونستم که میشه پسوند رو بیشتر از 3 کارکتر گذاشت...
ممنون ...

[Restlesa]

خوب بدیهی هست که تمام پسوند ها در ویندوز سه حرفی اند ، پس لازم چهار حرف(دات رو هم باید در نظر گرفت) آخر را با تابع mid نگیرید به اینصورت:

stri= Mid(string, 1, Len(string) - 4)

یعنی این کد برای دیگر پسوند ها ناقصه عمل می کنه
درست میگم ؟؟؟

[IamOverlord]

یعنی این کد برای دیگر پسوند ها ناقصه عمل می کنه
درست میگم ؟؟؟

بله، درسته، و حتی تعدادی پسوند زیر 3 حرف که معتبر هستند هم وجود دارد. مثلا: x.

[محسن واژدی]

الآن این کدی که آقا حامد در پست #8 دادن برای گرفتن پسوند بهترین گزینه است
چون دستور InStrRev از آخر دستور بدنبال کارکاتر "." سرچ میکنه و چون رشته های بعد از آخرین نقطه پسوند فایل رو تشکیل میدن به محض یافت شدن کارکتر نقطه هر چقدر رشته بعد از آن باشند به عنوان پسوند فایل شناخته میشوند حالا میخواهد یک کاراکتر باشد یا بیشتر
موفق باشید

[Restlesa]

از همه شما دوستان عزيز بابت راهنمايي هاتون ممنونم
:بوس::بوس::بوس::بوس::بوس::بوس: