21-08-14, 02:56 PM
السلام عليكم ورحمة الله وبركاته
إخوانى عندي هدا الكود وهو يعمل بشكل جيد لكنى اريد تغير بعض الأشياء فيه فقط
إخوانى عندي هدا الكود وهو يعمل بشكل جيد لكنى اريد تغير بعض الأشياء فيه فقط
PHP كود :
Dim txt_1 As String
Dim text_strs As String
txt_1 = File.ReadAllText(My.Application.Info.DirectoryPath & "\conter")
text_strs = File.ReadAllText(My.Application.Info.DirectoryPath & "\desktop.txt")
text_strs = Replace(text_strs, Chr(10), "")
'-----------------------------------------
Dim desktop_splt() As String
'----------
desktop_splt = text_strs.Split(vbCrLf)
'--------------
If txt_1 = "" Then
File.WriteAllText(My.Application.Info.DirectoryPath & "\conter", 0)
MsgBox(desktop_splt(0))
Else
If txt_1 = desktop_splt.Length - 1 Then
File.WriteAllText(My.Application.Info.DirectoryPath & "\conter", 0)
MsgBox(desktop_splt(0))
Else
File.WriteAllText(My.Application.Info.DirectoryPath & "\conter", txt_1 + 1)
MsgBox(desktop_splt(txt_1 + 1))
End If
End If
انا اريد بدل القراءة من ملف التاكست والكتابة فى ملف التاكست اريد القراة من اداة تاكست بوكس والكتابة في اداة تاكست بكس ايضا يعني اريد التخلص من ملفات التاكست ويكون كل شئ داخل الفورم وشكرا للجميع مسبقا