SQLの窓

2011年10月03日


VBS : Textt サービスに書き込んだテキストを PC にダウンロード(配布)する

環境によりますが、同一ユーザ、同一パスでログインしている複数のPC の共有に
テキストデータを一括配布するバッチを比較的簡単に作成できます。
( 出力側パスに \\PC名\共有 等を使用します )
' ダウンロード用のオブジェクト
Set objSrvHTTP = Wscript.CreateObject("Msxml2.ServerXMLHTTP")

' ダウンロード要求
Call objSrvHTTP.Open("GET", "http://textt.net/ユーザID/ファイル番号.txt", False )
objSrvHTTP.Send

' ※ Textt は Content-type は送られずに UTF-8 なので 問題は出ません

' ファイルシステムオブジェクト
Set Fs = CreateObject( "Scripting.FileSystemObject" )

' 書き込むファイルのパスを指定します
' 2はファイルを書き込み専用として開きます
' True はファイルが存在しなかった場合に新しいファイルを作成します
Set OutObj = Fs.OpenTextFile( "C:\TEST.txt", 2, True )

' WEB 上のファイルなので LF のみなので、CRLF に変換します
OutObj.Write( Replace( objSrvHTTP.responseText, vbLf, vbCrLf ) )

OutObj.Close()



posted by lightbox at 2011-10-03 15:46 | VBS + インターネット | このブログの読者になる | 更新情報をチェックする
バッチ処理

Microsoft Office
container 終わり

フリーフォントで簡単ロゴ作成
フリーフォントでボタン素材作成
フリーフォントで吹き出し画像作成
フリーフォントではんこ画像作成
ほぼ自由に利用できるフリーフォント
フリーフォントの書体見本とサンプル
画像を大きく見る為のウインドウを開くボタンの作成

Android SDK ポケットリファレンス
改訂版 Webデザイナーのための jQuery入門
今すぐ使えるかんたん ホームページ HTML&CSS入門
CSS ドロップシャドウの参考デモ
Google Hosted Libraries
cdnjs
BUTTONS (CSS でボタン)
イラストAC
ぱくたそ
写真素材 足成
フリーフォント一覧
utf8 文字ツール
右サイド 終わり
base 終わり