درود
من یه فایل متنی با برنامه باز میکنم
حالا میخوام داخل یه لیبل یا مسیج باکس یا غیره
بهم فرمت فایل و اینکد متن رو نشون بده
ممنون میشم کمک کنید
کد:
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
(06-22-2017، 11:31 AM)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
درود
آقا ممنونم بابت کمک شما
فقط اگر امکنش هست یکم توضیح بدید یا راهنمایی کنید
بنده فایل متنی رو لود کردم اما این کد چطوری نشون میده میده کدینگ و فورمتش رو ؟
سلام
کدینگ رو نمیشه بررسی کرد
خیلی بحث مفصله
مثلا کدینگ فایل اجرای با تصاویر فرق داره
یسری کد پیدا کردم فقط باید یسری تغییرات بدم و چنتا کد جدید وارد کنم