منتديات التقني عالم التجارة
SPTechs منتديات
 اسم المستخدم حفظ بيانات الدخول 
كلمة المرور
  منتديات SPTechs   > Visual Basic
 thread

سؤال هام ومتقدم حول التعامل مع النصوص مسااعدة!!

 

  الأحد 23 سبتمبر 2018 م الموافق ‏13/‏محرم/‏1440 هـ الساعة 10:49

 


الرد على الموضوع عدد القراءات : 1244   

معلومات :   البلد : سورية  : المدينة : دمشق
  عدد المشاركات : 1
Romance_Candle


[ الجمعة 3 نوفمبر 2006 ]
 
 
 

سؤال هام ومتقدم حول التعامل مع النصوص مسااعدة!!



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


أما بعد


فأنا أنفذ مشروع في الفيجوال بيسك 6 و هو محرر نصوص ولكن واجهت صعوبة في حفظ النص المكتوب بعد تغيير تنسيقه أي عندما أغير نوع الخط من الـ (commonDialog) طبعاً بيحفظ النص بصيغة ملف غير معروف أي يحتاج إلى فتح باستخدام فما العمل لكي أستطيع حفظ النص بصيغة txt مع التنسيق المنفذ في المحرر؟؟؟؟


علماً أني أستخدم الكود التالي:


Private Sub mnusaveas_Click()


Dim fso As Object
Dim ts As Object
dlgsave.ShowSave
i = 2
Set fso = CreateObject("scripting.filesystemobject")
Set ts = fso.opentextfile(dlgsave.FileName, 2, True, -2)
ts.write txteditor.Text
Set fso = Nothing


end sub


الرجاء الرد بسرعة بطريقة مفيدة وشكراً



#1  

معلومات :  البلد : اليمن
  عدد المشاركات : 17
hannoy

 
[ السبت 4 نوفمبر 2006 ]
 
 
 

لازم تضيف الفلتره

بهالشكل تكون

Private Sub Command1_Click()
     Dim fso As Object
        Dim ts As Object
        "هنا اضفنا الفلتره او الفرز ولازم يكون قبل استدعاء صندوق الحفظ
        dlgsave.Filter = "Text Files |*.txt"
            dlgsave.ShowSave
            i = 2
            Set fso = CreateObject("scribting.filesystemobject")
            Set ts = fso.opentextfile(dlgsave.FileName, 2, True, -2)
            ts.write txteditor.Text
            Set fso = Nothing

End Sub



اضافة رد على الموضوع




  منتديات SPTechs : مشاركات شبيهة .  لموضوع : سؤال هام ومتقدم حول التعامل مع النصوص مسااعدة!!

   .   الأوفيس 2007 .. كامل للتحميل مع السيريال هنا OFFICE 2007
   .   الى محبي برنامج شاهد منزلك Google Earth اخيرا الشرح بالصور
   .   شاهد اي مكان من على سطح الكرة الارضية وانت جالس في بيتك
   .   قصة جميلة جدا باللغة الانجليزية مع الترجمة لها
   .   بنت عمرها 15 سنه بس صايعه..قصه
   .   معاني اسماء البنات حسب علم النفس..
   .   برنامج الوافي الذهبي
   .   اتجاه القبلة (( موقع يحدد لك القبلة اينما كنت من Google Eart
   .   رسائل زعل و حزن و عتاب و الخيانة اكثر من ألف رسالة
   .   ما معنى الحب؟




اسم المستخدم                        كلمة المرور

حفظ معلومات الاشتراك

# سؤال هام ومتقدم حول التعامل مع النصوص مسااعدة!!

register
 مستخدم جديد