38 lines
935 B
Plaintext
38 lines
935 B
Plaintext
program mat2html
|
|
local nr = rowsof(`1')
|
|
local nc = colsof(`1')
|
|
local rn `: rownames `1''
|
|
local cn `: colnames `1''
|
|
tempname f
|
|
qui file open `f' using `2', write text replace
|
|
file write `f' "<!doctype html>" _n
|
|
file write `f' "<html>" _n
|
|
file write `f' "<head>" _n
|
|
file write `f' `"<meta charset="UTF-8">"' _n
|
|
file write `f' "</head>" _n
|
|
file write `f' "<body>" _n
|
|
file write `f' `"<table border="1">"' _n
|
|
* write column names
|
|
file write `f' "<tr>" _n
|
|
file write `f' "<td></td>" _n
|
|
forv j = 1/`nc' {
|
|
local s `: word `j' of `cn''
|
|
file write `f' `"<td>`s'</td>"' _n
|
|
}
|
|
file write `f' "</tr>" _n
|
|
* write row names & data
|
|
forv i = 1/`nr' {
|
|
file write `f' "<tr>" _n
|
|
local s `: word `i' of `rn''
|
|
file write `f' `"<td>`s'</td>"' _n
|
|
forv j = 1/`nc' {
|
|
file write `f' `"<td>`=el(`1',`i',`j')'</td>"' _n
|
|
}
|
|
file write `f' "</tr>" _n
|
|
}
|
|
file write `f' "</table>" _n
|
|
file write `f' "</body>" _n
|
|
file write `f' "</html>" _n
|
|
file close `f'
|
|
end
|