View Full Version : سوال: بدست آوردن پسوند یک فایل در ویژال
amirreza619
جمعه 24 آذر 1391, 19:52 عصر
سلام !
چجوری میتونم پسوند یک فایل رو در ویژال پیدا کنم ؟
اگه سورس بزارین ممنون میشم ! چون نحوه کار با system.io رو نمیدونم !!
oYaMaa
جمعه 24 آذر 1391, 20:02 عصر
سلام!
اگر اون فایل رو open کنید و مسیرش رو داخل یه تکس باکس بذارید با کد زیر به نتیجه میرسید.
MsgBox Right(Text1.Text, 4)
amirreza619
جمعه 24 آذر 1391, 20:09 عصر
ممنون ! ولی اگه پسوند فایل بیشتر از 3 حرف بود جی ؟ :متفکر:
مثلا :
.backup
.7zip
و ...
!!!
oYaMaa
جمعه 24 آذر 1391, 20:20 عصر
MsgBox Split(Text1.Text, ".", , vbTextCompare)(1)
بهروز عباسی
شنبه 25 آذر 1391, 14:21 عصر
درود به همه کد زیر هم بد نیست!
Public Function getextension(filename As String) As String
For i = Len(filename) To 2 Step -1
c = Mid(filename, i, 1)
If c = "." Then
pos = i + 1
End If
Next
getextension = Mid(filename, pos, (Len(filename) + 1 - pos))
End Function
موفق باشید
Mohammad.sweets
شنبه 25 آذر 1391, 15:43 عصر
یا کد زیر .....
Print Mid(Text1.Text, InStrRev(Text1.Text, ".") + 1)
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.