روش کار برنامه ای شبیه عمل find در notpad

[morrning]

سلام

کسی میتونه بنده رو راهنمایی کنه که چطور میتونم برنامه ای شبیه find در برنامه notpad بنویسم .طوری که امان رفتن به کلمه بعدی و قبلی رو داشته باشه

خودم میتونم محل آخرین کلمه رو با استفاده از توابع پیدا کنم اما چطور باید به کلمه های بعدی یا قبلی رجوع کنم

[morrning]

کسی نبود بنده رو یاری بفرماید:لبخند:

[milad.biroonvand]

سلام

کسی میتونه بنده رو راهنمایی کنه که چطور میتونم برنامه ای شبیه find در برنامه notpad بنویسم .طوری که امان رفتن به کلمه بعدی و قبلی رو داشته باشه

خودم میتونم محل آخرین کلمه رو با استفاده از توابع پیدا کنم اما چطور باید به کلمه های بعدی یا قبلی رجوع کنم


سلام

من یه نمونه برنامه کامل برای اینکار دارم ، اگه خواستی برات ایمیل کنم ، اگه خواستی به ایمیل azad222@gmail.com میل بده تا برات بفرستمش چون حجمش 2 مگ به بالاست .

[morrning]

اگه زحمتی نیست به آدرس alizadeh.babak@gmail.com بفرستش

[pouyansaraf]

سلام

چرا لینک دانلودش را اینجا نمیگزارید که همه دنلود کنند

[milad.biroonvand]

سلام



این برنامه رو دارم ، حجمش بالای 5 مگه . این فایل اجراییشه ، هر کس نیاز داشت تا کد اون قسمت رو براش بزارم .

[Reza,M]

63666
با سلام
اينم يه فايل اجراييه البته خودم تقريبا يه سال پيش نوشتمش هنوز جاي كامل شدن داره كه من زياد وقت صرفش نكردم

[milad.biroonvand]

سلام

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

[milad.biroonvand]

Form1.RichTextBox1.Find(finbox.Text)

[milad.biroonvand]

کد دستور openfile dialog






OpenFileDialog1.FileName = ""

OpenFileDialog1.Filter = "Text file(*.txt)|*.txt|Rich text file(*.rtf)|*.rtf"

OpenFileDialog1.ShowDialog()

If (OpenFileDialog1.FileName <> "") Then

If OpenFileDialog1.FilterIndex = 1 Then

RichTextBox1.LoadFile(OpenFileDialog1.FileName, RichTextBoxStreamType.PlainText)

rot = 1 'txt

End If

If OpenFileDialog1.FilterIndex = 2 Then

RichTextBox1.LoadFile(OpenFileDialog1.FileName, RichTextBoxStreamType.RichText)

rot = 2 'rtf

End If

End If

count = 2 'save شود
s = OpenFileDialog1.FileName

[milad.biroonvand]

Dim rmsg As Integer

rmsg = MsgBox("Save changes to Document?", MsgBoxStyle.YesNoCancel + MsgBoxStyle.Exclamation, "Dear user")

If rmsg = MsgBoxResult.Yes Then

'دستورات save

'دستورات save as

If count = 1 Then

SaveFileDialog1.FileName = "untitled"

SaveFileDialog1.Filter = "Text file(*.txt)|*.txt|Rich text file(*.rtf)|*.rtf"

SaveFileDialog1.ShowDialog()

If SaveFileDialog1.FileName <> "" Then

If SaveFileDialog1.FilterIndex = 1 Then

RichTextBox1.SaveFile(SaveFileDialog1.FileName, RichTextBoxStreamType.PlainText)

rot = 1 'txt

End If

If SaveFileDialog1.FilterIndex = 2 Then

RichTextBox1.SaveFile(SaveFileDialog1.FileName, RichTextBoxStreamType.RichText)

rot = 2 'rtf

End If

End If

s = SaveFileDialog1.FileName

count = 2 'save شود

RichTextBox1.Clear()

'-----------------------------------------

'دستور save

Else

If rot = 1 Then 'txt

RichTextBox1.SaveFile(s, RichTextBoxStreamType.PlainText)

End If

If rot = 2 Then 'rtf

RichTextBox1.SaveFile(s, RichTextBoxStreamType.RichText)

End If

End If

End If

If rmsg = MsgBoxResult.No Then

RichTextBox1.Clear()

End If



count = 1 'save as biyayad


s = ""

[milad.biroonvand]

'دستورات save as

If count = 1 Then

SaveFileDialog1.FileName = "untitled"

SaveFileDialog1.Filter = "Text file(*.txt)|*.txt|Rich text file(*.rtf)|*.rtf"

SaveFileDialog1.ShowDialog()

If SaveFileDialog1.FileName <> "" Then

If SaveFileDialog1.FilterIndex = 1 Then

RichTextBox1.SaveFile(SaveFileDialog1.FileName, RichTextBoxStreamType.PlainText)

rot = 1 'txt

End If

If SaveFileDialog1.FilterIndex = 2 Then

