منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] نقل الباسورد واليور لملف خارجي - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] نقل الباسورد واليور لملف خارجي (/showthread.php?tid=491)

نقل الباسورد واليور لملف خارجي - mazen55 - 11-10-13

اريد نقل بيانات من فورم التسجيل لدي الي ملف خارجي

لدي فورم بية
الفورم الاول
الاسم :=مازن
باسورد:-896541222

الفورم الثاني
الاسم : جمال
الباسورد:-98657

اريد نقل البيانات لملف خارجي تيكست واعادة استيرادة عند فتح المشروع

RE: نقل الباسورد واليور لملف خارجي - 3booody - 11-10-13

كود :
Dim save As New SaveFileDialog
        save.Filter = "TextFile(.txt)|*.txt"
        save.FileName = "Data"
        If save.ShowDialog = DialogResult.OK Then
            Using W As IO.StreamWriter = IO.File.CreateText(save.FileName)
                W.Write("UserName" & vbNewLine & "PassWord")
                W.Close()
            End Using
        End If

وعند الاستدعاء
كود :
TextBox1.Text = IO.File.ReadAllText("المسار").Split(vbNewLine)(0)
        TextBox1.Text &= " " & IO.File.ReadAllText("المسار").Split(vbNewLine)(1)

نصيحة بما ان الملف خارجي شفر الباسورد واذا اردت الاسم ايضآ حفاظآ على الامان

RE: نقل الباسورد واليور لملف خارجي - mazen55 - 11-10-13

ممكن سؤال انا اريد ملف صامت تنقل الاكواد بدون SaveFileDialog

يعني المسار مباشرة فقط"c:\good"مثلا

RE: نقل الباسورد واليور لملف خارجي - 3booody - 11-10-13

كود :
Using W As IO.StreamWriter = IO.File.CreateText("المسار")
                W.Write("UserName" & vbNewLine & "PassWord")
                W.Close()


RE: نقل الباسورد واليور لملف خارجي - mazen55 - 11-10-13

جميل جدا انا عدلت الكود فعلا قبل الرد ولكن هناك شيء لو هتعبك معايا

اولا نقلت بعد النقل
والاكود بحدث الزر
اضع بعد الحدث كود لمسح الملف

Using W As IO.StreamWriter = IO.File.CreateText("المسار")
W.Write("UserName" & vbNewLine & "PassWord")
W.Close()

If File.Exists("C:\Users\Desktop\good\tested.txt") = True Then
File.Delete("C:\UsersDesktop\good\tested.txt") : MsgBox(" delleting")
End If
ولكن حدث شيء غريب خطا مكرر
The process cannot access the file 'C:\Users\OPEN-GAME\Desktop\good\tested.txt' because it is being used by another process.

انا نهيت الحدث
w.dispose