quote:

---

Originally posted by ruirib

So I guess it would be a matter of adding the specific photobucket code, no?

---

                                (UCase(Right(strArray(Counter-1), 6)) <> "[GVID]") and _
				(UCase(Right(strArray(Counter-1), 10)) <> "[METACAFE]") and _
				(UCase(Right(strArray(Counter-1), 5)) <> "[WMA]") and _
				(UCase(Right(strArray(Counter-1), 4)) <> "[QT]") and _
				(UCase(Right(strArray(Counter-1), 5)) <> "[PBT]") and _
				(UCase(Right(strArray(Counter-1), 4)) <> "[RV]") and _
				(UCase(Right(strArray(Counter-1), 7)) <> "FLASH]""") and _
				(UCase(Right(strArray(Counter-1), 5)) <> "WMV]""") and _
				(UCase(Right(strArray(Counter-1), 4)) <> "QT]""") and _
			        (UCase(Right(strArray(Counter-1), 5)) <> "PBT]") and _
				(UCase(Right(strArray(Counter-1), 4)) <> "RV]""") and _
				(UCase(Right(strArray(Counter-1), 7)) <> "[FLASH]") and _

	fString = ReplaceWMVTags(fString)			' windows media
	fString = ReplaceRVTags(fString)			' Real video
	fString = ReplacePhotoBucketVideoTags(fString)		

	FormatStr = fString
	on Error goto 0

Function ReplacePhotoBucketVideoTags(fString)
 	Dim oTag, cTag
 	Dim roTag, rcTag
 	Dim oTagPos, cTagPos
 	Dim nTagPos
 	Dim counter1, counter2
 	Dim strCodeText
 	Dim Tagcount
 	Dim strTempString, strResultString
 	TagCount = 2
  	Dim CodeTags(2,2,2)
 	Dim strArray, strArray2

 	CodeTags(1,1,1) = "[pbt]"
	CodeTags(1,2,1) = "[/pbt]"
	CodeTags(1,1,2) = "<div class=""media""><script language=""javascript"">EmbedPBV("""
	CodeTags(1,2,2) = """)</script></div><div class=""break""></div>"
	
 	CodeTags(2,1,1) = "[PBT]"
 	CodeTags(2,2,1) = "[/PBT]"
 	CodeTags(2,1,2) = CodeTags(1,1,2)
 	CodeTags(2,2,2) = CodeTags(1,2,2)

 	strResultString = ""
 	strTempString = fString

 	for counter1 = 1 to TagCount

 		oTag   = CodeTags(counter1,1,1)
 		roTag  = CodeTags(counter1,1,2)
 		cTag   = CodeTags(counter1,2,1)
 		rcTag  = CodeTags(counter1,2,2)
 		oTagPos = InStr(1, strTempString, oTag, 1)
 		cTagPos = InStr(1, strTempString, cTag, 1)

 		if (oTagpos > 0) and (cTagPos > 0) then
 		 	strArray = Split(strTempString, oTag, -1)
 		 	for counter2 = 0 to Ubound(strArray)
 		 		if (Instr(1, strArray(counter2), cTag) > 0) then
 		 			strArray2 = split(strArray(counter2), cTag, -1)
					strCodeText = trim(strArray2(0))						 			
				strResultString = strResultString & roTag & strCodeText & rcTag & strArray2(1)
 		 		else
 		 			strResultString = strResultString & strArray(counter2)
 		 		end if	
 		 	next  

			strTempString = strResultString
 			strResultString = ""
 		end if
	next

	ReplacePhotoBucketVideoTags = strTempString 
end function

function EmbedPBV(URL){
	if(URL == null || URL == "illegal"){
		//Nope, we can't.
		document.writeln(" error: illegal use of PhotoBucketVideo tag! ");
	}else{
		//Add the code to the document.
		document.writeln('<embed width="448" height="361" type="application/x-shockwave-flash" wmode="transparent" src="http://i301.photobucket.com/player.swf?file='+ URL +'"> </embed>');
	}
}

Const strIconRealVideo = "icon_RV.gif|23|22"
Const strIconPBT = "icon_PBT.gif|23|22"

function pbt() {
	var text = getText();
	if (helpstat){
		alert("PhotoBucket Video.\n\nUSE: [pbt]Real Video URL[/pbt]");
	} else if (basic) {
		AddTxt="[pbt]" + text + "[/pbt]";
		AddText(AddTxt);
	} else {
		if (text) {
			txt=prompt("PhotoBucket Video URL",text);
		} else {
			txt=prompt("PhotoBucket Video URL","Text");
		}
		if(txt!=null) {
			AddTxt=" [pbt] "+txt+" [/pbt]";
			AddText(AddTxt);
		}
	}
}

	"<a href=""Javascript:qtv();"" tabindex=""-1"">" & getCurrentIcon(strIconQuickTime,"Quicktime movie","align=""top""") & "</a>" & _
		"<a href=""Javascript:wmv();"" tabindex=""-1"">" & getCurrentIcon(strIconWMV,"Windows Media video","align=""top""") & "</a>" & _
		"<a href=""Javascript:rv();"" tabindex=""-1"">" & getCurrentIcon(strIconRealVideo,"Real Video","align=""top""") & "</a>" &_
	    "<a href=""Javascript:pbt();"" tabindex=""-1"">" & getCurrentIcon(strIconPBT,"PhotoBucket Video","align=""top""") & "</a>"

quote:

---

Originally posted by ruirib

No problem Bruno.

This works, but I'm not too sure about the ReplaceVideoTags function and the changes to ChkUrls, I didn't really have much time to understand what it does (it would require some time to test, which I don't have), so maybe have a look at it to make sure it's not doing more than it should.

Congrats on your daughter's baptism and birthday.

---