iVox: Tech: JavaScipt

显示标签为“JavaScipt”的博文。显示所有博文

2008-04-20

竟然做了一個iPhone NativeApp

一時興起，想到了是否能將iPhone 1.1.3及以上版本的WebClips功能實現到我的1.1.1上。
最初想法是想找一臺1.1.3的iPhone，復制一個WebClip過來，看看是否能用，其實自己也不抱什么希望。後來就想如果做一個NativeApp來實現這個功能應該也不難，於是上網搜了搜，居然被我找到一個好東西：Jiggy。

Jiggy是一個簡單到不敢相信的iPhone NativeApp開發環境，只要用JavaScript就可以——別的語言我就不行，JavaScript雖然也談不上精通，摸了這么多年，倒還有一試之膽。於是趕緊裝上，試了起來。
真的很簡單，只是上網搜索了兩段例程，就大致搞定了我的程序。
說來我的要求也真是不高，無非是一個獨立的程序，可以快捷地去到我指定的網站，以免進到Safari之後還要去書簽裏面翻尋。

這個讓我鐵了心想做WebClip，甚至考慮升級到1.1.3的網站是BuxFer。自從我的第二臺TH55丟失之後，記賬這件事就幾乎完全放棄了。iPhone上面不是沒有記賬軟件，但到目前為止，還沒有找到合用的，倒是這個Buxfer網站做得令人鼓舞——當然，這也是大大得益於iPhone對網絡應用的良好支持。良好到哪種程度？在iPhone上訪問Buxfer，速度明顯快過在PC上。

把眼光放在Web上吧！

2006-12-11

失而復得的Photoshop加框程序

去年還是前年，用Javascript寫了一個圖片加框的程序，一直用得很順手。昨天竟然發現程序不見了！回頭想想，應該是Adobe CS升級到Adobe CS2時，我以為程序都備份了，就沒有保留——看完切爾西對阿森納的比賽，翻箱倒柜去找光盤，結果發現備份是備份了，但能找到的都是一個初級的版本，沒法用。極其郁悶。
最後一線希望是辦公室電腦里保存著一個備份，今早開工，第一件事情就是搜這東西。好彩真給我找到了！狡兔三窟，古人誠不余欺也！

// 单位设为像素
app.preferences.rulerUnits = Units.PIXELS;

// 生成副本，加框流程将在副本中进行
var dupDoc = app.activeDocument.duplicate();

// 合并图层
dupDoc.flatten();

//画线和框
var black = new SolidColor(); 
black.rgb.red = black.rgb.green = black.rgb.blue = 0; 
var mygray = new SolidColor(); 
mygray.rgb.red = mygray.rgb.green = mygray.rgb.blue = 160; 
var white = new SolidColor(); 
white.rgb.red = white.rgb.green = white.rgb.blue = 255;

backgroundColor = white;
//backgroundColor = black;

var marginW = 15;
var marginH1 = 15;
var marginH2 = 65;
var newW = dupDoc.width + marginW + marginW;
var newH = dupDoc.height + marginH1 + marginH1;
// 四周加15
dupDoc.resizeCanvas(newW,newH);
// 下边再加65
newH = newH + marginH2;
dupDoc.resizeCanvas(newW,newH,AnchorPosition.TOPCENTER);

// 增加Stroke图层
var layf = dupDoc.artLayers.add();
var selRef = dupDoc.selection;
var selRegion = Array(Array(marginW, marginH1),
                      Array(newW - marginW, marginH1),
                      Array(newW - marginW, newH - marginH1 - marginH2),
                      Array(marginW, newH - marginH1 - marginH2));
selRef.select(selRegion, SelectionType.REPLACE, 0, false);
selRef.stroke(black, 2, StrokeLocation.INSIDE, 
              ColorBlendMode.NORMAL, 100, false);

var selRegion = Array(Array(0, 0),
                      Array(newW, 0),
                      Array(newW, newH),
                      Array(0, newH));
selRef.select(selRegion, SelectionType.REPLACE, 0, false);
selRef.stroke(black, 1, StrokeLocation.INSIDE, 
              ColorBlendMode.NORMAL, 100, false);
