AutoHotkey Community

[b]bold text[/b]
[url]http://www.google.co.uk[/url]
[url=http://www.aol.com]AOL[/url]

<b>bold text</b>
<a href="http://www.google.com">http://www.google.co.uk</a>
<a href="http://www.aol.com">AOL</a>

Gui -theme

addcontrols:

Gui, Add, Button, x446 y145 w64 h24 gPaste, Paste
Gui, Add, Button, x446 y175 w64 h24 gSubmit, Submit
Gui, Add, Button, x446 y205 w64 h24 gExit, Exit
Gui, Add, Edit, x16 y30 w420 h200 vcanned,
Gui, Add, Text, x16 y10 w170 h20, Enter or Paste the BBCode Below:

Gui, Show, h241 w522, BBCode to HTML Converter
Return

Exit:
GuiClose:
ExitApp

Paste:

ControlSetText, Edit1,, BBCode to HTML Converter
Control, EditPaste, %clipboard%, Edit1, BBCode to HTML Converter
return

Submit:
gui, submit

if canned=
{
filedelete, canned.txt
fileappend,No text Found,canned.txt
Exitapp
}

filedelete, canned.txt
fileappend,%canned%,canned.txt

filedelete, html.htm
autotrim, off
Loop, read, canned.txt, html.htm
{

bbcode=%A_LoopReadLine%

ifinstring, bbcode,[code]
addspaces=1

ifinstring, bbcode,[/code]
addspaces=2

if addspaces=1
{
stringReplace, bbcode, bbcode, %a_tab%, &nbsp`;&nbsp`;&nbsp`;, All


ifinstring,bbcode ,%a_space%%a_space%%a_space%
StringReplace, bbcode, bbcode, %a_space%%a_space%%a_space%, &nbsp`;&nbsp`;&nbsp`;, All
else
ifinstring,bbcode ,%a_space%%a_space%
StringReplace, bbcode, bbcode, %a_space%%a_space%, &nbsp`;&nbsp`;, All
}


StringReplace, bbcode, bbcode, [img], <img src=, All
StringReplace, bbcode, bbcode, [/img], >, All


;-------------------------------------------------------------Changes Font sizes

ifinstring, bbcode, [size=
{
StringSplit, size_array, bbcode, ]

Loop, %size_array0%
{
StringTrimLeft, this_size, size_array%a_index%, 0

ifinstring, this_size, [size
{
stringreplace, this_size, this_size, [size=,

StringRight, this_size, this_size, 2

this_size=%this_size%

stringreplace, bbcode, bbcode, %this_size%],

if this_size between 0 and 8
this_size = 1
if this_size between 9 and 10
this_size = 2
if this_size between 11 and 12
this_size = 3
if this_size between 13 and 14
this_size = 4
if this_size between 15 and 18
this_size = 5
if this_size between 19 and 24
this_size = 6
if this_size >= 25
this_size = 7

stringreplace, bbcode, bbcode, [size=,<font size = "%this_size%">
}
}
}

;-------------------------------------------------------------Changes e-mail

ifinstring, bbcode, [email]
{
StringSplit, email_array, bbcode, ]

Loop, %email_array0%
{
StringTrimLeft, this_email, email_array%a_index%, 0

ifinstring, this_email, [/email
{
stringreplace, this_email, this_email, [/email,
stringreplace, bbcode, bbcode, [email],<a href="mailto:%this_email%">
}
}
}

StringReplace, bbcode, bbcode, [email=, <a href=, All
stringreplace, bbcode, bbcode,[/email], </a>, all

;-------------------------------------------------------------Aligns text

StringReplace, bbcode, bbcode, [center], <div align="center">, All
StringReplace, bbcode, bbcode, [/center], </div>, All

StringReplace, bbcode, bbcode, [left], <div align="left">, All
StringReplace, bbcode, bbcode, [/left], </div>, All

StringReplace, bbcode, bbcode, [right], <div align="right">, All
StringReplace, bbcode, bbcode, [/right], </div>, All

;Change table font colours


;-------------------------------------------------------------Changes URL with and without =


ifinstring, bbcode, [url]
{
StringSplit, word_array, bbcode, ]

Loop, %word_array0%
{
StringTrimLeft, this_word, word_array%a_index%, 0

ifinstring, this_word, [/url
{
stringreplace, this_word, this_word, [/url,
stringreplace, bbcode, bbcode, [url],<a href="%this_word%">
}
}
}

StringReplace, bbcode, bbcode, [url=, <a href=, All
StringReplace, bbcode, bbcode, [/url], </a>, All

;-------------------------------------------------------------Other font options

StringReplace, bbcode, bbcode, [s], <strike>, All
StringReplace, bbcode, bbcode, [/s], </strike>, All

StringReplace, bbcode, bbcode, [font=, <font face=, All
StringReplace, bbcode, bbcode, [size=, <font size=, All
StringReplace, bbcode, bbcode, [/size], </font>, All

StringReplace, bbcode, bbcode, [color=, <font color=, All
StringReplace, bbcode, bbcode, , </font>, All

StringReplace, bbcode, bbcode, [b], <b>, All
StringReplace, bbcode, bbcode, [/b], </b>, All

StringReplace, bbcode, bbcode, [i], <i>, All
StringReplace, bbcode, bbcode, [/i], </i>, All

StringReplace, bbcode, bbcode, [u], <u>, All
StringReplace, bbcode, bbcode, [/u], </u>, All

StringReplace, bbcode, bbcode, [i], <i>, All
StringReplace, bbcode, bbcode, [/i], </i>, All

;-------------------------------------------------------------Lists


StringReplace, bbcode, bbcode, [list], <ul>, All
StringReplace, bbcode, bbcode, [list=1], <ol>, All
StringReplace, bbcode, bbcode, [list=i], <ol type="I">, All
StringReplace, bbcode, bbcode, [list=a], <ol type="a">, All
StringReplace, bbcode, bbcode, [/list], </ul>, All

ifinstring, bbcode, [*]
{
StringReplace, bbcode, bbcode, [*], <li>, All
bbcode=%bbcode%</li>
}

;-------------------------------------------------------------Code and Quotes with tables

StringReplace, bbcode, bbcode, [code], <table bgcolor="#FAFCFE" align="center" width="95`%" border="1"><tr

bgcolor="#FDDBCC"><td><b>Code:</b></td></tr><tr><td><font color="#008000">, All
StringReplace, bbcode, bbcode, [/code], </font></td></tr></table>, All

StringReplace, bbcode, bbcode, [quote], <table bgcolor="#FAFCFE" align="center" width="95`%" border="1"><tr

bgcolor="#E8EFF7"><td><b>Quote:</b></td></tr><tr><td>, All
StringReplace, bbcode, bbcode, [/quote], </td></tr></table>, All

;needs to be last item

ifinstring, bbcode, [quote`=
{
StringReplace, bbcode, bbcode, [quote`=, <table bgcolor="#FAFCFE" align="center" width="95`%" border="1"><tr

bgcolor="#E8EFF7"><td><b>Quote:%a_space%</b>
StringReplace, bbcode, bbcode, [/quote], </td></tr></table>, All
StringReplace, bbcode, bbcode, ], </td></tr><tr><td>
}

;-------------------------------------------------------------Replace brackets and append to file

StringReplace, bbcode, bbcode, [, <, All
StringReplace, bbcode, bbcode, ], >, All

ifinstring, bbcode, <li>
FileAppend,%bbcode%
else
ifinstring, bbcode, </li>
FileAppend,%bbcode%
else
ifinstring, bbcode, <ul>
FileAppend,%bbcode%
else
ifinstring, bbcode, </ul>
FileAppend,%bbcode%
else
FileAppend,%bbcode%<br>

}

run, iexplore.exe %a_workingdir%\html.htm

Exitapp

Menu, Tray, NoStandard
Menu, Tray, Add, Hide,ShowHide
Menu, Tray, default,Hide
Menu, Tray, Add, Exit

Gui, Add, Edit, x6 y30 w450 h340 vCode,

Gui, Add, Text, x6 y10 w450 h20, Enter HTML below. Only the HTML tags which have BBCode equivelents will be converted.
Gui, Add, Button, x356 y380 w100 h30 gSubmit, Convert to BBCode

Gui, Add, Radio, x6 y390 w60 h20 gIPBorPHPBB vPHPBBchecked, PHPBB
Gui, Add, Radio, x76 y390 w40 h20 Checked1 gIPBorPHPBB, IPB
Gui, Add, Text, x6 y370 w230 h20, What type of forum will you be posting to?

Gui, Show, h417 w463, HTML to BBCode Converter
k_IsVisible = y
board=IPB
Return

GuiClose:
ExitApp

IPBorPHPBB:
Gui, Submit, Nohide

if PHPBBchecked=1
board=PHPBB
else
board=IPB

return

ShowHide:
if k_IsVisible = y
{
   Gui, Cancel
   Menu, Tray, Rename, Hide, Show
   k_IsVisible = n
}
else
{
   Gui, Show
   Menu, Tray, Rename, Show, Hide
   k_IsVisible = y
}
return



Submit:
Gui, Submit, Nohide

string=%Code%

;-------------------------------------------------------------Other font options

if board=IPB
{
StringReplace, string, string, <strike>, [s], All
StringReplace, string, string, </strike>, [/s], All
}
else
{
StringReplace, string, string, <strike>,, All
StringReplace, string, string, </strike>,, All
}

StringReplace, string, string, <b>, [b], All
StringReplace, string, string, </b>, [/b], All

StringReplace, string, string, <strong>, [b], All
StringReplace, string, string, </strong>, [/b], All

StringReplace, string, string, <i>, [i], All
StringReplace, string, string, </i>, [/i], All

StringReplace, string, string, <u>, [u], All
StringReplace, string, string, </u>, [/u], All

StringReplace, string, string, <i>, [i], All
StringReplace, string, string, </i>, [/i], All

StringReplace, string, string, <em>, [i], All
StringReplace, string, string, </em>, [/i], All

StringReplace, string, string, <br>,`n, All

;-------------------------------------------------------------------blockquote



StringReplace, string, string, <blockquote>, [quote], All

ifinstring, string, <BLOCKQUOTE
{

url=%string%

StringSplit, url_array, url, <

Loop, %url_array0%
{
StringTrimLeft, this_url, url_array%a_index%, 0

this_url=<%this_url%

ifinstring, this_url, <BLOCKQUOTE%a_space%
{

stringreplace, string, string, %this_url%, [quote]

}
}
}
StringReplace, string, string, </blockquote>, [/quote], All


;-----------------------------------------------------------------------------------------------------------


if board=IPB
{
StringReplace, string, string, <center>, [center], All
StringReplace, string, string, </center>, [/center], All
}
else
{
StringReplace, string, string, <center>, , All
StringReplace, string, string, </center>, , All
}

;--------------------------------------------------------------------Changes URL's

ifinstring, string, href=
{

url=%string%

StringSplit, url_array, url, <

Loop, %url_array0%
{
StringTrimLeft, this_url, url_array%a_index%, 0

ifinstring, this_url, href=
{
url=%this_url%
oldurl=<%url%

;gets url name

StringLen, url_length, url
StringGetPos, namepos, url, >, R1
urlname:=url_length-namepos
urlname-=1
StringRight, urlname, url, %urlname%

;gets url

StringReplace, url, url,", , All
StringReplace, url, url, a href=, , All

autotrim, off
StringGetPos, urlpos, url, %a_space%, L1
autotrim, on

if urlpos=-1
StringGetPos, urlpos, url, >, L1

StringLeft, out_url, url, %urlpos%

stringreplace, out_url, out_url, ",,all

newurl=[url="%out_url%"]%urlname%

stringreplace, newurl, newurl, ",,all

   stringgetpos, pos1,newurl, >
if pos1!=-1
{
   stringgetpos, pos2,newurl, ]
if pos2 != -1
{
   pos1+=1
   pos2+=1
   stringmid, replace, newurl, %pos1%, % pos2-pos1
   stringreplace, newurl, newurl, %replace%,
}
}

stringreplace, string, string, %oldurl%, %newurl%

stringreplace, string, string, </a>,[/url], all

}
}
}

;---------------------------------------------------------------Converts images

ifinstring, string, <img
{

;StringReplace, string, string, src=, <[img], all

StringReplace, string, string, src=, [img], all
;StringReplace, string, string, <img, , all


url=%string%

StringSplit, url_array, url, <

Loop, %url_array0%
{
StringTrimLeft, this_url, url_array%a_index%, 0

ifinstring, this_url, [img]
{
url=<%this_url%

   stringgetpos, pos1,url, <
if pos1!=-1
{
   stringgetpos, pos2,url, [
if pos2 != -1
{
   pos1+=1
   pos2+=1
   stringmid, replace, url, %pos1%, % pos2-pos1
   stringreplace, url, url, %replace%,
}
}

;get old url

;StringGetPos, namepos, url, >, L1
;StringLeft, oldurl, url, %namepos%

oldurl=%replace%%url%


;gets url name

autotrim, off
StringGetPos, namepos, url,%a_space%, L1
autotrim, on

if namepos=-1
StringGetPos, namepos, url, >, L1

StringLeft, urlname, url, %namepos%

newurl=%urlname%[/img]

StringReplace, newurl, newurl,", , All

stringreplace, string, string, %oldurl%, %newurl%

}
}
}

;-----------------------------------------------------------------Font

ifinstring, string, <FONT
{

url=%string%

StringSplit, url_array, url, <

Loop, %url_array0%
{
StringTrimLeft, this_url, url_array%a_index%, 0

;autotrim, off

ifinstring, this_url, Font%a_space%
{

;autotrim, on

oldurl=%this_url%

StringReplace, this_url, this_url, color=, [color=, all
StringReplace, this_url, this_url, size=, [size=, all
StringReplace, this_url, this_url, face=, [font=, all

;----------------------------------------------------------------------------------color

ifinstring, this_url, [color=
{
StringGetPos, colorpos, this_url, [color=
StringGetPos, colorpos2, this_url,%a_space%, L, %colorpos%

if colorpos2=-1
StringGetPos, colorpos2, this_url,>, L, %colorpos%

colorpos2+=1
StringMid, colorBBCode, this_url, %colorpos%, % colorpos2-colorpos

ifinstring, colorBBCode,>
{
stringgetpos, GTPos, colorBBCode, >
StringLeft, colorBBCode, colorBBCode, %GTPos%
}

stringreplace, this_url, this_url, %colorBBCode%, %colorBBCode%]

this_url=%this_url%
}


;----------------------------------------------------------------------------------size

ifinstring, this_url, [size=
{
StringGetPos, sizepos, this_url, [size=
StringGetPos, sizepos2, this_url,%a_space%, L, %sizepos%

if sizepos2=-1
StringGetPos, sizepos2, this_url,>, L, %sizepos%

sizepos2+=1
StringMid, sizeBBCode, this_url, %sizepos%, % sizepos2-sizepos

ifinstring, sizeBBCode,>
{
stringgetpos, GTPos, sizeBBCode, >
StringLeft, sizeBBCode, sizeBBCode, %GTPos%
}

stringreplace, sizeBBCode, sizeBBCode, ",,all

StringRight, FontSize, sizeBBCode, 2

IfInString, FontSize, =
{
StringRight, FontSize, sizeBBCode, 1
StringTrimRight, sizeBBCode, sizeBBCode, 1
}
else
{
StringRight, FontSize, sizeBBCode, 2
StringTrimRight, sizeBBCode, sizeBBCode, 2
}

if board=IPB
{
if FontSize <=1
this_size = 1

if FontSize = 2
this_size = 3

if FontSize = 3
this_size = 5

if FontSize = 4
this_size = 7

if FontSize = 5
this_size =11

if FontSize = 6
this_size = 17

if FontSize >= 7
this_size = 23
}

if board=PHPBB
{
if FontSize <=1
this_size = 11

if FontSize = 2
this_size = 13

if FontSize = 3
this_size = 19

if FontSize = 4
this_size = 24

if FontSize = 5
this_size =24

if FontSize = 6
this_size = 29

if FontSize >= 7
this_size = 29
}

stringreplace, this_url, this_url, %FontSize%,

stringreplace, this_url, this_url, %sizeBBCode%, %sizeBBCode%%this_size%]

this_url=%this_url%[/size]
}





;---------------------------------------------------------------------------------font

ifinstring, this_url, [font=
{
StringGetPos, fontpos, this_url, [font=


StringGetPos, fontpos2, this_url,[, L2, %fontpos%


if fontpos2=-1
StringGetPos, fontpos2, this_url,>, L, %fontpos%

fontpos2+=1
StringMid, fontBBCode, this_url, %fontpos%, % fontpos2-fontpos

ifinstring, fontBBCode,>
{
stringgetpos, GTPos, fontBBCode, >
StringLeft, fontBBCode, fontBBCode, %GTPos%
}

if board=PHPBB
{
stringreplace, this_url, this_url, %fontBBCode%,
}
else
{
stringreplace, this_url, this_url, %fontBBCode%, %fontBBCode%]
this_url=%this_url%[/font]
}

}

;---------------------------------------------------------------------------------style

ifinstring, this_url, style=
{
StringGetPos, stylepos, this_url, style=
StringGetPos, stylepos2, this_url,%a_space%, L, %stylepos%

if stylepos2=-1
StringGetPos, stylepos2, this_url,>, L, %stylepos%

stylepos2+=1
StringMid, styleBBCode, this_url, %stylepos%, % stylepos2-stylepos

ifinstring, styleBBCode,>
{
stringgetpos, GTPos, styleBBCode, >
StringLeft, styleBBCode, styleBBCode, %GTPos%
}

stringreplace, this_url, this_url, %styleBBCode%,
}

;---------------------------------------------------------------------------------

StringReplace, this_url, this_url, >, ,All

newurl=%this_url%
StringReplace, newurl, newurl,", , All
stringreplace, string, string, %oldurl%, %newurl%

}
}
}
autotrim, off
stringreplace, string, string, <Font%a_space%, ,all
stringreplace, string, string, </Font>, ,all
autotrim, on

;------------------------------------------------------------------End Font






StringReplace, string, string,< <[img], [img], All

;-----------------------------------------------------------------Adds new lines

stringreplace, string, string,<br>, `n ,All
stringreplace, string, string,<p>, `n ,All
stringreplace, string, string,</p>, `n ,All



;-------------------------------------------------------------Lists


StringReplace, string, string, <ul>, [list], All
StringReplace, string, string, <ol>, [list=1], All
StringReplace, string, string, <ol type="I">, [list=i], All
StringReplace, string, string, <ol type="a">, [list=a], All

StringReplace, string, string, </ul>, [/list], All
StringReplace, string, string, </ol>, [/list], All

ifinstring, string, <li>
{
StringReplace, string, string, <li>, [*], All
}

StringReplace, string, string, </li>, , All

StringReplace, string, string, </a>, [/url], All

StringReplace, string, string, <a href=, [url=, All

StringReplace, string, string, <hr>, ----------------------------------------, all


;-------------------------------------------------------------Code and Quotes with tables

StringReplace, string, string, <table bgcolor="#FAFCFE" align="center" width="95`%" border="1"><tr bgcolor="#FDDBCC"><td><b>Code:</b></td></tr><tr><td><font color="#008000">, [code], All
StringReplace, string, string, </font></td></tr></table>, [/code], All

StringReplace, string, string, <table bgcolor="#FAFCFE" align="center" width="95`%" border="1"><tr bgcolor="#E8EFF7"><td><b>Quote:</b></td></tr><tr><td>, [quote], All
StringReplace, string, string, </td></tr></table>, [/quote], All


;------------------------------------------------------------------

;--------------------------------------------------------------------p

StringReplace, string, string, <p>, , All

ifinstring, string, <p
{

url=%string%

StringSplit, url_array, url, <

Loop, %url_array0%
{
StringTrimLeft, this_url, url_array%a_index%, 0

this_url=<%this_url%

ifinstring, this_url, <p%a_space%
{
ifinstring, this_url, align=
{
oldurl=%this_url%

url=%this_url%

stringreplace, url, url, ",,all

ifinstring, url, align=center
{

if board=IPB
{
stringreplace, url, url, align=center, [center], All
url=%url%[/center]
}
else
{
stringreplace, url, url, align=center,, All
url=%url%
}

}

ifinstring, url, align=left
{
if board=IPB
{
stringreplace, url, url, align=left, [left], All
url=%url%[/left]
}
else
{
stringreplace, url, url, align=left,, All
url=%url%
}
}


ifinstring, url, align=right
{
if board=IPB
{
stringreplace, url, url, align=right, [right], All
url=%url%[/right]
}
else
{
stringreplace, url, url, align=right,, All
url=%url%
}
}

stringgetpos, pos, url, [
stringtrimleft, url, url, %pos%

stringgetpos, pos1,url, ]
stringgetpos, pos2,url, >
pos1+=2
pos2+=2
stringmid, replace, url, %pos1%, % pos2-pos1
stringreplace, url, url, %replace%

stringreplace, string, string, %oldurl%, %url%

}
}

}
}
StringReplace, string, string, </p>, `n, All



;--------------------------------------------------------------------div


StringReplace, string, string, <div>, , All

ifinstring, string, <div
{

url=%string%

StringSplit, url_array, url, <

Loop, %url_array0%
{
StringTrimLeft, this_url, url_array%a_index%, 0

this_url=<%this_url%

ifinstring, this_url, <div%a_space%
{
ifinstring, this_url, align=
{
oldurl=%this_url%

url=%this_url%

stringreplace, url, url, ",,all

ifinstring, url, align=center
{

if board=IPB
{
stringreplace, url, url, align=center, [center], All
url=%url%[/center]
}
else
{
stringreplace, url, url, align=center,, All
url=%url%
}

}

ifinstring, url, align=left
{
if board=IPB
{
stringreplace, url, url, align=left, [left], All
url=%url%[/left]
}
else
{
stringreplace, url, url, align=left,, All
url=%url%
}
}


ifinstring, url, align=right
{
if board=IPB
{
stringreplace, url, url, align=right, [right], All
url=%url%[/right]
}
else
{
stringreplace, url, url, align=right,, All
url=%url%
}
}

stringgetpos, pos, url, [
stringtrimleft, url, url, %pos%

stringgetpos, pos1,url, ]
stringgetpos, pos2,url, >
pos1+=2
pos2+=2
stringmid, replace, url, %pos1%, % pos2-pos1
stringreplace, url, url, %replace%

stringreplace, string, string, %oldurl%, %url%

}
}

}
}
StringReplace, string, string, </div>, , All

;----------------------------------------------------------------------------------------

StringReplace, string, string, <code>, [code], All
StringReplace, string, string, </code>, [/code], All

autotrim, off
stringreplace, string, string,&nbsp`;, %a_space% ,All
StringReplace, string, string,&quot`;,, All
autotrim, on



Code=%string%

filedelete, code.txt
fileappend, %Code%, code.txt


filedelete, outputText.txt

;removes all other html tags

Loop, read, code.txt, outputText1.txt
{
string=%A_LoopReadLine%

loop
{

ifinstring,string, <head>
head=1

ifinstring, string, </head>
head=2

ifinstring,string, <script
script=1

ifinstring,string, </script>
script=2

if head=1
{
StringReplace, string, string, %string%,, All
break
}

if script=1
{
StringReplace, string, string, %string%,, All
break
}

StringGetPos, stringpos1, string, <, L1
StringGetPos, stringpos2, string, >, L1

if stringpos1 = -1
break

if stringpos2 = -1
break

stringpos1+=1
stringpos2+=2


removelength:=stringpos2-stringpos1

if removelength <= 0
break

StringMid, texttoremove, string, %stringpos1%, %removelength%

StringReplace, string, string, %texttoremove%,, All

}

StringReplace, string, string, &amp`;,&, All
StringReplace, string, string, &gt`;,>, All
StringReplace, string, string, &lt`;,<, All

autotrim, off
if string <>
{
if addspaces=0
{
FileAppend, %string%%a_space%
}
else
{
FileAppend, %string%`r`n
}
}
autotrim, on
}

autotrim, on
Loop, read, outputText1.txt, outputText.txt
{
string=%A_LoopReadLine%
FileAppend, %string%`n
}
filedelete, outputText1.txt



run, notepad.exe outputText.txt

return

Exit:
Exitapp

<br><embed src='http://blingselect.com/add/shock1.swf' quality=high FlashVars='texter=Your Text Here' bgcolor='000000' wmode=transparent width='375' height='80' align=middle ></embed><br>

String = <p align="center"><center><font face="Impact"
color="red"><font size=7">Whatever you do, DON'T CLICK ON THIS!!!</font></font></center></p>
StringReplace, ConvertedString, String, <p align="center"><center><font face="Impact"
color="red"><font size=7">Whatever you do, DON'T CLICK ON THIS!!!</font></font></center></p>, Lalala!
MsgBox % ConvertedString