#91285 - 2003-01-30 11:49 AM
Re: test crap of postprep - ignore
|
Richard H.
Administrator
Registered: 2000-01-24
Posts: 4946
Loc: Leatherhead, Surrey, UK
|
Have you thought about putting the code in a table? That would allow you to explicitly set the background colour and set a border around it.
For example:
; UBB PostPrep 1.0.1 (build 5)
; ----------------------------------------------------------------------------------------------
; MINIMUM REQUIREMENTS
;
; KIXTART 4.20 (WKiX32)
; KIXFORMS build 37 (2.2.0)
; ----------------------------------------------------------------------------------------------
; AUTHORs
; Jooel Nieminen - Conversion Engine !
; Jochen Polster - Form, Controls, Design, Codestarter
; ----------------------------------------------------------------------------------------------
; ACKNOWLEDGEMENTS
; Shawn Tassie (for Kixforms of course!)
; Richard Howarth (for pointing out the <br>-tag Issue)
; All KiXtart Enthusiastics for which we wrote this ![[Wink]](images/icons/wink.gif)
; ----------------------------------------------------------------------------------------------
; VERSION HISTORY
; 1.0.1 - 01/28/2003 bug-fixes to conversion engine, optional WordWrap added
;
; 1.0 - 01/27/2003 Initial worthwhile release
;
; 0.9 A - different very buggy Alpha releases not worth to mention
;
; 0.9 P - Preview Version(s) discussed on kixtart.org Bulletin board
; http://www.kixtart.org/board/ultimatebb.php?ubb=get_topic;f=13;t=000426
; ----------------------------------------------------------------------------------------------
break on
$ = setascii("on")
$ReqForms = 37
$Version = "1.0.1"
$Wordfile = @scriptdir + '\Wordfile.ini'
$Kix = substr(@kix,1,4)
if $Kix < "4.20"
$ = messagebox('This Script requires at least KiXtart 4.20 ' |
|
|
Top
|
|
|
|
#91294 - 2003-01-31 12:54 AM
Re: test crap of postprep - ignore
|
Lonkero
KiX Master Guru
Registered: 2001-06-05
Posts: 22346
Loc: OK
|
ok, how about this...
"BB code parser" ? ; Put together by Lonkero 16.8.2001
;script requirement: kix2001 RC-1 or newer
"you give topic to parse and I give you the clean code parts of the topic." ?
? " Press some keys to get you going..." get $
cls
"so what topic you want to get?"
? "(easiest is to copy the address from IE addressbar and paste it to this window)" ?< font color=#4682B4>
" -->"
gets $page
if instr($page,"http://kixtart.org/cgi-bin/ultimatebb.cgi?")
$httpObj = createobject("winhttp.winhttprequest.5")
if vartype($httpObj) <> 9 ? "failed to start Winhttp, press any key to quit..." get $ exit else "WinHTTP started" endif
$httpObj.open("GET",$page)
? if @error "failed to Initialize Winhttp ( error:@serror ), press any key to quit..." get $ exit else "WinHTTP initialized" endif
? ? "transferring topic..."
$httpObj.send()
$ = open(1,"%temp%\bbdecodec.tmp",5)
$crlf = chr(13)+chr(10) $c = 0
$data = $httpObj.Responsetext
$x = instr($data,">code:</font><HR><pre>")
? "parsing it..."
while $x <> 0
$c=$c+1
$data = substr($data,$x+22,len($data)-($x+21))
$x = instr($data,"</pre>") - 1
$post = substr($data,1,$x)
$ = writeline(1,"---------------- code #$c ----------------"+$crlf)
for each $section in split($post,"<P>")
for each $line in split($section,"<BR>")
$ = writeline(1,$line+$crlf)
next
next
$ = writeline(1,"------------------ end -------------------"+$crlf+$crlf)
$x = instr($data,">code:</font><HR><pre>")
loop
$ = close(1)
run "notepad %temp%\BBdecodec.tmp" cls
sleep 3
del "%temp%\bbdecodec.tmp"
else
cls "You didn't give kixBB url-address. This script supports only BB found at kixtart.org!" get $
endif
exit
|
[ 30. January 2003, 16:27: Message edited by: Lonkero ]
_________________________
!download KiXnet
|
|
Top
|
|
|
|
#91295 - 2003-01-31 12:56 AM
Re: test crap of postprep - ignore
|
Jochen
KiX Supporter
Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
|
|
|
Top
|
|
|
|
#91297 - 2003-01-30 01:30 PM
Re: test crap of postprep - ignore
|
Jochen
KiX Supporter
Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
|
|
|
Top
|
|
|
|
Moderator: Shawn, ShaneEP, Ruud van Velsen, Arend_, Jochen, Radimus, Glenn Barnas, Allen, Mart
|
0 registered
and 1003 anonymous users online.
|
|
|
![[Razz]](images/icons/tongue.gif){kind=icon}
)
![[Roll Eyes]](images/icons/rolleyes.gif){kind=icon}
![[Big Grin]](images/icons/grin.gif){kind=icon}
![[Eek!]](images/icons/shocked.gif){kind=icon}
![[Mad]](images/icons/mad.gif){kind=icon}
