نسخ ملف

[ربيع]

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

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

يمعنى ليس مثل الامر الموجود في File.Copy الذي يتم اللصق فيه يمجرد تنفيذ الكود

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

[عبد الهادي بهاب]

الا تقوم اضافة Clipoard بهذا العمل ؟

[ربيع]

جرب وقل لي باش نحملها و نستعملها
مشكور محترف:abc_139:

[عبد الهادي بهاب]

الاضافة لا نقل الى النصوص
اسف على الازعاج
:abc_085::abc_085::abc_085::abc_085:

[ربيع]

لا يهمك ننتظر ...

[عبد الهادي بهاب]

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


t = Dialog.FileBrowse(true, "Locate File", _DesktopFolder, "All Files (*.*)|*.*|", "", "", false, false);


بعد هذا الكود ...يعطينا فقط مسار المف الذي نريد وهو نص سترينج ....اي لا ينفع

لكن نقول له يا سيدي هذا المسار نريد ملفه ........يجب ان نعمل ملفا ما من النظام systeme مثلا هو من يحفظ العمل و يفعل خاصية النسخ و اللصق
و ليكن من ملفات dll و اظن User32.dll

حتى يتم الحل من الاخوة المتابعين ...........الموتور شغال سيدي الربيع

[ربيع]

الاضافة لا نقل الى النصوص
اسف على الازعاج
:abc_085::abc_085::abc_085::abc_085:

ما رأيك :
t = Dialog.FileBrowse(true, "Locate File", _DesktopFolder, "All Files (*.*)|*.*|", "", "", false, false);
result = Clipboard.CopyFile(t[1], true);

[عبد الهادي بهاب]

ما رأيك :
t = dialog.filebrowse(true, "locate file", _desktopfolder, "all files (*.*)|*.*|", "", "", false, false);
result = clipboard.copyfile(t[1], true);

هذا الكود ينقل فقط تكست اي نص مسار
جرب قم بلصق في نودباد او مذكرة

[ربيع]

هههههههههه وهل نلصق ملف في نودباد أو مفكرة
؟؟

[عبد الهادي بهاب]

هههههههههه وهل نلصق ملف في نودباد أو مفكرة
؟؟

قصدت ان هذا هو دور هذه ال اضافة
فقط النصوص اي عندما استعملناها انما ننسخ المسار كنص و لم ننسخ الملف

[ربيع]

قصدت ان هذا هو دور هذه ال اضافة
فقط النصوص اي عندما استعملناها انما ننسخ المسار كنص و لم ننسخ الملف

ولماذا التفقيط ... انسخ بنفس الكود ملف ووورد فيه كلام و ألصق الناتج في ملف وووورد آخرفارغ كان جاهز للكتابة اي مفتوح
هذا فقط توضيح حتى وإن طلبي متعلق بملف و ليس نص

المهم تحقق المطلوب موفق

[عبد الهادي بهاب]

ولماذا التفقيط ... انسخ بنفس الكود ملف ووورد فيه كلام و ألصق الناتج في ملف وووورد آخرفارغ كان جاهز للكتابة اي مفتوح
هذا فقط توضيح حتى وإن طلبي متعلق بملف و ليس نص

المهم تحقق المطلوب موفق

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

[عبود عبود]

كأحد الحلول هل يمكن قراءة الملف ومن ثم بعد ذلك يمكن لصقة أيضا بالتكست فايل " أكواد TextFile "

result = TextFile.ReadToString("C:\\MyFile.txt");

طبعا ما بين علامتى التنصيص هو مسار للملف ويمكن التعويض عنه أيضا بالكود Dialog.FileBrowse للحصول على مسار ملف يحددة المستخدم أى طبقا لبرمجتك للمشروع .

ومن ثم يمكن إستخدام فيما بعد :

TextFile.WriteFromString("C:\\MyFile.txt", result, false);

[ربيع]

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

نعم ... لكن لا لجملة "الاضافة لا تحقق النسخ و اللصق للملفات" بل تحقق المطلوب
جيد لو تفرأ سؤالي من المرة الاولى يتحدث عن الملف في حد ذاته و ليس النصوص فقط :abc_139:

