استفسار حول استخدام FOR مع الكتابة لملف نصي

مغلق

بدأه المتميز في 27 مارس 2005 · 3 رد · 453 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات

#127 مارس 2005 في 18:20 صاحب الموضوع

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

تحية طيبة لجميع أعضاء الفريق

في البداية اعتذر عن كثرة ورود اسألتي

عندي استفسار

الفكرة هي إني ابحث في قاعدة البيانات واريده يدخل البيانات داخل الملف النصي بسطر واحد ( يعني ما يكتب بيانات السجل الجديد في سطر ثاني ) .

أوضح أكثر

اولا : فتح الملف

Open file.txt For Output As #1

ثم البحث داخل قاعدة البيانات

rs.Open "select * from [Table1]", cn, adOpenStatic, adLockOptimistic
Print #1, "الاسماء الموجودة هي "

الذي اريده باستخدام جملة Print التي في الأعلى أن تصبح هكذا

Print #1, "الاسماء الموجودة هي  (محمد,علي,عبدالله)"

توضيح / محمد وعلي وعبد الله هي نتائج بحث .

#227 مارس 2005 في 18:53

أخي المتميز أهلاً بك ونريد أن نرى مشاركات متميزة لك وأنت كذلك

أعتقد أنك تعرف طريقة استرجاع الكلمات من نتائج البحث وأن مشكلتك في عرضها في سطر واحد

وإذا كان الأمر كذلك فالأمر بسيط

قم بعملية For ... Next

وفي نهاية الأمر Print استخدم الفاصلة المنقوطة (؛) ووظيفتها الإضافة إلى نفس السطر

مثال:

Print #1, "word 1";
Print #1, "word 2";
Print #1, "word 3";

في حال غموض الأمر لا تتردد في السؤال ..

وتمنياتي لك بالتوفيق ..

تم تعديل هذه المشاركة بواسطة عبد الله فتحي في 27 مارس 2005 في 18:56

#327 مارس 2005 في 19:09

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

من دواعي سروري مشاركتي بهذا المنتدى الرائع

أخي الفاضل نعم كنت استخدم جملة for .. next ولكن كانت المشكلة هي أنه يضيف في سطر جديد ولكن عملت بإيضاحك وبحمد الله نجحت المهمة .

لا أملك إلا أن أدعو لكم جميعا بالتوفيق .

تم تعديل هذه المشاركة بواسطة المتميز في 27 مارس 2005 في 19:11

#427 مارس 2005 في 19:19

أخي عبد الله ( ولا يهونون بقية الأعضاء ) :)

في أمر Print فصلت بين كل اسم والآخر بالفاصلة

Print #1, "الاسماء الموجودة هي  (محمد,علي,عبدالله)"

ولكن عند استخدم جملة For.. Next

Print #1, "Names : (";
For i = 0 To rs.RecordCount -1
Print #1, rs.Fields(1) & ", ";
 Next

سيقوم البرنامج بإضافة فاصلة بعد الاسم الأخير ! وهذا ما لا أريده ؟

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

عدد الزوار حالياً