تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مساعدة في كود يقوم بانشاء ملف txt
#1
السلام عليكم
اخواني العزاء
اريد كود ان اضعه في التايمر ويقوم بانشاء txt ومن ثم يقوم بحفط كل ما يظهر بالتكست بوكس تلقائيا في الملف txt الذي انشاءه
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم
اخ 3ssam
ارجو ان يكون هذا هو طلبك
إقتباس :Userfile = FileName
Open Userfile For Input As #1
txtFile.Text = Input(LOF(1), 1)
txtFile.Refresh
Close #1
------------------------
علما بان البرنامج يعمل على الحفظ وليس اضافة الى الملف
وان txtFile اسم صندوق النص تستطيع استبدالها باسم اداة النص التي عندك
وان FileName يجب ان تضع فيه اسم الملف كامل مع الامتداد txt
^_*
الرد }}}}
تم الشكر بواسطة:
#3
شكرا اخي محمود اكرم
ولكن انا طلبي كود يقوم بانشاء ملف تكست ويقوم بحفظ كل ما يظهر داخل التكست بوكس تلقائي بدون ما انا اعمل ملف واضيف اسمه
الرد }}}}
تم الشكر بواسطة:
#4
3ssam كتب :شكرا اخي محمود اكرم
ولكن انا طلبي كود يقوم بانشاء ملف تكست ويقوم بحفظ كل ما يظهر داخل التكست بوكس تلقائي بدون ما انا اعمل ملف واضيف اسمه
تقصد انه فتح الملف تلقائي وحفظه
الرد }}}}
تم الشكر بواسطة:
#5
اخ محمود اقصد يتم انشاءه ويتم الحفظ بداخله
الرد }}}}
تم الشكر بواسطة:
#6
السلام عليكم
اخ عزام اذا كان هذا طلبك فانصح بدل ان تستخدم عملية التايمر استخدم حدث تحميل البرنامج وعملية اغلاق البرنامج

إقتباس :dim Userfile as String
Private Sub Form_Load()
Userfile = "اسم الملف بالامتداد كامل"
Open Userfile For Input As #1
TextBox.Text = Input(LOF(1), 1)
TextBox1.Refresh
Close #1
End Sub


Private Sub Form_Unload(Cancel As Integer)
Cancel = true


Dim a = MsgBox("هل تريد حفظ التغييرات على الملف", vbYesNoCancel)
If a = vbYes Then
Open Userfile For Output As #2
Print #2, TextBox1.Text
Close #2


ElseIf a = vbNo Then
End
ElseIf a = vbCancel Then
Cancel =false
End If
End Sub


عند تحميل البرنامج يتم عملية تحميل النص من الملف النصي
وعند الاغلاق تتم عملية الاغلاق بعد التأكد ان اردت الحفظ ام لا
_______________________
ارجو ان يكون هذا طلبك
^_*
الرد }}}}
تم الشكر بواسطة:
#7
السلام عليكم

اذا وضعت الكود في Timer سوف يكرر الحروف والكلمات

جرب التالي

حيث سيتم انشاء المستند في ملف البرنامج وسيتم نقل الكتابة من الــ Text الي المستند عند اكتمال الكتابة وغياب التركيز عن الــ Text

PHP كود :
Private Sub Text1_GotFocus()
Text1.Text ""
End Sub

Private Sub Text1_LostFocus()
Open (App.Path "\File.txt") For Append As #1
Print #1, Text1.Text
Close
End Sub 

بالتوفيق .
الرد }}}}
تم الشكر بواسطة:
#8
اخ ALBRNS
هذه الدالة Append تضيف ما يوجد في صندوق النص الى الملف
والاخ
3ssam
يريد فتح الملف لذا سيتم تكرار ما يوجد في النص الى الملف جرب بنفسك
ALBRNS كتب :السلام عليكم

اذا وضعت الكود في Timer سوف يكرر الحروف والكلمات

جرب التالي

حيث سيتم انشاء المستند في ملف البرنامج وسيتم نقل الكتابة من الــ Text الي المستند عند اكتمال الكتابة وغياب التركيز عن الــ Text

PHP كود :
Private Sub Text1_GotFocus()
Text1.Text ""
End Sub

Private Sub Text1_LostFocus()
Open (App.Path "\File.txt") For Append As #1
Print #1, Text1.Text
Close
End Sub 

بالتوفيق .
الرد }}}}
تم الشكر بواسطة:
#9
السلام عليكم

اخي محمود اعتقد انه يريد انشاء مستند وحفظ ما يكتب في الـــ Text في هذا المستند

وان كان غير دالك ارجو التوضيح

بالتوفيق .
الرد }}}}
تم الشكر بواسطة:
#10
السلام عليكم
اخ albrns

مالمشكلة في الكود الذي كتبته في المشاركة 6
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Rainbow [سؤال] مساعدة لعمل برنامج حضور وانصراف+وقاعدة بيانات+ربط بالوورد لسهولة طباعة بعض الفورمز فاطمة غ 8 169 01-12-16, 06:37 PM
آخر رد: Amir_alzubidy
  [سؤال] مساعدة في كتابة كود الزر تخزين مزنة 9 197 28-11-16, 12:44 PM
آخر رد: مزنة
  احتاج مساعدة في الفيجوال بيسك lena114 0 173 25-03-16, 02:50 PM
آخر رد: lena114
  [سؤال] طلب مساعدة iraq_moon 4 233 22-03-16, 07:00 PM
آخر رد: محمد العبيدي
  مساعدة : كود لنسخ قاعد البيانات استرجاعها محمد2015 10 901 21-01-16, 01:56 AM
آخر رد: awidan76
  [سؤال] مساعدة في مشروع تسجيل الحضور و الانصراف MarwanMohammed 1 209 19-01-16, 09:02 PM
آخر رد: VB_Local
Lightbulb [سؤال] طلب مساعدة من المختصين chaabane 2 219 02-10-15, 03:07 AM
آخر رد: chaabane
  [سؤال] احتاج مساعدة في متصفحي ابن الجزائر 2 311 16-09-15, 09:16 PM
آخر رد: ابن الجزائر
  مساعدة : كود لتصفير حقل في جدول محمد2015 5 526 16-05-15, 01:45 AM
آخر رد: Ahmed_Mansoor
  [vb6.0] مساعدة في كود محمد الشمري 1 324 16-02-15, 09:32 PM
آخر رد: محمد العبيدي

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


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