تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
حذف جزء من جملة نصية
#1
انا عندي جمل نصية مختلفة اريد حذف اجذا منها حسب الاتي

اولا mn nob
2 dfth oun
3 ali-smart
4 aiman\good
ebrahim? student

اولا الجمل ليست ثابتة في طول المقطع وهية دية المشكلة انا حاولت اعتمد علي الثوابت وهي 1 الفراغ ومابعدة يبقي الجزء الباقي nob
2 oun
3 مابعد - وهي smart
4 مابعد \ good
وهكذا انا حاولت بالكود دة ولكن يحذف مقطع واحد "-" كيف اتعامل معهم بكود واحد يعني اي جملة تحتوي (-," ",\) بكود واحد يبقي مابعد العلامة

Dim n, b As String
n = Textbas.Text
b = n.Remove(n.LastIndexOf("-") )
الرد }}}
تم الشكر بواسطة:
#2
بدل ما تحذفها استبدلها بقيمة فارغة بدالة Replace
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

الرد }}}
تم الشكر بواسطة:
#3
المشكلة معايا اني نفذت الكود بس مع وجود اكتر من شرط اتلخبط شوي ولو حطيت دالة replace بردك المشكلة في ان في عدة شروط
الرد }}}
تم الشكر بواسطة:
#4
السلام عليكم و رحمة الله و بركاته

أخي الكريم أعتقد حسب ما فهمت من كلامك أنه يمكن أنا يكون هناك حل بإستخدام طريق split و ذلك عن طريق تقطيع الجمله إلى مقاطع بإستخدام علامه مميزه و يكون مثل ذلك:

كود :
Dim A as string = "النص"
Dim S = A.split("الإشارة المميزه")
Msgbox(S(0))
Msgbox(S(1))
ملحوظه عند كتابة :
S(0)
تعطيك ما قبل الإشارة المميزه

S(1)
تعطيك ما بعد الإشارة المميزه


و إن كان هناك أي تعقيب أنا في الخدمه
الرد }}}
تم الشكر بواسطة:
#5
كود :
TextBox1.Text = TextBox1.Text.Replace(" oun", "")
        TextBox1.Text = TextBox1.Text.Replace("-smart", "")
        TextBox1.Text = TextBox1.Text.Replace("\good", "")
        TextBox1.Text = TextBox1.Text.Replace(" student", "")
الرد }}}
تم الشكر بواسطة:
#6
ليش تعقدون الموضوع ؟؟


استعمل (regular expressions (regex
الرد }}}
تم الشكر بواسطة:
#7
لكي يتبين مرادك لماذا لا تضع اكثر من نص مختلف وتضع بجانبة النص الاذي تريد استخلاصه
الرد }}}
تم الشكر بواسطة:
#8
الان فهمت قصدك اخي اولآ ضع هذه الطريقة

كود :
Private Sub Change(ByVal chr1 As Char, ByVal chr2 As Char, ByVal NewStr As String)
        On Error Resume Next
        While TextBox1.Text.Contains(chr1)
            If Not TextBox1.Text.Contains(chr2) Then
                Exit While
            End If
            Dim n As Short = TextBox1.Text.IndexOf(chr1) + 1
            Dim txt As String = Mid(TextBox1.Text, n, TextBox1.TextLength - n)
            Dim i As Short = txt.IndexOf(chr2)
            TextBox1.Text = TextBox1.Text.Replace(Mid(TextBox1.Text, n, i + 1), NewStr)
        End While
    End Sub

عند الاستدعاء اكتب Change وارسل ثلاث باريمترات
لاحظ الشرح مع الالوان

كود :
Change([color=#0000FF]"\"[/color], [color=#FF0000]"H"[/color], [color=#800000]""[/color])

الحرف الذي تبدأ بها الكلمة مثل
3booody\

الحرف الثاني والذي يكون بعد الكللمة المراد تغيرها

3booodyH\

الاخير وهو نصي يأخذ الكلمة التي تريد التغير اليها

ملاحظه لاتكرر الاحرف الثانية H حاول تغير الحرف عند الارسال حتى لايحدث اخطاء

علمآ بأن الكود اتعبني شوي لان اخذ مني وقت لكن ماكو تعب لأخواني(ولاحد يظن ان الكود معقد وطويل لكن السبب هو حتى اتلافى الاخطاء مع تكرار الاحرف)

موفق
الرد }}}
تم الشكر بواسطة:
#9
بالرغم من ان الطلب معقد بعض الشيء بس المنتدي بة كثير من المبدعين وانا يكفيني التفاعل مع الموضوع بالشكل الجميل دة
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] جملة اتصال بملف اكسيل ٢٠٠٣ بكلمة مرور Mr.H 0 32 اليوم, 01:07 AM
آخر رد: Mr.H
  معرفة رصيدي للهاتف النقال المتصل بالكمبيوتر وارسال رسائل نصية منه AHMED213 0 98 22-02-24, 11:47 AM
آخر رد: AHMED213
  جملة الاتصال بقاعدة البيانات اكسس محمد خيري 4 362 12-12-23, 03:14 AM
آخر رد: محمد خيري
  مشكلة في جملة الاتصال مع sqlserver strongriseman 0 216 21-11-23, 01:32 PM
آخر رد: strongriseman
  [VB.NET] مطلوب دمج جملتين لتحديث قاعدة بيانات فى جملة واحدة AmeenRashed 1 335 18-11-23, 01:32 AM
آخر رد: sniper2030
  هل الداتا قراد فيو تسمح بتعدد الاسطر داخل الخلية عند جلب بيانات نصية طويله من قاعدة ب khalidalwdi 3 460 10-11-23, 11:08 AM
آخر رد: khalidalwdi
  خطا لغوى فى جملة update نبيل فتحى 2 350 10-10-23, 09:51 PM
آخر رد: Ahmed5
  جملة استعلام NasserNasser 2 228 21-08-23, 05:25 PM
آخر رد: NasserNasser
  التوجه الى جملة معينة اسلام الكبابى 2 296 10-08-23, 06:49 PM
آخر رد: اسلام الكبابى
  كيفية تمرير اسم الجدول في جملة الاستعلام atefkhalf2004 4 715 13-02-23, 10:13 AM
آخر رد: atefkhalf2004

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


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