+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=23716)
كيفية التعامل مع ملف نصي - المتألق9 - 07-02-18
السلام عليكم
عندي ملف نصي مثلا يحتوي على
منتدى فيجوال بيسك
اريد طريقة قراءة النص واخد الكلمة فيجوال
ووضعها في تيكسيت بوكس
للتعديل عليها
ثم حفظها مكان الكلمة الاولى في ملف التيكسيت
RE: كيفية التعامل مع ملف نصي - سعود الشامان - 07-02-18
كود :
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 الى ملف نصي
RE: كيفية التعامل مع ملف نصي - المتألق9 - 07-02-18
شكرا اخي العزيز على تعاونك
ولكني لا اريد هذا
اريد انني عندما اغير الكلمة تتغير تلقائيا في نفس الملف مع الاحتفاظ بباقي النص
مثلا لو كانت الجملة الاولى الموجودة في ملف التيكست
منتدى الفيجوال بيسك
واخذت من الملف النصي كلمة الفيجوال وقمت بتعديلها إلى كلمة لكل العرب بدل كلمة الفيجوال
فان النص الجديد في التيكست سوف يبقى
منتدى لكل العرب بيسك
هل فهمتني
RE: كيفية التعامل مع ملف نصي - سعود الشامان - 07-02-18
العفو اخي الحبيب ,,, نعم فهمتك اخي
هنالك طريقتين او اكثر
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 ClassRE: كيفية التعامل مع ملف نصي - سعود الشامان - 08-02-18
[مثال] قراءة بيانات ملف نصي في الليست بوكس والبحث داخلها والحفظ
http://vb4arb.com/vb/showthread.php?tid=23737