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

الكتابه داخل ملف ورد

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

لو سمحتم يا اخواني انا عملت برنامج يقرأ بيانات من ملف وورد او نوت باد مخزن عندي بس الان عايز اعمل برنامج اني لما اكتب في اكتر من تكست لما ادوس convert يحط كل اللي مكتوب في التكست داخل ملف وورد او نوت باد مخزن عندي

سامحوني اكتر من مره اطلب نفس الطلب بس مش عارف ليه اول ما اعتمد المشاركه بلاقي طلبي اختفى

اتمنى تساعدوني

#2

السلام عليكم ..............

فلنفترض أن ملف النوت باد في Text1

وأن لدينا 3 مربعات نصوص نريد وضعها في Text1 سيكون الكود كالتالي :-

Text1.Text = Text2.Text & Text3.Text & Text4.Text

ولو كنت تريد أن تفصلهما بفاصلة فهذا هو الكود :

 Text1.Text = Text2.Text & "،" & Text3.Text  & "،" &Text4.Text

مع إستبدال الفاصلة بأي رمز تريده :happy:

رجعت ومازال الفريق خاملاَ  :( 


 


abPuw.1.gif

#3

هذا سيقوم بإستبدال المكتوب في الملف النصي بما هو مكتوب داخل الـ Text1 و Text2

FF = FreeFile
Open App.Path & "\TextFile.txt" For Output As FF
	Print #FF, Text1.Text
	Print #FF, Text2.Text
Close FF

اما إذا كنت تريد الإضافة على ما هو مكتوب داخل الملف النصي فقم بإستبدال المصطلح Output بـ Append

It does not matter what they know about you, but what you can do, so let your work speak of you

mmghv VB6 Programmer

#4
bahbah كتب:

السلام عليكم ..............

فلنفترض أن ملف النوت باد في Text1

وأن لدينا 3 مربعات نصوص نريد وضعها في Text1 سيكون الكود كالتالي :-

Text1.Text = Text2.Text & Text3.Text & Text4.Text

ولو كنت تريد أن تفصلهما بفاصلة فهذا هو الكود :

 Text1.Text = Text2.Text & "،" & Text3.Text  & "،" &Text4.Text

مع إستبدال الفاصلة بأي رمز تريده :happy:

شكرا على اهتمامك بس للاسف مفهمتش قصدك ايه بجملة (فلنفترض ان النوت باد في text1)

ايه الكود اللي هيساعدني اني افتح ملف فاضي اعبي فيه الداتا بتاعتي

وازاي هتتعبى في سطر واحد

شكرا ليك تاني مره بس اتمنى مساعدتك

محمد مصطفي غريب كتب:

هذا سيقوم بإستبدال المكتوب في الملف النصي بما هو مكتوب داخل الـ Text1 و Text2

FF = FreeFile
Open App.Path & "\TextFile.txt" For Output As FF
	Print #FF, Text1.Text
	Print #FF, Text2.Text
Close FF

اما إذا كنت تريد الإضافة على ما هو مكتوب داخل الملف النصي فقم بإستبدال المصطلح Output بـ Append

استاذ مصطفى شكرا ليك بس مش عارف ليه مظبطش معايا

#5
اقتباس
لو سمحتم يا اخواني انا عملت برنامج يقرأ بيانات من ملف وورد او نوت باد

على هذا الاساس رد عليك اخونا bahbah

على العموم في المرفقات مثال لقراءة وكتابة البيانات الى ملف نصي ..

TextReader.rar

It does not matter what they know about you, but what you can do, so let your work speak of you

mmghv VB6 Programmer

#6
اقتباس
شكرا على اهتمامك بس للاسف مفهمتش قصدك ايه بجملة (فلنفترض ان النوت باد في text1)

ايه الكود اللي هيساعدني اني افتح ملف فاضي اعبي فيه الداتا بتاعتي

وازاي هتتعبى في سطر واحد

شكرا ليك تاني مره بس اتمنى مساعدتك

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

على هذا الاساس رد عليك اخونا bahbah

على العموم في المرفقات مثال لقراءة وكتابة البيانات الى ملف نصي ..

أنت قلت أنك عملت البرنامج يقرأ ملفات الوورد والنوتباد وكان طلبك أنك تريد جمع جميع النصوص في مربعات النصوص

الآخرى في مربع نص ملف النوتباد أو الوورد

أتمنى وضحت ليك فكرة الكود :happy:

رجعت ومازال الفريق خاملاَ  :( 


 


abPuw.1.gif

#7
bahbah كتب:

أنت قلت أنك عملت البرنامج يقرأ ملفات الوورد والنوتباد وكان طلبك أنك تريد جمع جميع النصوص في مربعات النصوص

الآخرى في مربع نص ملف النوتباد أو الوورد

أتمنى وضحت ليك فكرة الكود :happy:

يا اخ bahbah

حضرتك فهمتني غلط

انا قولت اني نجحت اربط الملف اللي جواه الداتا بتاعتي بالفيجوال بمعنى ادق خليت الفيجوال يقرأ اللي داخل ملف الوورد

اما طلبي كان العكس

اني عندي ملف وورد فاضي وعايز انا اللي اغبيه عن طريق الفيجوال

اتمنى تكون الفكره وضحت

وعلى العموم يكفي اهتمامك بالموضوع وعلى فكره انا وصلتت للحل وهو كالاتي

FileName = "\out file\osamafile.txt"

osamafile.Open FileName, fsModeAppend

Vstr = Text1.Text & "," & Text2.Text & "," & Text3.Text & "," & Text4.Text & "," & Text5.Text

Me.osamafile.LinePrint Vstr

حبيت اعرضه للاستفاده وشكرا كمان للاخ مصطفى

اللي انا عايزه دلوقتي بعد اذنكو

ازاي اتحكم في شكل ملف الوورد

يعني عايز اعمله هيدلاين في النص فوق و بعدين يعرض الداتا تحتيه وكده

بس بدون استخدام برنامج الكريستال ريبورت

#8
اقتباس
يا اخ bahbah

حضرتك فهمتني غلط

انا قولت اني نجحت اربط الملف اللي جواه الداتا بتاعتي بالفيجوال بمعنى ادق خليت الفيجوال يقرأ اللي داخل ملف الوورد

اما طلبي كان العكس

اني عندي ملف وورد فاضي وعايز انا اللي اغبيه عن طريق الفيجوال

اتمنى تكون الفكره وضحت

وعلى العموم يكفي اهتمامك بالموضوع وعلى فكره انا وصلتت للحل وهو كالاتي

لم توضح ذلك أخي وعلى العموم حبيت أساعد فقط لا أكثر :happy: ، ولو كان هناك شئ جديد لأتعلمه :cool:

اقتباس
اللي انا عايزه دلوقتي بعد اذنكو

ازاي اتحكم في شكل ملف الوورد

يعني عايز اعمله هيدلاين في النص فوق و بعدين يعرض الداتا تحتيه وكده

بس بدون استخدام برنامج الكريستال ريبورت

ممكن توضح :sad:

رجعت ومازال الفريق خاملاَ  :( 


 


abPuw.1.gif

#9
bahbah كتب:

لم توضح ذلك أخي وعلى العموم حبيت أساعد فقط لا أكثر :happy: ، ولو كان هناك شئ جديد لأتعلمه :cool:

ممكن توضح :sad:

ولا يهمك احنا هنا للاستفاده من بعض

بالنسبه لطلبي التاني

انا عايز اعمل زي ريبورت يكون له عنوان فوق وبعدين اعرض تحت هذا العنوان بعض الداتا اللي في الفيجوال اللي انا دخلتها بس بدون استخدام الكريستال ريبورت

يعني اقسم الصفحه واعرضها زي ما انا عايز

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