vbscript
ASPからExcelを編集するとなると、値段の張るExcelCreatorなんかでゴリゴリ編集コードを書く、なんてことになりますが、 単純にデータを落とすぐらいなら、ADOでできるとのこと。 やり方 DBからデータを取得するのと同じ要領です。 'DBに接続するのと同じく…
BASP21を使わない方法です。 というのも<input type="file" multiple>で複数のファイルをアップロードしようとしたときに、 BASP21では実現できませんでした。 .Netを使ってひとまずアップロードはできたのですが、以前見たBASP21を使わないコードを思い出して、 参考にして実際にやって…
vbsですが、wsfにするとよく使うオブジェクトをあらかじめ定義できます。やり方 タグを書く 変数名とオブジェクトを指定する 以上です。 FSOやADODB関連など、必ず使うモノはここで書いておいて、コードもスッキリしました。 <package> <job id="main"> <object id="objFSO" progid="Scripting.FileSystemObject" /> <object id="objXHR" progid="MSXML2.XMLHTTP" /> </object></object></job></package>
IISの設定で応答バッファの上限が設定できますが、以下のサンプルケースのように それを超えるサイズのファイルをダウンロードする方法です。・サンプル IISの設定：応答バッファの上限5MB ダウンロードするファイル：100MB 以前調べて解消していたのですが…
vbscriptでHTTPリクエストを投げつけたいときは、MSXML2.XMLHTTPオブジェクトを使います。ajaxするときと同じですね。 Dim objXHR,objStream Set objXHR = CreateObject("MSXML2.XMLHTTP") Set objStream = CreateObject("ADODB.Stream") Call objXHR.Open("…
windows server 2008でADOを使うと、SELECTした項目名が見つからない不具合があるみたいです。http://blogs.msdn.com/b/jpsql/archive/2011/02/10/known-issue-ado-windows-server-2008.aspx おったまげました。 まさかそこかと！
メソッドチェーンというとJQueryなイメージですが、vbsでもやってやります。方法は同じで、メソッドの戻り値として自身を返します。 Class Chain Public Message 'メソッド Public Function Say(str) msgbox str Me.Message = Me.Message & str 'チェーン Se…
気づかずそんなことできないといわれそうな部類のものですが、 連想配列の取り扱いは、ディクショナリーオブジェクトで行います。 Dim list Set list = CreateObject("Scripting.Dictionary") list.Add "myName","辞書太郎" msgbox list.Item("myName") '辞…
vbscriptはとてもわかりやすいので、++といういったい何をしているかわからない 記号はつかえません。でも、そこはあえて使えるようにしてみたいです。 Function [++](ByRef seq) If Not IsNumeric(seq) Or IsEmpty(seq) Then seq = 0 Else seq = seq + 1 En…
vbscriptにはpushがないので、先人の知恵を拾ってくる必要があります。 http://www.songmu.jp/riji/archives/2008/07/vbscriptpush.htmlいやー！楽ちんですよ！感謝感激！ わざわざRedimしてちゃいけないですね。ところで、配列をコピーするときは単純に代入…
vbscriptにはType、構造体がないのでクラスを作ります。 構造体がないというか、クラスあるからいいじゃん、か。 Class Identifier Public MyId Public MyName End Class Dim obj:Set obj = New Identifier obj.MyId = 1 obj.MyName = "太郎"
