<?xml version="1.0" encoding="UTF-8" standalone="no"?>
<!DOCTYPE object SYSTEM "sample.dtd">
<object>
	<document>
		<title>ハリー・ポッターと賢者の石</title>
		<text>Harry Potter and the Philosopher's Stone .</text>
		<text>日本語版単行本 ISBN 4-915512-37-1（1999年12月1日発売）</text>
		<text>日本語版携帯版 ISBN 4-915512-49-5（2003年発売）</text>
	</document>
	<document>
		<title>ハリー・ポッターと秘密の部屋</title>
		<text>Harry Potter and the Chamber of Secrets</text>
		<text>日本語版単行本 ISBN 4-915512-39-8（2000年発売）</text>
		<text>日本語版携帯版 ISBN 4-915512-54-1（2004年発売）</text>
	</document>
</object>

<!--sample.dtd-->
<!ELEMENT object (document+)>
<!ELEMENT document (title , text+)>
<!ELEMENT title (#PCDATA)>
<!ELEMENT text (#PCDATA)>

tell application "Adobe InDesign CS5"
	make event listener with properties {event type:"afterSelectionChanged",handler:"SnowLeopard:Users:yukio:Desktop:xmlValidationCheck.applescript"}
end tell

tell application "Adobe InDesign CS5"
	tell document 1
		set validErrors to validate XML element 1
		if (length of validErrors) > 0 then
 
			set errMessage to ""
			set errCnt to 0
 
			repeat with anvalidError in validErrors
				set errCnt to errCnt + 1
				tell anvalidError
					tell element
						set errTag to name of markup tag
						select XML content
					end tell
					set errMessage to errMessage & (errCnt as text) & "<" & errTag & ">" & error message & return
				end tell
			end repeat
			display alert errMessage
		end if
	end tell
end tell

tell application "Adobe InDesign CS5"
	repeat with myCounter from 1 to (count event listeners)
		delete event listener 1
	end repeat
end tell

--* 自身のバンドル・パスを得る
set self to path to me
set scriptBundlePath to (path to resource "Scripts" in bundle self) as Unicode text
set iconPath to (path to resource "applet.icns" in bundle self) as Unicode text
--* スクリプトファイルのフルパスを作成する
set pyScriptFile to scriptBundlePath & "dict2.py"
--* Unix用のパスに変換する
set pyscriptpath to quoted form of (POSIX path of pyScriptFile)
--* paste値を変数にセット
set searchword to do shell script "pbpaste"
--* shell コマンド
set command to "/usr/bin/python2.5 " & pyscriptpath & " " & quoted form of searchword
--* コマンド実行
set theResult to do shell script command
--* 表示
display dialog theResult with title searchword buttons {"Close"} default button {"Close"} with icon file iconPath

#!/usr/bin/python2.5
import sys
from DictionaryServices import *
 
def main():
    try:
        searchword = sys.argv[1].decode('utf-8')
    except IndexError:
        errmsg = 'You did not enter any terms to look up in the Dictionary.'
        print errmsg
        sys.exit()
    wordrange = (0, len(searchword))
    dictresult = DCSCopyTextDefinition(None, searchword, wordrange)
    if not dictresult:
        errmsg = "'%s' not found in Dictionary." % (searchword)
        print errmsg.encode('utf-8')
    else:
        print dictresult.encode('utf-8')
 
if __name__ == '__main__':
    main()

sub Sample {
 my $inTxt = shift;
 my $outTxt ;
 my @koumoku ;    #並び順が決まっている時は、予めフィールド名を配列にセットしておく。宣言だけだと出現順に並ぶ。
 my @inArr = split("\n", $inTxt);        #改行で一行毎分解
 foreach my $rec (@inArr) {              #一行毎ループ処理
   if($rec ) {                           #空行無視
     my @strArr = split( "\t", $rec );   #タブで分解
     my @keyArr;       #フィールド名リスト
     my %hash ;        #フィールド名をKeyにしたフィールド値のハッシュリスト
     foreach my $aStr (@strArr) {
       if ( $aStr =~ /<(.+?)>/ ) {
         my $getKey = $1 ;    #フィールド名抽出
         my $machStr1 = '<' . $getKey . '>';
         my $machStr2 = '<\/' . $getKey .'>';
         my $keyNum = @keyArr;
         if ( $keyNum > 0 ){
           my $cnt = 0;
           my %edaban;
           my $edabanStr = $getKey;
           foreach my $mystr ( @keyArr) { $edaban{$mystr} = 1 }
           while ( exists $edaban{$edabanStr} ) {
           $cnt ++;
           $edabanStr = $getKey . '-' . $cnt ;  #同じフィールド名がある場合は枝番をつける
         }
         $getKey = $edabanStr;
       }
       push @keyArr , $getKey ;
       if ( $aStr =~ /$machStr1(.*?)$machStr2/ ){
         my $setVal ;
         if ( $1 ) { $setVal = $1 } else { $setVal = "—" }  #フィールド値が空の場合は『—』を代入してフィールド無しと区別
         $hash{$getKey} = $setVal ;    #フィールド値抽出
       }
     }
   }
   my $koumokuNum = @koumoku;
   if ( $koumokuNum = 0 ){
     foreach my $akey ( @keyArr ) { push  @koumoku , $akey }  #項目名を@koumokuに追加する
   } else {
     my %exist ;
     foreach my $akoumoku ( @koumoku) { $exist{$akoumoku} = 1 }
     foreach my $akey ( @keyArr ) {
       unless ( exists $exist{$akey} ) { push  @koumoku , $akey  }  #@koumokuにない項目追加
     }
   }
   #@koumoku順にフィールド値を並び替える
   my @outRec;
   foreach my $keyStr ( @koumoku ) {
     my $setStr ;
     if( exists $hash{$keyStr} ) {
       $setStr = $hash{$keyStr} ;
     } else {
       $setStr = "" ;
     }
   push @outRec , $setStr ;
   }
   my $outStr = join "\t" , @outRec ;
   $outTxt = $outTxt . $outStr . "\n";
   }
  }
  my $koumokuStr = join "\t" , @koumoku ;
  $outTxt = $koumokuStr . "\n" . $outTxt ;    #１行目に項目名を追加
  return $outTxt;
}

on getMilSecond()
 
	set theCmnd to "perl -e 'use Time::HiRes;my ($wtime,$msec) = split(/\\./ , Time::HiRes::time);my @t = localtime($wtime);printf(\"%04d%02d%02d%02d%02d%02d.%03d\",$t[5]+1900,$t[4]+1,$t[3],$t[2],$t[1],$t[0],($msec/100));'"
	return do shell script theCmnd
 
end getMilSecond