تبدیل یک کاراکتر ثابت به اینتر در یک لیست باکس

[samiasoft]

سلام دوستان

من حدود چندهزار ردیف متن دارم که در لیست باکس آوردمشون...بطوری که داخل این ها کلمه seb وجود دارد.

میخواستم هرجا کلمه seb اورده شده این کلمه پاک بشه و یک اینتر زده بشه.

مثل این

سلام خوبینsebمن خوبم

سلام خوبین
من خوبم


ممنون میشم منو راهنمایی کنید
با تشکر

[mehran6764]

از این تابع Replace استفاده کنید ، عدد 13 کد اسکی اینتر هست و تابع chr کد اسکی رو به کاراکتر معادلش تبدیل می کنه


SearchString = Replace(Text1.Text, "seb", Chr(13))
MsgBox (SearchString)

[samiasoft]

اگر بخواهیم کلمه seb رو وقتی دید اینتر کنه و دوباره کلمه seb رو قرار بده
برای اینکار باید کد رو چطوری بنویسیم؟ممنون میشم این رو هم راهنمایی کنید


مثلا

سلام
seb
خوبی

تبدیل بشه به

سلام
seb
seb
خوبی

[Mori Bone]

SearchString = Replace(Text1.Text, "seb", Chr(13)) & "seb"
MsgBox (SearchString)