سؤال عن استخدام الملفات النصية TXT

اكتب

open app.path + "\txt.txt" for input as #1"
text1.text = input (lof(1),1)
close #1

اقتباس

open app.path + "\txt.txt" for input as #1"

اسف امسح اخر حرف وهو "

وهذا مثال

انا افضل استخدم comman dialog

open_text.rar

للأسف يالغالي لم يكن هذا ما أردته بالضبط ..

الطرق كثيرة لفتح اي ملف نصي ..

ولكني هنا أبحث عن طريقة Resource Editor وأرفقت مثال يعني فقط ينقص الكود ..

دمتم في رعاية الله ..

UP

كالعادة لا اجابات على استفساراتي :( :( ..

انت مزعل نفسك ليه ؟؟

Text1.Text = StrConv(LoadResData(101, "CUSTOM"), vbUnicode)

السلام أخي الكريم،

إذا مستعجل على الإجابة، قم بزيارة هذا الموقع ولن تخيب بأذن الله

ارعص فيذا

فراس

لو كمان عايزها بطريقة تقليدية جداا بعيدا عن الدوال ..

 Dim b() As Byte, s As String
 b = LoadResData(101, "CUSTOM")
For i = 0 To UBound(b)
   s = s & Chr(b(i))
Next
Text1 = s

الله يجزاك خير يالغالي Pharaonic_Guy ..

بالفعل النتيجة ميه ميه :) ..

ولي سؤال بسيط ولا عليك امر اخوي في الكود الأول .

ما معنى StrConv و vbUnicode ؟

وهل استطيع ان اعدل على محتوى الملف المرفق بالـ Resource ? اذا فيه طريقة وطويلة بلاش منها :) ..

دمت في رعاية الله وحفظه ..

Feras Nasser :.

يالبى قلبك يالسديراوي :)

لي زيارة للموقع ان شاء الله بعد قليل ..

دمتم في رعاية الله ..

اقتباس

ولي سؤال بسيط ولا عليك امر اخوي في الكود الأول .

ما معنى StrConv و vbUnicode ؟

إذا لاحظت .. فإن دالة LoadResData تعود بـمصفوفة بايتات Byte Array وليس نص String ..

وبالتالي نريد تحويل تلك البايتات إلي نص .. وأسهل طريقة هي استخدام الدالة String Convert أو StrConv ..

فيمكن بواسطتها تحويل مصفوفة البايتات إلي نص بتمرير التابع VbUnicode إليها ..

---------------

اقتباس

وهل استطيع ان اعدل على محتوى الملف المرفق بالـ Resource ? اذا فيه طريقة وطويلة بلاش منها regular_smile.gif ..

حظك وحش .. بس مش قوي ..

انا لسه منزل فيستا دلوقت .. وفيه مشاكل في تثبيت فيجوال ستوديو ..

هحلها وسأري ما يمكنني فعله في هذا الأمر ..

اقتباس

وهل استطيع ان اعدل على محتوى الملف المرفق بالـ Resource ?

من خلال الفيجوال بيسك لا يمكنك التعديل على الملف النصي في (resource) بل يجب حذفه واضافته من جديد بنفس الرقم .

هذا الكلام اثناء التصميم فارجو انك لم تقصد التعديل برمجيا اثناء التشغيل :(

الله يعافيكم يا أخوان ..

أخوي Pharaonic_Guy .::

الله يجزاك خير يالغالي على متابعة الموضوع ..

يعافيك ربي ان شاء الله الامر وضح ان شاء الله ...

أخوي طارق بالفعل ما قصدته هو الرأي الثاني للأسف :)

أريد أثناء تشغيل البرنامج هل يمكن التعديل عليها ؟!

دمت في رعاية الله ....