(08-06-16, 09:44 PM)m___6999 كتب :

كود :

Option Explicit

Private Sub Command1_Click()
   
   Dim txt As String
   
   Dim handle As Integer
   handle = FreeFile
   Open (App.Path & "\Data.txt") For Input As #handle
   txt = Input$(LOF(handle), handle)
   Close #handle
       
   mySub txt
   
End Sub

Private Sub mySub(txt As String)
   Dim mName As String
   Dim mPhone As String
   Dim mDate As String
   Dim mFileName As String
   Dim mFileSize As String
   
   Dim mLines() As String: mLines = Split(txt, vbNewLine)
   
   Dim i As Integer: For i = LBound(mLines) To UBound(mLines)
       If Trim$(mLines(i)) <> "" Then
           Dim t() As String: t = Split(mLines(i), ":")
           If Trim(LCase(t(0))) = "name" Then mName = Trim$(t(1))
           If Trim(LCase(t(0))) = "phone" Then mPhone = Trim$(t(1))
           If Trim(LCase(t(0))) = "date" Then mDate = Trim$(t(1))
           If Trim(LCase(t(0))) = "file name" Then mFileName = Trim$(t(1))
           If Trim(LCase(t(0))) = "file size" Then mFileSize = Trim$(t(1))
       End If
   Next i
   
   Me.Lbname.Caption = mName
   Me.Lbphone.Caption = mPhone
   Me.Lbdate.Caption = mDate
   Me.Lbsize.Caption = mFileSize
   Me.LbFile.Caption = mFileName
End Sub

(08-06-16, 10:57 PM)abulayth كتب : السلام عليكم

ان شاء الله تجد طلبك في المرفقات

يعطيك العافية

(09-06-16, 01:06 AM)gedo كتب :

(08-06-16, 10:57 PM)abulayth كتب : السلام عليكم

ان شاء الله تجد طلبك في المرفقات

يعطيك العافية

السلام عليكم ورحمة الله وبركاته

شكرا اخى الكريم بارك الله فيك 

ولكن كنت اقصد انه لو ان الملف يحتوى على البيانات بهذا الشكل 

you can start file of here Name: soft

this is information phone : 306050. Date: 3/6/2016. file Size: 1MB

fiLe Name : 5

اى انه يوجد كلام قبل name , phone وهكذا وهذا الكلام متغير

هذا غير ضرورى لانى حصلت على ما اريد منكم واشكركم على المساعدة ولكن كنت اريد ان اعرف كيف يتم ذلك ان كان الملف بهذا الشكل ان امكن يعنى  ومنكم نستفيد 

وشكرا لكم وبارك الله فيكم وجزاكم الله كل خير

---

السلام عليكم ورحمة الله وبركاته

واجهتنى مشكلة اخى الكريم وهى 

اذا كان ملف البيانات يحتوى على وقت بالشكل التالى

time : 08:30:45
او

date and time : 7/1/2016 08:30:45

هل من الممكن تجاهل اول نقطتين فقط لانة يعرض البيانات بشكل خاطىء

وشكرا لكم وبارك الله فيكم

(09-06-16, 08:36 AM)Ahmed_Mansoor كتب : وعليك السلام و رحمة الله وبركاته , أهلا اخي الكريم , إضافة إلى ماتم إرفاقه من تعديلات من الإخوة الأعضاء هذا تعديل من عندي .

(09-06-16, 02:05 PM)abulayth كتب :

(09-06-16, 01:06 AM)gedo كتب :

(08-06-16, 10:57 PM)abulayth كتب : السلام عليكم

ان شاء الله تجد طلبك في المرفقات

يعطيك العافية

السلام عليكم ورحمة الله وبركاته

شكرا اخى الكريم بارك الله فيك 

ولكن كنت اقصد انه لو ان الملف يحتوى على البيانات بهذا الشكل 

you can start file of here Name: soft

this is information phone : 306050. Date: 3/6/2016. file Size: 1MB

fiLe Name : 5

اى انه يوجد كلام قبل name , phone وهكذا وهذا الكلام متغير

هذا غير ضرورى لانى حصلت على ما اريد منكم واشكركم على المساعدة ولكن كنت اريد ان اعرف كيف يتم ذلك ان كان الملف بهذا الشكل ان امكن يعنى  ومنكم نستفيد 

وشكرا لكم وبارك الله فيكم وجزاكم الله كل خير

---

السلام عليكم ورحمة الله وبركاته

واجهتنى مشكلة اخى الكريم وهى 

اذا كان ملف البيانات يحتوى على وقت بالشكل التالى

time : 08:30:45
او

date and time : 7/1/2016 08:30:45

هل من الممكن تجاهل اول نقطتين فقط لانة يعرض البيانات بشكل خاطىء

وشكرا لكم وبارك الله فيكم

السلام عليكم

اشكر اخي احمد

ارفق لك التعديل بصورة اخرى 

يعطيك العافية