• ¡Welcome to Square Theme!
  • This news are in header template.
  • Please ignore this message.
مهمان عزیز خوش‌آمدید. ورود عضــویت


امتیاز موضوع:
  • 3 رای - 1 میانگین
  • 1
  • 2
  • 3
  • 4
  • 5
Title: کد فراخوانی فایل متنی
حالت موضوعی
#1
درود
من یه فایل متنی با برنامه باز میکنم
حالا میخوام داخل یه لیبل یا مسیج باکس یا غیره
بهم فرمت فایل و اینکد متن رو نشون بده

ممنون میشم کمک کنید
 
پاسخ
#2
کد:
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
گروه دور همی پارسی کدرز
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg
 
پاسخ
#3
(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

درود
آقا ممنونم بابت کمک شما
فقط اگر امکنش هست یکم توضیح بدید یا راهنمایی کنید
بنده فایل متنی رو لود کردم اما این کد چطوری نشون میده میده کدینگ و فورمتش رو ؟
 
پاسخ
#4
سلام
کدینگ رو نمیشه بررسی کرد
خیلی بحث مفصله
مثلا کدینگ فایل اجرای با تصاویر فرق داره
گروه دور همی پارسی کدرز
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg
 
پاسخ
#5
یسری کد پیدا کردم فقط باید یسری تغییرات بدم و چنتا کد جدید وارد کنم
 
پاسخ
  


موضوعات مشابه ...
موضوع نویسنده پاسخ بازدید آخرین ارسال
  کپی فایل aghamali 1 2,646 10-17-2017، 11:37 AM
آخرین ارسال: aghamali
  چگونه فایل exe با ویژوال بیسیک بسازیم ؟ Amin_Mansouri 4 14,632 08-13-2015، 10:08 PM
آخرین ارسال: Amin_Mansouri
  ذخیره و فرخوانی فایل تکست aghamali 3 5,638 11-01-2014، 01:58 PM
آخرین ارسال: aghamali
  سورس کد دانلود فایل Amin_Mansouri 1 8,443 04-21-2014، 03:04 PM
آخرین ارسال: saelozahra
Wink ارسال فایل باftp بر روی هاست sajad-kh 0 3,049 04-08-2014، 07:29 PM
آخرین ارسال: sajad-kh
  دانلود فایل اکسس برای ساخت دیکشنری sajad-kh 0 5,168 01-28-2014، 01:24 PM
آخرین ارسال: sajad-kh
  فراخوانی ساب از طریق تکس باکس semolina 1 4,144 08-24-2013، 10:03 PM
آخرین ارسال: Amin_Mansouri
  خوندن سورس از فایل exe semolina 3 8,845 04-03-2013، 10:11 PM
آخرین ارسال: saeedusm
  سورس اپلود فایل از طریق Http Amin_Mansouri 7 13,655 12-05-2012، 12:11 AM
آخرین ارسال: rap0661
  سورس پنهان کردن فایل در عکس alakimalaki 0 3,408 08-08-2012، 09:11 PM
آخرین ارسال: alakimalaki

پرش به انجمن:


Browsing: 1 مهمان