(29-12-13, 01:26 PM)kslawy كتب : السلام عليكم ورحمة الله وبركاته

واجهتني المشكلة في تقسم حجم الملف الأصلي (غير المقسوم) لا ينقسم أبدا لهذه الطريقة ("00.000") دائما يظهر كامل ولكنني قسمته باستخدام العلامة (",") بدلاً عن (النقطة) وعند الرجوع بالدالة يتم استبدال (,) بالنقطة

PHP كود :

Private Function GetFileLenght(ByVal filePath As String) As String
        Dim FileLen As String = ""
        Try
            Dim fi As IO.FileInfo = New IO.FileInfo(filePath)

            Dim ByteLenght As Long = fi.Length
            Dim KBLenght As Long = fi.Length / 1024

            FileLen = String.Format("Size : {0:00.0} KB ({1:00,000} Bytes)", KBLenght, ByteLenght)
            Return FileLen.Replace(",", ".") ' لم يتقسم النص الأخير إلا بوضع العلامة التي ستستبدل هنا
        Catch ex As Exception
            MsgBox(ex.Message, 48, "Get File Lenght")
            Return ""
        End Try
    End Function 


http://msdn.microsoft.com/en-us/library/0c899ak8(v=vs.110).aspx

****
***
**
*

(30-12-13, 02:54 AM)ali.alfoly كتب : السلام عليكم ورحمة الله وبركاته
جزاكم الله خيرا اخواني جميعا واسئل الله تعالي ان يجزيكم عني خيرا
يبدو ان محدش خد بالو من الكود
اخواني ارجو مراجعة هذا الكود

كود :

Private Function GetFileSize(ByVal FilePath As String) As String
        Try
            Dim Txt_Siz As String = ""

            Dim Length As Long = New IO.FileInfo(FilePath).Length

            If Length < 1024 Then
                Txt_Siz = Length & " Bytes"
            ElseIf Length < 1048576 Then
                Txt_Siz = (Length / 1024) & " KB"
            ElseIf Length < 1073741824 Then
                Txt_Siz = (Length / 1024 / 1024) & " MB"
            ElseIf Length >= 1073741824 Then
                Txt_Siz = (Length / 1024 / 1024 / 1024) & " GB"
            End If

            Return Txt_Siz

        Catch ex As Exception
        End Try
        Return ""
    End Function

الكود يوجد به مشكلتان الاولي
عند وضع مسار ملف حجمه 7.34 mb
يعود بـ 7.34833717346191 MB

المشكلة الثانية تقسيم النص مثل ما وضخ الاخ الشاكي لله .ToString("#,#")

(30-12-13, 02:54 AM)ali.alfoly كتب : السلام عليكم ورحمة الله وبركاته
جزاكم الله خيرا اخواني جميعا واسئل الله تعالي ان يجزيكم عني خيرا
يبدو ان محدش خد بالو من الكود
اخواني ارجو مراجعة هذا الكود

الكود يوجد به مشكلتان الاولي
عند وضع مسار ملف حجمه 7.34 mb
يعود بـ 7.34833717346191 MB

المشكلة الثانية تقسيم النص مثل ما وضخ الاخ الشاكي لله .ToString("#,#")

اشوف الموضوع طول مع انه بسيط !

شكلي بدخل الكومندوز ليكم

اخوي علي هذي الكلاس بنفكك من ازمتك :-

+ انا استبقت الاحداث وكتبت شرح الكود لأن ادري بتسألني بعدين

(01-01-14, 03:53 AM)ali.alfoly كتب : السلام عليكم
الحمد لله تعالي وصلت للحل وهو سهل جدا سبحان الله
القاعدة التي يتم علي اساسها عرض القيمة هي ان الرقم يجب ان يتكون من ثلاث ارقام فقط مثال
12.2
1.22
122
هههههه طبعا مش مسدق نفسي قاعدة غريبة جدا
انظر الدالة الاخيرة

كود :

Private Function GetFileSize(ByVal FilePath As String) As String
        Try
            Dim Length As Long = New IO.FileInfo(FilePath).Length
            Dim Le_Byt As String = "(" & Length.ToString("#,#") & "  Bytes)"
            '
            If Length < 1024 Then
                Return Le_Byt
            ElseIf Length < 1048576 Then
                Return Set3Byt(Length / 1024) & " KB   " & Le_Byt
            ElseIf Length < 1073741824 Then
                Return Set3Byt(Length / 1048576) & " MB   " & Le_Byt
            ElseIf Length >= 1073741824 Then
                Return Set3Byt(Length / 1073741824) & " GB   " & Le_Byt
            End If
        Catch ex As Exception
        End Try
        Return ""
    End Function

    Private Function Set3Byt(nmpt As String) As String
        Dim txt As String = ""
        Dim str As Byte = 0
        For Each Cr As Char In nmpt
            txt += Cr
            If Cr <> "." Then str += 1
            If str = 3 Then Exit For
        Next
        Return txt
    End Function