RichTextBox1.SaveFile(SaveFileDialog1.FileName, RichTextBoxStreamType.RichText)

rot = 2 'rtf

End If

End If

s = SaveFileDialog1.FileName

count = 2 'save شود

'-----------------------------------------

'دستور save

Else

If rot = 1 Then 'txt

RichTextBox1.SaveFile(s, RichTextBoxStreamType.PlainText)

End If

If rot = 2 Then 'rtf

RichTextBox1.SaveFile(s, RichTextBoxStreamType.RichText)

End If
End If

[milad.biroonvand]

SaveFileDialog1.FileName = "untitled"
SaveFileDialog1.Filter = "Text file(*.txt)|*.txt|Rich text file(*.rtf)|*.rtf"
SaveFileDialog1.ShowDialog()
If SaveFileDialog1.FileName <> "" Then
If SaveFileDialog1.FilterIndex = 1 Then
RichTextBox1.SaveFile(SaveFileDialog1.FileName, RichTextBoxStreamType.PlainText)
rot = 1 'txt
End If
If SaveFileDialog1.FilterIndex = 2 Then
RichTextBox1.SaveFile(SaveFileDialog1.FileName, RichTextBoxStreamType.RichText)
rot = 2 'rtf
End If
End If
s = SaveFileDialog1.FileName


count = 2 'save شود

[milad.biroonvand]

Try

Dim Printing As New PrintDialog
PrintDocument1.DocumentName = "mm"
If (PrintDialog1.ShowDialog = Windows.Forms.DialogResult.OK) Then
PrintDocument1.PrinterSettings = PrintDialog1.PrinterSettings
PrintDocument1.Print()
End If
Catch ex As Exception


End Try

[milad.biroonvand]

PrintPreviewDialog1.Document = PrintDocument1
PrintPreviewDialog1.ShowDialog()

[milad.biroonvand]

RichTextBox1.Undo()

[milad.biroonvand]

کد دستور redo


RichTextBox1.Redo()

[milad.biroonvand]

کد دستور cut



RichTextBox1.Cut()


PasteToolStripMenuItem.Enabled = True

[milad.biroonvand]

کد دستور copy



RichTextBox1.Copy()


PasteToolStripMenuItem.Enabled = True

[milad.biroonvand]

کد دستور paste



RichTextBox1.Paste()

[milad.biroonvand]

کد دستور clear



RichTextBox1.Paste()

[milad.biroonvand]

کد دستور select all




RichTextBox1.SelectAll()

[milad.biroonvand]

کد دستور replace




If (Form1.RichTextBox1.SelectedText = "") Then

'********select*******

Dim x As Integer

Dim lenstr As String

x = Form1.RichTextBox1.Find(findforrep.Text)

lenstr = Len(findforrep.Text)

If (x = -1) Then

MsgBox("Finish searching.The search item was not found", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "Dear user")

Else

Form1.RichTextBox1.Select(x, lenstr)

End If



Else

'*********replace

Form1.RichTextBox1.SelectedText = rep.Text

'********select*******

Dim x1 As Integer

Dim lenstr1 As String

x1 = Form1.RichTextBox1.Find(findforrep.Text)

lenstr1 = Len(findforrep.Text)

If (x1 = -1) Then

MsgBox("Finish replacing in this document", MsgBoxStyle.OkOnly + MsgBoxStyle.Information, "Dear user")

Else

Form1.RichTextBox1.Select(x1, lenstr1)

End If

[milad.biroonvand]

کد دستور replace all



Dim payanhalghe As Integer
Do While (payanhalghe <> -1)
If (Form1.RichTextBox1.SelectedText = "") Then
'********select*******
Dim x As Integer
Dim lenstr As String
x = Form1.RichTextBox1.Find(findforrep.Text)
lenstr = Len(findforrep.Text)
If (x = -1) Then
MsgBox("Finish searching.The search item was not found", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "Dear user")
payanhalghe = -1
Else
Form1.RichTextBox1.Select(x, lenstr)
End If

Else
'*********replace
Form1.RichTextBox1.SelectedText = rep.Text
'********select*******
Dim x1 As Integer
Dim lenstr1 As String
x1 = Form1.RichTextBox1.Find(findforrep.Text)
lenstr1 = Len(findforrep.Text)
If (x1 = -1) Then
MsgBox("Finish replacing in this document", MsgBoxStyle.OkOnly + MsgBoxStyle.Information, "Dear user")
payanhalghe = -1
Else
Form1.RichTextBox1.Select(x1, lenstr1)
End If
End If



Loop

[milad.biroonvand]

کد دستور right to left





RichTextBox1.SelectionAlignment = HorizontalAlignment.Right
ToolStripButton16.Checked = False


ToolStripButton17.Checked = False

[milad.biroonvand]

کد دستور font



FontDialog1.ShowDialog()


RichTextBox1.SelectionFont = FontDialog1.Font

[ali_najari]

دوست عزیز چرا اینقدر دستوراتتون رو جدا جدا گزاشتید؟
چرا همه رو توی یک یا 2 تا پست قرار ندادید؟