+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=34280)
سؤال بدائي واسف علي العنوان - اليوم السابع - 11-04-20
عندي تيكست بوكس به كلمه بسم الله
اريد عند الضغط علي زر1
يحفظ هذه الكلمه في ملف تكست جنب المشروع بدون ان يفتح السيف دايلوج
واذا غيرت الكلمه الي الرحمن الرحيم
يحفظ هذه الكلمه في سطر جديد في ملف التكست بدون ان يحذف بسم الله
RE: سؤال بدائي واسف علي العنوان - سعود - 11-04-20
PHP كود :
If TextBox1.Text.Trim <> "" Then
My.Computer.FileSystem.WriteAllText(CurDir() & "\txt.txt", TextBox1.Text & vbNewLine, True)
TextBox1.Select()
TextBox1.Focus()
TextBox1.Clear()
End If
ليت يكون هو المطلوب
RE: سؤال بدائي واسف علي العنوان - aljzazy - 11-04-20
كود :
Public Class Form1
Private Sub Button1_Click_1(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim fileName As String = IO.Path.Combine(AppDomain.CurrentDomain.BaseDirectory, "MyFile.txt")
Dim data As New List(Of String)
If IO.File.Exists(fileName) Then
data = IO.File.ReadAllLines(fileName).ToList
data.AddRange(TextBox1.Lines)
Else
data = TextBox1.Lines.ToList
End If
IO.File.WriteAllLines(fileName, data.ToArray)
End Sub
End ClassRE: سؤال بدائي واسف علي العنوان - trakktour - 11-04-20
تفضل
كود :
Dim testfile As String = Application.StartupPath & "\test.txt"
Dim objWriter As New System.IO.StreamWriter(testfile, IO.FileMode.Append)
objWriter.WriteLine(TextBox1.Text)
objWriter.Close()RE: سؤال بدائي واسف علي العنوان - ابراهيم ايبو - 11-04-20
السلام عليكم جميعا
بارك الله بكم على الاجابات والردود
من باب المشاركة وتعميم التجارب والاكواد البكم هذه الطريقة مع Filestream
في البدء سيتم التحقق من ان مريع النص ليس فارغا
ثم يتم انشاء ملف نصي ان لم يكن موجودا وان كان موجودا يتم التحقق من امكانية الكتابة فلربما الملف مفتوج
بعدها تتم الكتابة مع اضافة سطر ... بعدها يتم اغلاق الملف
قريبا انشاء الله مثال كامل لاستخدام ملف نصي كقاعد بيانات
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If TextBox1.Text.Trim() <> "" Then
Dim strtxt As String = TextBox1.Text & vbNewLine ' النص المراد كتابته موجود في مربع النص وعند الكتابة نضيف سطر جديد
Dim fs As New FileStream("Ibrahim.txt", FileMode.Append) ' يفتح ملف موجود وان لم يكن موجود ينشؤه ثم يفتحه
If File.Exists("Ibrahim.txt") Then ' اذاكان الملف موجود
If fs.CanWrite Then ' اذا كان بالامكان الكتابة
Dim byt As Byte() = New System.Text.UTF8Encoding().GetBytes(strtxt) ' انشائ مصفوفة من نوع بايت تقبل الانكودينغ يو تي اف 8 ليستوعب حروف النص
fs.Write(byt, 0, byt.Length) ' الكتابة تحتاج الى مصفوفة من نوع بايت تم تعريفها لنمط نظام الاحرف والرقم صفر هو بداية المصفوفة ثم حتى نهاية المصفوفة
fs.Close()
End If
End If
MessageBox.Show("تمت الكتابة بنجاح", "كتابة", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
End Sub