HI All,

I m using flw func to store text in db.
Function StoreText(theText)
    StoreText = ""
    on error resume next
    StoreText = CStr(theText)
    if (len(StoreText) > 0) Then
      StoreText = Replace(StoreText, """", """, 1, -1, 1)
      StoreText = Replace(StoreText, "'", "''", 1, -1, 1)
      StoreText = Replace(StoreText,"<","&lt;", 1, -1, 1)
      StoreText = Replace(StoreText,">","&gt;", 1, -1, 1)
      StoreText = Replace(StoreText, vbCrLf, "<BR>", 1, -1, 1)
    end if
End Function

now problem comes when i want to edit the text stored by this function and that prob is only for ", since this is replace by &quote; when user tries to modify text, it gets value with &quote; e.g.stored text is - I will "call" u. Will be display like - I will &quote;call&quote; u.

Thanks in advace.

Rupen Anjaria.
We CAN'T avoid problems, but can solve it.

Hi
while retreiving the data r u using any function? Because when u display the data for editing, you need to replace "&quot;" with """"

Om Prakash

HI,
Ofcourse, I am using a function:
---------------
Function EditMemo(theText)
    EditMemo = ""
    on error resume next
    EditMemo = CStr(theText)
    if (len(EditMemo) > 0) Then
      EditMemo = Replace(EditMemo,"<br>",vbCrLf, 1, -1, 1)
      EditMemo = Replace(EditMemo, "&quot;", "CHR(32)", 1, -1, 1)
      EditMemo = Replace(EditMemo,"&lt;","<", 1, -1, 1)
      EditMemo = Replace(EditMemo,"&gt;",">", 1, -1, 1)
      EditMemo = Replace(EditMemo, "''","'", 1, -1, 1)
    end if
End Function
----------------
The prob is with :
      EditMemo = Replace(EditMemo, "&quot;", """", 1, -1, 1)
I have to replace &quot; with "

I hope to be clear now!!


Rupen Anjaria.
We CAN'T avoid problems, but can solve it.

Hi,
This is what i understand with your comments:
You use StoreText function to convert your text before storing in database and use EditMemo to get the data into a textbox.

When you use StoreText, to store, the instead of double quotes, "&quot;" is stored in the database. While displaying this in a text box, in EditMemo function, how r u getting the data as "&quote;"..?

Please remove the following line form EditMemo function:

EditMemo = Replace(EditMemo, "&quot;", "CHR(32)", 1, -1, 1)

To display double quotes in a textbox, you need to use &quot;
This string will be displayed properly in the textbox:

- I will &quot;call&quot; u.

Hope this will help..



Om Prakash

HI,
I think u r getting confu with this, EditMemo is used to edit/modify the text entered by user, say i have written something and i want to modify that.
so while getting data in a textbox or textarea i have to convert &quote; to ", else text will be displayed awkward.

I hope this suffiece!!:)

Rupen Anjaria.:)
------------------
We CAN'T avoid problems, but can solve it.