مشكلة فى تحويل التقرير الى الصيغة text

[elfarok]

السلام عليكم ورحمة الله وبركاته 
لو سمح استاذتى الكرام انا عندى مشكلة 
انا طلب منى عمل تقرير بشكل غريب شوية (سيظهر فى الصور المرفقة مع الموضوع ) وطلب منى ايضا انا احوله الى صيغة text والحمد الله نجحت فى كل هذا ولكن المشكلة ظهرت انه عند تحويله الى صيغة تكست يختلف التنسيق وتتبدل المسافات بين الاسطر ( كما يظهر ايضا فى الصور ) 
السؤال : ما السبب فى وهذا ومالعلاج ؟

ولكم جزيل الشكر

[أبو عبدالله الحلوانى]

هل تسمح لنا بمثال لنستطيع التعديل عليه ورؤية المشكلة عن قرب

[jjafferr]

3 ساعات مضت, elfarok said:

السؤال : ما السبب فى وهذا ومالعلاج ؟

 

 

وعليكم السلام  

 

السبب ظاهرا ، ان الاسطر الاطول ، اضافت vbcrlf او vblf (يعني انتقل للسطر التالي) في نهاية كل سطر 

العلاج ، احد اهم طرق العلاج ، هو معرفة السبب ، والذي هو في برنامجك ، ومثل ما قال اخي ابوعبدالله ، محتاجين نشوف برنامجك 

بينما ، اذا تركنا كل شئ كما هو ، واحنا نعرف اسم ومسار الملف ، فممكن نضع الكود التالي ، بعد عملية تصدير txt (طبعا لازم تغير اسماء الملفات ومسارهم) :

Private Sub cmd_Clean_Click()

    File_From = Application.CurrentProject.Path & "\377.txt"
    File_To = Application.CurrentProject.Path & "\377_2.txt"
    
    Dim TextLine
    
    Open File_From For Input As #1  'open file for input
    Open File_To For Output As #2   'open file for output
    
    Do While Not EOF(1)             'Loop until end of file.
        Line Input #1, TextLine     'Read a line into variable.
        
            If Len(TextLine) > 5 Then   'if the line is NOT empty, write it to File_To
                Print #2, TextLine
            End If
           
    Loop
    
    Close #1                        'Close file.
    Close #2
    
    
End Sub

 

ومثل ما قال ابوعبدالله: (ويادار ما دخلك شر)

 

جعفر

[elfarok]

جزاكم الله خير على المرور الكريم وعلى التجاوب وان شاء الله هذا هو المرفق فيه التقرير باسم empdataa 

تحويل التقرير لتكست.rar

[jjafferr]

وعليكم السلام 

 

استخدم النموذج Form1 لطباعة التقرير ،

وكود الطباعة:

Private Sub cmd_Clean_Click()

    File_From = Application.CurrentProject.Path & "\377.txt"
    
    DoCmd.OutputTo acOutputReport, "rpt_EMPDATAA", acFormatTXT, File_From, False

    File_To = Application.CurrentProject.Path & "\377_2.txt"
    
    Dim TextLine
    
    Open File_From For Input As #1  'open file for input
    Open File_To For Output As #2   'open file for output
    
    Do While Not EOF(1)             'Loop until end of file.
        Line Input #1, TextLine     'Read a line into variable.
        
            If Len(TextLine) > 5 Then   'if the line is NOT empty, write it to File_To
                Print #2, TextLine
            End If
           
    Loop
    
    Close #1                        'Close file.
    Close #2
    
    MsgBox "Done"
End Sub

 

جعفر

377.تحويل التقرير لتكست.accdb.zip

[elfarok]

الاخ جعفر انا شاكر جدا لمجهودك واهتمامك لكن للاسف المشكلة لم تحل كما فى الصورة

[jjafferr]

الملف الصحيح هو الملف الآخر الذي يتم انتاجه ، و الموجود في نفس المجلد:

 

377_2.txt

[elfarok]

ما هو ده ملف text_377

[أبو عبدالله الحلوانى]

6 ساعات مضت, jjafferr said:

377_2.txt

 

6 ساعات مضت, elfarok said:

ما هو ده ملف text_377

[elfarok]

7 ساعات مضت, أبو عبدالله الحلوانى said:

 

لك حق تضحك انا فعلا طلعت غلطان هو text2_7

 

13 ساعات مضت, jjafferr said:

الملف الصحيح هو الملف الآخر الذي يتم انتاجه ، و الموجود في نفس المجلد:

 

377_2.txt

انا اسف يا اخ جعفر كلامك صحيح وضبطت 
بس ممكن طلب بسيط الله يكرمك 
ممكن اعمل اختصار على التقرير بدل زر الامر يعنى اعمل كلك يمين على التقرير يظهر قايمة فيها امر تحويل التقرير لتكست

[أبو عبدالله الحلوانى]

14 ساعات مضت, elfarok said:

لك حق تضحك انا فعلا طلعت غلطان هو text2_7

عفوا يا أخى هذا الوجه لم أعنى به الضحك وانما انظر للأعلى فقط