لو سمحتم يا اخواني انا عملت برنامج يقرأ بيانات من ملف وورد او نوت باد مخزن عندي بس الان عايز اعمل برنامج اني لما اكتب في اكتر من تكست لما ادوس convert يحط كل اللي مكتوب في التكست داخل ملف وورد او نوت باد مخزن عندي
سامحوني اكتر من مره اطلب نفس الطلب بس مش عارف ليه اول ما اعتمد المشاركه بلاقي طلبي اختفى
اتمنى تساعدوني
السلام عليكم ..............
فلنفترض أن ملف النوت باد في Text1
وأن لدينا 3 مربعات نصوص نريد وضعها في Text1 سيكون الكود كالتالي :-
Text1.Text = Text2.Text & Text3.Text & Text4.Text
ولو كنت تريد أن تفصلهما بفاصلة فهذا هو الكود :
Text1.Text = Text2.Text & "،" & Text3.Text & "،" &Text4.Text
مع إستبدال الفاصلة بأي رمز تريده :happy:
رجعت ومازال الفريق خاملاَ :(
هذا سيقوم بإستبدال المكتوب في الملف النصي بما هو مكتوب داخل الـ 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
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
استاذ مصطفى شكرا ليك بس مش عارف ليه مظبطش معايا
اقتباسلو سمحتم يا اخواني انا عملت برنامج يقرأ بيانات من ملف وورد او نوت باد
على هذا الاساس رد عليك اخونا bahbah
على العموم في المرفقات مثال لقراءة وكتابة البيانات الى ملف نصي ..
It does not matter what they know about you, but what you can do, so let your work speak of you
mmghv VB6 Programmer
اقتباسشكرا على اهتمامك بس للاسف مفهمتش قصدك ايه بجملة (فلنفترض ان النوت باد في text1)ايه الكود اللي هيساعدني اني افتح ملف فاضي اعبي فيه الداتا بتاعتي
وازاي هتتعبى في سطر واحد
شكرا ليك تاني مره بس اتمنى مساعدتك
اقتباسكما قال الأخ محمد مصطفي غريباقتباسلو سمحتم يا اخواني انا عملت برنامج يقرأ بيانات من ملف وورد او نوت بادعلى هذا الاساس رد عليك اخونا bahbah
على العموم في المرفقات مثال لقراءة وكتابة البيانات الى ملف نصي ..
أنت قلت أنك عملت البرنامج يقرأ ملفات الوورد والنوتباد وكان طلبك أنك تريد جمع جميع النصوص في مربعات النصوص
الآخرى في مربع نص ملف النوتباد أو الوورد
أتمنى وضحت ليك فكرة الكود :happy:
رجعت ومازال الفريق خاملاَ :(
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
حبيت اعرضه للاستفاده وشكرا كمان للاخ مصطفى
اللي انا عايزه دلوقتي بعد اذنكو
ازاي اتحكم في شكل ملف الوورد
يعني عايز اعمله هيدلاين في النص فوق و بعدين يعرض الداتا تحتيه وكده
بس بدون استخدام برنامج الكريستال ريبورت
اقتباسيا اخ bahbahحضرتك فهمتني غلط
انا قولت اني نجحت اربط الملف اللي جواه الداتا بتاعتي بالفيجوال بمعنى ادق خليت الفيجوال يقرأ اللي داخل ملف الوورد
اما طلبي كان العكس
اني عندي ملف وورد فاضي وعايز انا اللي اغبيه عن طريق الفيجوال
اتمنى تكون الفكره وضحت
وعلى العموم يكفي اهتمامك بالموضوع وعلى فكره انا وصلتت للحل وهو كالاتي
لم توضح ذلك أخي وعلى العموم حبيت أساعد فقط لا أكثر :happy: ، ولو كان هناك شئ جديد لأتعلمه :cool:
اقتباساللي انا عايزه دلوقتي بعد اذنكوازاي اتحكم في شكل ملف الوورد
يعني عايز اعمله هيدلاين في النص فوق و بعدين يعرض الداتا تحتيه وكده
بس بدون استخدام برنامج الكريستال ريبورت
ممكن توضح :sad:
رجعت ومازال الفريق خاملاَ :(
bahbah كتب:لم توضح ذلك أخي وعلى العموم حبيت أساعد فقط لا أكثر :happy: ، ولو كان هناك شئ جديد لأتعلمه :cool:
ممكن توضح :sad:
ولا يهمك احنا هنا للاستفاده من بعض
بالنسبه لطلبي التاني
انا عايز اعمل زي ريبورت يكون له عنوان فوق وبعدين اعرض تحت هذا العنوان بعض الداتا اللي في الفيجوال اللي انا دخلتها بس بدون استخدام الكريستال ريبورت
يعني اقسم الصفحه واعرضها زي ما انا عايز