انظر الى الكود لفتح ملف نصي
C11.Filter = "text file|*.txt" C11.ShowOpen Open C11.FileName For Input As #1 Do Until EOF(1) Line Input #1, lineoftext$ atext$ = atext$ & lineoftext$ & wrap$ Loop Text1.Text = atext$
c11 = commandialog
لماذا يفتح ملف التكست في سطر واحد
يعني مثلا عندي txt و مكتوب فيه كم سطر الفجوال بيسك يدمج هذه الاسطر في سطر واحد !!!!
اريد حل - ارجو المساعدة
مع كود حفظ ملف txt
- لفتح الملف النصي كـ كتله واحده كـأ الكود التالي :
Open C11.FileName For For Input As #1 Text1.Text = Input(LOF(1), 1) Close #1
- وللحفظ:
Open C11.FileName For Output As #1 Print #1, Text1.Text Close #1
اقتباسآسف الدخول متقطع هذه القتره
اقتباس[يمين]
.[/يمين]
اخر مواضيعي 2007
االمثال مطبق على موقع بورصه سعودي
.
كيف تستخدم الـ OLE Drag Drop ؟ || سورس كود الفاتوره الذكية || سورس كوود مساعدك في حفظ وتسميع كلمات اللغة الانجليزية.
مواضيع مهمه ومطلوبه بكثره VB6
.
بــرامج ومشــاريع عربيه كامــله {HnHn} والمزيد في قسم برامج الاعضاء || ربط قواعد بيانات اكسس مع الفيجوال بيسك, مادة دراسية كاملة {بنت اليمن}|| المرجع الشامل لجمل SQL ا {GENIUS-IT} || كيفية التعامل مع مكتبة الـ DAO, في الوصول إلى قاعدة بيانات {رمضان} || مثال ريط Visaul Basic 6.0 مع SQL SERVER ا || العمليات التي تجرى على قاعدة البيانات, مثال كامل {بنت اليمن} || تصدير البيانات من الاكسل الي الاكسس بالفيجوال بيسك {HnHn} || البحث في قاعدة البيانات {MANSUR} || قواعد البيانات العلائقية وتقنيات الوصول إليها {عبد الله فتحي} || كيفية أظهار بيانات جدولين بواسطة التاريخ ,,,,,,,.
أخي ربما سؤالك اجابته في أحدى هذه المواضيع فإن لم تجد قم بالبحث وان لم تجد اطرح سؤالك مع وضع عنوان مناسب بحيث ان يكون هذا العنوان دال على محتوى الموضوع فغير ذلك من أكبر الكبائر في المنتدى وسيؤدي الى غلق او حذف موضوعك .
.
</
أخي الكريم غير text Propreties
في Text1
MultiLine =true
هذا هو المهم ولكنك قد تريد إضافة ScrollBars وهي أيضا من text Propreties
الأخ الفاضل ...
راجع: كيف افتح عدة مسارات في نفس الوقت
شكراً
تم تعديل هذه المشاركة بواسطة Eng. Usama El-Mokadem في 17 ديسمبر 2007 في 19:05
Nothing is impossible, the word impossible itself says that: I M - Possible
أخي الكريم غير text Propreties في Text1 MultiLine =true هذا هو المهم ولكنك قد تريد إضافة ScrollBars وهي أيضا من text Propreties
لا فائدة من هذه الطريقة
مشكووووور اخوي
احمد بروفسور
والكود شغال
تعديل بسيط لتجاوز الاخطاء:
cc1.filter ="text file|*.txt" cc1.showopen if cc1.filename <> "" then Open C11.FileName For Output As #1 Text1.Text = Input(LOF(1), 1) close #1 end if
تعديل الحفظ :
cc1.filter = "text file|*.txt" cc1.show save if cc1.filename <> "" then Open C11.FileName For Output As #1 Print #1, Text1.Text Close #1 end if
ارجو شرح ما طلبته في الرد السابق
تم تعديل هذه المشاركة بواسطة مبرمج مبتدا في 12 يونيو 2007 في 12:44
السلام عليكم
أهلا أخي
حسنا
خذ هذا المثال
Open FileFath For Input As #1 text1 = Input(LOF(1), 1) Close #1
بحيث FilePath هو مسار الملف كاملا
بخصوص #1
فإنه يسمى مقبض الملف(Handle) حتى يقوم بفتحه VB حاله كحال أي نافذة في الويندوز
بخصوص LOF(1),1
هذه دالة تقوم بقراءة الملف كاملا
فلو كتبت مثلا
text1=input(4,1)
فستلاحظ أنه قد كتب في مربع النص فقط الاربع حروف الاولى
بخصوص Input
فهي أيضا دالة تقوم بالحصول على ما يحتويه الملف
ففي هذا المثال الاخير سوف تقوم بكتابة الاربع الحروف الاولى أما في الاول فستقوم بكتابة الملف كاملا في مربع النص
بقي أمر وهو بالاهمية بمكان وهو الرقم 1 فإنه ليس بالضروري أن يكون واحد
قد يكون 1 أو أي عدد Long
والمهم في الامر أنه على هذا الرقم أن لا يكون مستعملا من طرف أي نافذة اخرى حتى لا تحصل
على الخطأ 55 File already open
لذلك يفضل استعمال
الدالة FreeFile
واستعمالها بسيط فقط تضعها في متغير وتغير ذلك 1 ب المتغير
مثال
Dim FF As inger FF = FreeFile Open FilePath For Input As FF Text1 = Input(LOF(FF), FF) Close #FF
وشيء آخر دائما استعمل Close
حتى تغلق مقبض الملف لان هناك بعض البرامج التي لا تفتح الملف إذا كان مفتوحا من طرف برنامجا آخر
والـــــــــــــــــــــــــــــــــــــسلام
آسف
اقتباسلا فائدة من هذه الطريقة
لم أنتبه إلى الكود
وكنت أظن أنك تريد ان تفتح الملف سطرا سطرا
إذا أردت أن يعمل الكرد بتاعك فقط أضف vbNewLine أو vbCrLf
بعد atext$ = atext$ & lineoftext$ & wrap$
ويصبح الكود هكذا ولكن لابد مما قلته من قبل
C11.Filter = "text file|*.txt" C11.ShowOpen Open C11.FileName For Input As #1 Do Until EOF(1) Line Input #1, lineoftext$ atext$ = atext$ & lineoftext$ & wrap$ & vbNewLine Loop Text1.Text = atext$
هذا الموضوع مغلق.