الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

استفسار عن التعامل مع النصوص

بدأه العقرب 2 في 7 يونيو 2011 · 6 رد · 447 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

انا عايز اعرف ازاي اتعامل مع النصوص

عايز اعرف النص اللي بين نصين

و ابدلة بنص تاني

يعني مثلا لو في متغير بالقيمة دي

hgkbj%TheBestSite%okjo

ازاي بقي اقدر اعرف النص اللي بين علامتي %

وازاي ابدلة بنص تاني عشان مثلا يبقي كدا

hgkbj%arabteam2000%okjo

وهـــكـــــذا

شكرا

ســــــــــــــــــــــــــــــــــــــــــــــــــــــــــلام

#2

السلام عليكم ورحمه الله وبركاته

اخي يمكنك استخدام ال RegularExpress, جرب الكود التالي


Imports System.Text.RegularExpressions

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim text As String = "hgkbj%TheBestSite%okjo"
text = Regex.Replace(text, "%\w*%", "%arabteam2000%")
MessageBox.Show(text)
End Sub
End Class

.:: Wish to become better and better ::.

#3

تمام كدا .. هو دا اللي انا عايزة ..

ممكن كمان طلب بقي

ازاي اعرف النص المحذوف

يعني مثلا :

بعد ما النص دا:

hgkbj%TheBestSite%okjo

اتغير وبقي بالشكل دا:

hgkbj%arabteam2000%okjo

عايز احط قيمة النص المحذوف في متغير

اللي هو دا:

TheBestSite

وشكرا ... سلام

#4

غير الكود إلى

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim text As String = "hgkbj%TheBestSite%okjo"
        Dim pattern As String = "%(?'DeletedText'\w*)%"
        Dim m As Match = Regex.Match(text, pattern)
        If m.Success Then
            MsgBox(m.Groups("DeletedText").Value)
            text = Regex.Replace(text, pattern, "%arabteam2000%")
        End If
        MessageBox.Show(text)
    End Sub

إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال

feed.1.gif

#5

السلام عليكم ورحمه الله وبركاته

اخي جرب الكود التالي


Dim removed As String = Regex.Match(text, "%\w*%").Value.Trim("%")
MessageBox.Show(removed)
    	Dim text As String = "hgkbj%TheBestSite%okjo"

.:: Wish to become better and better ::.

#6

السلام عليكم

شكرا جدا .. الكودين شغالين .. بس ممكن سؤال

الجزء دا من اخر كود ان كتبته

Dim removed As String = Regex.Match(text, "%\w*%").Value.Trim("%")

وبالتحديد النقطة دي

.Value.Trim("%")

ايه معني علامة % هنا ؟؟

وشكرا

#7

السلام عليكم ورحمه الله وبركاته

اخي هي نفسها علامة ال % كما هو في نصك الاول

.:: Wish to become better and better ::.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…