WRITE ME A SCRIPT PLEASE !!!!

Rothdavid · Nov 26, 2001

Hi:

I need a script that will allow me to add HTML bold and Italic, and underline tags inside a form field.

I have one that works great on a PC but doesn't work at all on a mac and Im not a scripter. Would be happy to send it to you for you to check out?

Its for an editorial archive. Our editors add stories to the web site and as the fill in an ASP form, they copy the text body into a field then need to be able to Bold, Italics and Underline words inside the field so when its recalled, the text is formatted with B, I & U if needed.

The script I have works well on a PC but will not work at all on a mac, its three simple buttons. The user highlights the text then hits the B, I or U button and the script inserts the tags in the text body on either side of the selected text.

Any help would be greatly appreciated.

David

BigBadDave · Nov 26, 2001

Check vituz post :

thread216-144664 Regards

Big Dave

davidbyng@hotmail.com

** If I am wrong I am sorry, but i'm only trying to help!! **

FollowThePeacemakers · Nov 26, 2001

Vituz's post is nice and I can use that code too!

Does anyone know anything similar that will allow users to create their own links? Like the user specifying the <a> URL and link text separately as in <a href="

http://www.blah-blah.com">Click

Here</a> ... Perhaps if they could specify the target too, that would be nice.

BigBadDave · Nov 26, 2001

check out :

faq333-1287 How can I format users input (for a forum entry etc) ? Regards

Big Dave

davidbyng@hotmail.com

** If I am wrong I am sorry, but i'm only trying to help!! **

FollowThePeacemakers · Nov 26, 2001

Dave, thanks for your quick response. The FAQ is just what I needed and it works great!

As for vituz's code for formatting text, when I set up the receiving page, Response.write literally writes verbatim test and not the desired results. Any ideas on what to put on the receiving page? Hopefully vituz is reading this right now <fingers crossed>.

BigBadDave · Nov 27, 2001

All you need to do is :

