[المتألق9]

السلام عليكم
عندي ملف نصي مثلا يحتوي على
منتدى فيجوال بيسك
اريد طريقة قراءة النص واخد الكلمة فيجوال
ووضعها في تيكسيت بوكس
للتعديل عليها
ثم حفظها مكان الكلمة الاولى في ملف التيكسيت

[سعود الشامان]

كود :

Imports System.IO

Public Class Form1
   Dim s As String = 10.2
   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

       SaveFileDialog1.Filter = "ملف (*.plist*)|*.plist" ' صيغة الملف
       SaveFileDialog1.FileName = "SystemVersion" ' اسم الملف عند الحفظ
       If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK _
    Then
           My.Computer.FileSystem.WriteAllText _
           (SaveFileDialog1.FileName, TextBox1.Text, True) 'حفظ التيكست بوكس1
           Button2.Enabled = False
       End If
   End Sub

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       If ComboBox1.Text = Nothing Then
           MsgBox("اختر رقم الإصدار")
       Else
           s = 10.2
           TextBox1.Text = TextBox1.Text.Replace(s, ComboBox1.Text)
           Button1.Enabled = False
           Button2.Enabled = True
       End If

   End Sub

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       TextBox1.Text = My.Resources.SystemVersion ' التيكست بوكس1 = ملف الريسورس
   
   End Sub
End Class

المثال في المرفقات

---

غير هذا السطر

كود :

       SaveFileDialog1.Filter = "ملف (*.plist*)|*.plist" ' صيغة الملف

إلى هذا السطر

كود :

SaveFileDialog1.Filter = "ملف (*.txt*)|*.txt" ' صيغة الملف عند الحفظ

وأيضا قم بتغيير الملف الموجود في Resources الى ملف نصي

[المتألق9]

شكرا اخي العزيز على تعاونك
ولكني لا اريد هذا
اريد انني عندما اغير الكلمة تتغير تلقائيا في نفس الملف مع الاحتفاظ بباقي النص
مثلا لو كانت الجملة الاولى الموجودة في ملف التيكست
منتدى الفيجوال بيسك
واخذت من الملف النصي كلمة الفيجوال وقمت بتعديلها إلى كلمة لكل العرب بدل كلمة الفيجوال
فان النص الجديد في التيكست سوف يبقى 
منتدى لكل العرب بيسك
هل فهمتني

[سعود الشامان]

العفو اخي الحبيب ,,, نعم فهمتك اخي

هنالك طريقتين او اكثر

1 - السطر اللي مكتوب فيه منتدى الفيجوال بيسك اذا كان معروف تقوم بحذف نفس السطر

2 - اذا كان غير معروف تستخدم دالة البحث عن النص "منتدى الفيجوال بيسك" واستبدال النص او استبدال السطر او حسب ما تريد

ابحث عن التعامل مع النصوص و التعامل مع الملفات النصية

ووضعتك لك بعض الروابط راح تفيدك

VB 2012- 263- FileStream كتابة بينات في ملف عن طريق

https://youtu.be/36IMkD48Fxo


VB 2012- 264- StreamWriter كتابة نص في ملف عن طريق المسار أو بتدفق بيني

https://youtu.be/3-dx9_thobg


دروس تهمك :-

- قراءة نص أو أسطر من ملف إلى البرنامج- حذف ملف أو استبداله بآخر

https://youtu.be/za7Bwt8U3hA


[/url]VB 2012- 257- FileSystem التعامل مع المجلدات والملفات من خلال

[url=https://www.youtube.com/watch?v=oJD8gcfYXsY&list=PLgb1QHu0tFi1C4XDoIW7HMEjXLJ31eT4n&index=257]
https://youtu.be/za7Bwt8U3hA

---

كود :

Imports System.IO
Public Class Form1

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

       Dim wfile As New StreamWriter("D:\test.txt", True) ' على وضع الكتابة test.txt إنشاء كائن جديد لفتح الملف

       wfile.WriteLine() ' نزول سطر جديد
       wfile.WriteLine() ' نزول سطر جديد
       wfile.WriteLine() ' نزول سطر جديد

       wfile.WriteLine(TextBox1.Text) ' في الملف TextBox1.Text طباعة القيم الموجودة في

       wfile.Close() ' إغلاق الملف

   End Sub

End Class

[سعود الشامان]

[مثال] قراءة بيانات ملف نصي في الليست بوكس والبحث داخلها والحفظ


http://vb4arb.com/vb/showthread.php?tid=23737