چگونگی استفاده درست از کد replace

[lvlr.fox]

سلام به همه دوستای برنامه نویس
اقا من می خوام یه مبدل قالب وبلاگ درست کنم
خب فرض کنیم سیستم اول 250 تا تگ داره
سیستم دومم هم 250 تا تگ

حالا من میام دوتا تکست باکس و یک دکمه میزارم
بعد برای مثال می نویسم

Private Sub Command1_Click()
Text2.Text = Replace(Text1, "tag1", "t-ag1")
Text2.Text = Replace(Text1, "tag2", "t-ag2")
Text2.Text = Replace(Text1, "tag3", "t-ag3")
End Sub

خب این و که میزنم فقط خط اخر کد یعنی
Text2.Text = Replace(Text1, "tag3", "t-ag3")
عمل میکنه باید چی کار کنم؟

[ahmad.t1100]

دستوری که شما نوشتید صحیح عمل می کنه و هر تگ رو با تگ دیگه جابجا می کنه اما فقط تغییر اخرین خط رو نشون میده و طبیعیه

در ضمن چه دلیلی داره هر باره انو می خواید توی تکس باکس نشون بدید؟؟؟

[lvlr.fox]

خب باید چیکار کنم دقیقا؟ ممنون میشم راهنمایی کنید

[vbhamed]

سلام
Dim s$


s = text1


s = Replace(s, "tag1", "t-ag1")
s = Replace(s, "tag2", "t-ag2")
s = Replace(s, "tag3", "t-ag3")


text2 = s