[محمد اسماعيل]

(16-02-18, 03:20 PM)طالب برمجة كتب : مفهمتش

انت قلت اسم الملف يظهر بالشكل SMS١٥٠٢٢٠١٨ وعايز اسم الملف يبقي  SMS  -١٥-٠٢ -٢٠١٨

ولم افهم شرحك الاخير بخصوص السحب من الملف

---

هل تقصد ان اسم الملف سبق تسميته وتريد تعديل

نعم هذا ما اريد لان الملف سبق تسميتة من داخل الموبايل
استخدمت الكود التالي ولكنة بدائي جدا اريد كود ابسط منة

كود :

Dim str As String = dirname
       Dim str1 As String = ""
       Dim str2 As String = ""
       Dim str3 As String = ""
       Dim str4 As String = ""
       Dim str5 As String = ""
       For i = 0 To str.Length
           If i = 2 Then
               str1 = str.Insert(3, " ")
           End If
           If i = 4 Then
               str2 = str1.Insert(6, "-")
           End If
           If i = 6 Then
               str3 = str2.Insert(9, "-")
           End If
           If i = 10 Then
               str4 = str3.Insert(14, " ( h ")

           End If
       Next
       TextBox2.Text = str4