سؤال في العمليات على ملف نصي(المفكره)

مغلق

بدأه Arab Organ في 24 أبريل 2007 · 6 رد · 550 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات

#124 أبريل 2007 في 19:43 صاحب الموضوع

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

اخواني: اريد كود ينقل لي بيانات موجوده في مربع نص ويحفضها في الامتداد الافتراضي للبرنامج مثل الكود هذا :

Private Sub Command1_Click()
open "c:\FileName.txt" for append as #1
Print #1,"Willkommen auf die Erde"
Close #1
End Sub

المشكله في هذا الكود انه ينشأ الملف النصي في السي .. انا اريده في امتداد البر نامج بتاعي...

الطلب الثاني :

اريد من كود يسترد البيانات داخل النص الذي انشأ في الامتداد الافتراضي لبرنامجي كامله ... ووضعها في تكست...

تفضلا منكم لا أمراَ

شكرا :)

مطلوب برنامج للبيع

هل لديك برنامج للبيع.نحن هنا لنساعدك

امازون العرب

مالفائدة اذا لم تسوق برامجك

#224 أبريل 2007 في 19:50

أستعمل App,Path للحصول على مسار الملف الحالى :

Dim AFP As String
AFP = App.Path
If Right$ (AFP , 1) <> "\" Then AFP = AFP & "\"

دلوقتى AFP تحتوى على مسار البرنامج

الجزء الثانى :

Dim FF As Integer
FF = FreeFile()

Open FilePath For Input As #FF
	txtContents.Text = Input$(LOF(1), #FF)
Close #FF

على أساس أن FilePath هو String يحتوى على مسار الملف و txtContents هو Textbox

ملحوظة أستخدم :

Dim FF As Integer
FF = FreeFile()

ثم FF بدل الأرقام لتفادى المشاكل.

إقرأ معى:

----

المثقفون العرب .. المزورون العرب: تأبين محمود درويش نموذجا

ماذا خسر العالم بانحطاط المسلمين ؟!! للعلامه: أبو الحسن الندوى (كتاب هام لكل مسلم).

المنهجية ومقدمات في الطلب (لطلاب العلم الشرعى)

#324 أبريل 2007 في 19:55

بسم الله الرحمن الرحيم

يا أخي أستعمل أداة Rich text box هذة الاداة أحسن بكثير من Text box .

هذا كود حفظ البيانات عن طريق هذه الاداة :

وهذا كود جلب البيانات منها :

 Rich text box1.savefile "E:\filename.txt"

Rich text box1.loadfile "E:\filename.txt"

وانا حاضر لأي استفسار بخصوص هذا الشأن

#424 أبريل 2007 في 19:59

اخي msayed2004 لاأعرف بماذا اكافئك غير اني اوعدك بدعوة لك بضهر الغيب ... فلم تتردد يوم عن مساعدة اعضاء المنتدى

اخي msayed2004 اعتقد الكود في الاعلى خاص باسترداد البيانات من الملف النصي ...

طيب اريد طريقة اشاء ملف نصي ونقل بيانات اليه ( هذا في الشطر الاول من سؤالي) ووضعه في الملف الافتراضي لبرنامجي تلقائياً

وشكراً

مطلوب برنامج للبيع

هل لديك برنامج للبيع.نحن هنا لنساعدك

امازون العرب

مالفائدة اذا لم تسوق برامجك

#524 أبريل 2007 في 20:06

تقصد ايه بوضعه بالملف الأفتراضى.

و بعدين الطريقة دى ليست حكر على الملفات النصية ممكن تكتب بيها أى ملف طالما أنك كتبت بالفورمات الصحية للملف و تعطيه أمتداد مناسب ( بس هنا ممكن يكون التعامل بالـ Binary أفضلأ )

للأخ mohammed abdulziz أستخدام الأداة دى هيخليه مجبر يحطها مع برنامج و يتأكد من وجودها بالنظام أولا و بعدين لو هو محتاج أداه بسيطة يبقى نبعد عن التعقيدات أحسن و لا رأيك ايه ؟

إقرأ معى:

----

المثقفون العرب .. المزورون العرب: تأبين محمود درويش نموذجا

ماذا خسر العالم بانحطاط المسلمين ؟!! للعلامه: أبو الحسن الندوى (كتاب هام لكل مسلم).

المنهجية ومقدمات في الطلب (لطلاب العلم الشرعى)