PDA

View Full Version : جایگزینی متن در nodepad


emprator2009
دوشنبه 26 اسفند 1387, 06:25 صبح
چه جوری می تونم یک متن موجود در تکست باکس را به جای یک متن دلخواه در نودپد جایگزین کرد.
مثلا روی فرم دوتا تکست باکس باشه یکی برای پیدا کردن کلمه موجود و تکست دومی برای جایگزین کردن کلمه مربوطه.
مرسی
موفق باشید
Mbt925
دوشنبه 26 اسفند 1387, 13:14 عصر
در مرحله اول شما باید بتونید در متن جستجو کنید.

به این ترتیب که از کاراکتر اول شروع کنید و به طول کلمتون، از متن مربوطه کلمه جدا کنید و با کلمه موردنظر مقایسه کنید.
در صورتی که برابر بودند، جایگزینی رو انجام بدید و در غیر اینصورت کاراکتر شروع رو یکی جلو ببرید.

به همین ترتیب تکرار کنید.
emprator2009
دوشنبه 26 اسفند 1387, 17:26 عصر
ممنون از توجه شما میشه با یک برنامه مشابه یکم بیشتر توضیح بدید (متاسفانه نفهمیدم:خجالت:)
مرسی
موفق باشید
vahidm
جمعه 20 شهریور 1388, 06:10 صبح
سلام
دوست عزیز اگر مشکلتون حل نشده من براتون نمونه کد یا برنامه بذارم
BookWorm
یک شنبه 22 شهریور 1388, 04:32 صبح
Private Sub Command1_Click()
Dim FoundPos As Integer
Dim FoundLine As Integer
' Find the text specified in the TextBox control.
FoundPos = RichTextBox1.Find(Text1.Text, , , rtfWholeWord)
' Show message based on whether the text was found or not.
If FoundPos <> -1 Then
' Returns number of line containing found text.
FoundLine = RichTextBox1.GetLineFromChar(FoundPos)
MsgBox "Word found on line " & CStr(FoundLine)
Else
MsgBox "Word not found."
End If
End Sub