16-02-18, 08:54 PM
(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
