يصف المثال الموجود في هذه المقالة كيفية فتح ملفات txt وحفظها باستخدام VB. شاركها مع الجميع لتكون مرجعا لك. التفاصيل هي كما يلي:
خاص فرعي cmdsave_Click() خافت موقع الملف حيث يتم تحميل السلسلة كمربع commondialog1.ShowSave filelocation = commondialog1.FileName' يحفظ الملحق فوق الملف إذا كان يساعد في فتح موقع الملف لإلحاق باسم #1 طباعة #1، text1.text إغلاق #1End SubPrivate Sub cmdopen_Click () خافت تحديد موقع الملف كسلسلة، يُظهر المربع المفتوح commondialog1.ShowOpen filelocation = commondialog1.FileName input الملفات في text1.text فتح موقع الملف للإدخال باسم #1Do حتى EOF(1) الإدخال رقم 1، Data text1.text = text1.text + Data + vbNewLine EOF (1) حلقة إغلاق #1End Sub
آمل أن تكون هذه المقالة مفيدة لبرمجة VB للجميع.