تقييم الموضوع :
  • 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
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية ربط و فصل اتصال SSH mohammadsaeed01 3 51 20-04-19, 06:18 AM
آخر رد: elgokr
  أريد مثال علي كيفية التعرف علي وجه شخص من خلال فديواو صورة ؟ PeterGhattas082460 3 82 18-04-19, 06:04 AM
آخر رد: محمد كريّم
  [سؤال] كيفية ربط ProgressBar بعملية حفظ البيانات mr_hso 0 34 17-04-19, 11:21 PM
آخر رد: mr_hso
  أريد معرفة كيفية اضافة نيت فيم ورك لفيجول استوديو 2010 PeterGhattas082460 5 90 10-04-19, 03:21 PM
آخر رد: بدري
  [VB.NET] [تم الحل] كيفية انشاء صندوق نص و زر شفاف textbox & button الماجيك مسعد 4 172 09-04-19, 02:25 AM
آخر رد: بدري
  كيفية طرح تاريخين من بعض Emam emam 4 99 01-04-19, 12:02 AM
آخر رد: Emam emam
  كيفية عمل رصيد اخر مده للبضاعه hedra samir 2 103 28-03-19, 09:32 PM
آخر رد: hedra samir
Photo كيفية دمج 2 داتا حريد فيو فى داتا جريد فيو واحدة code3x 0 48 27-03-19, 11:41 AM
آخر رد: code3x
  [سؤال] عن كيفية عمل اختصار من لوحة المفاتيح لسه مبتدئ 2 71 25-03-19, 10:32 PM
آخر رد: لسه مبتدئ
  كيفية مشاركة قاعدة بيانات اكسس على الانترنت Lathe1 5 171 24-03-19, 08:48 PM
آخر رد: Lathe1

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


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