jsuo

local function keyCode(key, modifiers)
	modifiers = modifiers or {}
    return function() hs.eventtap.keyStroke(modifiers, key, 0) end
	-- return function()
	-- 	hs.eventtap.event.newKeyEvent(modifiers, string.lower(key), true):post()
	-- 	hs.timer.usleep(100)
	-- 	hs.eventtap.event.newKeyEvent(modifiers, string.lower(key), false):post()
	-- end
end

jsuo

'use strict';

/* library */
const rp = require('request-promise');
const cheerio = require('cheerio');

/* GET option */
let options = {
    method: 'GET',
    uri: 'http://gizilogger.ghsystems.biz/',

jsuo

#coding: windows-31j
require './exlap'

class Employee
  attr_accessor :id, :last_name, :first_name
  def full_name
    return @last_name + " " + @first_name
  end
end

jsuo

#coding: windows-31j
require './exlap'

describe "Function sayHello のテスト" do
	
  before(:all) do

    test_module = <<EOF
Function testSayHello(ByVal arg As String) As String
  testSayHello = Module1.sayHello(arg)

jsuo

'---------------------------------------------------------------------------------------
' Module    : mdlEmployee
' Author    : jsuo
' Date      : 2013/11/01
' Purpose   : [社員] のモデルクラス
' Note      :
'---------------------------------------------------------------------------------------
Option Explicit

'*** Instance Variable ***

jsuo

'---------------------------------------------------------------------------------------
' Module    : hlpAdoConnect
' Author    : jsuo
' Date      : 2013/11/01
' Purpose   : データベースコネクションを管理
' Note      : スタンドアロンでの使用を前提とする
'---------------------------------------------------------------------------------------
Option Explicit

'*** Instance Variable ***

jsuo

<customUI onLoad="Ribbon_onLoad" xmlns="http://schemas.microsoft.com/office/2009/07/customui">
  <ribbon>
    <tabs>
      <tab id="orderSearchTab" label="受注検索" >
        <group id="GroupEmpInfo" label="社員情報">
          <comboBox id="cmbEmpId" sizeString="wwwwwwww"  getText="cmbEmpId_getText"  getItemCount="cmbEmpId_getItemCount" getItemLabel="cmbEmpId_getItemLabel" onChange="cmbEmpId_onChange" label="社員ID:" />
	        <comboBox id="cmbEmpName" sizeString="wwwwwwww" getText="cmbEmpName_getText" getItemCount="cmbEmpName_getItemCount" getItemLabel="cmbEmpName_getItemLabel" onChange="cmbEmpName_onChange" label="氏   名:"/>
        </group>
        <group id="GroupCustomerInfo" label="得意先情報">
          <comboBox id="cmbCustomerId" sizeString="wwwwwwww" getText="cmbCustomerId_getText" getItemCount="cmbCustomerId_getItemCount" getItemLabel="cmbCustomerId_getItemLabel" onChange="cmbCustomerId_onChange" label="得意先ID:" />