[ربيع]

كأحد الحلول هل يمكن قراءة الملف ومن ثم بعد ذلك يمكن لصقة أيضا بالتكست فايل " أكواد TextFile "

result = TextFile.ReadToString("C:\\MyFile.txt");

طبعا ما بين علامتى التنصيص هو مسار للملف ويمكن التعويض عنه أيضا بالكود Dialog.FileBrowse للحصول على مسار ملف يحددة المستخدم أى طبقا لبرمجتك للمشروع .

ومن ثم يمكن إستخدام فيما بعد :

TextFile.WriteFromString("C:\\MyFile.txt", result, false);

شكرا أستاذ الطريقة لا تعمل مع ملفات الاوفيس كالايكسل المختار في بداية الموضوع كنموذج الملفات
المقصودة شكرا :abc_152:

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

[عبود عبود]

شكرا أستاذ الطريقة لا تعمل مع ملفات الاوفيس كالايكسل المختار في بداية الموضوع كنموذج الملفات
المقصودة شكرا :abc_152:



آسف أخى علمت أن الإشكال محلول أو توصلت لحلة

ولكن هل يمكنك وضع ملف أفيس كالايكسل كما تقول حتى أطبق ما ذكرته لك وأتحقق أنا أيضا من النتيجة حيث لم أنصب الأفيس لدى الآن ؟

هل يمكنك رفع الملف المذكور ؟

[ربيع]

آسف أخى علمت أن الإشكال محلول أو توصلت لحلة

ولكن هل يمكنك وضع ملف أفيس كالايكسل كما تقول حتى أطبق ما ذكرته لك وأتحقق أنا أيضا من النتيجة حيث لم أنصب الأفيس لدى الآن ؟

هل يمكنك رفع الملف المذكور ؟

مادمت طلبت أستاذ ملف ايكسل معناها لم تفهم المطلوب البسيط الذي كان أساسا لا يعنى بالمحتوى
بل بالملف نفسه يمكنك تثبيت الاوفيس أو التجربة على اي ملف ... أعيد السؤال لم يكن
عن المحتوى كجداول او كتابة وما كتبته أنت من أكواد يهتم بالمحتوى + في حالات ملفات الاوفيس و التي
قد تكون مدعومة بوحدات ماكرو
لا يمكن قراءة ما بداخلها بكودك المطروح هذا ان كان الطلب على المحتوى و هو ليس كذلك
مشكور على الاهتمام فالنسخ هنا للملف وكذلك اللصق ....تقبل ردي برؤية برمجية

[عبود عبود]

مادمت طلبت أستاذ ملف ايكسل معناها لم تفهم المطلوب البسيط الذي كان أساسا لا يعنى بالمحتوى
بل بالملف نفسه يمكنك تثبيت الاوفيس أو التجربة على اي ملف ... أعيد السؤال لم يكن
عن المحتوى كجداول او كتابة وما كتبته أنت من أكواد يهتم بالمحتوى + في حالات ملفات الاوفيس و التي
قد تكون مدعومة بوحدات ماكرو
لا يمكن قراءة ما بداخلها بكودك المطروح هذا ان كان الطلب على المحتوى و هو ليس كذلك
مشكور على الاهتمام فالنسخ هنا للملف وكذلك اللصق ....تقبل ردي برؤية برمجية

آسف أخى لم أقصد أن أشغلك معى وأبدد وقتك الثمين شكراااااااا

بالتوفيق

[فرح صالحي]

آسف أخى لم أقصد أن أشغلك معى وأبدد وقتك الثمين شكراااااااا

بالتوفيق

ـــــــــــــــــــــــــ ـــــــــــــــــــــــــ ـــــــــــــــــــــــــ ـــــــــــ
المعذرة اخي عبود الأخ ربيع لم يقصد ماضننت انه قصده
بما انك غبر منصب الاوفيس فكيف ستتصرف في ملف اكسل فانه لا يفتح أصلا وحتى النتائج فستكون مغايرة لما يريده الأخ ربيع
بالتوفيق للجميع