الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

أرجو المساعدة في هذا الكود

مغلق
بدأه alzinaty في 7 مايو 2006 · 5 رد · 509 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

طرح الأخ HnHn هذا الكود في أحد المواضيع بارك الله فيه

HnHn كتب:
هذا الكود لوضع كل صف في تيكس 

' Open
Open "C:\HnHn.txt" For Input As #1
Dim A As String
Input #1, A, B
Text1.Text = A
Text2.Text = B
Close

تحياتي  :rolleyes:

انا استفدت من هذا الكود كثيرا

واستدعيت ملفا ونجح الأمر ولكن عند محاولة استدعاء أكثر من ملف من خلال جملة select case مثلا

لا ينجح الأمر وهذا ما أحاول القيام به :-

Select Case m
Case m = 1

Open "C:\data\month1.txt" For Input As #1

sum = 0

For x = 0 To 1
For y = 0 To 4

Input #1, a(x, y)

 sum = sum + a(x, y)

Next
Next

Close
Text1.Text = a(0, 0)
Text2.Text = a(1, 0)

Case m = 2

' Open

Open "C:\data\month2.txt" For Input As #1

sum = 0

For x = 0 To 1
For y = 0 To 4

Input #1, a(x, y)

 sum = sum + a(x, y)

Next
Next
Text1.Text = a(0, 0)
Text2.Text = a(1, 0)

Close
End Select

ملاحظة مهمة :::--

استدعاء ملف واحد نجح معي 100% كما يلي

' Open

Open "C:\data\month2.txt" For Input As #1

sum = 0

For x = 0 To 1
For y = 0 To 4

Input #1, a(x, y)

 sum = sum + a(x, y)

Next
Next
Text1.Text = a(0, 0)
Text2.Text = a(1, 0)

Close

ولكني أريد استدعاء أكثر من ملف من خلال جملة case ما الحل ؟؟

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

تم تعديل هذه المشاركة بواسطة alzinaty في 7 مايو 2006 في 21:37

#2

ما في حد يساعد ..

ول يا جماعة والله الموضوع بسيط عليكم ان شاء الله انا محتاجه والله عندي مشروع تخرج

وما معي وقت كتير ...

الله يسعدكم تساعدوني ...

#3

يا عااااالم يااا هو ساااعدوني الله يساعدكم ..

#4

السبب هو أنك قمتي بتحديد المسار لملف واحد وليس 100 كما تريدين ...

السبب الثاني في عدم الرد .. أنك لم تحددي العنوان المناسب لمشاركتك ..

سجل ايميلك هنا

googlejb5.gif ليصلك كل ما هو مفيد في عالم البرمجة
#5

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

هذا الكود الصحيح... اولا يجب ان لا تنسى ان لا تحدد رقم البفر الخاص بالملف ... أجعل الحاسب يحددها لك...أستخدم freefile

الملفات يجب أغلاقها قبل انتهاء حالة Case حيث انا الملفات لم يتم أغلاقها قبل الخروج.......

أرجوا ان يكون للفائدة..

Select Case m
    Case m = 1
        iFile = FreeFile
        Open "C:\data\month1.txt" For Input As #iFile
        Sum = 0
        For x = 0 To 1
            For y = 0 To 4
                Input #iFile, a(x, y)
                Sum = Sum + a(x, y)
            Next
        Next
        Text1.Text = a(0, 0)
        Text2.Text = a(1, 0)
        Close iFile
    Case m = 2
        iFile = FreeFile
        ' Open
        Open "C:\data\month2.txt" For Input As #iFile
        Sum = 0
        For x = 0 To 1
            For y = 0 To 4
                Input #iFile, a(x, y)
                Sum = Sum + a(x, y)
            Next
        Next
        Text1.Text = a(0, 0)
        Text2.Text = a(1, 0)
        Close iFile
End Select

تم تعديل هذه المشاركة بواسطة meynot في 9 مايو 2006 في 03:29

من سجن عكا وطلعــت جنـازة...

محمد جمجوم و فؤاد حجـازي

جازي عليهم يا شعبــي جازي...المندوب السامي وربعه عموما

محمد جمجوم ومع عطا الزير...فؤاد حجـــــــــازي عز الذخيـره

فلـسطـين

#6
meynot كتب:
السلام عليكم ورحمة الله

هذا الكود الصحيح... اولا يجب ان لا تنسى ان لا تحدد رقم البفر الخاص بالملف ... أجعل الحاسب يحددها لك...أستخدم freefile

الملفات يجب أغلاقها قبل انتهاء حالة Case حيث انا الملفات لم يتم أغلاقها قبل الخروج.......

أرجوا ان يكون للفائدة..

Select Case m
    Case m = 1
        iFile = FreeFile
        Open "C:\data\month1.txt" For Input As #iFile
        Sum = 0
        For x = 0 To 1
            For y = 0 To 4
                Input #iFile, a(x, y)
                Sum = Sum + a(x, y)
            Next
        Next
        Text1.Text = a(0, 0)
        Text2.Text = a(1, 0)
        Close iFile
    Case m = 2
        iFile = FreeFile
        ' Open
        Open "C:\data\month2.txt" For Input As #iFile
        Sum = 0
        For x = 0 To 1
            For y = 0 To 4
                Input #iFile, a(x, y)
                Sum = Sum + a(x, y)
            Next
        Next
        Text1.Text = a(0, 0)
        Text2.Text = a(1, 0)
        Close iFile
End Select

الله يكرمك يااا رب ...

انا أيضا من فلسطين ..

الله يحيي فلسطين وشعب فلسطين يا رب .. تسلم يا أخوي الله يجزاك كل خير ..

هذا الموضوع مغلق.

مواضيع مشابهة