CSV to HTML translation: Difference between revisions

_webView

'~'1

CGRect r = fn CGRectMake( 0, 0, 600, 220 )

window _window, @"Rosetta Code CSV to HTML", r, NSWindowStyleMaskTitled + NSWindowStyleMaskClosable

r = fn CGRectMake( 20, 20, 560, 180 )

wkwebview _webView, r,, _window

'~'1

NSUInteger i, count

CFStringRef csvStr = @"Character,Speech\n¬

The multitude,The messiah! Show us the messiah!\n¬

Brians mother,Now you listen here! He's not the messiah; he's a very naughty boy! Now go away!\n¬

The multitude,Who are you\n¬

Brians mother,I'm his mother; that's who!\n¬

The multitude,Behold his mother! Behold his mother!"

CFArrayRef linesArray = fn StringComponentsSeparatedByString( csvStr, @"\n" )

CFMutableStringRef htmlStr = fn MutableStringWithCapacity(0)

MutableStringAppendString( htmlStr, @"<table style=\"background:#eee;\">\n" )

MutableStringAppendString( htmlStr, @"<tr bgcolor=wheat><th>Character</th><th>Speech</th></tr>" )

MutableStringAppendString( htmlStr, @"<caption>From Monty Python's \"The Life of Brian\"</caption>\n" )

count = len( linesArray )

for i = 1 to count - 1

CFStringRef tempStr = linesArray[i]

CFArrayRef tempArr = fn StringComponentsSeparatedByString( tempStr, @"," )

MutableStringAppendString( htmlStr, @"<tr>\n" )

MutableStringAppendString( htmlStr, fn StringWithFormat( @"<td style=\"width:120px;\"><b>%@</b></td>>\n", tempArr[0] ) )

MutableStringAppendString( htmlStr, fn StringWithFormat( @"<td><i>%@</i></td>\n", tempArr[1] ) )

MutableStringAppendString( htmlStr, @"</tr>\n" )

next

MutableStringAppendString( htmlStr, @"</table><br></br>" )

'~'1

CFStringRef htmlStr = fn CSV2HTML

fn WKWebViewLoadHTMLString( _webView, htmlStr, NULL )

'~'1

select (ev)

case _windowWillClose : end

end select