selRef.deselect();

// 放置LOGO
var logofile = new File("e:/my documents/fishlogo on white.psd");
var logoDoc = open(logofile);
logoDoc.mergeVisibleLayers();
logoDoc.resizeCanvas(newW,newH,AnchorPosition.BOTTOMRIGHT)

logoDoc.layers[0].duplicate(dupDoc,ElementPlacement.PLACEATBEGINNING);
logoDoc.close(SaveOptions.DONOTSAVECHANGES);

displayDialogs = DialogModes.NO; 
var defaultRulerUnits = preferences.rulerUnits; 
preferences.rulerUnits = Units.PIXELS;

var resRatio = dupDoc.resolution/72;

if(resRatio!=1)
{ 
 dupDoc.resizeImage(dupDoc.width.value,dupDoc.height.value,72); 
}

//将一个长字串分解成单个字符串
function explodeArray(item) { 
 var i=0;
 var Count=0; 
 var tempString=new String(item); 
 tempArray=new Array(1);

do{ 
  i=tempString.indexOf(":");
  if(i>0)
   tempString=tempString.substr(i+1,tempString.length-i-1);
  i=tempString.indexOf(">");
  if(i>0) {
   tempArray[Count]=tempString.substr(0,i); 
   tempString=tempString.substr(i+1,tempString.length-i-1);
   Count ++;
  }
  i=tempString.indexOf("<");
  if(i>0) {
   tempArray[Count]=tempString.substr(0,i); 
   tempString=tempString.substr(i-1,tempString.length-i+1);
   Count ++;
  }
 }while (tempString.indexOf("</x:xmpmeta>")>0);

tempArray[Count]=tempString; 
 return tempArray; 
}

//获取RAW保存的信息
var exifData = dupDoc.xmpMetadata.rawData.toString();

//将EXIF信息分成单个的相关信息
explodeArray(exifData);

var model="";//机型
var exposureTime="";   //快门
var fNumber="";   //光圈
var ISOSpeedRatings="";  //ISO设置
var dateTimeOriginal=""; //拍摄时间
var FocalLength="";//焦距
var lensname="??";    //镜头名称
var creator="LittleFish";  //拍摄者。
var i=0;
var j=0;
var k=0;
var dateArray1="";
var dateArray2="";
var monthsArray="";
var phoDate = "";
var phoTime = "";
var exposureBiasValue = ""; //曝光补偿

//Photoshop CS获取EXIF信息

//机型
for(n = 0; n < tempArray.length; n ++) 
{ 
 stringTemp=tempArray[n];
 if(stringTemp.indexOf("Model")!=-1)
 { 
  model = tempArray[n+1]; 
  break;
 } 
}
//快门速度
for(n = 0; n < tempArray.length; n ++) 
{ 
 stringTemp=tempArray[n];
 if(stringTemp.indexOf("ExposureTime")!=-1)
 { 
  exposureTime = tempArray[n+1]; 
  break;
 } 
}

//焦距
for(n = 0; n < tempArray.length; n ++) 
{ 
 stringTemp=tempArray[n];
 if(stringTemp.indexOf("FocalLength")!=-1)
 { 
  FocalLength = tempArray[n+1]; 
  break;
 } 
}

// 曝光补偿
for(n = 0; n < tempArray.length; n ++)
{ 
 stringTemp=tempArray[n];
 if(stringTemp.indexOf("ExposureBiasValue")!=-1)
 { 
  exposureBiasValue = tempArray[n+1]; 
  break;
 } 
}

//光圈大小
for(n = 0; n < tempArray.length; n ++) 
{ 
 stringTemp=tempArray[n];
 if(stringTemp.indexOf("FNumber")!=-1)
 { 
  fNumber = tempArray[n+1];
  break;
 } 
}

//镜头名称
for(n = 0; n < tempArray.length; n ++) 
{ 
 stringTemp=tempArray[n];
 if(stringTemp.indexOf("aux:Lens")!=-1)
 { 
  lensname = tempArray[n+1];
        break;
 } 
}

