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

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

اريد تعديل الكود فى المرفقات حيث يقوم هذا الكود بقراءة سطور معينة من ملف 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

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


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

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


الملفات المرفقة
.rar   Read txt file.rar (الحجم : 2.06 ك ب / التحميلات : 16)
الرد }}}}
تم الشكر بواسطة:
#2
كود :
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
الرد }}}}
تم الشكر بواسطة: Amir_alzubidy , gedo , Ahmed_Mansoor
#3
(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 قبلها كلام كتير هو يتجاهل كل الكلام ذا 

واشكرك مرة اخرى وجزاك الله كل خير
الرد }}}}
تم الشكر بواسطة: Amir_alzubidy
#4
السلام عليكم

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

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


الملفات المرفقة
.rar   r_text.rar (الحجم : 1.7 ك ب / التحميلات : 28)
شـــايـفـــك

الرد }}}}
#5
(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

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

وشكرا لكم وبارك الله فيكم
الرد }}}}
تم الشكر بواسطة:
#6
وعليك السلام و رحمة الله وبركاته , أهلا اخي الكريم , إضافة إلى ماتم إرفاقه من تعديلات من الإخوة الأعضاء هذا تعديل من عندي .


الملفات المرفقة
.rar   Read-txt-file_1.rar (الحجم : 2.73 ك ب / التحميلات : 16)
الرد }}}}
تم الشكر بواسطة: Amir_alzubidy , abulayth , gedo , gedo , m___6999
#7
(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

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

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

اشكر اخي احمد

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

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


الملفات المرفقة
.rar   r_text.rar (الحجم : 2.04 ك ب / التحميلات : 12)
شـــايـفـــك

الرد }}}}
#8
(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

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

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

اشكر اخي احمد

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

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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  هل ممكن ان يتم استبدال قيمة من قاعدة بيانات باسم ثابت في datareport ابن دوعن 1 83 02-11-16, 03:03 PM
آخر رد: ممدوح
  عرض التقرير اليومي بــــCrystalReport بقاعدة بيانات اكسس abazrmhamed 1 132 21-09-16, 10:05 AM
آخر رد: zoal2016
  [سؤال] كيف اربط الاكتف ريبورت مع data l موجوده بالفورم او مع مصدر بيانات موجود في الفورم allobaed 0 131 07-08-16, 01:38 AM
آخر رد: allobaed
  كيفية تحديث بيانات جدول داخل قاعدة بيانات SQL Server عن طريق الإنترنت engabuhema 1 145 31-07-16, 01:34 PM
آخر رد: ahmedabdelaliem
  [vb6.0] التقاط صورة من كاميرا وتخزينه في قاعدة بيانات اكسس sher 1 133 10-03-16, 02:57 PM
آخر رد: وادي العوضي
  نسخة احتياطية عن قاعدة بيانات adodc haniblack 2 223 01-03-16, 09:22 AM
آخر رد: haniblack
  [vb6.0] مساعدة في برنامج عل الفيجوال مربوط مع قاعدة بيانات واداة adodc haniblack 17 1,508 10-02-16, 01:56 PM
آخر رد: VB_Local
  [سؤال] استعادة قاعدة بيانات SQL ABO.BANCIANA 10 1,020 05-01-16, 05:43 PM
آخر رد: ahmedabdelaliem
  [vb6.0] طلب : كيفية استيراد بيانات من الأوفيس وورد وعرضها في مربعات نص بالفيجول بيسك hamada salah90 1 314 27-10-15, 10:52 PM
آخر رد: hamada salah90
  [vb6.0] طريقة البحث عن بيانات بين تاريخين وادي العوضي 2 415 12-10-15, 08:02 PM
آخر رد: وادي العوضي

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


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