استخراج معطيات من ملف نصي مع احتساب المجموع

[أبو عبد النور]

السلام عليكم،

 

هل من طريقة للقيام باستخراج معطيات من ملف نصي وترتيبها في ورقة اكسل حسب الملف المرفق ؟

 

ملف Source النصي يحوي على طريقتين لتنظيم المعلومات.

 

ملف SR_v1 يحوي الجدول الواجب ملؤه انطلاقا من الملف النصي مع حساب المجموع.

 

ملحوظة :

 

الحقل Occup في ورقة الاكسل هو عبارة عن مجموع قيم كل العناصر التالية :

 

Occup = RDE + RDI + HS-CF + HS-SI + OCCUP

 

الحقل Disponible :

 

Disponible = DISPO

 

شكرا جزيلاً.

Source.zip

SR_v1.rar

تم تعديل مارس 14, 2013 بواسطه apt

[أبو عبد النور]

هل من شيئ مبهم يستحق التوضيح ؟

[أبو عبد النور]

أكثر من 31 قراءة ولا أعلم إن كان أحد الاساتذة أو الاعضاء يعكف حاليا على ايجاد الحل ؟

[أبو حنــــين]

أخي الكريم

استطيع ادراج محتويات الملفين في الاكسل كل سطر في خلية بالترتيب الموجود في الملفين النصيين

لكن مشكلة الجمع حسب علمي فيها نوع من الصعوبة لوجود جمل و ارقام و مسافات فارغة في نفس السطر

والله اعلم

لماذا لا تجعل محتوى الملفين النصيين في ورقة اكسل ليكون الامر اسهل

[احمدزمان]

السلام عليكم و رحمة الله وبركاته

 

كما ذكر رجل الأكواد الصعبة

الأخ الحبيب ابو نصار

 

يجب جلب البيانات الى نفس الملف

و التعامل معها سواء بالكود او الدوال

 

اذا كانت المشكلة في جلب البيانات

اذا

ممكن نستخدم خاصية جلب البيانات الخارجية الموجودة في الإكسل

و الموجود في قائمة بيانات

 

والذي يمثله الكود التالي

 

Sub Macro1()
    Range("H8").Select
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;C:\Users\Aymz077\Desktop\test2.txt", Destination:=Range("$H$8"))
        .Name = "test2"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 720
        .TextFileStartRow = 1
        .TextFileParseType = xlFixedWidth
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1)
        .TextFileFixedColumnWidths = Array(6, 6, 5)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
End Sub

وهذا الكود يحتاج الى تعديل المسار و المجلد ومكان وضع البيانات

 

تحياتي وتقديري

[أبو عبد النور]

أهلا بأخوي ابو حنين واحمد زمان.

 

شكرا على الكود ولكنني تمكنت من جلب محتوى الملف النصي الى ورقة الاكسل بواسطة الماكرو1 بالنسبة للملف الاول والماكرو2 بالنسبة للملف الثاني :

 

 

 

 
Sub Macro1()'' Macro1 Macro'
'    Workbooks.OpenText 
Filename:="C:\Excel\test\test1.txt", Origin:=xlMSDOS, 
_                       
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, 
_                       
ConsecutiveDelimiter:=True, Tab:=False, Semicolon:=False, Comma:=False 
_                     
, Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array 
_                                                                                             
(3, 1), Array(4, 1)), TrailingMinusNumbers:=True    End 
Sub
 

 

 

 

 

 
Sub Macro2()'' Macro2 
Macro'    Workbooks.OpenText 
Filename:="C:\Excel\test\test2.txt", Origin:=xlMSDOS, 
_                       
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, 
_                       
ConsecutiveDelimiter:=True, Tab:=False, Semicolon:=False, Comma:=False 
_                     
, Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array 
_                                                                                             
(3, 1), Array(4, 1), Array(5, 1)), TrailingMinusNumbers:=True End 
Sub
 

 

ولكن يقي مسح كل السطور وجلب البيانات وحسابها.

 

الملفان الناتجان في المرفق.

 

شكراً.

 

 

 

 

 

 

 

 

 

test1.rar

test2.rar

[أبو حنــــين]

السلام عليكم

هذا المثال لجلب البيانات من ملف نصي

مثال.rar

[أبو حنــــين]

المعذرة لم أرى  المرفق الذي ارسلته في مشاركتك رقم 6

سأفحصه و أرد عليك

[احمدزمان]

اخي ابو حنين

سامحنا

ابو حنين او ابو نصار

كلكم عينين في راس

[أبو حنــــين]

 

 

 

اخي أحمد زمان

اخونا الحبيب أبو نصار الغائب علينا هذه الفترة له معزة في قلوبنا و كلنا اخوة ان شاء الله

جزاك الله خيرا على هذا الاستدراك الذي يوحي بمدى طيبتكم و كرم خلقكم

تقبل تحياتي و تقديري

تم تعديل مارس 16, 2013 بواسطه أبو حنين

[احمدزمان]

جزاك الله كل خير ابوحنين

الله لايحرمك من حنين ولا يحرمنا من حنيتك

[أبو عبد النور]

السلام عليكم،

 

هذه فكرة كنت أعمل عليها وتوصلت من خلالها الى حل.

 

وتقضي بقراءة الملف النصي سطرا بسطر ومعالجة المعلومات وحسابها.

 

أرجو ان ينتفع بها إخواننا واي خطأ أو نقص ارجو ابلاغي به.

 

وكل هذا في انتظار حل اخينا ابو حنين ومعالحة المعطيات من خلال ورقة الاكسل وليس من خلال الملف النصي.

 

شكراً.

استخراج معطيات نصية ومعالجتها حسابيا_ن2.rar

تم تعديل مارس 21, 2013 بواسطه apt

[أبو حنــــين]

عمل ممتاز أخي  apt

جزاك الله خيرا

حفظكم الله ورعاكم

[أبو عبد النور]

بارك الله فيك أخي ابو حنين على  المرور والمتتابعة والتشجيع.

 

وننتظر ان نرى ما توصلت اليه من حل في هذا الموضوع.

[أبو عبد النور]

السلام عليكم،

 

هل من جديد أخي ابو حنين ؟