yu-tang

' ADODB のインメモリ レコードセットを Access 非連結フォームのレコードソースに
' セットするサンプル コード。
' 下記をコピペでテストする場合は、運送会社テーブルから表形式フォームをオート
' フォームで作成して、フォームのレコードソース プロパティを削除すると多少楽。

Option Compare Database
Option Explicit

Private Sub Form_Load()
    ' インメモリ レコードセットをフォームのレコードソースにセットします。

yu-tang

vanillaforums-ja の Garden リポジトリ作成手順
===============

以下、基本的には Windows 版の Git Bash 上での操作を前提とします。

`git push` の対象を現在のブランチのみに限定するため、以下の設定を行っておくことを推奨します。

    git config --global push.default tracking

参考：[見えないチカラ: 【翻訳】あなたの知らないGit Tips](http://keijinsonyaban.blogspot.com/2010/11/git-tips.html "見えないチカラ: 【翻訳】あなたの知らないGit Tips")

yu-tang

1. conf/config.php
$Configuration['Garden']['RewriteUrls'] = FALSE;
↓
$Configuration['Garden']['RewriteUrls'] = TRUE;

2. .htaccess
こんな感じになってるところを、
   # RewriteEngine On
   # Certain hosts may require the following line.
   # If vanilla is in a subfolder then you need to specify it after the /. 

yu-tang

パーミッションが775になるので、FTP で上書きできない。

原因。

/library/core/class.configuration.php
L559         chmod($TmpFile, 0775);

なので、0706 とか 0756 あたりに変えておく。

こういう設定値こそコンフィグでカスタマイズできるようにしておいてほしい感じだけれど。

yu-tang

' クラスモジュール限定。Excel なら、とりあえず ThisWorkbook モジュールあたりで。
Option Explicit

Private Declare Function StrCmpLogicalW Lib "SHLWAPI.DLL" ( _
        ByVal lpStr1 As Long, _
        ByVal lpStr2 As Long) As Long

Public Function StrCmpLogical(str1 As String, str2 As String) As Long
    StrCmpLogical = StrCmpLogicalW(StrPtr(str1), StrPtr(str2))
End Function

yu-tang

Option Explicit

' 引数を取らない JScript の関数オブジェクトを実行する方法が分からない
Sub Test()

Dim sc As New MSScriptControl.ScriptControl
Dim fx As Object
Dim s As String

s = "eval(function(){return x;});"

yu-tang

' 要・Microsoft Internet Controls 参照設定
Option Explicit

Private WithEvents ie As InternetExplorer
Private mDocumentComplete As Boolean

Private Sub Class_Initialize()
Set ie = New InternetExplorer
ie.Visible = True
Navigate "about:blank"

yu-tang

/*
いちいち WScript... と書きたくないためだけのユーティリティ
*/

// echo() as WScript.Echo()
this.echo = function(){
  var s = '',i, numargs = arguments.length;
  for (i = 0; i < numargs; i++){
    s += arguments[i];
  }

yu-tang

/*
CScript/WScript 環境の JScript.Global オブジェクトに
既定で追加されているプロパティを調べてみる
*/
(function(obj){
  var a = [];
  for (var i in obj) {
    a.push(i + ':' + typeof(obj[i]));
  }
  WScript.Echo(a.join('\n'));

yu-tang

/*
CScript/WScript 環境の JScript 用クラス名取得関数 classof()

JScript では constructor.name が使えないので、下記をベースに改良。

Magnetiq - Finding Out Class Names of JavaScript Objects
http://blog.magnetiq.com/post/514962277/finding-out-class-names-of-javascript-objects

何となくそれらしい文字列が取れていれば良いことにしておく。
*/