+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : قراءة جزء من نص (/showthread.php?tid=7482)
قراءة جزء من نص - HASAN6.0 - 22-12-12
السلام عليكم ورحمه الله
الرجاء المساعدة في كود يمكنه قراءة جزء من نص ووضعه داخل تكست مثلاً
ولكن النص كالتالي :
C:\Program Files\DVD Maker\DVDMaker.exe
PHP كود :
C:\Program Files\DVD Maker\DVDMaker.exe
حيث ارغب بالحصول على ما بعد اشارة \ فقط ( DVDMaker.exe ) ولكم جزيل الشكر مسبقاً .
قراءة جزء من نص - ناجي إبراهيم - 23-12-12
السلام عليكم...
إذا كنت تقصد التعامل مع مسارات الملفات فإليك الدالتين التاليتين. ضعهما في Module لاستعمالهما على مستوى المشروع (من أي نافذة):
كود :
' دالة للحصول على اسم الملف و امتداده من مسار كامل
Public Function ExtractFileName(ByVal APath As String) As String
Dim LastSlash As Long
APath = Trim$(APath)
If APath = "" Then
ExtractFileName = ""
Else
LastSlash = InStrRev(APath, "\")
If LastSlash = 0 Then
ExtractFileName = APath
Else
ExtractFileName = Mid$(APath, LastSlash + 1)
End If
End If
End Function
' دالة للحصول على المسار فقط دون اسم الملف و امتداده
Public Function ExtractFilePath(ByVal APath As String) As String
Dim LastSlash As Long
APath = Trim$(APath)
If APath = "" Then
ExtractFilePath = ""
Else
LastSlash = InStrRev(APath, "\")
If LastSlash = 0 Then
ExtractFilePath = ""
Else
ExtractFilePath = Left$(APath, LastSlash - 1)
End If
End If
End Function* مثلاً إذا فرضنا أن المسار الكامل (مثل C:\Program Files\DVD Maker\DVDMaker.exe) مكتوب في Text1 فإن الكود التالي يضع اسم الملف و امتداده (DVDMaker.exe) في Text2 و يضع المسار فقط (C:\Program Files\DVD Maker) في Text3:
كود :
Private Sub Command1_Click()
Text2.Text = ExtractFileName(Text1.Text)
Text3.Text = ExtractFilePath(Text1.Text)
End Subنرجو الاستفادة و السلام.