Topic awaiting preservation: Make your own bbCode

I know that a few asylumites over the years have made bbCode parsers, you know, things that will take a certain tag (like UBB code) and replace it with the appropriate HTML tag. Well the time has come when I need to do that and I cannot for the life of me get it to work. I had though just to do a recurring str_replace() that keeps searching through the text and each time it finds any of these tags it replacees it with it's HTML equivilant, but no...that doesn't seem to work...the damn tags are still there.

Help? Please?

___________________________

Skaarjj's ISP woes are not over yet...but I will return soon.

not sure what language you want, but here is a php script that seems it will do it.

Later,

C:\


~Binary is best~

what do you know, I was working on this just last night in perl... here's what I got so far:

#usr/bin/perl



$faked_file = "../fake.txt";

print "Content: text/html\n\n";



if (open(ARTINP,$faked_file)){

	while(<ARTINP> ){

		$cur_line = $_;

		chomp($cur_line);

		$cur_line =~ s/\[b\]/<b>/gi;

		$cur_line =~ s/\[\/b\]/<\/b>/gi;

		$cur_line =~ s/\[i\]/<i>/gi;

		$cur_line =~ s/\[\/i\]/<\/i>/gi;

		if ($cur_line !~ /^\s*$/i){

			print "<p>\n";

			print "$cur_line\n";

			print "</p>\n";

		}

		

	}

} else {

	print "Could not open: $faked_file.\n";

}



print "\n\n";

...more to come, obviously...


Code - CGI - links - DHTML - Javascript - Perl - programming - Magic - http://www.twistedport.com
ICQ: 67751342

This is what vBulletin does (with soe alterations by me to fit in with the GN):

<BLOCKQUOTE><FONT face="Verdana, Arial">code:</font><HR><pre> $searcharray = array(
"/(\[)(list)(=)(['\"]?)([^\"']*)(\\4])(.*)(\[\/list)(((=)(\\4)([^\"']*)(\\4]))

Theoretically what I would do (and on one project have done) is parse for anything within braces ([ ... ]) and then take the contents and check it against a list of possible replacements. If it fits then I'd do the replace. If it doesn't then I'd print out the brackets as is.



.:[ Never resist a perfect moment ]:.

Here's what I'm using most of which is from phpBB.

<BLOCKQUOTE><FONT face="Verdana, Arial">code:</font><HR><pre>
function ubb_to_html($description) {
/* Add some padding in case the first character is part of a URL */

$description = " " . $description;

// Make andthing that begins http:// or www. an <a> link


$description = preg_replace("#([\n ])www\.([a-z0-9\-]+)\.([a-z0-9\-.\~]+)((?:/[a-z0-9\-\.,\?!%\*_\#:;~\\&$@\/=\+]*)?)#i", "\\1<a href=\"http://www.\\2.\\3\\4\" target=\"_blank\">www.\\2.\\3\\4</a>", $description);


$description = preg_replace("#([\n ])([a-z]+?)://([a-z0-9\-\.,\?!%\*_\#:;~\\&$@\/=\+]+)#i", "\\1<a href=\"\\2://\\3\" target=\"_blank\">\\2://\\3</a>", $description);


/* Make proper replacements for the UBB tags in description */

if ( (strpos($description, "[") && strpos($description, "]")) ) {

// Replace the [b] tags for <b>

$description = str_replace('', '<b>', $description);
$description = str_replace('', '</b>', $description);

// Replace the [i] tags for <i>

$description = str_replace('', '<i>', $description);
$description = str_replace('', '</i>', $description);

// Replace the

tags for <list> and
• for <li>
  
  
  
  $description = str_replace('[list]', '<list>', $description);
  
  $description = str_replace('

', '</list>', $description);

// Replace [li] for <li>

$description = str_replace('[li]', '<li>', $description);
$description = str_replace('[/li]', '', $description);

// Replace [color=] tags for <span style="color:#>

$description = preg_replace("/\[color=(\#[0-9A-F]{6}

Petskull: You might find it faster to read in the whole file and make one pass per regex instead of one pass per line for each regex. File I/O and expressions are expensive. Here is a sample of the code I use to read in a file:

open HTML, "<$file" or die "Could not read-open $file. Reason: $!";

    # flock (HTML, LOCK_EX) or die "Can't get an exclusive lock on $file: $!";  # Requires: [b]use Fcntl qw{ :flock };[/b] to work.

    read (HTML, my $html, -s HTML);

  close HTML;



  

  # Do your regexes here on $html

You have to potential to eat up a lot of ram if your file gets huge, say, more than a few 10's of MB's. It also depends on how much ram you have on the system.

Sorry for going slightly OT but I thought that might help.

~Charlie

actually *real* ubb code parsing is a lot more complicated than just a couple dozen regexps...
For example the code tag needs a stack, to accuratly push things up and pull things down that shall not be decoded by the rest of your ubb code...

Still, most of the basics can be covered with a few regexps.

I know, for I have writen the version for the faq myself, but also a more advanced version for another, not yet completly finished, project.

Piper... smart stuff.. I did get a little caught on this:
read (HTML, my $html, -s HTML);

... so I'm going to assume it does this:
read everything from the filehandle HTML and shove it into a variable called $html for the length ("-s") of the file pointed to by the filehandle HTML

something like that? if so, it's a neat little function... a little embarassed that I didn't concieve the algorythm that way...

#usr/bin/perl



$faked_file = "../fake.txt";

print "Content: text/html\n\n";



open ARTINP,"$faked_file" or die "Could not read-open $file. Reason: $!";

read (ARTINP, $cur_line, -s ARTINP);

chomp($cur_line);



# Eliminate HTML tags

$cur_line =~ s/</</gi;

$cur_line =~ s/>/>/gi;



# Put paragraph tags around paragraphs

$cur_line =~ s/\n/<\/p><p>/gi;

$cur_line =~ s/<p><\/p>/\n\n/gi;



# Strip paragraph tags from topics

$cur_line =~ s/<p>\[tc\]/\[tc\]/gi;

$cur_line =~ s/\[\/tc\]<\/p>/\[\/tc\]/gi;



# Strip paragraph tags from subtopics

$cur_line =~ s/<p>\[st\]/\[st\]/gi;

$cur_line =~ s/\[\/st\]<\/p>/\[\/st\]/gi;



# Make Bold text Bold

$cur_line =~ s/\[b\]/<b>/gi;

$cur_line =~ s/\[\/b\]/<\/b>/gi;



# Make Italic text Italic

$cur_line =~ s/\[i\]/<i>/gi;

$cur_line =~ s/\[\/i\]/<\/i>/gi;



# Make Topics into Headers

$cur_line =~ s/\[tc\]/<h1>/gi;

$cur_line =~ s/\[\/tc\]/<\/h1>/gi;



# Make Subtopics into subheaders

$cur_line =~ s/\[st\]/<h3>/gi;

$cur_line =~ s/\[\/st\]/<\/h3>/gi;



print "$cur_line\n";



close ARTINP;



print "\n\n";

Code - CGI - links - DHTML - Javascript - Perl - programming - Magic - http://www.twistedport.com
ICQ: 67751342

[This message has been edited by Petskull (edited 05-24-2003).]