29 lines
1.2 KiB
Plaintext
29 lines
1.2 KiB
Plaintext
Local $ascarray[4] = [34,38,60,62]
|
|
$String = "Character,Speech" & @CRLF
|
|
$String &= "The multitude,The messiah! Show us the messiah!" & @CRLF
|
|
$String &= "Brians mother,<angry>Now you listen here! He's not the messiah; he's a very naughty boy! Now go away!</angry>" & @CRLF
|
|
$String &= "The multitude,Who are you?" & @CRLF
|
|
$String &= "Brians mother,I'm his mother; that's who!" & @CRLF
|
|
$String &= "The multitude,Behold his mother! Behold his mother!"
|
|
For $i = 0 To UBound($ascarray) -1
|
|
$String = Stringreplace($String, chr($ascarray[$i]), "&#"&$ascarray[$i]&";")
|
|
Next
|
|
$newstring = "<table>" & @CRLF
|
|
$crlfsplit = StringSplit($String, @CRLF, 1)
|
|
For $i = 1 To $crlfsplit[0]
|
|
If $i = 1 Then $newstring &= "<thead>" & @CRLF
|
|
$newstring &= "<tr>" & @CRLF
|
|
$komsplit = StringSplit($crlfsplit[$i], ",")
|
|
For $k = 1 To $komsplit[0]
|
|
If $i = 1 Then
|
|
$newstring &= "<th>" &$komsplit[$k] & "</th>" & @CRLF
|
|
Else
|
|
$newstring &= "<td>" &$komsplit[$k] & "</td>" & @CRLF
|
|
EndIf
|
|
Next
|
|
$newstring &= "</tr>" & @CRLF
|
|
If $i = 1 Then $newstring &= "</thead>" & @CRLF
|
|
Next
|
|
$newstring &= "</table>"
|
|
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $newstring = ' & $newstring & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console
|