//拍摄日期、时间
for(n = 0; n < tempArray.length; n ++) 
{ 
 stringTemp=tempArray[n];
 if(stringTemp.indexOf("DateTimeOriginal")!=-1)
 { 
  dateTimeOriginal = tempArray[n+1]; 
  break;
 } 
}

//ISO设置
for(n = 0; n < tempArray.length; n ++) 
{ 
 stringTemp=tempArray[n];
 if(stringTemp.indexOf("ISOSpeedRatings")!=-1)
 { 
  ISOSpeedRatings = " ISO"+tempArray[n+5]; 
  break;
 } 
}

//检查快门速度
dateArray1 = exposureTime.split("/");
j = dateArray1[0];
i = dateArray1[1];
if(j/i>1)
 exposureTime=parseInt(j/i)+"."+(j-parseInt(j/i)*i);
else
{
 i=parseInt(i/j);
 j=1;
 exposureTime=j+"/"+i;
}

//计算光圈大小
dateArray1 = fNumber.split("/");
i = dateArray1[0];
j = dateArray1[1];
if(j>1)
 fNumber=i/j;
else
 fNumber=i;

//检查曝光补偿
dateArray1 = exposureBiasValue.split("/");
i = dateArray1[0];
j = dateArray1[1];
if(i>0)
exposureBiasValue="+"+(parseInt(i*10/j))/10;
else
exposureBiasValue=(parseInt(i*10/j))/10;

//计算焦距
dateArray1 = FocalLength.split("/");
i = dateArray1[0];
j = dateArray1[1];
if(j>1)
 FocalLength=i/j;
else
 FocalLength=i;

//镜头名称
if (FocalLength>75)
 lensname="Nikkor 80-200";
else
 lensname="Tamron A09";

var infoLayer = dupDoc.artLayers.add(); 
infoLayer.kind = LayerKind.TEXT; 
var TI = infoLayer.textItem;

//右对齐，如果左对齐可以省略下面这行
TI.justification = Justification.RIGHT;

//标字的位置
TI.position = [dupDoc.width.value-60,dupDoc.height.value-50];
TI.contents = "Nikon D70 · " + lensname + " · " + 
              exposureTime+" · F/" + fNumber + " · " + 
              exposureBiasValue + "EV · " + FocalLength + 
              "mm";
if (ISOSpeedRatings!="")
{
    TI.contents = TI.contents + " ·" +ISOSpeedRatings;
}

//字体、字号、颜色等 
TI.font = "Tahoma"; 
TI.size = 12; 
TI.color = mygray; 
TI.fauxBold = true;

2006-10-21

AutoLISP Highlighter

上次介绍过一款很好的语法代码高亮script：dp.SyntaxHighlighter。
我想到可以在这个script上把AutoLISP的语法也加进去，还曾经给作者写了信，并提供了用于EditPlus的AutoLISP语法文件——但作者一直没有答复我。

今天因为修改了一下那个CSS风格，顺便干脆就自己来做这件事。
应该说这件事并不复杂，但我缺乏script的深度认识，对于什么正则表达式啦、prototype啦，都头晕得很。照虎画猫，折腾了一阵子，居然也搞定了。
先看球，回头再传上网站。

示例：

; FishLISP C:RNB
; 通过点击实体，更改图块名称。避免查询、输入原有名称。
;
; 在AutoCAD当中，可以很方便地复制一组实体，并粘贴成图块。
; 但所得到的图块总是具有如“A$C4FD24C92”之类复杂的名称，
; 往往并不利于识别和操作，所以有时候有必要将这样的图块更
; 名；而其名称的复杂性，同样使得更名也并不容易。
; C:RNB则避免了查询、输入图块名称，使更名极为便利。
;
; 程序支持长名称（即名称中允许输入空格），所以新名称必须
; 靠回车来确认。
;-----------------------------------------------------
; 04-07-07  v1.0  可用版
;-----------------------------------------------------

