تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] تحديد نهايه السطر في ملف نصي TXTFile
#1
السلام عليكم 
 من فضلكم لدي سؤال كيف استطيع تحديد نهاية السطر في ملف نصي نوت باد
حيث اني اقرأ ملف معين  من عدة اسطر بينهم فراغات واقوم بفك شفرة حروف معينه 
ولكن النتيجه تظهر سطر واحد في الملف النصي المستحدث 
اريد كود يحدد لي نهاية السطر بالضبط ؟
ولكم الشكر
الرد }}
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته

أهلا بك أخي الكريم , إستخدم هذا الكود لقراءة أسطر الملف النصي , وتحديد نهاية السطر :

PHP كود :
Dim F As Integer
Dim CurrentLine 
As String

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 
كود :
For Each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
الرد }}



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم