تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيفية تخصيص تسمية ملف نصي
#1
السلام عليكم ورحمة الله وبركاته 
لدي ملف نصي أريد حفظه بإسم مخصص 
بحيث هذا الإسم يأخد السنة + الشهر + الرقم
مثلا 
19_77_032019.txt
على أن أختار مكان حفظ الملف 
مع العلم الأرقام هي قيم  
txtboxNem1 و txtboxNem2
كود :
       Using Dilaoge As New SaveFileDialog
           Dilaoge.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
           If Dilaoge.ShowDialog() = Windows.Forms.DialogResult.OK Then
               Dim NomFechiers As String = Dilaoge.FileName
               Dim StreamW As StreamWriter = File.CreateText(NomFechiers)

               Dim total = (From x As DataGridViewRow In DGView.Rows Select CDbl(x.Cells(4).Value)).Sum
               StreamW.WriteLine("" & DGView.RowCount & "" & Today.ToLongDateString & "" & FormatNumber(total))

               Dim Cellule1, Cellule2, Cellule3, Cellule4 As String
               For i As Integer = 0 To DGView.Rows.Count - 1
                   Cellule2 = (DGView.Rows(i).Cells(2).Value.ToString().PadLeft(5, "0") & "")
                   Cellule3 = (DGView.Rows(i).Cells(3).Value.ToString() & "")
                   Cellule4 = (DGView.Rows(i).Cells(4).Value.ToString() & "")
                   Cellule1 = (DGView.Rows(i).Cells(1).Value.ToString().PadLeft(27))
                   StreamW.Write(Cellule2 & "" & Cellule3 & "" & GetFormatNumber(Cellule4) & "" & Cellule1)
                   StreamW.WriteLine("")
               Next
               StreamW.Close()
               MessageBox.Show("تمت عملية الحفظ بنجاح")
           End If
       End Using
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية استخراج بيانات من اكثر من جدول وطباعتها المتألق9 4 241 12-06-19, 11:41 AM
آخر رد: new2016
  كيفية استخدام زر في لوحة المفاتيح لتطبيق امر معين Emam emam 5 170 11-06-19, 04:27 AM
آخر رد: Emam emam
Information [سؤال] كيفية جعل المشروع يحفظ الملفات في مجلد بالحاسوب مهما تغيير مكان تنصيب المشروع الرائد 3 115 09-06-19, 05:21 AM
آخر رد: ابراهيم ايبو
  كيفية جعل الكتابة التلقائية في الداتا قريد adminHN 1 109 30-05-19, 01:54 PM
آخر رد: اسامه الهرماوي
  كيفية طباعة الفواتير الريسيت alipro 0 93 30-05-19, 01:41 AM
آخر رد: alipro
  كيفية تشغيل برنامج exe باستخدام الفيجوال Emam emam 5 264 29-04-19, 03:04 PM
آخر رد: alsouf
  كيفية ربط و فصل اتصال SSH mohammadsaeed01 3 144 20-04-19, 06:18 AM
آخر رد: elgokr
  أريد مثال علي كيفية التعرف علي وجه شخص من خلال فديواو صورة ؟ PeterGhattas082460 3 197 18-04-19, 06:04 AM
آخر رد: محمد كريّم
  [سؤال] كيفية ربط ProgressBar بعملية حفظ البيانات mr_hso 0 125 17-04-19, 11:21 PM
آخر رد: mr_hso
  أريد معرفة كيفية اضافة نيت فيم ورك لفيجول استوديو 2010 PeterGhattas082460 5 167 10-04-19, 03:21 PM
آخر رد: بدري

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم