جستجو در فایل تکست و جابه جایی کاراکتر

[سپهر-111]

سلام دوستان گل
من میخوام توی یک فایل تکست جستجو کنم و هر جا و هر چند تا ، از این دو کاراکتر MN بود با کاراکتر GH جابه جا کنم ؟؟
چطوری باید این کار انجام بدم ؟

ممنون میشم اگه اساتید محترم راهنمایی بفرمایند
با تشکر از توجه دوستان

[MohammadGh2011]

سلام دوستان گل
من میخوام توی یک فایل تکست جستجو کنم و هر جا و هر چند تا ، از این دو کاراکتر MN بود با کاراکتر GH جابه جا کنم ؟؟
چطوری باید این کار انجام بدم ؟

ممنون میشم اگه اساتید محترم راهنمایی بفرمایند
با تشکر از توجه دوستان
سلام عليکم


Private Sub Command1_Click()
Dim Search, Where
Search = InputBox("Enter text to be found:")
Where = InStr(Text1.Text, Search)
If Where Then
Text1.SetFocus
Text1.SelStart = Where - 1
Text1.SelLength = Len(Search)
Text1.Text = Replace(Text1, Search, "GH")
Else
MsgBox "String not found."
End If

End Sub

Private Sub Form_Load()
Text1.Text = "MNH@GH.COM"
End Sub

[majidbahrami]

سلام..

Text1.Text = <span class="highlight">Replace</span>(Text1.Text, "src = ""MN", "src=""GH")
موفق باشید

[سپهر-111]

سلام..

Text1.Text = <span class="highlight">Replace</span>(Text1.Text, "src = ""MN", "src=""GH")
موفق باشید

با سلام
با عرض تشکر از دوست گرامی محمد قائم پناه و شما دوست عزیز
یک سوال داشتم چرا بعضی مواقع که دوستان زحمت میکشن و کدی رو تو پست میزارن به این صورت در میاد ؟! (<span class=)

Text1.Text = <span class="highlight">Replace</span>(Text1.Text, "src = ""MN", "src=""GH")

چون من دقیقا همین تو وی بی اجرا کردم ارور داد !

[MohammadGh2011]

با سلام
با عرض تشکر از دوست گرامی محمد قائم پناه و شما دوست عزیز
یک سوال داشتم چرا بعضی مواقع که دوستان زحمت میکشن و کدی رو تو پست میزارن به این صورت در میاد ؟! (<span class=)

Text1.Text = <span class="highlight">Replace</span>(Text1.Text, "src = ""MN", "src=""GH")

چون من دقیقا همین تو وی بی اجرا کردم ارور داد !
سلام عليکم
بله بعضي مواقع اينطوري ميشه،يکي از دلايلي که باعث ميشه کدها اينطوري بشه اينه که کد رو درست تو تگ مخصوص به خودش قرار نميديم يا از سايتي کپي ميکنيم.
اين کد صحيحش اينطوريه:
Text1.Text = Replace(Text1.Text, "MN", "GH")


موفق باشيد