getting rid of font tag in visual format

You should read about the Cleaning HTML feature in VFE. Read starting at page 194 in the 6.0 VF Dev guide.

Dave

Current Environments:
(1) TS 6.5 on W2K3 (x2 - diff. imp.)
(3) Vignette V7 Portal on Solaris 9

hello Dave,
I don't want to use, HTML clean, because it removes all the fonts from the html, i don't want the module to remove my href's . So i need to filter out only font please help me with htis small snnippet.
Thank you

Oh, ok! In that case, I suggest changing your code a little bit:



foreach my $inputfile (iwpt_dcr_value('dcr.Introduction')) {
   open(INPUT, $inputfile);
   {
      local $/ = undef;
      $contents = <INPUT>;
      close(INPUT);
   }

   $contents =~ s/<font>(.*?)<\/font>/$1/gsi;
   open(OUTPUT, ">" . $inputfile);
   print OUTPUT $contents; 
   close(OUTPUT);
}

Dave

Current Environments:
(1) TS 6.5 on W2K3 (x2 - diff. imp.)
(3) Vignette V7 Portal on Solaris 9

What exactly is going wrong in your code? Is nothing being removed? Is only the end tag being removed? Tell us what is or is not happening that you don't/do want to happen. Your regex for removing the opening font tag will only work if the font tag has no attributes. The below regex should remove all font tags:
$contents =~ s|</?font\b[^>]*>||gi;~Jeff

Jeff,

You're so good at doing this to me, so I'll do it to you...

Don't forget the "i" flag on the regex because we can't be sure that the font tag will always be in lower case!

Dave

Current Environments:
(1) TS 6.5 on W2K3 (x2 - diff. imp.)
(3) Vignette V7 Portal on Solaris 9

hello Dave,

I am sure that your code will work, but its giving me a tag mismatch error, which is strange, can you please look into the attached tpl please.
Thank you

What are you talking about Dave? I would never forget to include that...

I looked at your code for only a few seconds, but I thought this was strange when I was looking at your snippet, too... what are you doing with dcr.Introduction? Do you intend for this to be a list, like you do previously in your code with dcr.Affiliates? I think you're missing that piece in that particular line. So, try changing the first line in your snippet to read:



foreach my $inputfile (iwpt_dcr_list('dcr.Introduction')) {

Dave

Current Environments:
(1) TS 6.5 on W2K3 (x2 - diff. imp.)
(3) Vignette V7 Portal on Solaris 9

Hey dave,
i guess that is not the problem, I thought iwpt_dcr_list is used when there is a list of data, as in affliliates, here we can just use iwpt_dcr_value. I am outputting the $content, its not giving me error now but its now showing the dcr.Introduction value ( or say the text with out the font tag in it)
please help me. i am using iwpt_outpu($content);

thank you

Well, what is dcr.Introduction, anyway? If you're doing a foreach loop, it'll expect an array. This is why I thought you might want iwpt_dcr_list. Is this a string that you want to split into an array? I need more background info.

Current Environments:
(1) TS 6.5 on W2K3 (x2 - diff. imp.)
(3) Vignette V7 Portal on Solaris 9

dcr.Introduction pure text, which has inbulit links, say a news article, this is the text which an author cuts and pastes in the visual format editor, so i was thinking this to be valu rather than a list. But i tried with list too, and gives me the blank html, i need tp print dcr.Introduction in my generated html. Please let me know if i have to change anything
Thank you

That's a bit more clear to me, but I'm still missing something. This is what I understand so far: you want authors to be able to use the VFE in such a way that when they paste text, it will translate into a value. You're intending to read a file based on this value and basically strip the font tags from this file and save it again.

Is that accurate?

What is the business logic behind this? Maybe that's what I'm looking for. Something just doesn't make sense to me.

Thanks,

Dave

Current Environments:
(1) TS 6.5 on W2K3 (x2 - diff. imp.)
(3) Vignette V7 Portal on Solaris 9

Adam Stoller

I'm coming in a bit late to this thread - but it looks like a whole bunch of confusion is going on here - most especially with regard to what type of data dcr.Introduction represents.

My guess is that it is not a replicant and that the contents is not a filename - but that rather it is a VFE textarea (which would make sense given the subject line associated with this thread) - that being the case - I believe the code should probably look something like:my $contents = iwpt_dcr_value('dcr.Introduction');
$contents =~ s|(.*?)|$1|gmsi;
iwpt_output($contents);If, dcr.Introduction is actually the full path to a file which you want to modify during the course of generating your page, then:my $inputfile = iwpt_dcr_value('dcr.Introduction');
my $contents = '';
if (open(IN, "<$inputfile")){
local $/;
$contents = <IN>;
close(IN);
}
$contents =~ s|(.*?)|$1|gmsi;
if (open(OUT, ">$inputfile")){
print OUT $contents;
close(OUT);
}and if it happens to be a replicant - well, hopefully you can extrapolate the rest of it from there.

--fish
Senior Consultant, Quotient Inc.
http://www.quotient-inc.com

well the business logic is pretty simple, as i said they need href's inside the text , so i used a VFE, but while they paste the text, they are using some random font, but in the actual webpage, it has to be "Times Roman" to say, the portal style sheet guy couldn't apply the style sheets to this text, because the font which is pated is generated in the html file, so i had to rip that font tag, but still i have a question here, i have to rip the attributes of the p tag, but i don't want to rip the p tag itself. please sugget as what would be my next step.
By the way the code works fine now, i could rip the font and the span tags from the generated text.
thank you

This should work for removing the attributes of your p tags, but not the tag itself:
$contents =~ s|<p\b[^>]*>||gi;~Jeff

Jeff actually gave a good, brief guide on how to strip out an entire tag with its contents but if you want to keep the p tag but lose the attributes, do the following:



my $content;
$content =~ s|<p[^>]*>|<p>|sgi;

The regex above does not attempt to strip the close p tag because -- well, what would be IN that tag, anyway?

Dave

Current Environments:
(1) TS 6.5 on W2K3 (x2 - diff. imp.)
(3) Vignette V7 Portal on Solaris 9

Adam Stoller

Dave,

Jeff's regex is better - because yours would take <pre> (or any element tag name that begins with p) and turn it into  as well - and that would be bad.

--fish
Senior Consultant, Quotient Inc.
http://www.quotient-inc.com

Oh, wow... good point. I hadn't thought of that.

THANKS, JEFF.

Current Environments:
(1) TS 6.5 on W2K3 (x2 - diff. imp.)
(3) Vignette V7 Portal on Solaris 9

Any time Dave,

thank you somuch every one. I'll keep this tread open in case i get some more issues.
Thank you

Hello Dave,
One more small question, I have a bunch of &nbsp appended when ever there is a , is there a way that i can regex all &nbsp's and keep only one &nbsp
Thank you

This should do the trick for you:
$contents =~ s|(?:\s* \s*)+| |gsi;~Jeff

thank you so much , i have this strange issue with apostrophie too i am replacing that with ' is there a wau to do it with regex?
i am doing this but its seems to be failing
$contents =~ s|(?:\'*)+|'|gsi;
will this do the trick, for me it isn't
thank you