(defun c:rnb (/ en ent ety ena enn)
  (princ "\nFishLISP C:RNB v1.0.")
  (if (setq en (entsel "\n选取要改名的图块："))
    (if en
      (progn
        (setq ent (entget (car en))
            ety (cdr (assoc 0 ent))
        )
        (if (= ety "INSERT")
          (progn
            (setq ena (cdr (assoc 2 ent)))
            (setq loop t)
            (while loop
              (princ "\n图块名称：<")
              (princ ena)
              (setq enn (getstring 1 "> "))
              (if (member enn (list "" " " ena))
                (setq loop nil enn ena)
                (if (tblsearch "block" enn)
                  (princ "\n已经存在此名称的图块。")
                  (setq loop nil)
                ); if exist?
              ); if no change?
            ); while
            (setvar "cmdecho" 0)
            (command "rename" "block" ena enn)
            (setvar "cmdecho" 1)
          ); progn =INSERT
          (princ "\n对象不是图块。")
        );if INSERT?
      ); progn en
    ); if en?
  ); if picked
  (princ)
)

(princ)

2006-10-18

标准的莫明其妙

严格的（strict）xhtml标准里面，打开链接的目标属性如target="_blank"等，是不合法的。
作为一个标准，如果编制者如此如此规定，大家也就如此如此执行，皆大欢喜，而标准自成为标准。
但大家显然不准备照此执行——点击链接时新开窗口常常有其必要。
那么如果不用target="_blank"，又该怎么办？答曰：用javascript。比如：如何？明眼人一看就知道，这其实是绕了个圈子，归根结底还是target="_blank"。

这是标准的莫明其妙。

为什么要做这种蠢事？其实标准再莫明其妙都无所谓，但坏事就坏事在W3C要整一个xhtml规范的检校认证出来。于是无数coder为了通过那个认证，就不辞辛劳地去绕那个大圈子。显然检校程序并不知道那段代码本质跟不符合标准的东西完全一样。

标准制定中的莫明其妙其实可以原谅，可能是因为疏忽，最多是因为偏执。但网页用户和Coder们的集体虚荣，就实在可鄙。通过了W3C检校又如何？

2006-09-05

又是兼容性

dp.SyntaxHighlighter跟Blogger的自动断行不兼容。如何取舍成了问题。
暂时就在Tech这里取消自动断行，以使用dp.SyntaxHighlighter吧。

dp.SyntaxHighlighter

这个页面工具太赞了！

在WebReference闲逛的时候，发现了这个dp.SyntaxHighlighter。其作用是高亮页面内的源代码，效果见WebRef的文章。

更赞的是，dp.SyntaxHighlighter不但支持各种源代码，还是一个免费工具！

我会把这个工具用到本站上。

2005-08-03

用Photoshop Script来加Logo

加LOGO，首先你需要有一个自己的LOGO，然后把这段代码放在加框的Script里面：

详解：

var frameDoc = activeDocument;
这是定义放置logo图案的目标图档。如果放在在流行的那个加框程序里面，可以不要这一行，但要把后面的frameDoc改成AD。

var logofile = new File("e:/my documents/fishlogo on white.psd");
这是定义logo文件的地址，一定要改成自己的那个。

var logoDoc = open(logofile);
打开logo文件，并定义它。

logoDoc.mergeVisibleLayers();
合并logo的图层。

logoDoc.resizeCanvas(frameDoc.width,frameDoc.height,AnchorPosition.BOTTOMRIGHT);
这是一个关键步骤，把logo图案的画布尺寸改成跟目标图档一样大，如此才能保证把logo复制过去后位置精确。
BOTTOMRIGHT，意味着logo位置是相对右下角固定。各位应该根据自己摆放logo的习惯调整。

logoDoc.layers[0].duplicate(frameDoc,ElementPlacement.PLACEATBEGINNING);
这一步是复制logo的图层到目标图档。

logoDoc.close(SaveOptions.DONOTSAVECHANGES);
关闭logo图档。
DONOTSAVECHANGES，意味着不保存。

另外的提示：
Logo文件的画布尺寸应该具有某个边角的尺寸特性，这样才能精确放置。