السلام عليكم
عندي ملف نصي مثلا يحتوي على
منتدى فيجوال بيسك
اريد طريقة قراءة النص واخد الكلمة فيجوال
ووضعها في تيكسيت بوكس
للتعديل عليها
ثم حفظها مكان الكلمة الاولى في ملف التيكسيت
كود :
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 الى ملف نصي
شكرا اخي العزيز على تعاونك
ولكني لا اريد هذا
اريد انني عندما اغير الكلمة تتغير تلقائيا في نفس الملف مع الاحتفاظ بباقي النص
مثلا لو كانت الجملة الاولى الموجودة في ملف التيكست
منتدى الفيجوال بيسك
واخذت من الملف النصي كلمة الفيجوال وقمت بتعديلها إلى كلمة لكل العرب بدل كلمة الفيجوال
فان النص الجديد في التيكست سوف يبقى
منتدى لكل العرب بيسك
هل فهمتني