[الشاكي لله]

(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/....110).aspx

****
***
**
*

ليش ماتسويها جدي :-

PHP كود :

Dim ByteLen As Long = 3245633333
Dim s As String = ByteLen.ToString("#,#")

MessageBox.Show(s)    ''سيظهر 3,245,633,333'