+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [vb6.0] تحديد نهايه السطر في ملف نصي TXTFile (/showthread.php?tid=25827)
تحديد نهايه السطر في ملف نصي TXTFile - alfasla - 22-07-18
السلام عليكم
من فضلكم لدي سؤال كيف استطيع تحديد نهاية السطر في ملف نصي نوت باد
حيث اني اقرأ ملف معين من عدة اسطر بينهم فراغات واقوم بفك شفرة حروف معينه
ولكن النتيجه تظهر سطر واحد في الملف النصي المستحدث
اريد كود يحدد لي نهاية السطر بالضبط ؟
ولكم الشكر
RE: تحديد نهايه السطر في ملف نصي TXTFile - Ahmed_Mansoor - 22-07-18
وعليكم السلام ورحمة الله وبركاته
أهلا بك أخي الكريم , إستخدم هذا الكود لقراءة أسطر الملف النصي , وتحديد نهاية السطر :
PHP كود :
Dim F As Integer
Dim CurrentLine As String
F = FreeFile
DoEvents
Open App.Path & "\TestFile.txt" For Input As #F
DoEvents
While Not EOF(F)
Line Input #F, CurrentLine
DoEvents
'نص السطر يكون في هذا المتغير ونهاية السطر هي نهاية محتوى هذا المتغير
'CurrentLine
Wend
Close #F
DoEvents