<%
my_thing = Request.Form("my_stuff&quot

function myreplace()
my_thing = Replace(my_thing, "", "<b>&quot
my_thing = Replace(my_thing, "", "</b>&quot

myreplace = my_thing
end function
Response.Write myreplace()
%>[color] Regards

Big Dave

davidbyng@hotmail.com

** If I am wrong I am sorry, but i'm only trying to help!! **

BigBadDave · Nov 27, 2001

Oops this form has chaned my code, i'll try again :

Code:

<%
my_thing = Request.Form(&quot;my_stuff&quot;)
function myreplace()
  my_thing = Replace(my_thing, &quot;[b]&quot;, &quot;<b>&quot;)
  my_thing = Replace(my_thing, &quot;[/b]&quot;, &quot;</b>&quot;)
  myreplace = my_thing
end function
Response.Write myreplace()
%>

Regards

Big Dave

davidbyng@hotmail.com

** If I am wrong I am sorry, but i'm only trying to help!! **

FollowThePeacemakers · Nov 27, 2001

In the myreplace() function, do I just keep making Replaces for the rest of the formatting options, too?

i.e.:
to <i>
to </i>
to <u>
to </u>

...and so on and so on? Any idea how it would be done with the colors?

christianbecker · Nov 27, 2001

I tested the code from thread on Mac with IE 5 and recieved the following error:

Microsoft JScript runtime error
"null" is not an object

this referred to the following line of code

sel=(IE)?doument.selection;(NC)?document.getSelection():null

The script work fine on PC but not on mac. This is from Thread216-144664.

<script language="JavaScript" type="text/javascript">
<!--
var IE=document.all || document.getElementById
var NC=document.layers

function Inserty(){
var prestart,preend,start,end,sel,range,thetext,dvsn,colname,theform,formname,colselname,colsel,effselname,effsel,effname,eff
formname="myne"
colselname="colorName"
effselname="effectName"
theform=document.forms[formname]
colsel=theform[colselname]
effsel=theform[effselname]
colname=colsel.options[colsel.selectedIndex].value
effname=effsel.options[effsel.selectedIndex].text
eff=effsel.options[effsel.selectedIndex].value

dvsn=["[","]","[/"]
prestart=""
preend=""

if (colname!='none'){
prestart=dvsn[0]+'color '+colname+dvsn[1]
preend=dvsn[2]+'color'+dvsn[1]
}

start=(effname!='color')?prestart+dvsn[0]+eff+dvsn[1]

restart
end=(effname!='color')?dvsn[2]+eff+dvsn[1]+preend

reend

sel=(IE)?document.selection

NC)?document.getSelection():null
range=sel.createRange()
thetext=range.text
if (thetext.length){
range.text=start+thetext+end
}}
//-->
</script>

I would appreciate any help to make these code work on MAC or any reference to other codes do do the same function that work on mac.

many thanks.

Christian Becker
cbecker@sarasotamagazine.com

BigBadDave · Nov 27, 2001

Yes you can add as many things into the function as you like. Regards

Big Dave

davidbyng@hotmail.com

** If I am wrong I am sorry, but i'm only trying to help!! **

FollowThePeacemakers · Nov 27, 2001

Yes, I found that out. Check out the code ...(also, some questions below)

<%
my_thing = Request.Form("txtar&quot

function myreplace()
my_thing = Replace(my_thing, "[]", "&quot

my_thing = Replace(my_thing, "[/]", "&quot

my_thing = Replace(my_thing, "", "<b>&quot
my_thing = Replace(my_thing, "", "</b>&quot

my_thing = Replace(my_thing, "", "<i>&quot
my_thing = Replace(my_thing, "", "</i>&quot

my_thing = Replace(my_thing, "", "<s>&quot
my_thing = Replace(my_thing, "", "</s>&quot

my_thing = Replace(my_thing, "", "<u>&quot

my_thing = Replace(my_thing, "", "</u>&quot

my_thing = Replace(my_thing, "", "<font color=green>&quot

my_thing = Replace(my_thing, "", "<font color=red>&quot

my_thing = Replace(my_thing, "", "<font color=gray>&quot

my_thing = Replace(my_thing, "", "<font color=blue>&quot

my_thing = Replace(my_thing, "", "</font>&quot

myreplace = my_thing
end function
Response.Write myreplace()
%>

==
I can do the same thing with more colors and fonts, too!

QUESTIONS:

See how I had to replace "[]" to "" and "[/] to "" ...I did that because I also want a "None" value like in the colorName field for the effectName field. But when you click on "effect," the value of "" will still post as [][/] in the textarea of originating page. Have any idea how I can get a true null value of "" and not [][/] in the textarea?

Also, do you happen to know how I can get carriage returns to work on the receiving page?

FollowThePeacemakers · Nov 27, 2001

christianbecker and Rothdavid, I hope someone can help you out with Mac compatibility. Rothdavid, sorry I had so many questions in your thread.

BigBadDave · Nov 27, 2001

Yes carriage returns are easy peasy :

Code:

<%
my_thing = Request.Form(&quot;txtar&quot;)
function myreplace()
  my_thing = Replace(my_thing, &quot;[]&quot;, &quot;&quot;)
  my_thing = Replace(my_thing, &quot;[/]&quot;, &quot;&quot;)
  my_thing = Replace(my_thing, &quot;[b]&quot;, &quot;<b>&quot;)
  my_thing = Replace(my_thing, &quot;[/b]&quot;, &quot;</b>&quot;)
  my_thing = Replace(my_thing, &quot;[i]&quot;, &quot;<i>&quot;)
  my_thing = Replace(my_thing, &quot;[/i]&quot;, &quot;</i>&quot;)
  my_thing = Replace(my_thing, &quot;[s]&quot;, &quot;<s>&quot;)
  my_thing = Replace(my_thing, &quot;[/s]&quot;, &quot;</s>&quot;)
  my_thing = Replace(my_thing, &quot;[u]&quot;, &quot;<u>&quot;)
  my_thing = Replace(my_thing, &quot;[/u]&quot;, &quot;</u>&quot;)
  my_thing = Replace(my_thing, &quot;[COLOR=green]&quot;, &quot;<font color=green>&quot;)
  my_thing = Replace(my_thing, &quot;[COLOR=red]&quot;, &quot;<font color=red>&quot;)
  my_thing = Replace(my_thing, &quot;[COLOR=gray]&quot;, &quot;<font color=gray>&quot;)
  my_thing = Replace(my_thing, &quot;[COLOR=blue]&quot;, &quot;<font color=blue>&quot;)
  my_thing = Replace(my_thing, &quot;[/color]&quot;, &quot;</font>&quot;)
  my)thing = Replace(my_thing, VBcrlf, &quot;<br />&quot;)
  myreplace = my_thing
end function
Response.Write myreplace()
%>

Note the VBcrlf is VBScript code for carriage return Regards

Big Dave

davidbyng@hotmail.com

** If I am wrong I am sorry, but i'm only trying to help!! **

BigBadDave · Nov 27, 2001

Anyone know the answer to the crapintosh dilema?? Regards

Big Dave

davidbyng@hotmail.com

** If I am wrong I am sorry, but i'm only trying to help!! **

FollowThePeacemakers · Nov 27, 2001

Know anyting about the [] and [/] problem? ...(above)

Thanks in advance!

baad · Nov 28, 2001

woops, sorry guyz, my fault, i thought this thread is solved, as there were reply's..

ok, lets see how could i change the code for your demands..

btw, javascript solution for link:

var str="text"
var theurl="

http://www.tek-tips.com"

str=str.link(theurl);

i'll let you know when would be ready Victor

baad · Nov 28, 2001

well, here is new (updated) code:

it would insert <b> (& others) instead of [ignore][/ignore] & <font color=red> instead of [ignore][/ignore]
i also added none to effects, & now it won't add empty brackets

as for Mac's - sorry, not today, our macs are busy, & guyz here won't let me play with my scripts there
but as error was in browser checking string, i've modifyed it a bit..

cr's - i think Dave's right, but i can add one suggestion: write all of this stuff to <pre> tags, then data would have cr's & other user's formatting stuff included

ok, lets see the code:
~~~~~~~~~~~~~~~~~
<html><head><title>generate your post </title>
<script language="JavaScript" type="text/javascript">

</script>
</head>

<body>
<form name=myne>
<textarea name="txtar" cols=60 rows=14 wrap=virtual>
</textarea><br>
<input type="button" name="b1" value="effect" onclick="Inserty()">
<select name="effectName">
<option value='none' selected>None
<option value='b'>bold
<option value='i'>italics
<option value='u'>underline
<option value='s'>strike through
<option value='color'>color
</select>
<select name="colorName">
<option value='none' selected>None
<option value='green'>Green
<option value='red'>Red
<option value='grey'>Grey
<option value='blue'>Blue
</select>
</form>
</body>
</html>
~~~~~~~~~~~~~~~~~

changed (updated) code was bolded & redLighted

what else? [sub](i'm shure this attempt won't be successfull from the first shot)[/sub] Victor

christianbecker · Nov 28, 2001

Thanks Victor for trying to modify the code for mac. I tried it but it still not functioning. I am a beginner with asp and an absolute novice with js but after researching this problem on the net i have come across the following info that might be useful as to why it wont work on mac ie5.

document.selection object is unimplemented in Mac IE 5 but document.getSelection is according to info from this url:

http://manilaexpress.userland.com/discuss/msgReader$224?mode=day

I tried the obvious of replacing document.selection with document.getselection in the code with no luck.

FYI

Christian

tsdragon · Nov 28, 2001

We've had so many problems with Javascript and Macs that my boss just told one of our clients yesterday that we would NOT make any changes to get code that works fine in IE5.0 and above, and NS4.7 and above to work on a Mac. They have a PC they can use with it. I'm not sure why, because the js code I wrote doesn't do that much that's tricky, and I stayed away from any js1.2 extensions, but it just doesn't work on a Mac. Too bad, for the Mac. Tracy Dryden
tracy@bydisn.com

http://www.bydisn.com

Meddle not in the affairs of dragons,
For you are crunchy, and good with mustard.

christianbecker · Nov 28, 2001

Glad to know atleast I'm not alone in my frustration with js and mac.

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

WRITE ME A SCRIPT PLEASE !!!!

IS-IT--Management

Programmer

Programmer

Programmer

Programmer

Programmer

Programmer

Programmer

Programmer

Programmer

Programmer

Programmer

Programmer

Programmer

Programmer

Programmer

Programmer

Programmer

Programmer

Programmer

Similar threads

Log in

Part and Inventory Search

Sponsor