الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيف أقوم بتجزئة ملف Notepad إلى عدة ملفات؟

بدأه mse07 في 19 أغسطس 2008 · 8 رد · 1,235 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

الأعضاء الكرام,

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

إذا كان لدي ملف Notepad يتكون على سبيل المثال على أكثر من مليون سطر أو سجل وأريد تقسيم هذا الملف على النحو التالي :

1- يكون كل 100 ألف سطر في ملف منفصل.

2- نسخ السطر الاول والاخير من الملف الاساسي ولصقها في جميع الملفات الفرعية.

3- ترك سطر فارغ في نهاية كل ملف.

مثال لشكل الملف: 

4442022222222222222222222222222222224 --- هذا السطر الاول ويجب ان يكون متواجد في جميع الملفات المجزئة---
1151546662879898989823232456456652323
1211254564564878121254878454542123131
1132154887874651321154587975468798781
6212321225545640000000000000000000000 --- هذا السطر الاخير ويجب ان يكون متواجد في جميع الملفات المجزئة---
--- هذا السطر الفارغ ويجب ان يكون متواجد في جميع الملفات المجزئة---

أما بالنسبة للاسطر الموجودة بين السطر الاول والاخير فهي مختلفة

الخلاصة اريد كل 100 الف سطر في ملف مع نسخ السطر الاول والاخير من الملف الاساسي وترك سطر فارغ في نهاية الملف.

أرجو المساعدة في إيجاد كود يقوم بأداء العملية المشروحة في الأعلى.

شكرا لكم مع تحياتي.

تم تعديل هذه المشاركة بواسطة mse07 في 19 أغسطس 2008 في 14:12

#2

يا اخوان اللي يقدر يفيدني لاني احتاج الى هذا البرنامج حاجة قصوى

#3

للرفع

#4
اقتباس
السطر الاول والاخير من الملف الاساسي

يعني اذا كان السطر الاول 1

في كل الملفات يكون اول سطر 1 ؟

او ماذا تقصد ؟

startingprogremmer.jpg
#5
مبرمج مبتدا كتب:
يعني اذا كان السطر الاول 1

في كل الملفات يكون اول سطر 1 ؟

او ماذا تقصد ؟

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

#6

هل تعرف الدالة split()

موقع البرنامج

مبارك لشعب تونس photo-thumb-42837.png

#8

بالنسبه للداله split() لم استخدمها من قبل

بالنسبة لحجم الملف يتكون من أكثر من مليون سطر بحجم أكبر من 80 ميجابايت.

بانتظاركم وشكرا لتفاعلكم.

#9

80 ميجا :S

لم أتعامل مع ملفات بهذا الحجم

لماذا لا تكون البينات داخل قاعدة بيانات أحسن

على العموم

لا أظن أن العملية ستكون سهلة مع هذا الكم :)

 

[color= #800000;]Open [color= #ff0000;]"c:1.txt" [color= #800000;]For [color= #800000;]Input [color= #800000;]As #[color= #cc66cc;]1

[color= #800000;]Do Until [color= #800000;]EOF[color= #66cc66;]([color= #cc66cc;]1[color= #66cc66;])

    [color= #800000;]Line [color= #800000;]Input #[color= #cc66cc;]1, LineText

    LineNo = LineNo + [color= #cc66cc;]1

    [color= #800000;]If LineNo = [color= #cc66cc;]1 [color= #800000;]Then FirstLine = LineText

    [color= #800000;]DoEvents

[color= #800000;]Loop

LastLine = LineText

EmptyLine = [color= #ff0000;]""

[color= #800000;]Close [color= #cc66cc;]1

في الكود السابق قمنا بفتح ملف 1.txt وقمنا بقراءة :

السطر الأول مخزن في FirstLine

السطر الأخير مخزن في LastLine

مجموع عدد أسطر الملف LineNo

سطر فارغ EmptyLine

لكي تنشئ ملفات استعمل طريقة الفتح للكتابة

[color= #800000;]Open [color= #ff0000;]"c:created.txt" [color= #800000;]For Output [color= #800000;]As #[color= #cc66cc;]1

نكتب باستعمال 

[color= #800000;]Print #[color= #cc66cc;]1, LineText

هذه الدوال التي تحتاجه لعمل اللازم

kuwhost-du3at_06.gif

مواضيع مشابهة