VBScript:HTTPファイルアップロードする

Option explicit
dim xmlhttp
dim strm
dim strUrl
dim strFile
dim strTgtFile

'ファイル送信用のスクリプト
strUrl = "http://192.168.1.210/put.php"
'送信ターゲット
strFile = "c:¥Windows¥System.ini" '送信ファイル名
'//strTgtFile = "aa/あいう.dat" '保存ファイル名
strTgtFile = "upload.dat"

set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP")
'これが一番いいと思われるが全ての環境で使えるわけではない setTimeOutが可能
'set xmlhttp = CreateObject("MSXML2.XMLHTTP")
'set xmlhttp = CreateObject("Microsoft.XMLHTTP")
'「msxml3.dll: エラーを特定できません」エラーとなる場合 Streamに対する制限
set strm = CreateObject("ADODB.Stream")
strm.Mode = 3 'for LoadFromFile
strm.Type = 1 'Binary
strm.Open
strm.LoadFromFile( strFile )
'このオプションは MSXML2.ServerXMLHTTPのみ
xmlhttp.setTimeouts 180 * 1000 , 180*1000 , 180*1000 , 180*1000

xmlhttp.open "PUT",strUrl 'PUTメソッドはダメな時はPOST
'xmlhttp.open "POST",strUrl
xmlhttp.setRequestHeader "cmd","put"
xmlhttp.setRequestHeader "hirake","goma"
xmlhttp.setRequestHeader "fname", strTgtFile

xmlhttp.send strm.read(-1)

strm.Close
'HTTPステータスを表示
WScript.Echo xmlhttp.status
'サーバからの応答を表示
WScript.Echo xmlhttp.responseText

set strm = Nothing
set xmlhttp = Nothing


http://blog.jojo.jp/?eid=1331836

アイコンを探すときに覚えておきたいアイコン検索サイトまとめ

http://www.xiii-xiii.com/2010/11/11/%E3%82%A2%E3%82%A4%E3%82%B3%E3%83%B3%E3%82%92%E6%8E%A2%E3%81%99%E3%81%A8%E3%81%8D%E3%81%AB%E8%A6%9A%E3%81%88%E3%81%A6%E3%81%8A%E3%81%8D%E3%81%9F%E3%81%84%E3%82%A2%E3%82%A4%E3%82%B3%E3%83%B3%E6%A4%9C/

Linux上で文字コードを変換できるコマンドnkf

$ nkf オプション ファイル名 [> 出力ファイル名]


nkf -s -x -Lw
-s　: Shift-JISコードを出力
-Lw　: windows改行形式(CRLF)に変換
-x　: nkfのデフォルトの動作としては 半角カタカナを全角カタカナに変換します。
半角カタカナを半角カタカナのままにしておきたい場合は、
コマンドラインオプションに x を追加します。

ファイルの内容を1行ずつ処理

(ファイルを読み込んで各行を変数に読み込んでループ処理)
while read [変数名]; do [処理...] ; done < [入力ファイル]

(そのまま表示)
$ while read LINE; do echo ${LINE}; done < [表示したいファイル]; unset LINE
(行番号を付けて表示)
$ I=1; while read LINE; do echo "$(printf %4d ${I})| ${LINE}"; I=$((${I} + 1)); done < [表示したいファイル]; unset I LINE
(5行ごとに行番号を付けて表示)
$ I=1; while read LINE; do [ $((${I} % 5)) -eq 0 ] && echo "$(printf %4d ${I})| ${LINE}" || echo " | ${LINE}"; I=$((${I} + 1)); done < [表示したいファイル]; unset I LINE

http://d.hatena.ne.jp/kakurasan/20100112/p1