[RESOLVED] Richtextbox with mouse cursor and add/replace saving

[gabriel10]

hi, I have a RichTextBox with buttons two check boxes add and replace. the problem is when i open a file it should open it exactly where the mouse cursor is and replace the text that is selected in the richtextbox (if there is any ).

And the second part would be to with the save button. If add is selected then it should add the content to the file or it should replace the content if replace is selected.

i have an open dialog and it's a txt file.
I am using the following code to open the file.

Private Sub Command1_Click()
On Error GoTo Cancel
CommonDialog1.DefaultExt = "txt"
CommonDialog1.ShowSave
Cancel:
End Sub

thanks a lot for the help given

[DataMiser]

Apparently the code posted has nothing to do with the issue at hand.

If you are looking to read data from a file and replace the selected text with the data from the file then you will need to open the file, read the data into a variable, insert it into the RTB and then of course save the data in the RTB to file if you want to save it.

If you have written code for this then post that and let us know where you are having an issue. The code above just shows a dialog to save as but does not really do anything else.

[gabriel10]

the problem is i don't know the code for opening the file and replacing the text if any is selected , and if text is not selected then it should just start placing the txt content into the RTB where the cursor is.

the second part is with the saving , i have to make it replace the file if replace is selected or add the content if add is selected:-s

[DataMiser]

Look up Open, input, output, append and .seltext in your online help for a nudge in the right direction.

[DataMiser]

For example when you open a file for output the file will be created if not there and overwritten if it is there already whereas if you open it for append it will be created if not there and data will be added to the end if the file exists.

Of course when you open for input this allows you to read the file. [e.g. input the data into memory]

[ComITSolutions]

To Read the File

   Richtextbox.LoadFile(FileName,FileType)
   ' File Type = 1(rtfText) = Text file
   ' File Type =2(rtfRTF) = RTF File

To Save the File

   Richtextbox.SaveFile(FileName,FileType)
   ' File Type = 1(rtfText) = Text file
   ' File Type =2(rtfRTF) = RTF File

you can use Replace function to find and replace text.

[DataMiser]

Yes but if I understood correctly the intention was to have a file or some text already in the RTB then load data from a file into the selected area or the cursor location of the RTB. This would require reading the file into a variable first and then the use of the seltext method.

Also he mentioned the need to append to existing file when saving. The basic RTB load and save options would likely not be an option.

[gabriel10]

DataMiser you are right. The basic stuff doesn't work because i have to load the text when i have text in the rtb or when there is nothing there ( when it's empty that's no problem ) , the problem comes when i have text and i have to load the file. The text from the file has to be placed exactly where the mouse cursor is in the rtb and if i have selected text in the rtb replace it.


For the saving part , the save button has to take some attributes from the two option buttons ( add / replace ) . when add is selected is should just add the content to the file and when replace is selected it should replace the entire file, which again i can't figure out how to code it .

The basic open and save and the part for editing text, font and stuff wasn't so hard, but this is beyond my knowledge , and believe me i have tried searching google and youtube for tutorials

[ComITSolutions]

Yes but if I understood correctly the intention was to have a file or some text already in the RTB then load data from a file into the selected area or the cursor location of the RTB. This would require reading the file into a variable first and then the use of the seltext method.

Also he mentioned the need to append to existing file when saving. The basic RTB load and save options would likely not be an option.

Yes, Datamiser I understood it wronly.

The following Code may be useful, I have added one more invisible richtextbox to the same form.
Logic is when user clicks button, first richtextbox lost focus event is raised during that time i am storing the cursor position to a variable and enabling common dilogbox to select input file and reading that file to richtextbox2. Using mid$ function Concatenating the texts in both richtextboxes.

Hope this what he was looking!

Option Explicit
Dim CurrentCursPosition As Long
Private Sub CmdRead_Click()
    CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" & _
    "(*.txt)|*.txt|Batch Files (*.bat)|*.bat"
    CommonDialog1.FilterIndex = 2
    CommonDialog1.ShowOpen
      If CommonDialog1.FileName <> "" Then
          RichTextBox2.LoadFile CommonDialog1.FileName, rtfText
          RichTextBox1.Text = Mid$(RichTextBox1.Text, 1, CurrentCursPosition) & RichTextBox2.Text & _
              Mid$(RichTextBox1.Text, CurrentCursPosition + 1)
          
      End If
End Sub

Private Sub cmdSave_Click()
    CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" & _
    "(*.txt)|*.txt|Batch Files (*.bat)|*.bat"
    CommonDialog1.FilterIndex = 2
    CommonDialog1.ShowSave
      If CommonDialog1.FileName <> "" Then
          RichTextBox1.SaveFile CommonDialog1.FileName, rtfText
      End If

End Sub

Private Sub RichTextBox1_LostFocus()
  CurrentCursPosition = RichTextBox1.SelStart
End Sub

[gabriel10]

Thanks a lot ComITSolutions almost everything is working now, all i have to figure out now is how to delete the selected text

[ComITSolutions]

Thanks a lot ComITSolutions almost everything is working now, all i have to figure out now is how to delete the selected text

If your problem is solved, mark this thread as [Resolved]

[gabriel10]

for now it's solved about 90% :-s , i am searching to find the way to delete the text from the rtb (if any is selected ) when opening a file, i will post the answer when i find it and mark it resolved then

[ComITSolutions]

for now it's solved about 90% :-s , i am searching to find the way to delete the text from the rtb (if any is selected ) when opening a file, i will post the answer when i find it and mark it resolved then

RichTextBox1.selText="<---Replacing Text ------>"

[gabriel10]

yup, it's done now, thanks a lot ComITSolutions!!!