سوال: برنامه‌اي براي Replace كردن چند واژه در متن

سلام.

من يك متن دارم و مي‌خواهم چند عبارت را در آن - كه خودم فهرست آنها را مي‌دهم - Replace كنم. يعني برنامه در متن دنبال آنها بگردد و اگر پيدايشان كرد، واژه‌اي كه مي‌گويم را جايگزين آنها كند. (مثل ابزار Replace نرم‌افزار MS Word)

توجه داشته باشيد كه واژگان ورودي من، در بين خود داراي يك فاصله (Space) هستند.

ممنون ميشم راهنمايي كنيد. :46:

سلام
فکر کنم نمونه کدهای زیر مشکلتان را حل کند.

کد:

---

'VB6,7,8,9
Dim str1 As String
Dim str2 As String

str1 = "Ali Al-i VBAliVB"

str2 = Replace(str1, "Ali", "Mahdi")

str2 = Replace(str2, "VB", "C++")

'REM str2 = "Mahdi Al-i C++MahdiC++"

=====

'VB6,7,8,9
Dim str1 As String
Dim str2 As String

str1 = "Ali Al-i VBAliVB"

str2 = Replace(Replace(str1, "Ali", "Mahdi"), "VB", "C++")

'REM str2 = "Mahdi Al-i C++MahdiC++"

=====

'VB7,8,9
Dim str1 As String = "Ali Al-i VBAliVB"

Dim str2 As String = str1.Replace("Ali", "Mahdi").Replace("VB", "C++")

'REM str2 = "Mahdi Al-i C++MahdiC++"

---