السلام عليكم ورحمة الله وبركاته
اخواني سؤال خفيف على الطاير كيف اصدر ملف نصي
ولكن بدون امتداد
تحياتي لكم
[ تمت الإجابة ]كيف اصدر ملف نصي ولكن بدون امتداد
اخوتي اخف اني ما قدرة اوصل الصورة بشكل واضح
هل سؤالي مفهوم :S
أخي الحبيب طبيعة العمل تطلب هذا ارسال ملفات نصيه بدون امتداد على FTP
وحاليا انا اقوم بتصدير الملف تكست ثم اقوم بحذف الإمتداد
ولذا سألة هل من طريق لتصدير الملف بدون امتداد
شاكر ومقدر لكم جميعا حسن تعاونكم معنا
اخي الفاضل
السلام عليكم ورحمة الله وبركاته
الموضوع بسيط إن شاء الله تعالى ولا يحتاج الى تعقيد في الشرح ولكن ركز معي حتى تقوم انت بالتطبيق العملي بنفسك وستجد ان هذا الموضوع سهل جدا
طبعا يلزمنا للتصدير وجود جدول موجود في قاعدة البيانات ولنفرض ان اسم هذا الجدول هو tblZahrah
حسنا الآن نريد تصدير هذا الجدول الى اي مكان من جهاز الكمبيوتر سواء في نفس مجلد القاعدة او في محرك الأقراص C او حتى نصدره الى كوكب الزهره :D
واقصد بذلك اننا نحن الذي نتحكم في مكان تصدير الملف الناتج بعد التحويل .
سوف نستخدم كود التصدير وكود تغيير الإسم بعد التصدير وهو كود بسيط يمكنك عمله بمفردك
Private Sub Export_Click() Dim strPaht As String strPath = Application.CurrentProject.Path DoCmd.TransferText acExportDelim, "", "tblZahrah", strPath & "\tblZahrah.txt", True, "" Name strPath & "\tblZahrah.txt" As strPath & "\tblZahrah" End Sub
ركز معي هنا في الشرح
السطر الأول : Dim strPath As String
قمنا بالتصريح بواسطة العبارة Dim لإنشاء مسار strPath وقمنا بجعله يساوي نص ( لأننا سوف نستخدمه لمسار الملف )
السطر الثاني : strPath = Application.CurrentProject.Path
قمنا بجعل المسار مساويا للمجلد الذي موجود فيه قاعدة البيانات ويمكننا تغييره هذا المسار الى اي مجلد آخر او الى اي محرك اقراص بهذه الطريقة strPath = "C:\ZAHRAH" فالمجلد ZAHRAH موجود على محرك الأقراص C
السطر الثالث : DoCmd.TransferText acExportDelim, "", "tblZahrah", strPath & "\tblZahrah.txt", True, ""
قمنا بإستخدام دالة التصدير الى ملف نصي لكي نقوم بتصدير الجدول المسمى tblZahrah والموجود في قاعدة البيانات الى ملف نصي وسيتم وضعه في المسار الذي تحدثنا عنه سابقا .
الآن لو فتحنا المجلد الذي موجود به قاعدة البيانات سنجد ان الجدول تم تصديره الى ملف نصي بإسم tblZahrah.txt وله امتداد الملف النصي .txt
الى هنا الوضع سليم ولا يوجد لدينا اي مشكله .
ولكننا نريد ازالة الإمتداد txt من نهاية الملف النصي ليصبح بعد التعديل او تغيير اسمه بهذه الطريقة tblZahrah بدون اي امتداد
لذا فإننا سوف نضيف كود بسيط في آخر سطر من الكود وهو : Name strPath & "\tblZahrah.txt" As strPath & "\tblZahrah"
هذا السطر الأخير سوف يقوم بتغيير اسم الملف tblZahrah.txt النصي والمجود في نفس مجلد القاعدة الى ملف ليس له إمتداد اي انه سيقوم بحذف الإمتداد .txt من آخر الملف وسيكون اسم الملف tblZahrah
وهذا مثال على هذه الطريقة
السلام عليكــم ورحمـة الله وبركاتــة
الأخت / زهرة
اعجز عن الشكر
وأسأل الله لكي ولعائلتك الفردوس الأعلى في الجنه
بسم الله الرحمن الرحيم
تمت الإجابة على الموضوع
إدارة الفريق العربي للبرمجة