31-12-13, 06:39 AM
(30-12-13, 02:54 AM)ali.alfoly كتب : السلام عليكم ورحمة الله وبركاتهبالنسبة للكود الخاص بك ممكن يصبح هكذا بعد وضع عملية تقسيم النص ، بحيث أن لا يعود النتيجة بهذا الشكل 7.34833717346191 MB :
جزاكم الله خيرا اخواني جميعا واسئل الله تعالي ان يجزيكم عني خيرا
يبدو ان محدش خد بالو من الكود
اخواني ارجو مراجعة هذا الكود
الكود يوجد به مشكلتان الاولي
عند وضع مسار ملف حجمه 7.34 mb
يعود بـ 7.34833717346191 MB
المشكلة الثانية تقسيم النص مثل ما وضخ الاخ الشاكي لله .ToString("#,#")
PHP كود :
If Length < 1024 Then
Txt_Siz = Length.ToString("#,#") & " Bytes"
ElseIf Length < 1048576 Then
Txt_Siz = (Length / 1024).ToString("#,#") & " KB"
ElseIf Length < 1073741824 Then
Txt_Siz = (Length / 1024 / 1024).ToString("#,#") & " MB"
ElseIf Length >= 1073741824 Then
Txt_Siz = (Length / 1024 / 1024 / 1024) & " GB"
End If
طبقت هذا لكودك بعد أن توصلت إلى نتيجة أخرى بوضع الفاصلة من خلال ما طرحه أخي الشاكي لله في هذا النموذج :
حيث أن الكود أصبح كالتالي :
PHP كود :
Dim MB As Long = Math.Round(FilesInfo.Length / 1048576, 1)
Dim KB As Long = (Math.Round(FilesInfo.Length / 1024, 1))
Dim Byt As Long = (Math.Round(FilesInfo.Length, 1))
Label2.Text = String.Format("Size : " & MB.ToString("#,#") & " MB " & KB.ToString("#,#") & " KB " & Byt.ToString("#,#") & " Bytes ")
لا اعلم ان كان هذا ما تريده ، ولكن مجرد محاولة لفصل الارقام بالفاصلة .
لك خالص تحياتي .
قــراءة حــجــازية
سبحان الله وبحمده ، سبحان الله العظيم
فيس بوك
سبحان الله وبحمده ، سبحان الله العظيم
فيس بوك

