iron3d wiki

ﾃｷｽﾄ管理

iron3d

Excelでリスト管理、html書出し †

  • FileSystemObject? 
    // File Object取得まで…
var fso = new ActiveXObject("Scripting.FileSystemObject");
var current=".";
var crntFolder = fso.GetFolder(current);
var fileName = "temp.xls";
var filePath = crntFolder + "\\" + fileName;
if(fso.FileExists(filePath)){
 var fileObj = fso.GetFile(filePath);
 }
  • Excel file操作 
    // 上から続いて…
// Worksheetを探す
var typ = fileObj.type;
if( typ.match("Office") || typ.match("Excel") ){
 var xls = new ActiveXObject( "Excel.Application");
 var WB = xls.WorkBooks.Open( xlsfilepath, 0 );
 var ALLWS = WB.WorkSheets;
 var WSName = "Sheet1";
 var WSObj = false;
 for(i=1;i<ALLWS.count+1;i++){
  if(ALLWS(i).name==WSName){
   WSObj = ALLWS(i);
   break;
   }
  }
 // CELL行列を検索 (ROW, COL)
 if (WSObj){
  cntx = "";
  R_ST = 1;   // 行(ROW)開始番号
  R_ED = 256; // 行(ROW)終了番号
  C_ST = 1;   // 列(COL)開始番号
  C=ED = 16;  // 列(COL)終了番号
  for(i=R_ST; i<R_ED+1; i++){
   for(j=C_ST; j<C_ED+1; j++) cntx += WSOBJ.cells(i,j).Value + ",";
   }
  var num = cntx.length;
  if(num){
   cntx = cntx.substr(1,num-2); //最後の","を削除
   }
  }
  • ここでHTML TAG化作業を入れる… 
    //例えば、string.splitで要素分解して、Tableに埋め込む…など
var spl = cntx.split(",");
var numspl = spl.length;
var tabletag = "";
for(i=0;i<numspl;i++){
 tabletag += "<TR><TD><FONT SIZE=2>" + spl[i] + "</FONT></TD></TR>";
 }
var htmltag = "<HTML><BODY><TABLE BORDER=1>" +tabletag+ "</TABLE></BODY></HTML>"
  • ﾌｧｲﾙ書出し 
    // 上から続いて…
// まず、Subroutine化しておく…
function createHTML(fso,path,cntx,newfile){
 var htmlpath = path + "\\" + newfile;
 var stream = fso.CreateTextFile(htmlpath, true, false);
 stream.Write(cntx);
 stream.Close();
 return(htmlpath);
 }
// 上記関数使用
var htmlfilepath = createHTML(fso,crntFolder,htmltag,"index.html");

任意の数でグループ化する †

var ary = "a,d,t,h,a,e,f,a,fi,p,h,ed,df,qe,gb,n,m,jre,sd,a,f,er"
var spl = ary.split(",");
var num = spl.length;
var dev = 4;
var txt = "";
for(i=0;i<num;i=i+dev){
	for(j=i;j<i+dev;j++){
		if(spl[j]){txt += spl[j] + ","}
		else{break}
		}
	txt = txt.substr(0,txt.length-1);
	txt += "\n";
	}
txt = txt.substr(0,txt.length-1);

最新の20件

2010-11-18 2011-06-13 2010-10-13 2011-01-11 2010-09-28 2010-10-24 2009-07-15 2009-11-07 2011-04-03 2011-03-07 2011-01-18 2009-08-16 2011-08-10 2013-03-14 2012-04-18 2012-04-07
  • ﾃｷｽﾄ管理
2012-03-23 2012-02-19 2012-01-31 2012-01-05

今日の20件

  • counter: 129
  • today: 1
  • yesterday: 0
  • online: 1