تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
قراءة جزء من نص
#1
السلام عليكم ورحمه الله



الرجاء المساعدة في كود يمكنه قراءة جزء من نص ووضعه داخل تكست مثلاً
ولكن النص كالتالي :
C:\Program Files\DVD Maker\DVDMaker.exe
PHP كود :
C:\Program Files\DVD Maker\DVDMaker.exe 

حيث ارغب بالحصول على ما بعد اشارة \ فقط ( DVDMaker.exe ) ولكم جزيل الشكر مسبقاً .
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم...

إذا كنت تقصد التعامل مع مسارات الملفات فإليك الدالتين التاليتين. ضعهما في 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

نرجو الاستفادة و السلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Smile سؤال بخصوص قراءة العدد العشري ارجوا الدخول استايل 6 193 28-07-16, 11:51 PM
آخر رد: استايل
  هل يمكن قراءة نص من الويبكام بإستعمال OCR AEDC 0 112 21-02-16, 04:20 AM
آخر رد: AEDC
  طلب مساعدة في قراءة كلمة بمجرد التأشير عليها بالماوس khalid tharwat 1 432 02-06-13, 10:59 PM
آخر رد: khalid tharwat
  الرجاء التعديل على السورس قراءة ملف بينار bin wolf1120 5 657 10-05-13, 11:27 PM
آخر رد: wolf1120
  كيفية قراءة النص حرف بعد حرف و التعرف على السطر الدي أنا فيه عبد الرحيم 3 438 21-11-12, 01:38 PM
آخر رد: عبد الرحيم

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم