تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] file code
#1
Sad 
احتاج مساعدتكم في هذا السؤال مطلوب 2 files الاول أقرأ منه والثاني اكتب فيه .

Write a program that will read information from MyList.txt file then create MyReceipt.txtfile. Suppose that a file MyList.txt contains the following data.
 
  هذا اسم الملف الاول الخاص بالقراءه MyList.txt
] [/url] ][/url]
 
 
 هذا الثاني الخاص بالكتابه And as result MyReceipt.txt file will be:
] [/url]
 
In MyList.txt, second line represent item name, item price, and if it is available in the store or not, respectively.
Note:
Use try and catch to handle the case when the input file does not exist, such that an appropriate message is displayed and the program terminates.
 

تكررت الصور اكثر من مره لا اعلم السبب اعتذر
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم

تفضب الكود
كود :
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

    Dim l() As String = IO.File.ReadAllLines("MyList.txt")

    Dim r As New System.Text.StringBuilder

    r.AppendLine("My Receipt:")
    r.AppendLine("------------------------")

    Dim total As Double = 0

    For i = 0 To l.Length - 1

        If l(i).Contains("Done") Then

            Dim s As String = l(i).Replace("Done", "").Trim
            r.AppendLine(s)

            Dim v As Double = Val(s.Substring(s.LastIndexOf(" ")))
            total += v

        End If

    Next

    r.AppendLine("------------------------")
    r.AppendLine("Total = " & total)

    IO.File.WriteAllText("MyReceipt.txt", r.ToString)

    MsgBox(r.ToString)

End Sub
الرد }}}}
تم الشكر بواسطة: a_abdullah , a_abdullah


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تولديد qr code bar في تقارير RDLC ndjakoub 2 44 أمس, 02:31 PM
آخر رد: ndjakoub
  مشكلة في توليد arabic qr code osmana2005 5 718 21-01-18, 02:04 PM
آخر رد: ndjakoub
  [سؤال] مشكلة عند فتح open file dialog fouadmdany 1 58 30-12-17, 10:56 PM
آخر رد: طالب برمجة
  Could not load file or assembly 'CrystalDecisions.Enterprise.Framework dfouad 1 48 28-12-17, 02:43 PM
آخر رد: طالب برمجة
  الداتابيز اكسس لما بتتحط في program file تصبح للقراءة فقط hoshosgost@yahoo.com 1 64 02-11-17, 02:18 AM
آخر رد: boudyonline
  خطأ في Open File Dialog ibraheam 3 132 03-10-17, 04:49 AM
آخر رد: HASAN6.0
  file resource ddemed 5 159 01-08-17, 03:46 AM
آخر رد: سعود
  [VB.NET] لدي سؤال بخصوص Code يتواصل مع الطابعة 0theghost0 0 117 23-07-17, 06:21 PM
آخر رد: 0theghost0
  remove file.exe ddemed 6 262 13-07-17, 02:50 AM
آخر رد: الماجيك مسعد
  genrate code ddemed 1 165 27-06-17, 06:42 AM
آخر رد: سعود

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


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