تقييم الموضوع :
  • 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 ك ب / التحميلات : 55)
الرد }}}
تم الشكر بواسطة:
#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 ك ب / التحميلات : 70)
(( يَا أَيَّتُهَا النَّفْسُ الْمُطْمَئِنَّةُ ارْجِعِي إِلَى رَبِّكِ رَاضِيَةً مَرْضِيَّةً فَادْخُلِي فِي عِبَادِي وَادْخُلِي جَنَّتِي ))

الرد }}}
#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 ك ب / التحميلات : 52)
الرد }}}
تم الشكر بواسطة: 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 ك ب / التحميلات : 45)
(( يَا أَيَّتُهَا النَّفْسُ الْمُطْمَئِنَّةُ ارْجِعِي إِلَى رَبِّكِ رَاضِيَةً مَرْضِيَّةً فَادْخُلِي فِي عِبَادِي وَادْخُلِي جَنَّتِي ))

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ربط قواعد بيانات اكسيس لبرنامج مبرمج بلغة vb6 بصفحة ويب tighrmte 4 757 12-02-23, 02:38 PM
آخر رد: tighrmte
  [سؤال] كيفية استيراد ملف اكسل الى قاعدة بيانات اكسس في فيجوال 6 sher 14 8,481 14-06-22, 04:01 PM
آخر رد: sher
  [vb6.0] الكتابة بحروف معينة إلى الملف النصي ( العربية 864) حسن سليمان الحوشي 1 938 03-05-22, 04:30 AM
آخر رد: حسن سليمان الحوشي
  [vb6.0] مرفق مشروع يظهر بيانات MSFLEXGRID ويصدرة للوورد والاكسيل king2512010 10 7,726 11-03-22, 04:19 PM
آخر رد: Taha Okla
  [vb6.0] مشكلة فى قاعدة بيانات اكسس mohhasddx1 1 1,000 04-08-21, 10:12 AM
آخر رد: awidan76
  [vb6.0] كيفية قراءة الباركود على مكينات الكاشيير والمخازن باستعمال خط 3OF9_NEW hamada salah90 1 1,043 28-05-21, 02:48 AM
آخر رد: ahmedabdelaliem
  [vb6.0] طلب : كود عرض صورة معينة في داتا ريبورت - وتغييرها بمجرد تغيير اسمها... hamada salah90 3 1,508 24-05-21, 06:31 AM
آخر رد: Ahmed_Mansoor
  أطلب مساعدة من الأعضاء ذوي الخبرة : أريد طريقة حفظ ملف من نوع PDF في قاعدة بيانات SQL rami_cis 2 1,434 23-11-20, 01:03 AM
آخر رد: rami_cis
  أريد عرض اخر سجل في جدول من قاعدة بيانات أكسس hamada salah90 5 2,844 13-08-20, 02:06 AM
آخر رد: بلدي
  مشكلة في الاتصال بقاعدة بيانات sql server 2008 R2 مصمم هاوي 6 2,960 06-01-20, 03:10 PM
آخر رد: ahmedabdelaliem

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


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