تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] برنامج يقوم بالاستبدال التلقائي
#1
السلام عليكم ورحمةة الله وبركاته

كيف الحال جميعاً إن شاء الله بخير

انا سعيد بإنظمامي معكم واكتساب ولو أقل القليل من خبراتكم ..
فياليت القى مساعده .. وابي طلب من المبرمجين واتمنى اقدر اوضح لكم الفكره الي
ابغاها،
نخش بالفكره بسم الله
اولاً أنا مبتدئ في عالم البرمجه وفيي بدايتي وفكرتي آبغا اصمم مثلا برنامج
يستبدل تلقائي يشابه الاستبدال الموجود في Notepad
مثلا عندي مقال طويل او جمملتين ومثال توضيحي

{ كيف الحال }
ابغا اصمم برنامج مثلاً اضيف مربع صغير واضع فيه الكلام الي ابغاه يبحث لي عنه
مثل يبحث عن كيف الحال ، ومربع صغير بجانبه اضع فيه { مساء الخير }
ويقوم بالاستبدال
"" علماً اضيف مثلاً مستند وورد أو مفكره بجانب البرنامج يقوم البرنامج بالبحث داخل هذه المفكره او مستند الوورد ""[b]
اتمنى شرح وافي وكافي لاني استفيد من هالشيء وابغغاااه ضروري
لغة البرمجه يفضل تكون vb.net
بإنتظاركم .. أخواني Heart
الرد
تم الشكر بواسطة:
#2
.....

راح أعطيك "بداية برمجة" في البحث والاستبدال داخل ملف الوورد

إعمل مشروع جديد

في Form1:
ضع ثلاث TextBox
إثنان Button


أضف المرجع الخاص بالوورد:
من القائمة Project إختر ...Add Reference
من النافذة التي ستظهر إختر التبويب [COM] ومنه إختر المكتبة Microsoft Word xx.0 Object Library أكبر رقم لديك


ضع هذا الكود في Form1
كود :
' أضف المرجع التالي من القائمة
' Project>Add Reference: [COM]> Microsoft Word xx.0 Object Library

Imports Microsoft.Office.Interop

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Using op As New OpenFileDialog
            op.Filter = "Word documents (*.docx,*.doc)|*.docx;*.doc"
            If op.ShowDialog = Windows.Forms.DialogResult.OK Then
                Me.TextBox1.Text = op.FileName
            End If
        End Using
    End Sub


    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If Me.TextBox1.Text <> "" Then
            If TextBox2.Text = "" Or Me.TextBox3.Text = "" Then
                MsgBox("يجب كتابة كلمة البحث وكلمة الاستبدال")
            Else
                WordFindAndReplace(Me.TextBox1.Text, Me.TextBox2.Text, Me.TextBox3.Text)
            End If
        End If
    End Sub

    Public Sub WordFindAndReplace(ByVal docFilename As String, ByVal findStr As String, ByVal replaceStr As String)
        Try

            Dim objWordApp As New Word.Application

            objWordApp.Visible = True ' إظهار برنامج الوورد
            ' True بدلا من False إذا أدرت عدم إظهار الوورد ضع

            ' فتح ملف الوورد
            Dim objDoc As Word.Document = objWordApp.Documents.Open(docFilename)
            objDoc = objWordApp.ActiveDocument

            ' wdReplaceAll بحث واستبدال نص للكل
            Dim result As Boolean = objDoc.Content.Find.Execute(FindText:=findStr, ReplaceWith:=replaceStr, Replace:=Word.WdReplace.wdReplaceAll)

            ' حفظ ملف الوورد
            objDoc.Save()
            objDoc.Close()
            objDoc = Nothing
            objWordApp.Quit()
            objWordApp = Nothing

            If Not result Then
                MsgBox("لم أجد مطابقة في البحث")
            Else
                MsgBox("تم الاستبدال بنجاح")
            End If

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

End Class

.....
الرد
تم الشكر بواسطة: aftfm , kslawy
#3
شكرااا لك اخي لاكن ممكن
تعمل البرنامج وتعطيني الرابط وراح ارجع اعدل عليه انا
الرد
تم الشكر بواسطة:
#4
شكرا لك .. بعد التركيز تم عمل البرنامج يعطيك
آلف عافيه ، والله يرزقك ويستر عليك ويجعل مثواك الجنه
انت ووالدينك ومن يمر على هالموضوع
الرد
تم الشكر بواسطة: kslawy


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] برنامج تشفير بدون سيريل habamix 0 11 منذ 1 ساعه مضت
آخر رد: habamix
Photo أريد كود HTML يقوم بحجب الموقع وبه TextBox & Button ... [ التفاصيل بالداخل ] PeterGhattas082460 4 67 منذ 5 ساعة مضت
آخر رد: elgokr
  اريد حفظ المشروع كتطبيق للموبايل او برنامج سهل لعمل تطبيق لموقعي ahmedhhh2 4 97 16-06-19, 02:15 PM
آخر رد: elgokr
Exclamation [سؤال] مشكلة عدم قبول النصوص الطويل في قاعدة البيانات على برنامج فيجوال بيسك 2010 الرائد 12 301 14-06-19, 03:03 PM
آخر رد: elgokr
Photo [مشروع] مساعدة في برنامج hamadz 1 129 06-05-19, 06:02 AM
آخر رد: ابراهيم ايبو
  كيفية تشغيل برنامج exe باستخدام الفيجوال Emam emam 5 255 29-04-19, 03:04 PM
آخر رد: alsouf
  [VB.NET] برنامج حضور وانصراف الموظفين eng.molinux 9 2,015 29-04-19, 01:37 AM
آخر رد: m_almsni
  تصميم برنامج ادارة المدرسة فدياس 6 5,343 26-04-19, 11:56 PM
آخر رد: مصمم هاوي
  [VB.NET] مساعدة بخصوص برنامج مبيعات hodanet 4 210 20-04-19, 12:16 PM
آخر رد: elgokr
  [VB.NET] اريد دورة تصميم برنامج محاسبي من الصفر مع sql server mohamedhota 3 214 18-04-19, 07:52 PM
آخر رد: عبد العزيز البسكري

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


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