منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

كل عام وانتم بخير وبصحة وسلامة ورمضان كريم والله اكرم

اريد تعديل الكود فى المرفقات حيث يقوم هذا الكود بقراءة سطور معينة من ملف txt ولكن يقرا السطر كاملا وليس البيانات المطلوبة فقط

حيث ان ملف txt المرفق مع السورس على الشكل التالى


Name: soft

Phone : 306050
Date: 3/6/2016
File Size: 1MB
File Name : 5

فانا اريد عند الضغط على زر تحميل البيانات ان فمثلا ال label  الخاصة بالاسم اريد اظهار كلمة soft فيها وليس السطر كلة اى انه سوف يقوم البرنامج بالبحث عن name او Name ويتجاهل النقطتين ثم يعرض اى بيانات بعد النقطتين وهكذا مع البيانات الاخرى

ولكن للعلم ان ملف البيانات ليس ثابتا بمعنى ان البيانات ترتيبها متغير كالشكل التالى

File size: 1MB

Date: 3/6/2016
File name: 5
name : soft
Phone: 306050

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

انتظر مساعدتكم 

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

(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

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

شكرا لك اخى الكريم على المساعدة بارك الله فيك

ولكن هل يمكن تعديلة اذا كان هناك كلام قبل الكلمة نفسها يعنى هو يبحث مثلا عن Name فى الملف ويظهر مابعدها 
ولو مثلا name قبلها كلام كتير هو يتجاهل كل الكلام ذا 

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

السلام عليكم

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

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

(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, 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

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

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

السلام عليكم

اشكر اخي احمد

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

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

شكرا اخى على المساعدة بارك الله فيك وجزاك الله كل خير ورزقك من واسع فضلة