csvからhtml表生成最強言語は？

このエントリーをはてなブックマークに追加
19 ：デフォルトの名無しさん：
では object pascal の例

program CSV2HTML;
uses　SysUtils,Windows,Classes,shellapi;
　function f(fname:string):TStrings;
　var i,j:Integer;
　var w:TStrings;
　var s:string;
　begin
　　w:=TStringList.Create;
　　try
　　　 Result:=TStringList.Create;
　　　 Result.Add('<HTML><HEAD><TITLE>'+fname+'</TITLE></HEAD><BODY>');
　　　 Result.Add('<TABLE　BORDER>');
　　　 if FileExists(ParamStr(1)) then
　　　 with TStringList.Create do try
　　　　LoadFromFile(ParamStr(1));
　　　　　for i:=0 to Count-1 do　begin
　　　　　　 w.CommaText:=Strings[i];
　　　　　　 s:='<TR>';
　　　　　　 for j:=0 to w.Count-1 do　s:=s+'<TD>'+w.Strings[j];
　　　　　　 Result.Add(s);
　　　　　end;
　　　 finally free;end;
　　 finally w.free;end;
　　 Result.Add(' </TABLE></BODY></HTML>')
　end;

var fname,wfname:string;
begin
if ParamCount=1 then begin
　fname:= ParamStr(1);
　if FileExists(fname) then begin
　　 wfname:=ChangeFileExt(fname,'.html');
　　 with f(fname) do try
　　　 SaveToFile(wfname);
　　　 ShellExecute(0,'open',PChar(wfname),nil,nil,SW_SHOWNORMAL);
　　 finally free;end;
　 end;
end;
end.