يصف مثال هذه المقالة طريقة VB لقراءة الملفات النصية سطرًا بسطر. شاركها مع الجميع لتكون مرجعا لك. التفاصيل هي كما يلي:
'(إعلان عام) Dim nFileNum As Integer، sText As String، sNextLine As String، lLineCount As Long'==================== ====== أمر فرعي خاص 1_انقر ()' احصل على رقم ملف مجانيnFileNum = FreeFile' افتح ملفًا نصيًا للإدخال يقوم بإرجاع المسار لقراءة الملففتح "C:/Documents and Settings/Sudeep/My Documents/3.txt" للإدخال كـ nFileNumlLineCount = 1' اقرأ محتويات الملف أثناء عدم إدخال سطر EOF(nFileNum) #nFileNum، sNextLine 'افعل شيئًا به' وأضف أرقام الأسطر إليه، في هذه الحالة! sNextLine = sNextLine & vbCrLf sText = sText & sNextLineLoopText1.Text = sText' أغلق الملف أغلق nFileNumEnd Sub
آمل أن تكون هذه المقالة مفيدة لبرمجة VB للجميع.