تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيفية التعامل مع ملف نصي
#1
السلام عليكم
عندي ملف نصي مثلا يحتوي على
منتدى فيجوال بيسك
اريد طريقة قراءة النص واخد الكلمة فيجوال
ووضعها في تيكسيت بوكس
للتعديل عليها
ثم حفظها مكان الكلمة الاولى في ملف التيكسيت
الرد
تم الشكر بواسطة:
#2
كود :
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 الى ملف نصي


الملفات المرفقة
.rar   ChangeVersion_ios.rar (الحجم : 75.04 ك ب / التحميلات : 118)
الرد
#3
شكرا اخي العزيز على تعاونك
ولكني لا اريد هذا
اريد انني عندما اغير الكلمة تتغير تلقائيا في نفس الملف مع الاحتفاظ بباقي النص
مثلا لو كانت الجملة الاولى الموجودة في ملف التيكست
منتدى الفيجوال بيسك
واخذت من الملف النصي كلمة الفيجوال وقمت بتعديلها إلى كلمة لكل العرب بدل كلمة الفيجوال
فان النص الجديد في التيكست سوف يبقى 
منتدى لكل العرب بيسك
هل فهمتني
الرد
تم الشكر بواسطة:
#4
العفو اخي الحبيب ,,, نعم فهمتك اخي

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

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
الرد
تم الشكر بواسطة: waelalmsry75
#5
[مثال] قراءة بيانات ملف نصي في الليست بوكس والبحث داخلها والحفظ


http://vb4arb.com/vb/showthread.php?tid=23737
الرد


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  التعامل مع التواريخ khaled Mohammed 5 206 29-09-20, 05:48 PM
آخر رد: khaled Mohammed
  التعامل مع التواريخ | مثال للتعديل khaled Mohammed 1 96 29-09-20, 03:26 PM
آخر رد: ابو محمد محمد محمد
  كيفية معرفة رقم الهارديسك المتألق9 6 712 25-09-20, 11:42 PM
آخر رد: عبد العزيز البسكري
  التعامل مع two data sourse في Crystal Report Mohammed Nafa 2 172 24-09-20, 09:19 PM
آخر رد: Mohammed Nafa
  [VB.NET] مشروع مرفق يبين كيفية التعامل مع Datagridview lkaam 4 2,616 23-09-20, 12:28 PM
آخر رد: sulim
  [VB.NET] كيفية تشفير اكواد البرنامج من السرقة ميدو الفنان 1 185 22-09-20, 07:17 AM
آخر رد: Anas Mahmoud
  كيفية الربط مع جوجل ايرث khaled12345 3 1,283 28-08-20, 06:14 PM
آخر رد: ahnouche sofiane
  كيفية الزيادة التلقائية لرصيد الإجازات في قاعدة البيانات الوايلي 3 1,525 28-08-20, 03:09 PM
آخر رد: Sholh
  كيفية عرض بيانات الغرفة من قاعدة البيانات إلى واجهة المستخدم sherf 0 218 16-08-20, 06:01 AM
آخر رد: sherf
  كيفيه التعامل مع الصنف atefkhalf2004 3 326 11-07-20, 12:08 AM
آخر رد: atefkhalf2004

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم