• 95 Vote(s) - 2.54 Average
  • 1
  • 2
  • 3
  • 4
  • 5
کد فراخوانی فایل متنی
#1
درود
من یه فایل متنی با برنامه باز میکنم
حالا میخوام داخل یه لیبل یا مسیج باکس یا غیره
بهم فرمت فایل و اینکد متن رو نشون بده

سپاسگزار میشم کمک کنید
  Reply
#2
Code:
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
  Reply
#3
(06-22-2017، 11:31 AM)Amin_Mansouri Wrote:
Code:
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

درود
آقا سپاسگزارم بابت کمک شما
فقط اگر امکنش هست یکم توضیح بدید یا راهنمایی کنید
بنده فایل متنی رو لود کردم اما این کد چطوری نشون میده میده کدینگ و فورمتش رو ؟
  Reply
#4
درود
کدینگ رو نمیشه بررسی کرد
خیلی بحث مفصله
مثلا کدینگ فایل اجرای با تصاویر فرق داره
  Reply
#5
یسری کد پیدا کردم فقط باید یسری تغییرات بدم و چنتا کد جدید وارد کنم
  Reply


Possibly Related Threads...
Thread Author Replies Views Last Post
  کپی فایل aghamali 2 4,019 06-09-2018، 03:37 PM
Last Post: drsojoodi
  چگونه فایل exe با ویژوال بیسیک بسازیم ؟ Amin_Mansouri 4 14,642 08-13-2015، 10:08 PM
Last Post: Amin_Mansouri
  ذخیره و فرخوانی فایل تکست aghamali 3 5,716 11-01-2014، 01:58 PM
Last Post: aghamali
  سورس کد دانلود فایل Amin_Mansouri 1 8,642 04-21-2014، 03:04 PM
Last Post: saelozahra
Wink ارسال فایل باftp بر روی هاست sajad-kh 0 2,842 04-08-2014، 07:29 PM
Last Post: sajad-kh
  دانلود فایل اکسس برای ساخت دیکشنری sajad-kh 0 4,963 01-28-2014، 01:24 PM
Last Post: sajad-kh
  فراخوانی ساب از طریق تکس باکس semolina 1 3,841 08-24-2013، 10:03 PM
Last Post: Amin_Mansouri
  خوندن سورس از فایل exe semolina 3 8,733 04-03-2013، 10:11 PM
Last Post: saeedusm
  سورس اپلود فایل از طریق Http Amin_Mansouri 7 13,820 12-05-2012، 12:11 AM
Last Post: rap0661
  سورس پنهان کردن فایل در عکس alakimalaki 0 3,354 08-08-2012، 09:11 PM
Last Post: alakimalaki

Forum Jump:


Users browsing this thread: 1 Guest(s)

MyBB SQL Error

MyBB has experienced an internal SQL error and cannot continue.

SQL Error:
1017 - Can't find file: './pxramin_parsii/mybb_threadviews.MYI' (errno: 2 "No such file or directory")
Query:
INSERT INTO mybb_threadviews (tid) VALUES('4696')