جستجو و جایگزینی

[laleh_gb]

سلام
چطور میتونم کلمه ای را در متن داخل یک textbox جستجو کنم وتنها در اولین بار ان را با کلمه ای دیگر جایگزین کنم؟اولین بار یعنی اولین باری که درمتن پیدا شد و در جاهای دیگر دست نخورده بماند چون با تابع replace کلمه را در کل متن پیدا وجایگزین میکند.
سعی کردم با آرایه حلش کنم ولی انگار نمیشه.

[JaVa]

سلام یه نگاهیی به اینا بنداز تا کارت راه بیفته:

http://barnamenevis.org/showthread.php?215661-find-%D9%88-replace-%D8%AF%D8%B1-wordpad&highlight=find+replace

http://barnamenevis.org/showthread.php?262758-%D8%B1%D9%88%D8%B4-%DA%A9%D8%A7%D8%B1-%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D9%87-%D8%A7%DB%8C-%D8%B4%D8%A8%DB%8C%D9%87-%D8%B9%D9%85%D9%84-find-%D8%AF%D8%B1-notpad&highlight=find+replace


http://barnamenevis.org/showthread.php?230966-%DA%86%D9%86%D8%AF%D8%AA%D8%A7-%D9%83%D8%AF-%D9%85%D9%8A%D8%AE%D9%88%D8%A7%D9%85-%D9%88%D8%A7%D8%B3%D9%87-wordpad&highlight=find+replace

موفق باشی.*

[JaVa]

از این هم می تونی استفاده کنی:
If TextBox1.Text.Contains("Sample") Then

TextBox1.Text = TextBox1.Text.Replace("Sample", "New Sample")

[laleh_gb]

از این هم می تونی استفاده کنی:
If TextBox1.Text.Contains("Sample") Then

TextBox1.Text = TextBox1.Text.Replace("Sample", "New Sample")


مرسی اما اینم تمام جاهایی که اون کلمه باشه replace میکنه.
من میخوام فقط اولین بار replace شه..

[the king]

سلام
چطور میتونم کلمه ای را در متن داخل یک textbox جستجو کنم وتنها در اولین بار ان را با کلمه ای دیگر جایگزین کنم؟اولین بار یعنی اولین باری که درمتن پیدا شد و در جاهای دیگر دست نخورده بماند چون با تابع replace کلمه را در کل متن پیدا وجایگزین میکند.
سعی کردم با آرایه حلش کنم ولی انگار نمیشه.

Dim findWhat As String = "Sample"
Dim replaceWith As String = "New Sample"
Dim pos As Integer = TextBox1.Text.IndexOf(findWhat)
If pos >= 0 Then
TextBox1.Text = TextBox1.Text.Remove(pos, findWhat.Length).Insert(pos, replaceWith)
End If

[laleh_gb]

Dim findWhat As String = "Sample"
Dim replaceWith As String = "New Sample"
Dim pos As Integer = TextBox1.Text.IndexOf(findWhat)
If pos >= 0 Then
TextBox1.Text = TextBox1.Text.Remove(pos, findWhat.Length).Insert(pos, replaceWith)
End If


مرسی واقعا مشکل حل شد.