[aghamali]

درود
من یه فایل متنی با برنامه باز میکنم
حالا میخوام داخل یه لیبل یا مسیج باکس یا غیره
بهم فرمت فایل و اینکد متن رو نشون بده

ممنون میشم کمک کنید

[Amin_Mansouri]

کد:

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


'Function to get filetitle from full path


Public Function getfiletitle(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

getfiletitle = Mid(filename, pos, (Len(filename) + 1 - pos))
End Function

[aghamali]

کد:

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


'Function to get filetitle from full path


Public Function getfiletitle(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

getfiletitle = Mid(filename, pos, (Len(filename) + 1 - pos))
End Function

درود
آقا ممنونم بابت کمک شما
فقط اگر امکنش هست یکم توضیح بدید یا راهنمایی کنید
بنده فایل متنی رو لود کردم اما این کد چطوری نشون میده میده کدینگ و فورمتش رو ؟

[Amin_Mansouri]

سلام
کدینگ رو نمیشه بررسی کرد
خیلی بحث مفصله
مثلا کدینگ فایل اجرای با تصاویر فرق داره

[aghamali]

یسری کد پیدا کردم فقط باید یسری تغییرات بدم و چنتا کد جدید وارد کنم