15-02-18, 08:29 PM
عندي ملف رسائل بحفظة ببرنامج عندي لتعديل علية
اسم الملف يظهر بالشكل التالي
SMS١٥٠٢٢٠١٨
عايز اسم الملف يبقي SMS -١٥-٠٢ -٢٠١٨
اسم الملف يظهر بالشكل التالي
SMS١٥٠٢٢٠١٨
عايز اسم الملف يبقي SMS -١٥-٠٢ -٢٠١٨
(16-02-18, 02:28 AM)طالب برمجة كتب : [ -> ]فكرة مشابهة
[ تمّ الحل ] : إضافة التّاريخ و التّوقيت
(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 = str4Dim fn As String = "SMS١٥٠٢٢٠١٨"
fn = Regex.Replace(fn, "(\w+)(\d{2})(\d{2})(\d{4})", "$1 $2-$3-$4")
MsgBox(fn)
(16-02-18, 09:25 PM)طالب برمجة كتب : [ -> ]PHP كود :
Dim fn As String = "SMS١٥٠٢٢٠١٨"
fn = Regex.Replace(fn, "(\w+)(\d{2})(\d{2})(\d{4})", "$1 $2-$3-$4")
MsgBox(fn)