久々 リプライス やで～

IE か WSH か VHS か分からないんだけど、VHS関係ねぇか(汗;)

http://petamun.blog.so-net.ne.jp/2007-05-06
↑ リプライス のページが動作しなくなってもう数年ですけど、まぁ、リプライスだけじゃなくて殆ど? ・・確か、XP-SP3くらいまでは動いていたと思うのですがー

最近、テキスト中の文字列を大量にリプライス変換しないといけないという用事が発生しまして 2～3日かけて作ってみました。

エラー処理が中途半端ですけど、とりあえず無事に用事は済ませることが出来たようなので、その スクリプト コード の紹介しておきます。

Const ForReading = 1, ForWriting = 2, ForAppending = 8 Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0 Dim fso,pss,fps,fp1,fot,tx1,tx2,txt,Reptext tx1 = "ABC" '...リプライス対象の文字列 tx2 = "WXY" '...リプライス変換後文字列 Set objArgs = WScript.Arguments For I = 0 to objArgs.Count - 1 pss = objArgs(I) Next Set fso = CreateObject("Scripting.FileSystemObject") Set fps = fso.GetFile( pss ) fp1 = fps.Path Set fot = fso.OpenTextFile (fp1, ForReading) txt = fot.ReadAll If tx1 <> tx2 then Reptext = Rep(tx1,tx2,txt) if Reptext = "" Or Reptext = Null then if tx1="\\" Or tx1="^" Or tx1="$" Or tx1="*" Or tx1="+" Or tx1="?" Or tx1="." Or tx1="|" Or tx2="\\" Or tx2="^" Or tx2="$" Or tx2="*" Or tx2="+" Or tx2="?" Or tx2="." Or tx2="|" then MsgBox ( "注). 特殊文字なので変換できませんでした。!") end if else Set ts = fps.OpenAsTextStream(ForWriting, TristateUseDefault) ts.Write Reptext ts.Close MsgBox ("MISSION COMPLETE!!" & vbCrLf & tx1 & " を " & tx2 & " へ リプライス完了!!") end if else MsgBox ( "★ 文字列を確認して再度実行してみてください。!") End if Function Rep(patrn,ST,stx) Dim A,B,C Set A = New RegExp A.Pattern = patrn A.IgnoreCase = True A.Global = True Set C = A.Execute(stx) For Each B in C Rep = A.Replace(stx, ST) Next if Rep = false then MsgBox ( "★ 対象文字はありませんでした。!") end if End Function

このテキストエリアのソースを丸コピし、メモ帳にペースト、ファイル名は適当でいいんですが「TEXT REPLACE.vbs」とかにして、変換対象のテキストファイルをドラッグ＆ドロップすると変換して上書きしてくれます。

5行目ダブルクォーテーションの中に変換対象文字列を書き込んでください。
6行目ダブルクォーテーションの中に変換後の文字列を書き込んでください。

一応、win7x64で作りました。動作保障は無いのでコピーで試してからお願い致します。既にこのカテゴリ大半が動作していないようなので、自己責任でお願い致します。それでは、くれぐれお気をつけて・・ ＼(-o-;)／

batで SP1 統合 win7x86(無印)

前記事に続きまして、プロンプトだけで Service Pack 1 を展開して、インストールイメージに統合できないかと考えてたところ、うちのポンコツPCでも20～30分ほどで・・

試したメディアは、DELL(OEM) windows 7 pro (32bit) で US言語インストールです。SP1の解凍が正しくできているのか不明のままなので、動作を、今、確認中なのですが、異常があればご報告予定です。


☆ SP1統合の為の下準備作業 :
最初に、C:\　ルートに、sp1_DEPLOY　というフォルダを作る。　その中に、windows6.1-KB976932-X86.exe　をコピぺ(※ブロック解除が必要かも?)する。　次に、sp1_DEPLOYへ win7 フォルダを作り、windows 7 の DVD (※ISOイメージの時はマウントしてそのドライブから)、K:\　などから、インストールイメージをまるコピをします。

コピーは、プロンプトを管理者モードで起動して xcopy か、 robocopy のいずれかでOKでした。

xcopy /e /i /v K: C:\sp1_DEPLOY\win7
か
robocopy K: C:\sp1_DEPLOY\win7 /e /dcopy:t /a-:r

↓ 作業用フォルダー内は、こんな感じですね。

spup1 と spup2 フォルダーには、エラー対策のSP1必須更新プログラムをコピーしますが、パッケージによって違うのかもしれませんが、必要ないという説もあるようなので、そこは微妙なのですが、一応、空でもOKですが、うちの例を記載しときます。

○ spup1の中へコピー
Windows6.1-KB2454826-v2-x86.msu
※KB2534366 と KB2533552は新しいSP1に同梱済みらしいく、あるとエラーになる。
○ spup2の中へコピー
Windows6.1-KB947821-v34-x86.msu
Windows6.1-KB3050265-x86.msu　　です。

①の作業用バッチ　sp1_integrate.bat　は、ディスクトップにショートカットを置いておくと便利です。これを右クリックの管理者モードで起動させると、統合作業がはじまります。何も準備てきていない場合は、作業用フォルダだけ作って、そこで、一旦、終了します。　

プロンプトは、キー指示に従って操作してください。時間がかかる作業ではフリーズしてるみたいに見える事ありますが、途中で終わると、トラブルの元です。　しかし低スペック環境で、ほんとにフリーズしている場合はお詫びのしようもありませんm_ _;m、　SP1の解凍は、結構、爆速なので、心臓の弱い方にはあまりお勧めできないかも(汗;)。あと特に低スペック環境では、ネットワーク接続を切断してインターネットセキュリティOFFにして、スリープや省電力モードもOFFにしてたほうがトラブルなくて良いのかも・・

① sp1_integrate.bat (x86win7)　※作業用バッチです。
@echo off echo ★彡 x86w7用 ServicePack1 展開と統合を始めるょん 彡★ echo; set DEPLOY_DIR=C:\sp1_DEPLOY set SP1_DIR=%DEPLOY_DIR%\sp1 set SPUP1_DIR=%DEPLOY_DIR%\spup1 set SPUP2_DIR=%DEPLOY_DIR%\spup2 set WIN_DIR=%DEPLOY_DIR%\win7 set TMP_DIR=%DEPLOY_DIR%\tmp set F1=1 set F2=2 echo; pause echo; if not exist %DEPLOY_DIR%\windows6.1-KB976932-X86.exe (echo SP1の実行ファイルを %DEPLOY_DIR% へコピしてください。!!) else (set F1=0) if not exist %WIN_DIR%\sources\install.wim (echo Win7x86 無印のインストールイメージを %WIN_DIR% に○コピしてください。!!) else (set F2=0) echo; if %F1%==%F2% ( if not exist %SP1_DIR%\ ( mkdir %SP1_DIR% ) if not exist %SPUP1_DIR%\ ( mkdir %SPUP1_DIR% ) if not exist %SPUP2_DIR%\ ( mkdir %SPUP2_DIR% ) if not exist %TMP_DIR%\ ( mkdir %TMP_DIR% ) echo では、SP1の統合作業を開始します!! ) else ( if not exist %DEPLOY_DIR%\ ( mkdir %DEPLOY_DIR% ) if not exist %SPUP1_DIR%\ ( mkdir %SPUP1_DIR% ) if not exist %SPUP2_DIR%\ ( mkdir %SPUP2_DIR% ) if not exist %WIN_DIR%\ ( mkdir %WIN_DIR% ) echo ...準備不足につきまして、作業を、ここで中断します!! ) echo; pause if %F1% neq %F2% ( exit ) else ( echo;COR2DUO_3.0GHz 3GBメモリー環境で３０分前後かかります!! ) echo まずコード中のINDEX番号をチェックして(※DEFAULTは"Windows 7 PROFESSIONAL"の4)ください。 echo; pause Dism /Get-WimInfo /WimFile:%WIN_DIR%\sources\install.wim echo; pause echo 展開とマウントの作業は数分かかりますので、次の指示に従ってください。!! echo; pause Dism /Mount-Wim /wimfile:%WIN_DIR%\sources\install.wim /index:4 /MountDir:%TMP_DIR% echo; pause echo インストールイメージの展開できていますか ? echo キーオンで SP1 の CAB の抽出を爆速で始めます(所要１0分ほど)。 echo; pause %DEPLOY_DIR%\windows6.1-KB976932-X86.exe /x:%SP1_DIR% rem move /y %SPTMP_DIR%\ %SP1_DIR%\ echo; expand %SP1_DIR%\windows6.1-KB976932-X86.cab -f:* %SP1_DIR% del /f %SP1_DIR%\windows6.1-KB976932-X86.cab rem expand %SP1_DIR%\windows6.1-KB976902-X86.cab -f:* %SP1_DIR% del /f %SP1_DIR%\windows6.1-KB976902-X86.cab rem echo KB976902に関しては、不具合報告もあるらしいので、ご注意を!! echo; expand %SP1_DIR%\KB976933-LangsCab0.cab -f:* %SP1_DIR% del /f %SP1_DIR%\KB976933-LangsCab0.cab expand %SP1_DIR%\KB976933-LangsCab1.cab -f:* %SP1_DIR% del /f %SP1_DIR%\KB976933-LangsCab1.cab expand %SP1_DIR%\KB976933-LangsCab2.cab -f:* %SP1_DIR% del /f %SP1_DIR%\KB976933-LangsCab2.cab expand %SP1_DIR%\KB976933-LangsCab3.cab -f:* %SP1_DIR% del /f %SP1_DIR%\KB976933-LangsCab3.cab expand %SP1_DIR%\KB976933-LangsCab4.cab -f:* %SP1_DIR% del /f %SP1_DIR%\KB976933-LangsCab4.cab expand %SP1_DIR%\KB976933-LangsCab5.cab -f:* %SP1_DIR% del /f %SP1_DIR%\KB976933-LangsCab5.cab expand %SP1_DIR%\KB976933-LangsCab6.cab -f:* %SP1_DIR% del /f %SP1_DIR%\KB976933-LangsCab6.cab expand %SP1_DIR%\NestedMPPContent.cab -f:* %SP1_DIR% del /f %SP1_DIR%\NestedMPPContent.cab echo; echo 解凍が終わりました。キーオンで、SP1必須更新ブログラムの統合を始めます。 echo; pause Dism /Image:%TMP_DIR% /Add-Package /PackagePath:%SPUP1_DIR% echo; echo SP1必須更新ブログラムの統合終わりましたか ? 次にSP1本体の統合準備に進みます。 echo; pause CALL %DEPLOY_DIR%\slip_stream.vbs echo; if %errorlevel% equ 0 ( echo ---------------------------------------------------------- rem timeout /t 2 rem rundll32.exe url.dll,FileProtocolHandler %SP1_DIR%\update.mum echo Batch_log : Mission Complete! rem timeout /t 2 rem rundll32.exe url.dll,FileProtocolHandler %SP1_DIR%\update.ses echo ServicePack integration for Windows7x86. Start the cooking !! rem timeout /t 2 rem rundll32.exe url.dll,FileProtocolHandler %SP1_DIR%\Windows7SP1-KB976933~31bf3856ad364e35~x86~~6.1.1.17514.mum ) else ( echo ---------------------------------------------------------- echo Batch_log : Mission Failed ?! exit ) echo; pause echo; Dism /Image:%TMP_DIR% /Add-Package /PackagePath:%SP1_DIR% echo; echo SP1の統合できましたか? 次にSP1用後の不具合対策更新ブログラムを充てます。 echo; pause Dism /Image:%TMP_DIR% /Add-Package /PackagePath:%SPUP2_DIR% echo; echo キーオンで「統合済みインストールイメージ」の保存とマウント解除を始めます。 echo; pause Dism /Unmount-WIM /MountDir:%TMP_DIR% /Commit echo; echo お疲れ様でした。重大なエラーが無ければ・・ echo ブートDVD(iso)へ変換するか、USBメモリーにコピーしてご使用ください。 echo なおブートUSBメモリーを作る際はブートセクタの書き込みなどが必要... echo; pause
注) tmpフォルダーの中身ですが、統合に失敗した際など、永久削除できない系のトラブルになり易いようですので、くれぐれ簡単に削除しないでください。
最後のコードの　
Dism /Unmount-WIM /MountDir:%TMP_DIR% /Commit　
で、アンマウントを単独で実行すれば、win7へ保存されマウントが解除されるので、rd コマンドで一発削除が可能になります。

例 :
rd /s C:\sp1_DEPLOY\win7
rd /s C:\sp1_DEPLOY\sp1
※win7とsp1フォルダがそれぞれ削除される。

① slip_stream.vbs (x86win7)　※連携VBスクリプト。
DIM fso,tg0,tg1,tg2,tg3,tg4,fgf1,fgf2,fgf3,Mese01,Mese02,Mese03 tg0 = "C:\sp1_DEPLOY\" tg1 = tg0 & "sp1\update.ses" tg2 = tg0 & "sp1\update.mum" tg3 = tg0 & "sp1\Windows7SP1-KB976933~31bf3856ad364e35~x86~~6.1.1.17514.mum" tg4 = tg0 & "sp1\update.ses.txt" Const ForReading = 1 Const ForWriting = 2 Set fso= CreateObject("Scripting.FileSystemObject") If fso.FileExists(tg1) Then fso.CopyFile tg1,tg0 Set fgf1 = fso.GetFile(tg1) 'WScript.Echo fgf1.Name & " : ExistsCheck Ok! by VB_SCRIPT " Else msgbox tg1 & vbCrLf & "!! VB_SCRIPT ERROR : Not Found エラー終了します。" WScript.Quit End If If fso.FileExists(tg2) Then Set fgf2 = fso.GetFile(tg2) fso.CopyFile tg2,tg0 'WScript.Echo fgf2.Name & " : ExistsCheck Ok! by VB_SCRIPT" Else msgbox tg1 & vbCrLf & "!! VB_SCRIPT ERROR : Not Found エラー終了します。" WScript.Quit End If If fso.FileExists(tg3) Then Set fgf3 = fso.GetFile(tg3) fso.CopyFile tg3,tg0 'WScript.Echo fgf3.Name & " : ExistsCheck Ok! by VB_SCRIPT" Else msgbox tg1 & vbCrLf & "!! VB_SCRIPT ERROR : Not Found エラー終了します。" WScript.Quit End If Set fso= CreateObject("Scripting.FileSystemObject") Set OTF= fso.OpenTextFile( tg2, ForReading ) raTX= OTF.ReadAll OTF.Close wrTX= Replace(raTX,"allowedOffline=""false""","allowedOffline=""true""") Set OTF=fso.OpenTextFile( tg2, ForWriting ) OTF.WriteLine wrTX OTF.Close 'Set fso= CreateObject("Scripting.FileSystemObject") Set OTF= fso.OpenTextFile( tg3, ForReading ) raTX= OTF.ReadAll OTF.Close wrTX= Replace(raTX,"allowedOffline=""false""","allowedOffline=""true""") Set OTF=fso.OpenTextFile( tg3, ForWriting ) OTF.WriteLine wrTX OTF.Close '-------------------------------//update.sesを書き換える VBS//------- gFP = fgf1.Path gNE = fgf1.Name fgf1.Name = fgf1.Name & ".txt" Const insTx1 = " <package id=""Windows7SP1-KB976933~31bf3856ad364e35~x86~~6.1.1.17514"" targetState=""Installed""/>" Const insTx2 = " <package id=""Windows7SP1-KB976933~31bf3856ad364e35~x86~~6.1.1.17514"" targetState=""Absent""/>" Set OTF = fso.OpenTextFile(tg1 & ".txt", ForReading) Do Until OTF.AtEndOfStream i = OTF.Line If i = 18 Then wLine = wLine & insTx1 & vbCrLf deNol = OTF.ReadLine End If wLine = wLine & OTF.ReadLine & vbCrLf Loop Set FOTF = fso.OpenTextFile(tg1 & ".txt", ForWriting,TristateTrue) FOTF.Write wLine OTF.Close FOTF.Close '---------------------------//update.ses ファイル名を元に戻す //------- If fso.FileExists( tg4 ) Then Set fgf4 = fso.GetFile( tg4 ) gNE = fgf4.Name 'gFP = fgf4.Path ext = fso.GetExtensionName(gNE) fgf4.Name = Left(gNE, Len(gNE) - 4) Else WScript.Echo "VB_SCRIPT ERROR : Not Found エラー終了します。" WScript.Quit End if set fso = nothing Mese01 = "３個のファイルの設定値の変更作業とバックアップが完了しました。" Mese02 = "WEBページで開きますので、チェックしておいてください。" Mese03 = "では引き続きプロンプトで、統合作業をお進めください。" WScript.Echo "◆ VB_SCRIPT :" & vbCrLf & Mese01 & vbCrLf & Mese02 & vbCrLf & Mese03 Wscript.Quit
こちらのVBSは、パッチから CALLコマンドで呼び出して使っています。ファイル名をそのままで、sp1_DEPLOY 内で使ってください。　実際はE:\で作業していました。パスが間違っていないか、構文が間違ってないかチェックが必要です。何せ降って湧いてようなトウシロなものですから、ご用心くださいまし・・v(笑;)

インストール設定の変更チェックで、ファイルを３個ポップアップしてますが、インターネットセキュリティからエラーがでる事があったのと、更に VBスクリプト自体が、「圧縮ウイルス」として隔離されたりもあありまして、 ・・なので、どのアプリで開くかも分からないので、現在、コメントアウトしてます。m_ _;m

////　興味のある人へ　使用上のご注意 ////////////
Win10x86で動作確認済みですが一切の責務は負い兼ねます。
ソース内容をお確かめの上、ご使用ください。＼(◎o◎)／！
ディスクトップから起動させると正常に動かないことがある。
US言語でのインストールですが、SP1の表示確認済みです。

　 　　　　　　　　　'配布元 ここです。
　　　　　　　　　　 '最終更新日 05:31 2016/08/31
　　　　　　　 　　　'管理人 うっぴぃ～
//////////////////////////////////////////////////////////////

★ win7フォルダーに出来たイメージを、ブータブルISO にしたい皆様方は、

ttp://unattended.msfn.org/unattended.xp/view/web/15/
↑ こちらから CDIMAGE_GUI click ひゃー!!
※このツールの実行には、別途 CDIMAGE.EXE が必要で、このパスを通し、CDサイズ制限を解除し、win7のbootセクター "etfsboot.com" のパスを通すと、ブータブルISOが作れました。


もうひとつ、ちょっと難しいけど・・
oscdimg.exe 2.54(Microsoft署名のあるもの) だけでやるには、bootorder.txt を用意し、oscdimg.batを作り、以下のように記載し管理者モードで実行すると・・

oscdimg -u2 -udfver200 -bC:\sp1_DEPLOY\win7\boot\etfsboot.com -yoC:\oscdimg\bootorder.txt C:\sp1_DEPLOY\win7 C:\sp1_DEPLOY\Win7sp1x86.iso

５分くらいで、ブータブルISOできました。

書式としましては、
oscdimg -u2 -udfver200 -b[ブートプログラムのパス] -yo[bootorder.txtのパス] [インストールイメージのパス] [出力先ISOのパス]

なお bootorder.txt の内容は・・
boot\bcd
boot\boot.sdi
boot\bootfix.bin
boot\bootsect.exe
boot\etfsboot.com
boot\memtest.exe
boot\en-us\bootsect.exe.mui
boot\fonts\chs_boot.ttf
boot\fonts\cht_boot.ttf
boot\fonts\jpn_boot.ttf
boot\fonts\kor_boot.ttf
boot\fonts\wgl4_boot.ttf
sources\boot.wim
インストールイメージの bootフォルダ内のすべてのパスと、最下行に boot.wimのパスでした。


★ PS :　 プロンプトだけで、SP1 と ROLLUP　と IE11 まで、一度に統合させる事も出来るとは思うけど、結構、大それた作業になりそうなので、今は、単品で確かめたほうが良いと思いまして、今回は先送りです。　・・あと、ドライバーとかの統合方法もまだ分からないので、SATAカード(AHCIドライバ)＋USB3.0のカード経由でインストールできないんですょね～。

win7(x86) "sp1 & ROLLUP & ie11" 統合.bat

・・ネット情報を手がかりに、連夜徹夜で統合作業してたのですが、とうとう常用していた w7sp1(x86) 機がフリーズしてしまい、失敗したイメージも永久削除出来なくなったみたいで、復旧とてつもなく大変でしたけど・・(汗;)、win10x64 のほうでやってみたら、すんなり完成してます。（*^_^*）

作業としては、まず　Service Pack1　を、RT 7 Lite(x86) で、統合し、・・、1時間はゆうにかかります。　3回失敗したけどね(爆;)。

これを、① w7(x86)mkd.bat　で作った w7sp1 フォルダーへコピペするのですが、"すらりん日記" 様のページを参考にさせて頂きまして・・、robocopy で OK です。 bat中にコード例をコメントアウトしてます。

次に ROLLUP ファイル2個を、ROLLUPフォルダーへコピぺします。

最後に、IE11ですが、うちでは、日本語版NGでした。　エラーでCABが統合できなくて、英語版を使ってますので、日本版のがいい方は後でインストールし直して。　まぁ、何が原因かは、まだ分かってないm_　_;mので・・。

・・で、 ei11 の統合ですが、「必須更新ファイル」というのが6個あるらしく、それらを予め展開イメージへ統合しないことには、前に進めないらしいのです。　うちは更にエラー対策などのファイルを3個追加しています。　計9個以上でやっているので、チェックしておいてください。

① w7(x86)mkd.bat　※準備作業用バッチです。
@echo off echo ★彡win7sp1(x86)ロールアップとie11統合の準備を始めます。彡★ pause set ISO_DIR=C:\ISO set WIN7_DIR=%ISO_DIR%\w7sp1 set TEMP_DIR=%ISO_DIR%\temp set ROLLUP_DIR=%ISO_DIR%\rollup set IE11_DIR=%ISO_DIR%\ie11 set IEUP_DIR=%ISO_DIR%\ie11upd mkdir %ISO_DIR% mkdir %WIN7_DIR% mkdir %TEMP_DIR% mkdir %ROLLUP_DIR% mkdir %IE11_DIR% mkdir %IEUP_DIR% echo; echo C:\へロールアップとie11統合の作業フォルダを作成しました。 echo それぞれの作業フォルダへ、次に指定するファイルをコピーする必要があります。 echo; pause echo; echo まず Windows7sp1(x86)インストールイメージを w7sp1　へ! echo ※コマンドラインでコピーする際は・・　 robocopy でも可能 echo 例. robocopy D:\iso %WIN7_DIR%\ /E /DCOPY:T /A-:R echo; pause echo; echo 次にKB3020369(x86)とKB3125574(x86)2つのロールアップを rollup へ! echo; pause echo; echo 更にie11(英語版)本体 "IE11-Windows6.1-x86-en-us.exe" を ISO へ! echo ie11必須 "Windows6.1-KB2670838-x86.msu" を ie11upd へ! echo ie11必須 "Windows6.1-KB2729094-v2-x86.msu" を ie11upd へ! echo ie11必須 "Windows6.1-KB2834140-v2-x86.msu" を ie11upd へ! echo ie11必須 "Windows6.1-KB2731771-x86.msu" を ie11upd へ! echo ie11必須 "Windows6.1-KB2533623-x86.msu" を ie11upd へ! echo ie11必須 "Windows6.1-KB2786081-x86.msu" を ie11upd へ! echo ie11必須 "Windows6.1-KB2639308-x86.msu" を ie11upd へ! echo ie11必須 "Windows6.1-KB2888049-x86.msu" を ie11upd へ! echo ie11必須 "Windows6.1-KB2882822-x86.msu" を ie11upd へ! echo ie11必須 "Windows6.1-KB3050265-x86.msu" を ie11upd へ! echo ie11必須 "Windows6.1-KB947821-v34-x86.msu" を ie11upd へ!! echo; pause echo; echo できたら統合作業を始めますが、展開する install.wim のイメージ echo の情報を参照するので、INDEXとOS名称を必ずチェックしてね!! pause echo; Dism /Get-WimInfo /WimFile:C:\ISO\w7sp1\sources\install.wim echo; echo キーオンでプロンプトを閉じます。 echo win7(x86) sp1+ROLLUP+ie11統合.batを「管理者として実行」してください。 echo; pause
↑ テキストエリア①は、準備用のbatコードです。作業用フォルダーをCルートに作ります。　必要ファイルをそれぞれのフォルダ内に自分で準備する必要があります。
あとコードの最後に　INSTALL.WIM の INDEX番号とOS名を参照してますが、使用しているイメージでは、PROFESSIONAL の INDEX は 4 だったので、テキストエリア②のコードでそれを使っています。　パッケージによって番号が異なる事もあるかもしれないので・・


準備ができたら、実際の統合作業は、↓ テキストエリア②のbatでやります。まだテスト中なので結果だけ追記しときます。
② win7(x86) sp1+ROLLUP+ie11統合.bat　※統合用バッチ。
@echo off echo ★彡win7sp1(x86)のロールアップとie11統合を始めます彡★ echo; pause set ISO_DIR=C:\ISO set WIN7_DIR=%ISO_DIR%\w7sp1 set TEMP_DIR=%ISO_DIR%\temp set ROLLUP_DIR=%ISO_DIR%\rollup set IE11_DIR=%ISO_DIR%\ie11 set IEUP_DIR=%ISO_DIR%\ie11upd echo; echo では %TEMP_DIR% へ install.wim イメージの展開を始めます。 echo この作業は数分かかるので次の指示があるまで何もしないでまて・・ echo; pause Dism /Mount-Wim /WimfFle:%WIN7_DIR%\sources\install.wim /index:4 /MountDir:%TEMP_DIR% rem Dism /cleanup-wim rem ↑ 既にマウントされてたりして、失敗する際の初期化スイッチです。 echo; echo インストールイメージの展開できていますか ? echo; echo キーオンで、ロールアップの統合を始めます。 echo; echo Core2Duo 3.0GHz 3GB環境で、20～30分かかります。 echo 10分ほど表示が進まない時もあるので、キーの指示があるまでは何もしないでまってて・・ echo; pause Dism /Image:%TEMP_DIR% /Add-Package /PackagePath:%ROLLUP_DIR%\Windows6.1-KB3020369-x86.msu Dism /Image:%TEMP_DIR% /Add-Package /PackagePath:%ROLLUP_DIR%\X86-all-windows6.1-kb3125574-v4-x86_ba1ff5537312561795cc04db0b02fbb0a74b2cbd.msu rem ↑ ファイル名に変更があるようなのでチェックしておいて・・ echo; echo %TEMP_DIR% へロールアップの統合できましたか ?! echo; echo キーオンでie11を展開 統合用のcabを抽出開始します。 echo; pause %ISO_DIR%\IE11-Windows6.1-x86-en-us.exe /x:%IE11_DIR% echo; DEL IE_SUPPORT_x86_en-US.CAB echo ie11の展開できましたか ?! echo 続いてキーオンで、ie11必須アップデート統合を始めます。 echo; pause Dism /Image:%TEMP_DIR% /Add-Package /PackagePath:%IEUP_DIR% echo; echo ie11必須アップデートファイルの統合できましたか ? echo 続いてキーオンでie11本体の統合に進みますが、エラーあるかも・・ echo; pause Dism /Image:%TEMP_DIR% /Add-Package /PackagePath:%IE11_DIR% echo; echo ie11の統合、無事完了できましたか。? echo キーオンで統合済みイメージの保存 及び 解除を始めます。 echo これも数分かかるので、キー指示があるまでは何もしないで・・ echo; pause Dism /Unmount-WIM /MountDir:%TEMP_DIR% /Commit echo; echo %WIN7_DIR%へ、無事に統合イメージ完成してるでしょうか。 echo お疲れ様でした。 echo ブートISOイメージへ変換するか、USBメモリーにコピぺしてご使用ください。 echo なおUSBメモリーにコピーする場合は、ブートセクターの書き込み等、お忘れなく・・ pause

'//// 使用上のご注意 //////////////////////////
'◇ Win10x64で動作確認済みですが一切の責務は負い兼ねます。
'◇ ソース内容をお確かめの上、ご使用ください。＼(◎o◎)／！
'◇ディスクトップから起動させると正常に動かないことがある。
'◇batは右クリックメニューから管理者権限で起動させる必要あり。
'◇テストOSは、DELL(OEM)のPROFESSIONALです。
'◇US言語でのインストールで成功しています。

　 　　　　　　　　　'配布元 ここです。
　　　　　　　　　　 '最終更新日 05:30 2016/08/08
　　　　　　　 　　　'管理人 うっぴぃ～
'/////////////////////////////////////////////////////////////////

PS : ◆　以下、結果です。 :
出来上がったイメージ(DELL-OEM)ですが、コマンドプロンプトで、ブーダブルUSBメモリーを作り、試してみたのですが、機能のインストールの最中に　「オフラインのロケール情報を設定出来ない」 という"0x80FF0000" STOPエラーで停止してます。64bitSp1では「選択の言語がインストールできない」とうＳＴＯＰエラー。別のPCでも試してみましたが同じ症状だった。　

英語版のIEか、入れ過ぎた更新ファイルの可能性だとは思いたくないけど・・。?　ハッシュ値も見たけど、関係なさそうだし・・

で、RT 7 Lite(x86) で作ったSP1だけのでも、やってみたけど同じエラー。これも管理者として実行しないとダメ?。　

・・このメディア、何か訳ありなのですかね。?

・・で、６４bitなのですが、US言語でインスートルしてみたら無事完了できてる。ほぼフルパッチ状態なのでアップデートのほうは良い感じですが、日本語の読み書きができないので、IEMを引っ張り出す変更が必要です。あと多分101/102 キーボードなので、106/109キー日本語キーボードへのディバイスドライバの変更が必要。これで何とかなりそ・・。もしログオン出来なくなったら左下のアイコンに キーボードあるので。


あと、冒頭のフリーズの件ですが、イメージの展開後、アンマウントせずに、プロンプトを終了させると、tempの中身が削除不能になる。最後のプロセス(保存・マウント解除)まで終わらせておく必要ありみたいでした。要はmountとunmountはセットなので、tempの中身を削除したりしたらダメという事ですよね。


・・で、インストール不調の原因ですが、USBメモリーの可能性も否定できない。　フラッシュではなくて、micro SDHCをカートリッジに挿して、さらにSDメモリリーダーから使う方法のやつ。昔っからですけど、挿すと「フォーマットしないと使えない」というエラーが時々出ますけど、フォーマットできませんし、データーはちゃんと生きてるので、決してフォーマットしてはダメで、別のOSか、メモリーリーダーでエラー解消するか、一度、デジカメとかに挿してフォーマットするかしないと、再び認識しない事も良くある現実で不安定なのかもっ!



８月１９日PS : 　http://petamun.blog.so-net.ne.jp/2016-08-17
先ほどやっとプロンプトで SP1 展開・統合できましたわー( *´艸｀)。 後は、XMLのオプション変更できれば完了みたい。　・・ただ ULTIMATE用みたいなので、professionalでも行けるかどうかは、まだ不明。　とりあえず 32bitでインストール実験してから、UPします。

WEB文字化け緊急対策スクリプトだゅ

ブログや掲示板への書き込みの際、文字化けして書き込めなくなる事が最近多くなってるので、対策スクリプト作りました。

まだ XP 使っている方々向けです。
↑ おめぇだろぉ(汗)　・・ﾊｲ・ﾜﾀｼﾀﾟｽ(爆)。


レジストリの変更のある場合だけ、レジストリ変更するコードです。書き換えの必要がある際は、セキュリティから警告があると思いますので、一度だけ許可して下さい。レジスト変更は、再起動しないと有効になりませんっす。



[ 使ってみる方法 ]
コンテキストメニューから"新規作成" → "テキスト　ドキュメント" を作り、下記のテキストエリア の スクリプトを丸コピしてください。

出来たら、

　WEB文字化け対策レジストライタ.VBS

という風になんでも良いんですけど、 *****.VBS　と、ファイル名を変更してください。

※1 拡張子の表示のない場合は、フォルダーのメニューのブロパティを開くと[表示タブ]のチェックで出てきます。

※2 ダブルクリックしても動かない場合は、文字列以外のコードの空白に、全角スペースがあると思います。ディバックに添ってエラー回避してくださいませ。スペースは半角です(要はコード書き換えた際ﾈ)。

tx1="★ WEB文字化け緊急対策スクリプトだゅ ★" tx2="Keyboardの値は: " tx3="　どぇしたぜぃ!((o\o))!" tx4="・・のぉでぇ、とりあえずこの作業はここで終了すますぜぃでょ!!" tx5="KBDJPN.DLL" tx6="レジストリのKeyboardの値を　" tx7="　へ書き変えしたッﾊﾞｲ!!" tx8="変更が整いましたのでレジスト開いて見てみぃのぉ。!" tx9="あと、お手数ですがの、一度再起動してください。文字化けが解消されますょ～" On Error Resume Next Err.Raise Err.Clear Set WshShell=WScript.CreateObject("WScript.Shell") KBTx=WshShell.RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layouts\00000411\Layout File") if Err.Number<>0 then WScript.Quit else If KBTx = "KBDJPN.DLL" Then WScript.Echo tx2 & KBTx & tx3 & vbCrLf & tx4 WScript.Quit Else i = tx5 WSHShell.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layouts\00000411\Layout File", i, "REG_SZ" WScript.Echo tx6 & i & tx7 WSHShell.Popup tx8 & vbCrLf & tx9 End If end if


'//// 使用上のご注意 //////////////////////////
'◇ ソース改変、再配布自由ですが全て自己責任で行ってください。
' (なお再配布の際は、URLや署名等も変更しておいてぇ)

'◇ WinXP(SP3)で動作確認済みですが一切の責務は放棄します

'◇ ですので、ソース内容をお確かめの上使用してくださいませ。

'◇ 何かありの場合はコメント欄ご利用くださいませ＼(◎o◎)／！


　 　　　　　　　　　'配布元 ここです。
　　　　　　　　　　 '最終更新日 21:24 2013/02/27
　　　　　　　 　　　'管理人 うっぴぃ～
'/////////////////////////////////////////////////////////////////


PS ; 暫く更新続けます。

SUPER(c) :元拡張子一括訂正

デジカメやTV録画とか、YouTUBEの閲覧とかで、溜まりにたまった動画が嵩んでまして・・・。

先月の末からずーっと 「SUPER＠」っていうフリーの変換ソフトを使って、AVIへのコンバート作業を続けてる。

互換性も高そうだし、何より軽いので、コーデックは、Xvidとmp3形式にしてますが、・・難点がおひとつ。

画像はNoChangeで良いけど、フレームレートは１0くらいにすると、紙芝居みたいなんで、余程じゃない限りは29.97固定にしてる。　ビットレートは最低1500以上はほしいんですが、現実的に1248にしてますけど、DivX は厳しい事あるけど、XviD は、それほど圧縮率が高い感じはしてないですよねー。

パソコンやポータブルDVDで見る限りは、4000～8000kbpsと見栄え、あまり代わらないですよねー。

サイズ的には、オーディオも馬鹿になりませんけど、元がMonoの場合はMonoのままコンバートした方が倍違うょ。うちは音楽が多いんで基本的には 44.1khz 2ch 128kbps にしてるけど、コンブ後は、画質も音質も落とさずに1/2～1/3のサイズに出来てしまう。


・・で、その拡張子なんですがぁー、　゜○×○×.wmv" 　とかだと、その後ろに ".AVI" とかって付いてしまうんで、後で変更するのにそうとう手間取る。　

めんどくさいんですょー。　

そこでスクリプトで一括処理するコード作ってみました。↓

Dim fs,fpath,ex,exn,Renum,f,fx,fxpath,flist(9999),i,n,strUrl Set objArgs = WScript.Arguments For I = 0 to objArgs.Count - 1 fpath = objArgs(I) Next Set fs = CreateObject("Scripting.FilesystemObject") Set f = fs.GetFolder(fpath) i = 0 for Each fx in f.Files fxpath = fx.Path ex = fs.GetExtensionName(fxpath) If ucase(ex) = ucase(ex) then Set Flist(i) = fs.GetFile(fxpath) i = i + 1 end if next for n = 0 to i-1 Set fx = Flist(n) Ln=Len(fx.name) dOt = Ln - Instr(1, fx.name, ".", 0) mPs = Ln-InstrRev(fx.name, ".", -1, 1) IF dOt=7 And mPs= 3 Then fx.name = Mid(fx.name, 1,Ln-8) & "." & LCase(Right(fx.name, 3)) End if next strUrl = fpath Set objIE = WScript.CreateObject("InternetExplorer.Application") WScript.Sleep(400) objIE.Width = 720 objIE.Height =480 objIE.FullScreen = False objIE.ToolBar = True objIE.AddressBar = False objIE.MenuBar = False objIE.StatusBar = True objIE.Navigate strUrl objIE.Visible = True
対象ファイルがあるフォルダーごと、このスクリプトファイルへドロップするだけで、２重拡張子を訂正してくれます。

ファイル名の後ろから数えて４文字目と8文字目にドットがあるファイルのみを対象にし、元の拡張子を削除してリネームして、拡張子のみ小文字にしてしまう優れものです。　一応、今回はフォルダーのルートだけ。

名前は適当でいいんですけど、コードをテキストにマルコピした後、「 SUPER用_二重拡張子訂正ツール.vbs 」 とでもしてくださいませ。

あと、いちいちフォルダーポップアップしなくて良い人は、next　から後ろのコードを全てコメントアウトか削除して下さい。

知識のある方は、改変自由ですが、配布はこのサイトからのみ行っていますので、ご注意くださいませ。また、ご使用に関しましては、いつも同様、自己責任で、宜しくですね～。

ZOOM G2 のセットログ

・・美味しい エフェクト パッチを、残せないものかと、悩んでたんだけど、ついに、こんなの作ってしまった(汗)。




普通のWEBページで、手っ取り早く JAVA SCRIPT で機能させてるんですけど・・


曲名の入力や設定を選んで、最下部右の Let's CREATE HTML ボタンをクリックすると、設定内容を HTMLファイルのテーブルとしてポップアップします。　後は、プリントアウトして保存するも、名前を付けてファイルとして保存も、可能って具合っすぅ。


・・「名前を付けて保存」する際ですが、[ ファイルの種類 ] を { Webページ、HTML のみ(*.htm、*.html) } にしないと正常に保存できないようでした。 [ エンコード ] は、 { Unicode } のままでもOKでした。

WindowsXP(IE6、7、8)での動作は確認してます。　まだ試作品段階でアイデア募集中です。　また、開く際に 「セキュリティ警告 」 が出ます。特に、悪意のある記述はしてませんので、ブロック解除をしてくださいませ。

・・超便利アイテムって感じですよね～。(^^)v

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <html><head><title>ZOOM G2 SET-UPper</title></head> <META http-equiv=Content-Type content="text/html; charset=shift_jis"> <META content="MSHTML 6.00.2900.5726" name=GENERATOR></head> <body bgcolor="#FFFFF3" topmargin="8" leftmargin="8" scroll="auto"> <style type="text/css"><!--// body { border:0 solid #000000; font size:14px; color:#1f1f1f; } A:link { color:blue; text-decoration:none; cursor:hand; } A:active { color:red; } A:visited { color:green; } A:hover { color:orange; } select { width:170;} #inp0{ border:1 solid #CAC1B5; padding:1 1 1 1; text-align:center; background:#FCFBF8; width:400;} #inp1{ border:1 solid #BFCCFF; padding:1 1 1 1; text-align:center; background:#F4F7FF; width::68;} #inp2{ border:1 solid #7AE4BA; padding:1 1 1 1; text-align:center; background:#F7FDFB; width::68;} #inp3{ border:1 solid #AF8FAF; padding:1 1 1 1; text-align:center; background:#FCF8FC; width::68;} #inbt{ } #slbg0{ background-color:#D7BD88; font-weight:900; font-size:13px; color:#605320;} #slbg{ background-color:#FAE4C5;} .tx0 { color:#ffffff; font-weight:900; font-size:15px; } .tx1 { color:#ffffff; font-weight:900; font-size:13px;} #memo { height:85; width:100%; overflow:hidden; letter-spacing:1.0px; line-height:1.5; } /* .DRV_ST { font-family:; }*/ //--></style> <script language="JavaScript"><!-- br = unescape("%0A"); Age = navigator.appVersion.toUpperCase(); if(Age.match("MAC") !== null) br=unescape("%0D"); if(Age.match("WIN") !== null) br=unescape("%0D")+br; WC='"'; HT4='<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">'+br; HD0='<HTML><HEAD><TITLE>'; HD1='</TITLE>'+br; TIT='<META http-equiv=Content-Type content="text/html; charset=shift_jis">'+br+'<META content="MSHTML 6.00.2900.5726" name=GENERATOR></HEAD>'+br; SYL0='<style type="text/css"><!--//'+br; SYL1='body { border:0 solid #000000; font-size:13px; color:#1f1f1f; }'+br; SYL2='#inp0{ border:1 solid #CAC1B5; padding:1 1 1 1; text-align:center; background:#FCFBF8; width:400;}'+br; SYL3='#inp3{ border:1 solid #AF8FAF; padding:1 1 1 1; text-align:center; background:#FCF8FC; width:70;}'+br; SYL4='#inp2{ border:1 solid #7AE4BA; padding:1 1 1 1; text-align:center; background:#F7FDFB; width:70;}'+br; SYL5='#inp1{ border:1 solid #BFCCFF; padding:1 1 1 1; text-align:center; background:#F4F7FF; width:70;}'+br; SYL6='#inbt{ }'+br; SYL7='#slbg0{ background-color:#D7BD88; font-weight:900; font-size:13px; color:#605320;}'+br; SYL8='#slbg{ background-color:#FAE4C5;}'+br; SYLi='#slbi{ background-color:#FAEeCf;}'+br; SYL9='.tx0 { color:#ffffff; font-weight:900; font-size:15px; }'+br; SYL10='.tx1 { color:#ffffff; font-weight:900; font-size:13px;}'+br; SYL11='#memo { height:80; width:100%; }'+br; SYL12='//--></style>'+br; SYL=SYL0+SYL1+SYL2+SYL3+SYL4+SYL5+SYL6+SYL7+SYL8+SYLi+SYL9+SYL10+SYL11+SYL12+br; BY0='<BODY bgcolor="#FFFFF3">'+br; TBL0='<table border=0 cellpadding=1 cellspacing=1 bgcolor=#FFFFF3>'+br; TBL4='<tr><td width=170>　</td><td width=170>　</td><td width=70>　</td><td width=70>　</td><td width=70>　</td></tr>'+br; TBN0='</table>'+br; BY1='</BODY></HTML>'+br; function OPW(i) { var SGNM = document.forms[0].elements[0].value; var CPTX1=document.forms[0].elements[1].value; var CPTX2=document.forms[0].elements[2].value; var CPTX3=document.forms[0].elements[3].value; TBL2='<tr><td id=slbg0 align=center width=170>エフェクト モジュール</td><td id=slbg0 align=center width=170>エフェクト タイプ</td><td id=slbg0 align=center width=70>1.GAIN</td><td id=slbg0 align=center width=70>2.TONE</td><td id=slbg0 align=center width=70>3.LEVEL</td></tr>'+br; TBL3='<tr><td id=slbg align=center>COMP</td><td id=slbi align=center style="font size:15px;">(コンプレッサ)</td><td align=center><input id=inp1 value='+CPTX1+' type=text></td><td align=center><input id=inp2 value='+CPTX2+' type=text></td><td align=center><input id=inp3 value='+CPTX3+' type=text></td></tr>'+br; if(SGNM == ""){ status=" 注) ＳＯＮＧ名が記載されてませんけどぉ・・"; null; } else { TBL1='<tr><td align="left" colspan="5" bgcolor="#837B5C"><span class=tx0>★(*^^)v彡 SONG NAME : </span><input value='+WC+SGNM+WC+' id="inp0" type="text"></td></tr>'+br; OPL= document.forms[0].elements[4].options.length; SL0= document.forms[0].elements[4].selectedIndex; //TF = document.forms[0].elements[4].options[SL0].selected; SLT= document.forms[0].elements[4].options[SL0].text; TBL4='<tr><td id=slbg align=center>WAH/EFX</td><td id=slbi align=center>'+SLT+'</td><td align=center valign=top><input id=inp1 value='+document.forms[0].elements[5].value+' type=text></td><td align=center><input id=inp2 value='+document.forms[0].elements[6].value+' type=text></td><td align=center><input id=inp3 value='+document.forms[0].elements[7].value+' type=text></td></tr>'+br; OPL= document.forms[0].elements[8].options.length; SL0= document.forms[0].elements[8].selectedIndex; SLT= document.forms[0].elements[8].options[SL0].text; TBL5='<tr><td id=slbg align=center>ZNR</td><td id=slbi align=center>'+SLT+'</td><td align=center valign=top><input id=inp1 value='+document.forms[0].elements[9].value+' type=text></td><td align=center><input id=inp2 value='+document.forms[0].elements[10].value+' type=text></td><td align=center><input id=inp3 value='+document.forms[0].elements[11].value+' type=text></td></tr>'+br; OPL= document.forms[0].elements[12].options.length; SL0= document.forms[0].elements[12].selectedIndex; SLT= document.forms[0].elements[12].options[SL0].text; TBL6='<tr><td id=slbg align=center>DRIVE</td><td id=slbi align=center>'+SLT+'</td><td align=center valign=top><input id=inp1 value='+document.forms[0].elements[13].value+' type=text></td><td align=center><input id=inp2 value='+document.forms[0].elements[14].value+' type=text></td><td align=center><input id=inp3 value='+document.forms[0].elements[15].value+' type=text></td></tr>'+br; TBL7='<tr><td id=slbg align=center>EQ</td><td id=slbi align=center style="font size:15px;">(３バンド イコライザ)</td><td align=center><input id=inp1 value='+document.forms[0].elements[16].value+' type=text></td><td align=center><input id=inp2 value='+document.forms[0].elements[17].value+' type=text></td><td align=center><input id=inp3 value='+document.forms[0].elements[18].value+' type=text></td></tr>'+br; OPL= document.forms[0].elements[19].options.length; SL0= document.forms[0].elements[19].selectedIndex; SLT= document.forms[0].elements[19].options[SL0].text; TBL8='<tr><td id=slbg align=center>EXTRA EQ/CABI&MIC</td><td id=slbi align=center>'+SLT+'</td><td align=center><input id=inp1 value='+document.forms[0].elements[20].value+' type=text></td><td align=center><input id=inp2 value='+document.forms[0].elements[21].value+' type=text></td><td align=center><input id=inp3 value='+document.forms[0].elements[22].value+' type=text></td></tr>'+br; OPL= document.forms[0].elements[23].options.length; SL0= document.forms[0].elements[23].selectedIndex; SLT= document.forms[0].elements[23].options[SL0].text; TBL9='<tr><td id=slbg align=center>MOD/SFX</td><td id=slbi align=center>'+SLT+'</td><td align=center><input id=inp1 value='+document.forms[0].elements[24].value+' type=text></td><td align=center><input id=inp2 value='+document.forms[0].elements[25].value+' type=text></td><td align=center><input id=inp3 value='+document.forms[0].elements[26].value+' type=text></td></tr>'+br; OPL= document.forms[0].elements[27].options.length; SL0= document.forms[0].elements[27].selectedIndex; SLT= document.forms[0].elements[27].options[SL0].text; TBL10='<tr><td id=slbg align=center>DELAY</td><td id=slbi align=center>'+SLT+'</td><td align=center><input id=inp1 value='+document.forms[0].elements[28].value+' type=text></td><td align=center><input id=inp2 value='+document.forms[0].elements[29].value+' type=text></td><td align=center><input id=inp3 value='+document.forms[0].elements[30].value+' type=text></td></tr>'+br; OPL= document.forms[0].elements[31].options.length; SL0= document.forms[0].elements[31].selectedIndex; SLT= document.forms[0].elements[31].options[SL0].text; TBL11='<tr><td id=slbg align=center>REVERB</td><td id=slbi align=center>'+SLT+'</td><td align=center><input id=inp1 value='+document.forms[0].elements[32].value+' type=text></td><td align=center><input id=inp2 value='+document.forms[0].elements[33].value+' type=text></td><td align=center><input id=inp3 value='+document.forms[0].elements[34].value+' type=text></td></tr>'+br; MEMtx = escape(document.forms[0].MEM.value); TBL12='<tr><td align=left colspan=5><textarea style="font-size:14px; border-width:0 2 2 0; border-color:#efefef; background-color:#f5f5f5; width:100%; height:80; overflow:hidden;">'+unescape(MEMtx)+'</textarea></td></tr>'+br; TBL13='<tr><td align=left colspan=5></td></tr>'+br; wing = window.open('','','width=630,height=380,menubar=yes,resizable=yes,toolbar=no,status=yes'); if(i == 0) wing.document.write( SGNM ); wing.document.close(); if(i == 1) wing.document.write( HT4+HD0+SGNM+HD1+TIT+SYL+BY0 ); wing.document.write( TBL0 ); wing.document.write( TBL1 ); wing.document.write( TBL2 ); wing.document.write( TBL3 ); wing.document.write( TBL4 ); wing.document.write( TBL5 ); wing.document.write( TBL6 ); wing.document.write( TBL7 ); wing.document.write( TBL8 ); wing.document.write( TBL9 ); wing.document.write( TBL10 ); wing.document.write( TBL11 ); wing.document.write( TBL12 ); wing.document.write( TBL13 ); wing.document.write( TBN0 ); wing.document.write( BY1 ); wing.document.close(); } } function ToTXT(form, sel) { var sn = sel.selectedIndex; document.forms[1].DONSEL.value = sn; slVAL = sel.options[sn].value; if(slVAL== "WAH/EFX"){ if(document.forms[1].DONSEL.value== "0"){ document.forms[0].elements[5].value="POSITION"; document.forms[0].elements[6].value="SENSE"; document.forms[0].elements[7].value="RESONANCE";} if(document.forms[1].DONSEL.value== "1"){ document.forms[0].elements[5].value="POSITION"; document.forms[0].elements[6].value="SENSE"; document.forms[0].elements[7].value="RESONANCE";} if(document.forms[1].DONSEL.value== "2"){ document.forms[0].elements[5].value="RANGE"; document.forms[0].elements[6].value="TONE"; document.forms[0].elements[7].value="LEVEL";} if(document.forms[1].DONSEL.value== "3"){ document.forms[0].elements[5].value="DEPTH"; document.forms[0].elements[6].value="RATE"; document.forms[0].elements[7].value="WAVE";} if(document.forms[1].DONSEL.value== "4"){ document.forms[0].elements[5].value="POSITION"; document.forms[0].elements[6].value="RATE"; document.forms[0].elements[7].value="COLOR";} if(document.forms[1].DONSEL.value== "5"){ document.forms[0].elements[5].value="POSITION"; document.forms[0].elements[6].value="FREQUENCY"; document.forms[0].elements[7].value="MIX";} if(document.forms[1].DONSEL.value== "6"){ document.forms[0].elements[5].value="POSITION"; document.forms[0].elements[6].value="TIME"; document.forms[0].elements[7].value="CURVE";} if(document.forms[1].DONSEL.value== "7"){ document.forms[0].elements[5].value="POSITION"; document.forms[0].elements[6].value="FREQUENCY"; document.forms[0].elements[7].value="LEVEL";} if(document.forms[1].DONSEL.value== "8"){ document.forms[0].elements[5].value="POSITION"; document.forms[0].elements[6].value="FREQUENCY"; document.forms[0].elements[7].value="LEVEL";}} if(slVAL== "ZNR"){ if(document.forms[1].DONSEL.value== "0"){ document.forms[0].elements[9].value="THRESHOLD"; document.forms[0].elements[10].value="-"; document.forms[0].elements[11].value="-";} if(document.forms[1].DONSEL.value== "1"){ document.forms[0].elements[9].value="THRESHOLD"; document.forms[0].elements[10].value="-"; document.forms[0].elements[11].value="-";} if(document.forms[1].DONSEL.value== "2"){ document.forms[0].elements[9].value="THRESHOLD"; document.forms[0].elements[10].value="-"; document.forms[0].elements[11].value="-";}} if(slVAL== "DRIVE"){ if(document.forms[1].DONSEL.value== "16"){ document.forms[0].elements[13].value="TOP"; document.forms[0].elements[14].value="BODY"; document.forms[0].elements[15].value="LEVEL";} else { document.forms[0].elements[13].value="GAIN"; document.forms[0].elements[14].value="TONE"; document.forms[0].elements[15].value="LEVEL";}} if(slVAL== "EXTRA EQ/CABI&MIC"){ if(document.forms[1].DONSEL.value== "0"){ document.forms[0].elements[20].value="LO MID"; document.forms[0].elements[21].value="PRESENSE"; document.forms[0].elements[22].value="HARMONICS";} else { document.forms[0].elements[20].value="MIC TYPE"; document.forms[0].elements[21].value="MIC POSITION"; document.forms[0].elements[22].value="-";}} if(slVAL== "MOD/SFX"){ if(document.forms[1].DONSEL.value== "0" || document.forms[1].DONSEL.value== "1" || document.forms[1].DONSEL.value== "5"){ document.forms[0].elements[24].value="DEPTH"; document.forms[0].elements[25].value="RATE"; document.forms[0].elements[26].value="MIX";} if(document.forms[1].DONSEL.value== "2" || document.forms[1].DONSEL.value== "6"){ document.forms[0].elements[24].value="DEPTH"; document.forms[0].elements[25].value="RATE"; document.forms[0].elements[26].value="RESONANCE";} if(document.forms[1].DONSEL.value== "3"){ document.forms[0].elements[24].value="SHIFT"; document.forms[0].elements[25].value="TONE"; document.forms[0].elements[26].value="MIX";} if(document.forms[1].DONSEL.value== "4"){ document.forms[0].elements[24].value="COLOR"; document.forms[0].elements[25].value="MODE"; document.forms[0].elements[26].value="TONE";} if(document.forms[1].DONSEL.value== "7" || document.forms[1].DONSEL.value== "8"){ document.forms[0].elements[24].value="TIME"; document.forms[0].elements[25].value="FEEDBACK"; document.forms[0].elements[26].value="MIX";} if(document.forms[1].DONSEL.value== "9"){ document.forms[0].elements[24].value="TIME"; document.forms[0].elements[25].value="AMOUNT"; document.forms[0].elements[26].value="SENSE";} if(document.forms[1].DONSEL.value== "10"){ document.forms[0].elements[24].value="DEPTH"; document.forms[0].elements[25].value="RATE"; document.forms[0].elements[26].value="SENSE";} if(document.forms[1].DONSEL.value== "11"){ document.forms[0].elements[24].value="SHIFT"; document.forms[0].elements[25].value="TONE"; document.forms[0].elements[26].value="MIX";} if(document.forms[1].DONSEL.value== "12"){ document.forms[0].elements[24].value="SCALE"; document.forms[0].elements[25].value="KEY"; document.forms[0].elements[26].value="MIX";}} if(slVAL== "DELAY"){ if(document.forms[1].DONSEL.value== "0" || document.forms[1].DONSEL.value== "1" || document.forms[1].DONSEL.value== "2") { document.forms[0].elements[28].value="TIME"; document.forms[0].elements[29].value="FEEDBACK"; document.forms[0].elements[30].value="MIX";} } if(slVAL== "REVERB"){ if(document.forms[1].DONSEL.value== "0" || document.forms[1].DONSEL.value== "1" || document.forms[1].DONSEL.value== "2") { document.forms[0].elements[32].value="DECAY"; document.forms[0].elements[33].value="TONE"; document.forms[0].elements[34].value="MIX";} if(document.forms[1].DONSEL.value== "3"){ document.forms[0].elements[32].value="DECAY"; document.forms[0].elements[33].value="SHAPE"; document.forms[0].elements[34].value="MIX";} if(document.forms[1].DONSEL.value== "4"){ document.forms[0].elements[32].value="TIME"; document.forms[0].elements[33].value="PATTERN"; document.forms[0].elements[34].value="MIX";}} /*WAH1=document.forms[0].elements[5].value; WAH2=document.forms[0].elements[6].value; WAH3=document.forms[0].elements[7].value;*/ } //--></script> <form> <table border="0" cellpadding="1" cellspacing="1" bordercolordark="#FFFFF5" bordercolorlight="#837B5C"> <tr> <td align="left" valign="top" colspan="5" bgcolor="#837B5C"><span class=tx0>★☆彡 SONG NAME : </span><input id="inp0" type="text"></td></tr> <tr> <td id=slbg0 align="center" valign="top" width=170>エフェクト モジュール</td> <td id=slbg0 align="center" valign="top" width=170>エフェクト タイプ</td> <td id=slbg0 align="center" valign="top" width=70>1.GAIN</td> <td id=slbg0 align="center" valign="top" width=70>2.TONE</td> <td id=slbg0 align="center" valign="top" width=70>3.LEVEL</td></tr> <tr> <td id=slbg align="center" valign="top">COMP</td> <td align="center" style="font size:15px;">(コンプレッサ)</td> <td align="center" valign="top"><input id="inp1" value="SENSE" type="text" size="12"></td> <td align="center" valign="top"><input id="inp2" value="ATTACK" type="text" size="12"></td> <td align="center" valign="top"><input id="inp3" value="LEVEL" type="text" size="12"></td></tr> <tr> <td id=slbg align="center" valign="top">WAH/EFX</td> <td align="center" valign="top"><select name="sel0" size="1" onChange="ToTXT(this.form, this)"> <option value="OFF">OFF</option> <option value="WAH/EFX">[ＡＷ]AUTO WAH</option> <option value="WAH/EFX">[Ａｒ]AUTO RESONANCE</option> <option value="WAH/EFX">[ＢＳ]BOOSTER</option> <option value="WAH/EFX">[ｔｒ]TREMOLO</option> <option value="WAH/EFX">[ＰＨ]PHASER</option> <option value="WAH/EFX">[ｒＧ]RING MODULATOR</option> <option value="WAH/EFX">[ＳＬ]SLOW ATTACK</option> <option value="WAH/EFX">[Ｐv]PEDAL VX</option> <option value="WAH/EFX">[Ｐｂ]PEDAL BABY</option></select></td> <td align="center" valign="top"><input id="inp1" value="POSITION" type="text" size="12"></td> <td align="center" valign="top"><input id="inp2" value="SENSE" type="text" size="12"></td> <td align="center" valign="top"><input id="inp3" value="RESONANCE" type="text" size="12"></td></tr> <tr> <td id=slbg align="center" valign="top">ZNR</td> <td align="center" valign="top"><select name="tsel" size="1" onChange="ToTXT(this.form, this)"> <option value="OFF">OFF</option> <option value="ZNR">[ｎｒ]ZNR</option> <option value="ZNR">[Ｇｔ]GATE</option> <option value="ZNR">[ｄＧ]DIRTY GATE</option></select></td> <td align="center" valign="top"><input id="inp1" value="THRESHOLD" type="text" size="12"></td> <td align="center" valign="top"><input id="inp2" value="-" type="text" size="12"></td> <td align="center" valign="top"><input id="inp3" value="-" type="text" size="12"></td></tr> <tr> <td id=slbg align="center" valign="top">DRIVE</td> <td align="center" valign="top"><select name="tsel" size="1" onChange="ToTXT(this.form, this)"> <option value="OFF">OFF</option> <option class="DRV_ST" value="DRIVE">[ＦＣ]FD CLEAN</option> <option class="DRV_ST" value="DRIVE">[ＣＲ]CLASS A CLEAN</option> <option class="DRV_ST" value="DRIVE">[ＪＣ]JC CLEAN</option> <option class="DRV_ST" value="DRIVE">[ＭＣ]MS CRUNCH</option> <option class="DRV_ST" value="DRIVE">[ｂＬ]US BLUSE</option> <option class="DRV_ST" value="DRIVE">[ｂＣ]BG CRUNCH</option> <option class="DRV_ST" value="DRIVE">[Ｍｄ]MS DRIVE</option> <option class="DRV_ST" value="DRIVE">[ｂＧ]BG DRIVE</option> <option class="DRV_ST" value="DRIVE">[Ｐｖ]PV DRIVE</option> <option class="DRV_ST" value="DRIVE">[Ｏｄ]OVER DRIVE</option> <option class="DRV_ST" value="DRIVE">[ＧＶ]GUV'NOR</option> <option class="DRV_ST" value="DRIVE">[Ｈｂ]HOT BOX</option> <option class="DRV_ST" value="DRIVE">[ＦＦ]FUZZ FACE</option> <option class="DRV_ST" value="DRIVE">[Ｍｔ]METAL ZONE</option> <option class="DRV_ST" value="DRIVE">[Ｅｄ]EXTREME DISTORTION</option> <option class="DRV_ST" value="DRIVE">[ｄＦ]DIGI FUZZ</option> <option class="DRV_ST" value="DRIVE">[ＡＣ]ACOUSTIC</option></select></td> <td align="center" valign="top"><input id="inp1" value="GAIN" type="text" size="12"></td> <td align="center" valign="top"><input id="inp2" value="TONE" type="text" size="12"></td> <td align="center" valign="top"><input id="inp3" value="LEVEL" type="text" size="12"></td></tr> <tr> <td id=slbg align="center" valign="top">EQ</td> <td align="center" style="font size:15px;">(３バンド イコライザ)</td> <td align="center" valign="top"><input id="inp1" value="BASS" type="text" size="12"></td> <td align="center" valign="top"><input id="inp2" value="MIDDLE" type="text" size="12"></td> <td align="center" valign="top"><input id="inp3" value="TREBLE" type="text" size="12"></td></tr> <tr> <td id=slbg align="center" valign="top">EXTRA EQ/CABI&MIC</td> <td align="center" valign="top"><select name="tsel" size="1" onChange="ToTXT(this.form, this)"> <option value="OFF">OFF</option> <option value="EXTRA EQ/CABI&MIC" title="ライブ演奏用アルゴリズム(ギターアンプへの接続)">EXTRA EQ</option> <option value="EXTRA EQ/CABI&MIC" title="ダイレクト録音用アルゴリズム(MTRやオーディオへの接続)">CABINET & MIC</option></select></td> <td align="center" valign="top"><input id="inp1" value="LO_MID" type="text" size="12"></td> <td align="center" valign="top"><input id="inp2" value="PRESENCH" type="text" size="12"></td> <td align="center" valign="top"><input id="inp3" value="HARMONICS" type="text" size="12"></td></tr> <tr> <td id=slbg align="center" valign="top">MOD/SFX</td> <td align="center" valign="top"><select name="tsel" size="1" onChange="ToTXT(this.form, this)"> <option value="OFF">OFF</option> <option value="MOD/SFX">[ＣＨ]CHORUS</option> <option value="MOD/SFX">[ＳＣ]STEREO CHORUS</option> <option value="MOD/SFX">[ＦＬ]FLANGER</option> <option value="MOD/SFX">[Ｐｔ]PITCH SHIFTER</option> <option value="MOD/SFX">[ＰＰ]PEDAL PITCH</option> <option value="MOD/SFX">[ｖｂ]VIBRATO</option> <option value="MOD/SFX">[Ｓｔ]STEP</option> <option value="MOD/SFX">[ｄＬ]DELAY</option> <option value="MOD/SFX">[ｔＥ]TAPE ECHO</option> <option value="MOD/SFX">[ｄｄ]DYNAMIC DELAY</option> <option value="MOD/SFX">[ｄＦ]DYNAMIC FLANGER</option> <option value="MOD/SFX">[ｍＰ]MONO PITCH SHIFTER</option> <option value="MOD/SFX">[ＨＰ]HARMONIZED PITCH SHIFTER</option></select></td> <td align="center" valign="top"><input id="inp1" value="DEPHT" type="text" size="12"></td> <td align="center" valign="top"><input id="inp2" value="RATE" type="text" size="12"></td> <td align="center" valign="top"><input id="inp3" value="MIX" type="text" size="12"></td></tr> <tr> <td id=slbg align="center" valign="top">DELAY</td> <td align="center" valign="top"><select name="tsel" size="1" onChange="ToTXT(this.form, this)"> <option value="OFF">OFF</option> <option value="DELAY">[ｄＬ]DELAY</option> <option value="DELAY">[Ｐｄ]PINGPONG DELAY</option> <option value="DELAY">[ＥＣ]ECHO</option></select></td> <td align="center" valign="top"><input id="inp1" value="TIME" type="text" size="12"></td> <td align="center" valign="top"><input id="inp2" value="FEEDBACK" type="text" size="12"></td> <td align="center" valign="top"><input id="inp3" value="MIX" type="text" size="12"></td></tr> <tr> <td id=slbg align="center" valign="top">REVERB</td> <td align="center" valign="top"><select name="tsel" size="1" onChange="ToTXT(this.form, this)"> <option value="OFF">OFF</option> <option value="REVERB">[ＨＬ]HALL</option> <option value="REVERB">[ｒＭ]ROOM</option> <option value="REVERB">[ＳＰ]SPRING</option> <option value="REVERB">[Ｅｒ]EARLY REFLECTION</option> <option value="REVERB">[Ｍｄ]MULTI TAP DELAY</option></select></td> <td align="center" valign="top"><input id="inp1" value="DECAY" type="text" size="12"></td> <td align="center" valign="top"><input id="inp2" value="TONE" type="text" size="12"></td> <td align="center" valign="top"><input id="inp3" value="MIX" type="text" size="12"></td></tr> <tr> <td align="left" colspan="5"><textarea id=memo name=MEM>／／／ ■ ＭＥＭＯ ■ ／／／／／／／／／／／／／／／／／／／／／／／／／／ ＧＵＩＴＡＲ フロント ( V: %、T: % ) ＭＴＲ 　　 ゲイン %、EQ( Hight: 、MID: 、LOW: )</textarea></td></tr> <tr> <td align="center" colspan="1" bgcolor="#837B5C" style="margin:0 0 0 0"><span class=tx1><b>Zoom G2 Series</b></span></td> <td align="right" valign="top" colspan="4"><input id="inpbt" type="button" value="CLEAR (初期化)" onclick="location.reload();" style="width:100%;"></td></tr> <tr> <td align="center" colspan="1" bgcolor="#837B5C"><span class=tx1><b>SET-UP TOOL</b></span></td> <td align="right" valign="top" colspan="4"> <input id="inpbt" type="button" value="Let's CREATE HTML!!" onclick="OPW(1)" style="width:100%;"></td></tr></table></form> <form><input name="DONSEL" type="text" value="0" style="position:absolute; display:none;"></form> </body> </html>

使い方は、上のソースを、右クリックしてすべて選択し、丸ごとコピー後、テキストに貼り付けて、 「 Zoom G2 SetLog.htm 」 とでも命名するだけっす。


PS : 著作権は放棄していませんが、オープンソースなので、知識のある人は自由に改変して使ってくださいませ。　なお、配布に関しては、現在、こちらのサイトのみからのみとさせて頂いてますので、ご用の際は、ご質問くださいませ。(^^♪

PHOTOスライドショー(vbs)

スライドショーをしたいフォルダーを、このVBSファイルへ 「 ドラッグ&ドロップ 」 すると、C:/ のルートへ 対象ファイルのパスを構築するデーターベースJS と HTM を作成します。


・・こんなのです。

VBSファイルの作り方は、例によって下のエリアのソースを 「新規テキストファイル」 へ丸ごとコピーし、「○○○.VBS」 と名前を付けてください。

Dim fso,Shell,PH,Rot,b,objArgs,E,mf,HTM,OutF1,OutF2,OutF3,OutF4,Exf,iWORKPATH Exf="jpg" '対象ファイルの拡張子 iWORKPATH = "C:/" '作業ファイルのデレクトリ Set fso = WScript.CreateObject("Scripting.FileSystemObject") Set Shell = WScript.CreateObject("Shell.Application") OutF1 = iWORKPATH & "imgDATA.JS" '初期値 : データーベースの作業スペース Set fso = CreateObject("Scripting.FileSystemObject") if(fso.FileExists(OutF1)) then Set mf = fso.GetFile(OutF1) mf.Delete() end if Set objArgs = WScript.Arguments For i = 0 to objArgs.Count - 1 PH = objArgs(i) Next Set objF = Shell.NameSpace(PH) Set objFI = objF.Items() 'for(var i = 0; i < objFI.Count; i++) ofitem = objFI.Item(i) Search objFI.Item w=Chr(34) OutF2 = iWORKPATH & "SlideShot.htm" '基本ウインドの作業スペース if(fso.FileExists(OutF2)) then Set mf = fso.GetFile(OutF2) mf.Delete() end if Set tex = fso.OpenTextFile(OutF2, 8, True) tex.WriteLine("<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.0 Transitional//EN'>") tex.WriteLine("<META http-equiv=Content-Type content='text/html; charset=shift_jis'>") tex.WriteLine("<html><head><title>SlideShow_By_Guppy</title></head>") 'tex.WriteLine("<link rel='stylesheet' href='./style.css' type='text/css'>") tex.WriteLine("") tex.WriteLine("<style type='text/css'>") tex.WriteLine("#B0,#B1,#B2,#B3 { background-color:#BFBFFF;") tex.WriteLine(" border-top-color:#ffffff; border-bottom-color:#ffffff; border-left-color:#ffffff;border-right-color:#ffffff; ") tex.WriteLine(" border-top-width:1; border-bottom-width:1; border-left-width:1; border-right-width:1; ") tex.WriteLine(" font size:14px; font-weight:600; color:000fff; height:24; letter-spacing:1.0px; } ") tex.WriteLine("#B0 { position:relative; left:4; width:35; } ") tex.WriteLine("#B1 { position:relative; left:0; width:35; } ") tex.WriteLine("#B2 { position:relative; left:-4; width:35; } ") tex.WriteLine("#ex1 { border-top-style:dotted; border-bottom-style:dotted; border-left-style:dotted; border-right-style:dotted; ") tex.WriteLine(" border-top-color:#ff0000; border-bottom-color:#ff0000; border-left-color:#ff0000;border-right-color:#ff0000; height:70; } ") tex.WriteLine("#se0,#se1,#se2 { width:89; } ") tex.WriteLine("#cui,#cuii { width:40; background-color:#000000; color:#ffffff; font-size:13; font-weight:600; letter-spacing:0.9px; text-align:center; } ") 'tex.WriteLine("#Feat { background-color:#dddddd; width:345; position:relative; bottom:1; left:0; } ") tex.WriteLine("#Foy { position:relative; left:8; top:0; z-index:2; } ") tex.WriteLine("a { color:#ffffff; }") tex.WriteLine("") tex.WriteLine("</style>") tex.WriteLine("<Script language='JavaScript'>") tex.WriteLine("status='☆彡 ENTERキー でスライドショーがスタートします。!';") tex.WriteLine("function kDown()") tex.WriteLine("{ if(event.keyCode==13) { VBS(); Select(); }// インスタンスリード [ENTERキー]") tex.WriteLine(" if(event.keyCode==96) PAUSE(t=300000); // スタート [INSキー:0]") tex.WriteLine(" if(event.keyCode==110) Select2(); // アイコン表示 [・Delキー]") tex.WriteLine(" if(event.keyCode==17) pull('ex1'); // コントローラーの表示/非表示 [コントロールキー]") tex.WriteLine("　if(event.keyCode==37) FR(); // キュー [ ← キー ]") tex.WriteLine(" if(event.keyCode==39) FF(); // レビュー [ → キー ]") tex.WriteLine(" if(event.keyCode==9) return false; } // Tab off") tex.WriteLine(" document.onkeydown = kDown;") tex.WriteLine("types = 'none';") tex.WriteLine("function pull(Nam)") tex.WriteLine("{ if(types == 'none') types = 'block'; else types = 'none';") tex.WriteLine(" if(document.all) document.all(Nam).style.display = types; }") tex.WriteLine("function Select()") tex.WriteLine("{ d = document.forms[0].elements[6].selectedIndex;") tex.WriteLine(" ad = document.forms[0].elements[6].options[d].value;") tex.WriteLine(" Select1(); timerX(t=ad); }") tex.WriteLine("function Select1()") tex.WriteLine("{ xdx = document.forms[0].elements[1].selectedIndex;") tex.WriteLine(" myW = document.forms[0].elements[1].options[xdx].value;") tex.WriteLine(" if(myW == '0') WIDTHIMG = ''; else WIDTHIMG = 'width = ' + myW;") tex.WriteLine(" if(myW == '1.00') WIDTHIMG = 'height=100%';") tex.WriteLine(" Sele1.innerHTML = '<img src=clear.gif align=absmiddle name=myI border=0 '+WIDTHIMG+'>'; }") tex.WriteLine("function Select2()") tex.WriteLine("{ Sele1.innerHTML = '<img src=clear.gif align=absmiddle name=myI border=0 width=32>'; }") tex.WriteLine("function Col(form,sel)") tex.WriteLine("{ d = sel.selectedIndex;") tex.WriteLine(" color = sel.options[d].value;") tex.WriteLine(" document.bgColor = color; }") tex.WriteLine("function winSIZE(form,sel)") tex.WriteLine("{ d = sel.selectedIndex;") tex.WriteLine(" if(d==0) { w=0.55; h=0.55; hx=50; }") tex.WriteLine(" if(d==1) { w=0.40; h=0.40; hx=50; }") tex.WriteLine(" if(d==2) { w=0.75; h=0.75; hx=50; }") tex.WriteLine(" if(d==3) { w=1.00; h=1.00; hx=0; }") tex.WriteLine(" if(d==4) { w=1.00; h=1.00; hx=0; }") tex.WriteLine(" if(d==5) { window.open(" & w & iWORKPATH & "help.txt" & w & ",'','width=600,height=400,scrollbars=yes,resizable=yes'); return false; }") tex.WriteLine(" wid = screen.availWidth*w;") tex.WriteLine(" hei = screen.availHeight*h+hx;") tex.WriteLine(" tp=(screen.availWidth-wid)/2;") tex.WriteLine(" lf=(screen.availHeight-hei)/2;") tex.WriteLine(" self.window.moveTo(tp,lf);") tex.WriteLine(" self.window.resizeTo(wid,hei); ") tex.WriteLine(" if(d==4) { self.window.moveTo(tp-4,lf-23);") tex.WriteLine(" self.window.resizeTo(wid+9,hei+48); } }") tex.WriteLine("timerID=0; count=0; t=800; func='timerX()'; jsDB=new Array();") tex.WriteLine("function timerX()") tex.WriteLine("{ wsz = document.F2.No.value-1;") tex.WriteLine(" if(wsz == 0) return; else {") tex.WriteLine(" clearTimeout(timerID);") tex.WriteLine(" timerID = setTimeout(func,t);") tex.WriteLine(" c = count++;") tex.WriteLine(" if(wsz < c) { c = c % (wsz+1); }") tex.WriteLine(" if(c < 0) { c = wsz-(Math.abs(c) % (wsz+1)); }") tex.WriteLine(" s = jsDB[c]; ky(wsz,c,count,s); } }") tex.WriteLine("function PAUSE()") tex.WriteLine("{ wsz = document.F2.No.value-1;") tex.WriteLine(" if(wsz == 0) return; else {") tex.WriteLine(" clearTimeout(timerID);") tex.WriteLine(" timerID = setTimeout(func,t);") tex.WriteLine(" if(t==300001) sss='-1';") tex.WriteLine(" if(t==300000) sss='+1';") tex.WriteLine(" c = count+(sss); }}") tex.WriteLine("function FF()") tex.WriteLine("{ c = count++;") tex.WriteLine(" if(wsz < c) { c = c % (wsz+1); }") tex.WriteLine(" if(c < 0) { count=0; return false; }") tex.WriteLine(" s = jsDB[c]; ky(wsz,c,count,s); }") tex.WriteLine("function FR()") tex.WriteLine("{ wsz = document.F2.No.value-1;") tex.WriteLine(" c = -2+count--;") tex.WriteLine(" if(wsz < c) { c = c % (wsz+1); }") tex.WriteLine(" if(c < 0) { count=0; return false; }") tex.WriteLine(" s = jsDB[c]; ky(wsz,c,count,s); }") tex.WriteLine("function ky(wsz,c,count,s)") tex.WriteLine("{ status = (count-1);") tex.WriteLine(" document.images.myI.src = s;") tex.WriteLine(" kur = parseInt((340/(wsz))*c);") tex.WriteLine(" imgflder = s.slice(0,(s.lastIndexOf('/',s.lenth)));") tex.WriteLine(" ct='0'+'0'+'0'+'0'+'0'+c;") tex.WriteLine(" c = ct.substring(ct.length-5,ct.length);") tex.WriteLine(" wt='0'+'0'+'0'+'0'+'0'+wsz;") tex.WriteLine(" wsz = wt.substring(wt.length-5,wt.length);") tex.WriteLine(" cui.innerHTML = c;") tex.WriteLine(" cuii.innerHTML = wsz;") 'tex.WriteLine(" Foy.innerHTML = '<a href='+imgflder+' title='+imgflder+' target=_blank><img src=foy.gif border=0 width=17></a>'; ") tex.WriteLine(" Foy.innerHTML = '<a href="+w+"'+imgflder+'"+w+" target=_blank>'+ s +'</a>'; ") tex.WriteLine(" /*Feat.innerHTML = '<img src=bar.bmp border=0 height=15 width=' + kur + ' name=Bav>';*/ }") tex.WriteLine("function imgCek()") tex.WriteLine("{ wsz = document.F2.No.value-1;") tex.WriteLine(" wt='0'+'0'+'0'+'0'+'0'+wsz;") tex.WriteLine(" wsz = wt.substring(wt.length-5,wt.length);") tex.WriteLine(" cuii.innerHTML = wsz; }") tex.WriteLine("</Script>") tex.WriteLine("<body bgcolor='#404040' topmargin='0' leftmargin='0' scroll='no'>") tex.WriteLine("<a onClick=pull('ex1')>") tex.WriteLine("<img src='clear.gif' border='0' height='16' width='16' style='position:absolute; top:1; Right:1; z-index:3;'></a>") tex.WriteLine("<div id='ex1' style='position:absolute; display:none; Right:18; top:2; Z-index:1;'>") tex.WriteLine("<form><table><tr><td align='center' style='position:relative; top:3;'>") tex.WriteLine("<div id='t1'><nobr>") tex.WriteLine("<select size='1' onchange='Col(this.form, this)' id='se0'>") tex.WriteLine(" <option value='#000000' style='color:#ffffff; background-color:#000000;'>= COIOR =</option>") tex.WriteLine(" <option value='#ffffff' style='color:#ffffff;'>●●●●●</option>") tex.WriteLine(" <option value='#004d60' style='color:#004D60;'>●●●●●</option>") tex.WriteLine(" <option value='#404040' style='color:#404040;'>●●●●●</option>") tex.WriteLine(" <option value='#b8b8b8' style='color:#b8b8b8;'>●●●●●</option></select>") tex.WriteLine("<select size='1' onchange='Select1(this.form, this)' id='se1'>") tex.WriteLine(" <option value='0' selected>IMG サイズ</option>") tex.WriteLine(" <option value='64'>アイコン</option>") tex.WriteLine(" <option value='360'>サムネイル</option>") tex.WriteLine(" <option value='720'>ビデオ</option>") tex.WriteLine(" <option value='100%'>面幅 100%</option>") tex.WriteLine(" <option value='1.00'>面高 100%</option></select>") tex.WriteLine("<select size='1' onchange='winSIZE(this.form, this)' id='se2'>") tex.WriteLine(" <option>スクリーン</option>") tex.WriteLine(" <option>最小</option>") tex.WriteLine(" <option>標準</option>") tex.WriteLine(" <option>最大化</option>") tex.WriteLine(" <option>フルスクリーン</option></select></nobr></td></tr>") tex.WriteLine("<tr><td align='center' style='position:absolute; Right:1; top:32;'><nobr>") tex.WriteLine("<input type='button' value='<<' id='B0' onclick='FR()'>") tex.WriteLine("<input type='button' value='○' id='B1' onClick='PAUSE(t=500000)'>") tex.WriteLine("<input type='button' value='>>' id='B2' onclick='FF()'>") tex.WriteLine("<select size='1' style='position:relative; left:4; top:-4; width:53;'>") tex.WriteLine(" <option value='60000'>SPEED</option>") tex.WriteLine(" <option value='200'>+0.2</option>") tex.WriteLine(" <option value='400'>+0.4</option>") tex.WriteLine(" <option value='600'>+0.6</option>") tex.WriteLine(" <option value='800'>+0.8</option>") tex.WriteLine(" <option value='1000'>+1.0</option>") tex.WriteLine(" <option value='1500' selected>+1.5</option>") tex.WriteLine(" <option value='2000'>+2.0</option>") tex.WriteLine(" <option value='3000'>+3.0</option>") tex.WriteLine(" <option value='5000'>+5.0</option></select>") tex.WriteLine("<input type='button' value='START' id='B3' onclick="&w&"VBS(),Select(),window['ex1'].style.display='none'"&w&">") 'tex.WriteLine("<td ID='Foy' style='position:relative; left:2; top:10; z-index:2;'><a href='./' target='_blank'><img src='foy.gif' border='0' width='17'></a></td>") tex.WriteLine("</nobr></div></td></tr></table></form></div>") tex.WriteLine("<table style='position:absolute; left:0; top:0;' width='100%' height='100%'><tr><td align='center' ID='Sele1'><script>") tex.WriteLine(" xdx = document.forms[0].elements[2].selectedIndex;") tex.WriteLine(" myW = document.forms[0].elements[2].options[xdx].value;") tex.WriteLine(" if(myW == '') WIDTHIMG = '';") tex.WriteLine(" else WIDTHIMG = 'width = ' + myW;") tex.WriteLine(" document.write('<img src=rogo.gif align=absmiddle name=myI border=0 '+WIDTHIMG+'>');") tex.WriteLine("</script></td></tr></table>") tex.WriteLine("<table border='0' cellpadding='0' cellspacing='0' style='position:absolute; left:15; bottom:2;'>") tex.WriteLine("<tr>") tex.WriteLine("<td ID='cui' style='width:46'>00000</td>") tex.WriteLine("<td> / </td>") tex.WriteLine("<td ID='cuii' style='width:46'>00000</td>") tex.WriteLine("<td ID='Foy'>FolderPath</td>") tex.WriteLine("</tr></table>") tex.WriteLine("<Script Language='JavaScript' SRC='./imgDATA.JS'></Script>") tex.WriteLine("<div style='position;absolute; display:none;'>") tex.WriteLine("<form name='F2'>") tex.WriteLine("<input type='text' name='No'><input type='text' name='start'><input type='text' name='stop'></form></div>") tex.WriteLine("<Script language='VBScript'>") tex.WriteLine("Function VBS()") tex.WriteLine(" Dim OutFile,fso,tx,GetLine,ra,Fox,No,F2") tex.WriteLine(" OutFile=" & w & iWORKPATH & "imgDATA.JS" & w) tex.WriteLine(" Set fso = CreateObject("&w&"Scripting.FileSystemObject"&w&")") tex.WriteLine(" Const ForReading=1, ForWriting=2, ForAppending=8") tex.WriteLine(" Set tx = fso.OpenTextFile(OutFile, 1)") tex.WriteLine(" ra = tx.ReadAll") tex.WriteLine(" GetLine = Eval(tx.Line)-1") tex.WriteLine(" Set Fox = Document.F2") tex.WriteLine(" Fox.No.Value = GetLine") tex.WriteLine(" Call imgCek()") tex.WriteLine(" top.window.status = GetLine") tex.WriteLine("End Function") tex.WriteLine("</script>") tex.WriteLine("</body></html>") tex.Close() Set ie= WScript.CreateObject("InternetExplorer.Application") ie.Navigate(OutF2) ie.AddressBar = false ie.MenuBar = false ie.ToolBar = false ie.StatusBar = true ie.Visible = true ie.Width=800 ie.Height=600 'msgbox ("No." & CStr(Err.Number) & " " & Err.Description) & vbCrLf & "★ 任務完了 ! " Sub Search(OBJ) Dim fso,text,It,Chi,CHANGEPATH Set fso = CreateObject("Scripting.FileSystemObject") Const ForReading=1, ForWriting=2, ForAppending=8 if OBJ.IsFolder then Set It = OBJ.GetFolder.Items For Each Chi In It Set text = fso.OpenTextFile(OutF1, 8, True) if Chi.IsFolder then text.Close() else if fso.GetExtensionName(Lcase(Chi.Path)) = Exf then CHANGEPATH = Rep("\\", "/",Chi.Path) b=b+1 text.WriteLine("jsDB[" & b-1 & "]=" & Chr(34) & CHANGEPATH & Chr(34) & ";") end if text.Close() end if Search Chi Next end if End Sub Function Rep(patrn,St,st1) Dim A,B,C Set A = New RegExp A.Pattern = patrn A.IgnoreCase = True A.Global = True Set C = A.Execute(st1) For Each B in C Rep = A.Replace(st1, St) Next End Function
PHOTOの読み込みが終わると勝手にHTMLウィンドウが開きます。スライドショーの間隔は初期値1.5秒です。0.2秒～5秒まで変更可能です。キーと連動していて、矢印キーで強制的に進めたり戻したりもできます。数字の0キーで停止、数字のDelキーでアイコンサイズへ変更、数字のENTERキーで初期値で再開など、いろいろです。　右上の四角い部分をクリックするとコントローラーが表示/非表示になります。

ウインドウ下部のパスリンクをクリックすると、表示されているイメージのあるフォルダーが開きます。

9999枚まで可能です。スライドーショー時にウエイトの大きいなイメージを表示する場合、リード速度が著しく低下傾向となりますので、スライド速度を適当に下げてくださいませ。 _ ( _ ^ _ ; ) _




一応、XP-SP3 + IE6.0環境で動作確認済みですが、エラー対策などしていません。そんな関係で、取り扱いに関しては、責任負いかねますので、自己責任でお願い致します ^_^;

ファイル名＋3桁連番リネーマ(vbs)

リネームしたいファイル を、このVBSファイルへ 「 ドラッグ&ドロップ 」 すると、同じフォルダー内の同じ拡張子のファイル全てを対象に、リネームを実行します。

VBSファイルの作り方は、例によって下のエリアのソースを 「新規テキストファイル」 へ丸ごとコピーし、「○○○.VBS」 と変名保存するだけです。

現在、異様に時間がかかることがあるエラー問題を検討中ですが、デジカメ画像整理に威力を発揮してくれてます。_ ( _ ^ _ ; ) _

Set objArgs = WScript.Arguments For I = 0 to objArgs.Count - 1 PS = objArgs(I) Next Dim fso, f,f1,fc, s, EXN,z,zz,URN,PF,PFF Set fso = CreateObject("Scripting.FileSystemObject") EXN = fso.GetExtensionName(PS) if EXN = "" Then i = msgbox("「拡張子付のファイル」をドロップしてくださいませ!!",,"★ えら～どすえ") Else pn = InstrRev(PS,"\") PFF = Left(PS, pn) AIU = "NewFileName" URN = InputBox(PFF & " にある " & Ucase(EXN) & " ファイルを「 テキスト名＋000～999 」の連番でリネームします。?!", Ucase(EXN) &" ファイルのリネームだよ～んだぁ。!!",AIU) Set f = fso.GetFolder(PFF) Set fc = f.Files s=0 If URN="" Then msgbox "・・きゃんせるしたよぉ!!" Else For Each f1 in fc PsF = InstrRev(f1,"\") FaN = Mid(f1, PF+1) if Lcase(fso.GetExtensionName(FaN)) = Lcase(EXN) then s = s + 1 z = "0" & "0" & "0" & s q = Len(z) - Len(s) zz = Right(z, q) f1.Name = URN & "_" & zz & "." & Lcase(EXN) end if Next x=msgbox("リネームプロジェクト完了!!",,"★ 旨くいったかい ?") End If End If '注)　パスに全角文字があったり、変換するファイル名が全角文字の場合や DISKTOP上のファイルを変換する際には、変換にやや時間を要するようでした(-_-;)。

一応、XP-SP3 で動作確認済みですが、エラー対策などしていません。そんな関係で、取り扱いに関しては、責任負いかねますので、自己責任でお願い致します ^_^;

削除フォト 一括管理(vbs)

「フォトフォルダ」 を、このVBSファイルへ 「 ドラッグ&ドロップ 」 すると、以下３階層までのサブ領域を検索し、「指定拡張子のイメージ」 かつ　「指定サイズ以下」のファイルのみ、リンクアップするという優れものっす。　

なおページからは、イメージをクリックして選択した後、DELボタンで、フォルダからの永久削除が可能。

右クリックでは、フォルダを開きますが、現在、エラーが良く出てまして機能しない事が多発。m(_ _;;)m

VBSファイルの作り方は、例によって下のエリアのソースを 「新規テキストファイル」 へ丸ごとコピーし、「○○○.VBS」 と変名保存するだけです。

Dim objArgs,fso,PH,PFF,exn,f,f1,fc,s,n,nx,Ex,P,G,ZZ,B,C,FFF,D,R,GPyURL,X,stream1,MF2,MyST,stm,ie,IGSZ P=64 '// １枚のHTMLに表示する枚数 IGSZ=153600 '// 検索対象イメージの最大サイズ ※153600は、150KBです。 Set Shell = CreateObject("WScript.Shell") Dtp = Shell.SpecialFolders("Desktop") Set fso = CreateObject("Scripting.FileSystemObject") Set objArgs = WScript.Arguments For I = 0 to objArgs.Count - 1 PH = objArgs(I) Next Set f = fso.GetFolder( PH ) n = 0 nx = 0 Ex="jpg" Set fc = f.Files For Each f1 in fc exn = fso.GetExtensionName(f1) if Ex= Lcase(exn) And f1.size < IGSZ then PF = InstrRev(f1.ParentFolder,"\") PFF = Mid(f1.ParentFolder, PF+1) n = n + 1 nx = nx + 1 if nx > P then nx = 1 end if f1PF = Rep("\\", "/",f1.ParentFolder) s=s&"<img id=C" &nx& " onError=At('C" &nx& "') onmousedown=OpenIMG('"&f1PF&"') onclick=sGy('C" &nx& "') ondblclick=sGx('C" &nx& "') src='" &f1.path& "'><input id='cx' Name='CiX' type='checkbox' value='" &f1.path& "'>" & VbCrLf End if Next Set fc = f.SubFolders For Each f1 in fc Set f1s = fso.GetFolder(f1.Path) Set fcs = f1s.Files For Each f2 in fcs exn = fso.GetExtensionName(f2) if Ex= Lcase(exn) And f2.size < IGSZ then PF = InstrRev(f2.ParentFolder,"\") PFF = Mid(f2.ParentFolder, PF+1) n = n + 1 nx = nx + 1 if nx > P then nx = 1 end if f2PF = Rep("\\", "/",f2.ParentFolder) s=s&"<img id=C" &nx& " onError=At('C" &nx& "') onmousedown=OpenIMG('"&f2PF&"') onclick=sGy('C" &nx& "') ondblclick=sGx('C" &nx& "') src='" &f2.path& "'><input id='cx' Name='CiX' type='checkbox' value='" &f2.path& "'>" & VbCrLf End if Next Set fcs = f1s.SubFolders For Each f2 in fcs Set f2s = fso.GetFolder(f2.Path) Set fcc = f2s.Files For Each f3 in fcc exn = fso.GetExtensionName(f3) if Ex= Lcase(exn) And f3.size < IGSZ then PF = InstrRev(f3.ParentFolder,"\") PFF = Mid(f3.ParentFolder, PF+1) n = n + 1 nx = nx + 1 if nx > P then nx = 1 end if f3PF = Rep("\\", "/",f3.ParentFolder) s=s&"<img id=C" &nx& " onError=At('C" &nx& "') onmousedown=OpenIMG('"&f3PF&"') onclick=sGy('C" &nx& "') ondblclick=sGx('C" &nx& "') src='" &f3.path& "'><input id='cx' Name='CiX' type='checkbox' value='" &f3.path& "'>" & VbCrLf End if Next Next Next if(fso.FolderExists( Dtp & "\DROPv" )) then Set MyF = fso.GetFolder( Dtp & "\DROPv" ) MyF.Delete(True) fso.CreateFolder(Dtp & "\DROPv") else fso.CreateFolder(Dtp & "\DROPv") End if Set MF = fso.CreateTextFile(Dtp & "\DROPv\GpyLIST.txt", True) MF.WriteLine( s ) MF.Close G = n/P ZZ = Int(G) B = n - P*ZZ FFF = Dtp & "\DROPv" Const ForReading=1, ForWriting=2, ForAppending=8 Set fu = fso.OpenTextFile(FFF & "\GPyLIST.txt", ForReading) For C = 0 To ZZ Set stream = fso.CreateTextFile(FFF & "\PhotoStage(" & (100+c) & ").htm", True) stream.Close Set stream1 = fso.OpenTextFile(FFF & "\PhotoStage(" & (100+C) & ").htm", ForAppending) stream1.WriteLine( "<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.0 Transitional//EN'>" ) stream1.WriteLine( "<html><head><title>PhotoStage(" & (100+C) & ")_byGUPPY.^<^</title></head>" ) stream1.WriteLine( "<link rel='stylesheet' href='./_MySTYLE.css' type='text/css'>" ) stream1.WriteLine("<BODY bgcolor='#111111' topmargin='0' leftmargin='0'>" ) stream1.WriteLine( "<script language='JavaScript'>" ) stream1.WriteLine("function At(idx) { //alert(idx); " ) stream1.WriteLine("document.images[idx].style.width='0'; document.images[idx].style.height='0'; }" ) stream1.WriteLine( "</script>" ) stream1.WriteLine("<FORM Name='GPyFM'>" ) if C = ZZ then D = B For X = 1 To D R = fu.ReadLine stream1.WriteLine( R ) Next GPyURL=GPyURL&"document.write( "&CHR(34)&"<tr><td><a class='GPymeu' href='PhotoStage("&(100+C)&").htm'>PhotoStage("&(100+C)&")</a></td></tr>" & CHR(34) &" );" & vbCrLf stream1.WriteLine( "<span id='x'><input type='button' id='db' value='▲ ImgDELTE ▼' Name=DELIMG title='選択したイメージを削除する。'></span></FORM>" ) stream1.WriteLine( "<Script Language='VBScript' src='_imgDELTE.VBS'></Script>" ) stream1.WriteLine( "<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 id='GPyLink'>" ) stream1.WriteLine( "<script language='JavaScript' src='_GPyURL.js'></Script>" ) stream1.WriteLine( "</TABLE></body></html>" ) stream1.Close else D = P For X = 1 To D R = fu.ReadLine stream1.WriteLine( R ) Next GPyURL=GPyURL&"document.write( "&CHR(34)&"<tr><td><a class='GPymeu' href='PhotoStage("&(100+C)&").htm'>PhotoStage("&(100+C)&")</a></td></tr>" & CHR(34) &" );" & vbCrLf stream1.WriteLine( "<span id='x'><input type='button' id='db' value='▲ ImgDELTE ▼' Name=DELIMG title='選択したイメージを削除する。'></span></FORM>" ) stream1.WriteLine( "<Script Language='VBScript' src='_imgDELTE.VBS'></Script>" ) stream1.WriteLine( "<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 id='GPyLink'>" ) stream1.WriteLine( "<Script Language='JavaScript' src='_GPyURL.js'></Script>" ) stream1.WriteLine( "</TABLE></body></html>" ) stream1.Close End if Next fu.Close Set MF2 = fso.CreateTextFile(Dtp & "\DROPv\_GPyURL.js", True) MF2.WriteLine( GPyURL ) MF2.WriteLine( "if(document.GPyFM.elements[0].value !== '▲ ImgDELTE ▼'){" ) MF2.WriteLine( "v='';" ) MF2.WriteLine( "for(a=0; a < document.GPyFM.CiX.length; a++) { v= v+','+document.GPyFM.elements[a].checked;" ) MF2.WriteLine( "if(!document.GPyFM.elements[a].checked) document.GPyFM.elements[a].checked=true; status= v; } }" ) MF2.WriteLine( "else { status='OVER RAN : DROPv内のリストを確認してみてくださいませ。!!'; }" ) MF2.WriteLine("function xLAY(){ obj='GPyLink'; obx='x'; Lef= parseInt('0'); Tp= parseInt('4');" ) MF2.WriteLine("if(document.all) { document.all(obx).style.pixelTop = parseInt(document.body.scrollTop + Tp);" ) MF2.WriteLine(" document.all(obj).style.pixelTop = parseInt(document.body.scrollTop + Tp); } }" ) MF2.WriteLine("window.onresize=xLAY;window.onload=xLAY;window.onscroll=xLAY;" ) MF2.WriteLine("function sGy(s){ i = s.slice(1,(s.lenght)); status=i" ) MF2.WriteLine("document.GPyFM.elements[i-1].checked = false;" ) MF2.WriteLine("if(document.all){ document.all(s).style.border='2 solid #FF20A6'; } }" ) MF2.WriteLine("function sGx(s){ i = s.slice(1,(s.lenght)); status=i" ) MF2.WriteLine("document.GPyFM.elements[i-1].checked = true;" ) MF2.WriteLine("if(document.all){ document.all(s).style.border='2 solid #000000'; } }" ) MF2.WriteLine("function OpenIMG(ev)" ) MF2.WriteLine("{ if(event.button==2) { " ) MF2.WriteLine("webA=window.open(ev,'','width=500,height=300,scrollbars=yes,resizable=yes,menubar=no,toolbar=no,status=yes');" ) MF2.WriteLine("/*webA.location.href = document.all[ev].src;*/ } }" ) MF2.WriteLine("function ctmenuOff()" ) MF2.WriteLine("{ event.cancelBubble=true;" ) MF2.WriteLine(" event.returnValue =false; return false; } document.oncontextmenu = ctmenuOff;" ) MF2.Close Set MyST = fso.CreateTextFile(Dtp & "\DROPv\_MySTYLE.css", True) MyST.WriteLine( "img { /*width:100%;*/ border:2 solid #000000; }" ) MyST.WriteLine( "#GPyLink { position:absolute; top:3; Right:0; }" ) MyST.WriteLine( "#x { position:absolute; top:1; left:3; }" ) MyST.WriteLine( "#db { width:125; height:28; border:1 solid #ffffff; font-size:15; background-color:transparent;" ) MyST.WriteLine( " color:#ff0000; border-color:#ffffff #FF408C #FF408C #ffffff; font-weight:900; }" ) MyST.WriteLine( " #cx { display:none; }" ) MyST.WriteLine( "A.GPymeu { text-align:center; width:110; padding:0 5 0 5; background-color:transparent; color:#f0f0f0; font-size:13px;}" ) MyST.WriteLine( "A.GPymeu:hover { text-align:center; width:110; padding:0 5 0 5; background-color:#ffdab9; color:#FF0066; }" ) MyST.WriteLine( "A.GPymeu:active{ text-align:center; width:110; padding:0 5 0 5; background-color:#f0f0f0; color:#999999; }" ) MyST.Close Set stm = fso.CreateTextFile(Dtp & "\DROPv\_imgDELTE.VBS", True) 'stm.WriteLine("<Script Language='VBScript'><!--" ) stm.WriteLine("Function DELIMG_OnClick(IMGSRC)" ) stm.WriteLine("Dim i, fms, fjx, ele, s, msg" ) stm.WriteLine("Set fms = document.forms(0)" ) stm.WriteLine("Set ele = fms.elements" ) stm.WriteLine("Set fso = CreateObject("&CHR(34)&"Scripting.FileSystemObject"&CHR(34)&")" ) stm.WriteLine("For Each fjx in ele" ) stm.WriteLine(" if fjx.checked = false then" ) stm.WriteLine(" s = fjx.value" ) stm.WriteLine(" if(fso.FileExists(s)) then" ) stm.WriteLine(" n=n+1" ) stm.WriteLine(" fso.DeleteFile(s)" ) stm.WriteLine(" end if" ) stm.WriteLine(" s = s & vbCrLf" ) stm.WriteLine(" end if" ) stm.WriteLine("Next" ) stm.WriteLine("if n=0 Or n="&CHR(34)&CHR(34)&" then" ) stm.WriteLine(" msgbox " & CHR(34) & "☆ チェック がありませんでした。　" & CHR(34) & "& vbCrLf" ) stm.WriteLine(" location.reload() ") stm.WriteLine("else ") stm.WriteLine(" msgbox n & "&CHR(34)&" 枚 削除 完了です。!　" & CHR(34) & " & vbCrLf & " & CHR(34) & " ? ReadProtectFile Is NoDel." & CHR(34) ) stm.WriteLine(" location.reload()" ) stm.WriteLine("end if" ) stm.WriteLine("End Function" ) 'stm.WriteLine("--></Script>" ) stm.Close Set ie= WScript.CreateObject("InternetExplorer.Application") ie.Navigate(FFF & "\PhotoStage(100).htm") ie.Width = 400 ie.Height= 300 ie.AddressBar = False ie.MenuBar = True ie.ToolBar = True ie.StatusBar = True ie.Visible = True Function Rep(patrn, St,st1) Dim A Set A = New RegExp A.Pattern = patrn A.IgnoreCase = True A.Global = True Set C = A.Execute(st1) For Each B in C Rep = A.Replace(st1, St) Next End Function
一応、XP-SP3 で動作確認済みですが、エラー対策などしていません。そんな関係で、取り扱いに関しては、責任負いかねますので、自己責任でお願い致します。

PS : このスクリプトは、ディスクトップ上に作業用領域を少し使用しますので、ご注意くださいませ。^_^;

サブフォルダ 一括サイズ管理(VBS)

「親フォルダー」 を、このVBSファイルへ 「 ドラッグ&ドロップ 」 すると、サブフォルダーを検索し、サイズなどの全情報をテキストにリストアップしてくれます。　その際、サイズ０の空フォルダーも自動削除します。

VBSファイルの作り方は、例によって下のエリアのソースを 「新規テキストファイル」 へ丸ごとコピーし、「○○○.VBS」 と変名保存するだけです。


'親フォルダーをドラッグします。 'サイズ 0 のサブフォルダーを削除します。 '各サブフォルダーを検出し、「 フォルダ名 | 平均サイズ | フォルダーサイズ/枚数 」のようにテキストにリストします。 Set objArgs = WScript.Arguments For I = 0 to objArgs.Count - 1 ps = objArgs(I) Next Dim fso,Shell,fx,fb,fc,n,OL,MyFile,MyF,e1,f,s,x,space,Repath,WShell,Dt,list,ZROfo,f1MB Set fso = CreateObject("Scripting.FileSystemObject") 'Set Shell = CreateObject("WScript.Shell") 'Dt = Shell.SpecialFolders("Desktop") Set f = fso.GetFolder(ps) Set MyFile = fso.CreateTextFile(ps & "\" & f.name & ".html", True) Set sf = f.SubFolders s="" MyFile.WriteLine("/// " & ps & " ////////////<base target='_blank'><pre>" ) For Each f1 in sf if f1.size <= 0 then Set ZROfo = fso.GetFolder(f1.Path) ZROfo.Delete else f1MB = f1.size/1048576 fmb = Round(f1MB,2) s = f1.Name x = 0 Set fc = f1.Files For Each f2 in fc t = t & f2.name x = x + 1 Next if x > 0 then a = Round(fmb/x,2) else a = Round(fmb/1,2) end if if Len(Fix(a)) = 1 then if Len(a) = 1 then a = a&".00" end if if Len(a) = 3 then a = a&"0" end if if Len(s) <= 25 then s = s & " _"&"_"&"_"&"_"&"_"&"_"&"_"&"_"&"_"&"_"&"_"&"_"&"_"&"_"&"_"&"_"&"_"&"_"&"_"&"_"&"_"&"_"&"_"&"_"&"_" s = Left(s,25) end if if Len(s) > 25 then s = Left(s,25) end if else if Len(s) <= 25 then s = s & " _"&"_"&"_"&"_"&"_"&"_"&"_"&"_"&"_"&"_"&"_"&"_"&"_"&"_"&"_"&"_"&"_"&"_"&"_"&"_"&"_"&"_"&"_"&"_"&"_" s = Left(s,25) end if if Len(s) > 25 then s = Left(s,25) end if end if MyFile.WriteLine( "<a href='" & ps & "\" & f1.Name & "'>" & s & "</a> [" & a & "] .." & fmb & "mb/" & x &"枚" ) end if Next MyFile.WriteLine("</pre>" ) MyFile.Close Set ie= WScript.CreateObject("InternetExplorer.Application") ie.Navigate(ps & "\" & f.name & ".html") ie.Width = 500 ie.Height= 300 ie.Visible = True 'msgbox "・・フォルダーリスト完了っす。(*^^)v"

一応、XP-SP3 で動作確認済みですが、エラー対策などしていません。そんな関係で取り扱いに関しては、責任負いかねますので、自己責任でお願い致します。

PS : 増え過ぎた 「 デジカメ庫ファイル」 の管理に大活躍間違いなしｶﾓ・・(汗)。
フォルダー名の長さの格差が広がるにつれ、確認しぬくくなる部分を、バージョンアップ予定してます。^_^;

サブフォルダ 連番・適当リネーマ(VBS)

このVBスクリプトは、 「親フォルダー」 を、VBSファイルへ 「 ドラッグ&ドロップ 」 するだけで、999個までのサブフォルダーに対して、４桁のアルファベット＋(000～999) の連番で、リネームしてしまう優れものっす。

VBSファイルの作り方は、例によって下のエリアのソースを 「新規テキストファイル」 へ丸ごとコピーし、「○○○.VBS」 と変名保存するだけです。

一応、XP-SP3 で動作確認済みですが、取り扱いに関しては、責任取れませんので、自己責任でお願い致しますね。


PS : 「 IrfanView 」 のソートがうまくいかない時などに有効です。


Dim I,fso,PH,f,f1, fc, s, fs, fcs, f1s ,f2, fcc, f3, f2s,exn,fms,nam,xRan,NeNu,Moj,z,zz,q Set objArgs = WScript.Arguments For I = 0 to objArgs.Count - 1 PH = objArgs(I) Next Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder( PH ) Moj=Array("A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z") Randomize ' 乱数ジェネレータを初期化します Do Until s = 4 '使用する文字数 xRan = Int((26 * Rnd) + 0) ' 1 ～ 26 のランダムな値を生成します。 If xRan <= 26 then NeNu = NeNu + Moj(xRan) End if s = s + 1 Loop fspec = f.path &"\" 'x = InstrRev(fspec,"\") 'fpath = Left(fspec,x) a = 0 Set f = fso.GetFolder(fspec) Set fc = f.SubFolders For Each f1 in fc a = a+1 z = "0" & "0" & "0" & a '３桁の場合 ９９９まで(それ以上はエラーで停止) 'z = "0" & "0" & "0" & "0" & a '４桁の場合９９９９まで(それ以上はエラーで停止) q = Len(z)-Len(a) zz = Right(z, q) f1.name = Left(Lcase(NeNu),1) & Right(Ucase(NeNu),3) & "(" & zz & ")" Next msgbox "サブフォルダー てきとうリネーム完了!!　"

キーコードの参照

■ キーボードのキーの番号を適当に返します。(半角英数のみ?)

	＝
キー入力ボックス		キー番号

※ eval( event.keyCode ) で数値との比較ができます。
if(event.keyCode == 番号) で条件設定もいろいろ・・

でも、何の役に立つのだろう(汗)・・・

写真の撮影日検索.vbs

デジカメで撮った写真の 「撮影日」 を指定して JPGファイルを検索します。　もちろんフォルダー階層を越えて動作します。

ベース的には、
http://blog.so-net.ne.jp/petamun/2007-05-21　で紹介していた 「 プチPhotoSTAGE 」 なので、操作方法はそちら見てくださいませ。

これで膨大なPHOTOデーターの中から、数枚の写真を探し出しやすくなりました。

Set objArgs = WScript.Arguments For I = 0 to objArgs.Count - 1 PH = objArgs(I) Next ShowFileAccessInfo(PH) Function ShowFileAccessInfo(PH) Dim fso,PFF,exn,f,f1,fc,s,n,nx,Ex,P,G,ZZ,B,C,FFF,D,R,GPyURL,X,stream1,MF2,MyST,stm,ie,nwDLM P = 12 '..１枚のHTMLに表示する枚数(6～24程度が最適) Ex = "jpg" '..検索対象ファイルの指定拡張子 DLM = "2007/05/07" '..「写真の撮影日」初期値 MyVar = Now MyDate = Date Dat = Rep("/", ",",Date) wDat = Right(Dat, 10) nwDLM = InputBox("★「写真の撮影日」を入力してください。"+vbCrLf+"ＯＫで検索を開始します。!!　"+vbCrLf+"※原版だけですけどね。(+_+)","☆ 写真撮影日検索",wDat) Set Shell = CreateObject("WScript.Shell") Dtp = Shell.SpecialFolders("Desktop") Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder( PH ) if nwDLM then nwDLM = Rep(",", "/",nwDLM) n = 0 nx = 0 Set fc = f.Files For Each f1 in fc exn = fso.GetExtensionName(f1) if Ex= Lcase(exn) And nwDLM=Left(f1.DateLastModified,10) then PF = InstrRev(f1.ParentFolder,"\") PFF = Mid(f1.ParentFolder, PF+1) n = n + 1 nx = nx + 1 if nx > P then nx = 1 end if s=s&"<img id=C" &nx& " onError=At('C" &nx& "') onmousedown=OpenIMG('C"&nx&"') onclick=sGy('C" &nx& "') ondblclick=sGx('C" &nx& "') src='" &f1.path& "'><input id='cx' Name='CiX' type='checkbox' value='" &f1.path& "'>" & VbCrLf End if Next Set fc = f.SubFolders For Each f1 in fc Set f1s = fso.GetFolder(f1.Path) Set fcs = f1s.Files For Each f2 in fcs exn = fso.GetExtensionName(f2) if Ex= Lcase(exn) And nwDLM=Left(f2.DateLastModified,10) then PF = InstrRev(f2.ParentFolder,"\") PFF = Mid(f2.ParentFolder, PF+1) n = n + 1 nx = nx + 1 if nx > P then nx = 1 end if s=s&"<img id=C" &nx& " onError=At('C" &nx& "') onmousedown=OpenIMG('C"&nx&"') onclick=sGy('C" &nx& "') ondblclick=sGx('C" &nx& "') src='" &f2.path& "'><input id='cx' Name='CiX' type='checkbox' value='" &f2.path& "'>" & VbCrLf End if Next Set fcs = f1s.SubFolders For Each f2 in fcs Set f2s = fso.GetFolder(f2.Path) Set fcc = f2s.Files For Each f3 in fcc exn = fso.GetExtensionName(f3) if Ex= Lcase(exn) And nwDLM=Left(f3.DateLastModified,10) then PF = InstrRev(f3.ParentFolder,"\") PFF = Mid(f3.ParentFolder, PF+1) n = n + 1 nx = nx + 1 if nx > P then nx = 1 end if s=s&"<img id=C" &nx& " onError=At('C" &nx& "') onmousedown=OpenIMG('C"&nx&"') onclick=sGy('C" &nx& "') ondblclick=sGx('C" &nx& "') src='" &f3.path& "'><input id='cx' Name='CiX' type='checkbox' value='" &f3.path& "'>" & VbCrLf End if Next Set fcc = f2s.SubFolders For Each f3 in fcc Set f3s = fso.GetFolder(f3.Path) Set fcn = f3s.Files For Each f4 in fcn exn = fso.GetExtensionName(f4) if Ex= Lcase(exn) And nwDLM=Left(f4.DateLastModified,10) then PF = InstrRev(f4.ParentFolder,"\") PFF = Mid(f4.ParentFolder, PF+1) n = n + 1 nx = nx + 1 if nx > P then nx = 1 end if s=s&"<img id=C" &nx& " onError=At('C" &nx& "') onmousedown=OpenIMG('C"&nx&"') onclick=sGy('C" &nx& "') ondblclick=sGx('C" &nx& "') src='" &f4.path& "'><input id='cx' Name='CiX' type='checkbox' value='" &f4.path& "'>" & VbCrLf End if Next Next Next Next if(fso.FolderExists( Dtp & "\DROPv" )) then Set MyF = fso.GetFolder( Dtp & "\DROPv" ) MyF.Delete(True) fso.CreateFolder(Dtp & "\DROPv") else fso.CreateFolder(Dtp & "\DROPv") End if Set MF = fso.CreateTextFile(Dtp & "\DROPv\GpyLIST.txt", True) MF.WriteLine( s ) MF.Close G = n/P ZZ = Int(G) B = n - P*ZZ FFF = Dtp & "\DROPv" Const ForReading=1, ForWriting=2, ForAppending=8 Set fu = fso.OpenTextFile(FFF & "\GPyLIST.txt", ForReading) For C = 0 To ZZ Set stream = fso.CreateTextFile(FFF & "\PhotoStage(" & (100+c) & ").htm", True) stream.Close Set stream1 = fso.OpenTextFile(FFF & "\PhotoStage(" & (100+C) & ").htm", ForAppending) stream1.WriteLine( "<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.0 Transitional//EN'>" ) stream1.WriteLine( "<html><head><title>PhotoStage(" & (100+C) & ")_byGUPPY.^<^</title></head>" ) stream1.WriteLine( "<link rel='stylesheet' href='./_MySTYLE.css' type='text/css'>" ) stream1.WriteLine("<BODY bgcolor='#111111' topmargin='0' leftmargin='0'>" ) stream1.WriteLine( "<script language='JavaScript'>" ) stream1.WriteLine("function At(idx) { //alert(idx); " ) stream1.WriteLine("document.images[idx].style.width='0'; document.images[idx].style.height='0'; }" ) stream1.WriteLine( "</script>" ) stream1.WriteLine("<FORM Name='GPyFM'>" ) if C = ZZ then D = B For X = 1 To D R = fu.ReadLine stream1.WriteLine( R ) Next GPyURL=GPyURL&"document.write( "&CHR(34)&"<tr><td><a class='GPymeu' href='PhotoStage("&(100+C)&").htm'>PhotoStage("&(100+C)&")</a></td></tr>" & CHR(34) &" );" & vbCrLf stream1.WriteLine( "<span id='x'><input type='button' id='db' value='▲ ImgDELTE ▼' Name=DELIMG title='選択したイメージを削除する。'></span></FORM>" ) stream1.WriteLine( "<Script Language='VBScript' src='_imgDELTE.VBS'></Script>" ) stream1.WriteLine( "<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 id='GPyLink'>" ) stream1.WriteLine( "<script language='JavaScript' src='_GPyURL.js'></Script>" ) stream1.WriteLine( "</TABLE></body></html>" ) stream1.Close else D = P For X = 1 To D R = fu.ReadLine stream1.WriteLine( R ) Next GPyURL=GPyURL&"document.write( "&CHR(34)&"<tr><td><a class='GPymeu' href='PhotoStage("&(100+C)&").htm'>PhotoStage("&(100+C)&")</a></td></tr>" & CHR(34) &" );" & vbCrLf stream1.WriteLine( "<span id='x'><input type='button' id='db' value='▲ ImgDELTE ▼' Name=DELIMG title='選択したイメージを削除する。'></span></FORM>" ) stream1.WriteLine( "<Script Language='VBScript' src='_imgDELTE.VBS'></Script>" ) stream1.WriteLine( "<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 id='GPyLink'>" ) stream1.WriteLine( "<Script Language='JavaScript' src='_GPyURL.js'></Script>" ) stream1.WriteLine( "</TABLE></body></html>" ) stream1.Close End if Next fu.Close Set MF2 = fso.CreateTextFile(Dtp & "\DROPv\_GPyURL.js", True) MF2.WriteLine( GPyURL ) MF2.WriteLine( "if(document.GPyFM.elements[0].value !== '▲ ImgDELTE ▼'){" ) MF2.WriteLine( "v='';" ) MF2.WriteLine( "for(a=0; a < document.GPyFM.CiX.length; a++) { v= v+','+document.GPyFM.elements[a].checked;" ) MF2.WriteLine( "if(!document.GPyFM.elements[a].checked) document.GPyFM.elements[a].checked=true; status= v; } }" ) MF2.WriteLine( "else { status='OVER RAN : DROPv内のリストを確認してみてくださいませ。!!'; }" ) MF2.WriteLine("function xLAY(){ obj='GPyLink'; obx='x'; Lef= parseInt('0'); Tp= parseInt('4');" ) MF2.WriteLine("if(document.all) { document.all(obx).style.pixelTop = parseInt(document.body.scrollTop + Tp);" ) MF2.WriteLine(" document.all(obj).style.pixelTop = parseInt(document.body.scrollTop + Tp); } }" ) MF2.WriteLine("window.onresize=xLAY;window.onload=xLAY;window.onscroll=xLAY;" ) MF2.WriteLine("function sGy(s){ i = s.slice(1,(s.lenght)); status=i" ) MF2.WriteLine("document.GPyFM.elements[i-1].checked = false;" ) MF2.WriteLine("if(document.all){ document.all(s).style.border='2 solid #FF20A6'; } }" ) MF2.WriteLine("function sGx(s){ i = s.slice(1,(s.lenght)); status=i" ) MF2.WriteLine("document.GPyFM.elements[i-1].checked = true;" ) MF2.WriteLine("if(document.all){ document.all(s).style.border='2 solid #000000'; } }" ) MF2.WriteLine("function OpenIMG(ev)" ) MF2.WriteLine("{ if(event.button==2) { " ) MF2.WriteLine("webA=window.open('','','width=400,height=220,scrollbars=yes,resizable=yes,menubar=no,toolbar=no,status=no');" ) MF2.WriteLine("webA.location.href = document.all[ev].src; } }" ) MF2.WriteLine("function ctmenuOff()" ) MF2.WriteLine("{ event.cancelBubble=true;" ) MF2.WriteLine(" event.returnValue =false; return false; } document.oncontextmenu = ctmenuOff;" ) MF2.Close Set MyST = fso.CreateTextFile(Dtp & "\DROPv\_MySTYLE.css", True) MyST.WriteLine( "img { width:100%; border:2 solid #000000; }" ) MyST.WriteLine( "#GPyLink { position:absolute; top:3; Right:0; }" ) MyST.WriteLine( "#x { position:absolute; top:1; left:3; }" ) MyST.WriteLine( "#db { width:125; height:28; border:1 solid #ffffff; font-size:15; background-color:transparent;" ) MyST.WriteLine( " color:#ff0000; border-color:#ffffff #FF408C #FF408C #ffffff; font-weight:900; }" ) MyST.WriteLine( " #cx { display:none; }" ) MyST.WriteLine( "A.GPymeu { text-align:center; width:110; padding:0 5 0 5; background-color:transparent; color:#f0f0f0; font-size:13px;}" ) MyST.WriteLine( "A.GPymeu:hover { text-align:center; width:110; padding:0 5 0 5; background-color:#ffdab9; color:#FF0066; }" ) MyST.WriteLine( "A.GPymeu:active{ text-align:center; width:110; padding:0 5 0 5; background-color:#f0f0f0; color:#999999; }" ) MyST.Close Set stm = fso.CreateTextFile(Dtp & "\DROPv\_imgDELTE.VBS", True) 'stm.WriteLine("<Script Language='VBScript'><!--" ) stm.WriteLine("Function DELIMG_OnClick(IMGSRC)" ) stm.WriteLine("Dim i, fms, fjx, ele, s, msg" ) stm.WriteLine("Set fms = document.forms(0)" ) stm.WriteLine("Set ele = fms.elements" ) stm.WriteLine("Set fso = CreateObject("&CHR(34)&"Scripting.FileSystemObject"&CHR(34)&")" ) stm.WriteLine("For Each fjx in ele" ) stm.WriteLine(" if fjx.checked = false then" ) stm.WriteLine(" s = fjx.value" ) stm.WriteLine(" if(fso.FileExists(s)) then" ) stm.WriteLine(" n=n+1" ) stm.WriteLine(" fso.DeleteFile(s)" ) stm.WriteLine(" end if" ) stm.WriteLine(" s = s & vbCrLf" ) stm.WriteLine(" end if" ) stm.WriteLine("Next" ) stm.WriteLine("if n=0 Or n="&CHR(34)&CHR(34)&" then" ) stm.WriteLine(" msgbox " & CHR(34) & "☆ チェック がありませんでした。　" & CHR(34) & "& vbCrLf" ) stm.WriteLine(" location.reload() ") stm.WriteLine("else ") stm.WriteLine(" msgbox n & "&CHR(34)&" 枚 削除 完了です。!　" & CHR(34) & " & vbCrLf & " & CHR(34) & " ? ReadProtectFile Is NoDel." & CHR(34) ) stm.WriteLine(" location.reload()" ) stm.WriteLine("end if" ) stm.WriteLine("End Function" ) 'stm.WriteLine("--></Script>" ) stm.Close Set ie= WScript.CreateObject("InternetExplorer.Application") ie.Navigate(FFF & "\PhotoStage(100).htm") ie.Width = 400 ie.Height= 300 ie.AddressBar = False ie.MenuBar = False ie.ToolBar = False ie.StatusBar = True ie.Visible = True else Set ie= WScript.CreateObject("InternetExplorer.Application") ie.Navigate(PH) ie.Visible = True end if End Function Function Rep(patrn, St,st1) Dim A Set A = New RegExp A.Pattern = patrn A.IgnoreCase = True A.Global = True Set C = A.Execute(st1) For Each B in C Rep = A.Replace(st1, St) Next End Function

使用方法は、いつも同様です。メモ帳にソースをコピペして、適当に変名、拡張子を VBS としてください。後は、写真のあるフォルダーをドラッグするだけ。

本日の年月日が記述された 「入力ボックス」 がポップしてきます。検索したい 「写真の撮影日」 へ変更して、OKボタンで検索が始まります。

暇があったら、時刻も含めて期間的な範囲を設定できるようにしたいと思ったりもしてますが・・・、今のことろ必要性も薄かったりしてました(+_+)v。

自己責任で、ご自由にお使いくださいませ。

MOV0****.MQV系連番(VBS) だよ。

DoCoMo携帯 SO505iS でオリジナルのムービーを見る際には、フリーの 「3GP_Converter」っていうの使うんですけど、出来上がったこの MQV ファイルは、パソコンのQTでは見れない。　拡張子を一度、　3gp　へ変換してやると見れるようになるんですけど、今度　3gp　のままでは、 SO505iS では見られない。　とても難儀ぃなお話です。(ーー;)

Dim objArgs,fso,PH,flist(9999),cs exn = "3gp" Set objArgs = WScript.Arguments For I = 0 to objArgs.Count - 1 PH = objArgs(I) Next Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder( PH ) i = 0 For Each fx In f.Files fxp = fx.path Ex = fso.GetExtensionName(fxp) If LCase(Ex) = LCase(exn) Then Set flist(i) = fso.GetFile(fxp) i = i + 1 End If Next Set fso = CreateObject("Scripting.FileSystemObject") Set stm = fso.CreateTextFile(f.Path & "\CONVERT_LOG.txt", True) For s = 0 to i-1 Set fn = flist(s) cx = "0"&"0"&"0" & (s+1) cs = Mid(cx, Len(cx)-3, Len(cx)) stm.WriteLine( fn.Name & "　→ → →　MOV0" & cs & "." & UCase("mqv") ) fn.Name = "MOV0" & cs & "." & UCase("mqv") Next stm.Close If s=0 Then Msgbox "変換対象のファイルがありませんでした。!!　" Else Msgbox "MOV0****.MQV 形式 ナンバリング完了!!　" End If

そこで、↑ こちら、3gpファイル をまとめて、MOV0****.MQV 形式の連番ファイルにしてしまう VBS です。

コピペして適当に、「 3GP-連番MQV変換.VBS 」とかって名前付けてください。

3gp をひとまとめにしたフォルダーをそこへドラッグすると連番ファイルへ一括変換してくれます。

WindowsXP_SP2 + IE6.0環境で軽く動作確認していますが、いつも同様責任取れませんので・・・

※なお、3gp への一括変換は、先日紹介の　http://blog.so-net.ne.jp/petamun/2007-05-28　拡張子チェンジャマン できます。

/// ０７年５月３１日PS : ///////////////////////
あっ、今日で VISTA キャンディデート の使用期限もおわりかぁ。(ふぅ)　あまりの重さにXP復元時のフォーマットにしか使っていかったですぜぃ (ーー;)。

・・・余談はさておきまして、本日、作業ログが残せるようになりました。 まだ確認してないのでログあっているか不明です。

拡張子チェンジャマン(VBS)です。

Dim objArgs,fso,PH,Pa,Pp,MyPh Set objArgs = WScript.Arguments For I = 0 to objArgs.Count - 1 PH = objArgs(I) Next Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder( PH ) Pa = WScript.ScriptFullName Pp = InstrRev(Pa,"\") MyPh = Left(Pa,Pp) Set stm = fso.CreateTextFile(f.Path & "\GPyINDEX.htm", True) stm.WriteLine( "<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.0 Transitional//EN'>" ) stm.WriteLine( "<html><head><title> 拡張子チェンジャマン　</title></head>" ) 'stm.WriteLine( "<link rel='stylesheet' href='./_MySTYLE.css' type='text/css'>" ) stm.WriteLine( "<style ype='text/css'>" ) stm.WriteLine( "body { border:0; }" ) stm.WriteLine( "</style>" ) stm.WriteLine( "<BODY bgcolor='#d0d0d0' scroll='no' topmargin='0' leftmargin='0'>" ) stm.WriteLine( "<DIV style='padding:8 8 8 8; text-align:center;'><span id=ER style='color:#ff0000; font-size:12;'></span><FORM Name='ChgFo'>" ) stm.WriteLine( "<Select Name='ChgSel0'>" ) stm.WriteLine( "<option>対象_拡張子</option>" ) stm.WriteLine( "<option>.FLV</option>" ) stm.WriteLine( "<option>.MQV</option>" ) stm.WriteLine( "<option>.3GP</option>" ) stm.WriteLine( "<option>.MOV</option>" ) stm.WriteLine( "<option>.AVI</option>" ) stm.WriteLine( "<option>.WMV</option>" ) stm.WriteLine( "<option></option></Select><b> → </b>" ) stm.WriteLine( "<Select Name='ChgSel1'>" ) stm.WriteLine( "<option>変換_拡張子</option>" ) stm.WriteLine( "<option>.FLV</option>" ) stm.WriteLine( "<option>.MQV</option>" ) stm.WriteLine( "<option>.3GP</option>" ) stm.WriteLine( "<option>.MOV</option>" ) stm.WriteLine( "<option>.AVI</option>" ) stm.WriteLine( "<option>.WMV</option>" ) stm.WriteLine( "<option></option></Select>　<input type='button' value='CHANGE' onclick='ExChg()'>" ) stm.WriteLine( "<input Name='Hid' type='text' style='display:none; width:400;' value=" & CHR(34) & f.Path & CHR(34) & ">" ) stm.WriteLine( "<div style='padding:5 5 5 5; color:#777777; width:325; font-size:12;'>※空欄を選択すると拡張子無しファイルを対象にする事も、拡張子を削除することも可能です。</div>" ) stm.WriteLine( "<div style='padding:5 5 5 5; color:#777777; width:325; font-size:12;'>※他にも必要な拡張子がある場合には、セレクターへ OPTION 追加しませう。(そん際は左右対称にしてね。)</div>" ) stm.WriteLine( "</FORM></DIV>" ) stm.WriteLine( "<Script Language='VBScript' SRC='" & MyPh & "\ExtensionChanger_GPy.vbs'></Script>" ) stm.WriteLine( "<script language='JavaScript'><!--" ) stm.WriteLine( "function ExChg(){" ) stm.WriteLine( "x=document.ChgFo.ChgSel0.selectedIndex;" ) stm.WriteLine( "y=document.ChgFo.ChgSel1.selectedIndex;" ) stm.WriteLine( "Exn0=document.ChgFo.ChgSel0.options[x].text;" ) stm.WriteLine( "Exn1=document.ChgFo.ChgSel1.options[y].text;" ) stm.WriteLine( "if((x==0 || y==0) || (Exn0=='' && Exn1=='')){ alert('■ 拡張子をお確かめあれ。!!　'); return false; }" ) stm.WriteLine( "else {" ) stm.WriteLine( "ex0 = (document.ChgFo.ChgSel0.options[x].text).toLowerCase();" ) stm.WriteLine( "ex1 = (document.ChgFo.ChgSel1.options[y].text).toLowerCase();" ) stm.WriteLine( "ext0 = ex0.slice(1,ex0.lenght);" ) stm.WriteLine( "ext1 = ex1.slice(1,ex1.lenght);" ) stm.WriteLine( "eChg(ext0,ext1) } }" ) stm.WriteLine( "//--></script>" ) stm.WriteLine( "</body></html>" ) stm.Close Set ie= WScript.CreateObject("InternetExplorer.Application") ie.Navigate(f.Path & "\GPyINDEX.htm") ie.Width = 360 ie.Height= 170 ie.AddressBar = False ie.MenuBar = False ie.ToolBar = False ie.StatusBar = False ie.ReSizable=False ie.Visible = True Function eChg(e0,e1) Dim fso,ext,fxp,fes,flist(999),i,n,fxx If e0=e1 then StCe=1 end If If e0="" then StCe=2 end If If e1="" then StCe=3 end If fps=Document.ChgFo.Hid.value Set fso = CreateObject("Scripting.FilesystemObject") Set fx = fso.GetFolder(fps) Select Case StCe Case 1 msgbox e0 & " = "& e1 &" 拡張子が同じですよ。　" ER.innerHTML= "※<b>エラー :</b> コンテキストメニューからウインドを更新してください。 " WScript.Quit Case 2 i = 0 For Each fes in fx.Files fxp = fes.Path ext = fso.GetExtensionName(fxp) If Ucase(ext) = Ucase(e0) Then Set flist(i) = fso.GetFile(fxp) i = i + 1 End If Next For n = 0 to i-1 Set fxx = flist(n) fxx.name = fxx.name & "." & Lcase(e1) Next 'Case 3 msgbox "e1 = " & e1 Case Else i = 0 For Each fes in fx.Files fxp = fes.Path ext = fso.GetExtensionName(fxp) If Ucase(ext) = Ucase(e0) Then Set flist(i) = fso.GetFile(fxp) i = i + 1 End If Next For n = 0 to i-1 Set fxx = flist(n) dt = instr(fxx.name,".") Ndat = left(fxx.name,dt) fxx.name = Ndat & Lcase(e1) Next End Select If n=0 Then Msgbox "作業は実行されませんでした。!!　" Else Select Case StCe 'Case 1 Case 2 e0="---" Msgbox "." & UCase(e0) & " から ." & UCase(e1) & " への変換 完了!!　" Case 3 e1="---" Msgbox "." & UCase(e0) & " から ." & UCase(e1) & " への変換 完了!!　" Case Else Msgbox "." & UCase(e0) & " から ." & UCase(e1) & " への変換 完了!!　" End Select End IF End Function

このソースを○コヒペして作ったVBSファイルに、フォルダーをドラッグしてください。

上のウインドウが現れます。選択した拡張子ファイルのみ、変換後の拡張子ファイルへ一括して変更します。拡張子を消してしまったり、消えた拡張子を復活させることもできます。対象の拡張子がリストに無い場合は、他と同じように左右対称で直接、スクリプトファイルに行追加してみてください。

スクリプトファイルへドラッグしたフォルダー内に階層があったとしても、拡張子の変更は、直層のみを対象とします。

なお、コヒペして保存する際には、ファイル名を、「ExtensionChanger_GPy.vbs 」 にしてくださいませ。そうしないと作動しないようにしています。

PS : WindowsXP SP2 + IE6.0 で作りました。まだ十分なテストは行っていませんので、責任がもてません。いかなる場合も自己責任でお願い致しますね(汗)。

超適当 ReName (VBS)

こちら、フォルダーをドロップ一発でリネームしてしまう優れものVBS。 ※ただし直層のみです。たまに1000番から始まることある(汗;)。何回か繰り返すと1番からに戻ります。

Dim I,fso,PH,f,f1, fc, s, fs, fcs, f1s ,f2, fcc, f3, f2s,exn,fms,nam,a,xRan,NeNu,Moj Set objArgs = WScript.Arguments For I = 0 to objArgs.Count - 1 PH = objArgs(I) Next Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder( PH ) Moj=Array("A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z") Randomize ' 乱数ジェネレータを初期化します Do Until s = 6 '使用する文字数 xRan = Int((26 * Rnd) + 0) ' 1 ～ 26 のランダムな値を生成します。 If xRan <= 26 then NeNu = NeNu + Moj(xRan) End if s = s + 1 Loop fspec = f.path &"\" Set f = fso.GetFolder(fspec) Set fc = f.SubFolders a = 0 For Each f1 in fc a = a+1 f1.name = Lcase(NeNu) & "(" & a & ")" Next msgbox "サブフォルダー てきとうリネーム完了!!　"

・・と、もうひとつ。ファイルの拡張子を指定してリネームしてしまう優れものVBS。こちらも直層のみです。

Dim Shell,fs,fpath,exname,onlynum,f,fl,flpath,xlist(9999),ex,i,n,numd,named,dot,xRan, Moj, s, NeNu Set objArgs = WScript.Arguments For I = 0 to objArgs.Count - 1 PH = objArgs(I) Next fpath = PH exname = "jpg" Moj=Array("A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z") Randomize ' 乱数ジェネレータを初期化 Do Until s = 6 xRan = Int((26 * Rnd) + 0) ' 1 ～ 26 のランダムな値を生成 If xRan <= 26 then NeNu = NeNu + Moj(xRan) End if s = s + 1 Loop if fpath = "" then Wscript.Quit Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder(fpath) i = 0 For each fl in f.files flpath = fl.path ex = fs.GetExtensionName(flpath) If ucase(ex) = ucase(exname) then Set xlist(i) = fs.GetFile(flpath) i = i + 1 End if Next For n = 0 to i-1 Set fl = xlist(n) numd = "(" & n & ")" fl.name =LCase(NeNu) & numd & "." & Lcase(exname) Next msgbox "ご指定の拡張子ファイル てきとうリネーム完了!!　"

ファイル名変更は対象「初期値は "jpg"」にしています。 どちらも乱数でアルファベットを組み合わせ、()付き連番でリネームしています。※9999枚を超えると作動しません。定数値の変更が必要です。

度々同名で保存ができないような作業をしている場合に有効っすよね。 ← どんな ?!

文字数も変更可能なんですが、今のところは、同名ファイルやフォルダーは発生していないようなので最短希望で6文字初期値でした。

// PS : あまり必殺でもないのですが・・ ///////////
これまで必殺シリーズでアップしてきたアイテムと同様の取り扱いです。スクリプトの知識のある方のみ自己責任でお願い致・・

プチPhotoSTAGE(VBS)

頻繁にデジカメ使っていると、貯まるわ溜まるわ
　　　　　　　　　　　　　　　・・管理不能 ＼(-o-)／。

そこでVBSを駆使して作ってしまった。

名付けて 「 プチPhotoSTAGE "ずっこけ Ver" 」 だ。

デジフォトのあるフォルダーを ドラッグ するだけで、フォトを貼り付けたHTMLウインドウをポップする。

サイズはウインドウに応じて変わる。　IEのキャッシュやCPU、メモリー環境の関係で、１ページには６～２４枚程度が適当だと思う(初期値:12枚です。) ※冒頭 の P の値で変更可能です。

■ 動作条件: windowsXPsp2、IE6.0 最新UPDATE環境
４階層までは確認済みです。　

※不必要なボケボケ写真を選択後、一括削除することも可能です。・・でも、苦情などには対応できないっすので ^^;

Dim objArgs,fso,PH,PFF,exn,f,f1,fc,s,n,nx,Ex,P,G,ZZ,B,C,FFF,D,R,GPyURL,X,stream1,MF2,MyST,stm,ie P=12 '//...１枚のHTMLに表示する枚数 Set Shell = CreateObject("WScript.Shell") Dtp = Shell.SpecialFolders("Desktop") Set fso = CreateObject("Scripting.FileSystemObject") Set objArgs = WScript.Arguments For I = 0 to objArgs.Count - 1 PH = objArgs(I) Next Set f = fso.GetFolder( PH ) n = 0 nx = 0 Ex="jpg" Set fc = f.Files For Each f1 in fc exn = fso.GetExtensionName(f1) if Ex= Lcase(exn) then PF = InstrRev(f1.ParentFolder,"\") PFF = Mid(f1.ParentFolder, PF+1) n = n + 1 nx = nx + 1 if nx > P then nx = 1 end if s=s&"<img id=C" &nx& " onError=At('C" &nx& "') onmousedown=OpenIMG('C"&nx&"') onclick=sGy('C" &nx& "') ondblclick=sGx('C" &nx& "') src='" &f1.path& "'><input id='cx' Name='CiX' type='checkbox' value='" &f1.path& "'>" & VbCrLf End if Next Set fc = f.SubFolders For Each f1 in fc Set f1s = fso.GetFolder(f1.Path) Set fcs = f1s.Files For Each f2 in fcs exn = fso.GetExtensionName(f2) if Ex= Lcase(exn) then PF = InstrRev(f2.ParentFolder,"\") PFF = Mid(f2.ParentFolder, PF+1) n = n + 1 nx = nx + 1 if nx > P then nx = 1 end if s=s&"<img id=C" &nx& " onError=At('C" &nx& "') onmousedown=OpenIMG('C"&nx&"') onclick=sGy('C" &nx& "') ondblclick=sGx('C" &nx& "') src='" &f2.path& "'><input id='cx' Name='CiX' type='checkbox' value='" &f2.path& "'>" & VbCrLf End if Next Set fcs = f1s.SubFolders For Each f2 in fcs Set f2s = fso.GetFolder(f2.Path) Set fcc = f2s.Files For Each f3 in fcc exn = fso.GetExtensionName(f3) if Ex= Lcase(exn) then PF = InstrRev(f3.ParentFolder,"\") PFF = Mid(f3.ParentFolder, PF+1) n = n + 1 nx = nx + 1 if nx > P then nx = 1 end if s=s&"<img id=C" &nx& " onError=At('C" &nx& "') onmousedown=OpenIMG('C"&nx&"') onclick=sGy('C" &nx& "') ondblclick=sGx('C" &nx& "') src='" &f3.path& "'><input id='cx' Name='CiX' type='checkbox' value='" &f3.path& "'>" & VbCrLf End if Next Set fcc = f2s.SubFolders For Each f3 in fcc Set f3s = fso.GetFolder(f3.Path) Set fcn = f3s.Files For Each f4 in fcn exn = fso.GetExtensionName(f4) if Ex= Lcase(exn) then PF = InstrRev(f4.ParentFolder,"\") PFF = Mid(f4.ParentFolder, PF+1) n = n + 1 nx = nx + 1 if nx > P then nx = 1 end if s=s&"<img id=C" &nx& " onError=At('C" &nx& "') onmousedown=OpenIMG('C"&nx&"') onclick=sGy('C" &nx& "') ondblclick=sGx('C" &nx& "') src='" &f4.path& "'><input id='cx' Name='CiX' type='checkbox' value='" &f4.path& "'>" & VbCrLf End if Next Next Next Next if(fso.FolderExists( Dtp & "\DROPv" )) then Set MyF = fso.GetFolder( Dtp & "\DROPv" ) MyF.Delete(True) fso.CreateFolder(Dtp & "\DROPv") else fso.CreateFolder(Dtp & "\DROPv") End if Set MF = fso.CreateTextFile(Dtp & "\DROPv\GpyLIST.txt", True) MF.WriteLine( s ) MF.Close G = n/P ZZ = Int(G) B = n - P*ZZ FFF = Dtp & "\DROPv" Const ForReading=1, ForWriting=2, ForAppending=8 Set fu = fso.OpenTextFile(FFF & "\GPyLIST.txt", ForReading) For C = 0 To ZZ Set stream = fso.CreateTextFile(FFF & "\PhotoStage(" & (100+c) & ").htm", True) stream.Close Set stream1 = fso.OpenTextFile(FFF & "\PhotoStage(" & (100+C) & ").htm", ForAppending) stream1.WriteLine( "<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.0 Transitional//EN'>" ) stream1.WriteLine( "<html><head><title>PhotoStage(" & (100+C) & ")_byGUPPY.^<^</title></head>" ) stream1.WriteLine( "<link rel='stylesheet' href='./_MySTYLE.css' type='text/css'>" ) stream1.WriteLine("<BODY bgcolor='#111111' topmargin='0' leftmargin='0'>" ) stream1.WriteLine( "<script language='JavaScript'>" ) stream1.WriteLine("function At(idx) { //alert(idx); " ) stream1.WriteLine("document.images[idx].style.width='0'; document.images[idx].style.height='0'; }" ) stream1.WriteLine( "</script>" ) stream1.WriteLine("<FORM Name='GPyFM'>" ) if C = ZZ then D = B For X = 1 To D R = fu.ReadLine stream1.WriteLine( R ) Next GPyURL=GPyURL&"document.write( "&CHR(34)&"<tr><td><a class='GPymeu' href='PhotoStage("&(100+C)&").htm'>PhotoStage("&(100+C)&")</a></td></tr>" & CHR(34) &" );" & vbCrLf stream1.WriteLine( "<span id='x'><input type='button' id='db' value='▲ ImgDELTE ▼' Name=DELIMG title='選択したイメージを削除する。'></span></FORM>" ) stream1.WriteLine( "<Script Language='VBScript' src='_imgDELTE.VBS'></Script>" ) stream1.WriteLine( "<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 id='GPyLink'>" ) stream1.WriteLine( "<script language='JavaScript' src='_GPyURL.js'></Script>" ) stream1.WriteLine( "</TABLE></body></html>" ) stream1.Close else D = P For X = 1 To D R = fu.ReadLine stream1.WriteLine( R ) Next GPyURL=GPyURL&"document.write( "&CHR(34)&"<tr><td><a class='GPymeu' href='PhotoStage("&(100+C)&").htm'>PhotoStage("&(100+C)&")</a></td></tr>" & CHR(34) &" );" & vbCrLf stream1.WriteLine( "<span id='x'><input type='button' id='db' value='▲ ImgDELTE ▼' Name=DELIMG title='選択したイメージを削除する。'></span></FORM>" ) stream1.WriteLine( "<Script Language='VBScript' src='_imgDELTE.VBS'></Script>" ) stream1.WriteLine( "<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 id='GPyLink'>" ) stream1.WriteLine( "<Script Language='JavaScript' src='_GPyURL.js'></Script>" ) stream1.WriteLine( "</TABLE></body></html>" ) stream1.Close End if Next fu.Close Set MF2 = fso.CreateTextFile(Dtp & "\DROPv\_GPyURL.js", True) MF2.WriteLine( GPyURL ) MF2.WriteLine( "if(document.GPyFM.elements[0].value !== '▲ ImgDELTE ▼'){" ) MF2.WriteLine( "v='';" ) MF2.WriteLine( "for(a=0; a < document.GPyFM.CiX.length; a++) { v= v+','+document.GPyFM.elements[a].checked;" ) MF2.WriteLine( "if(!document.GPyFM.elements[a].checked) document.GPyFM.elements[a].checked=true; status= v; } }" ) MF2.WriteLine( "else { status='OVER RAN : DROPv内のリストを確認してみてくださいませ。!!'; }" ) MF2.WriteLine("function xLAY(){ obj='GPyLink'; obx='x'; Lef= parseInt('0'); Tp= parseInt('4');" ) MF2.WriteLine("if(document.all) { document.all(obx).style.pixelTop = parseInt(document.body.scrollTop + Tp);" ) MF2.WriteLine(" document.all(obj).style.pixelTop = parseInt(document.body.scrollTop + Tp); } }" ) MF2.WriteLine("window.onresize=xLAY;window.onload=xLAY;window.onscroll=xLAY;" ) MF2.WriteLine("function sGy(s){ i = s.slice(1,(s.lenght)); status=i" ) MF2.WriteLine("document.GPyFM.elements[i-1].checked = false;" ) MF2.WriteLine("if(document.all){ document.all(s).style.border='2 solid #FF20A6'; } }" ) MF2.WriteLine("function sGx(s){ i = s.slice(1,(s.lenght)); status=i" ) MF2.WriteLine("document.GPyFM.elements[i-1].checked = true;" ) MF2.WriteLine("if(document.all){ document.all(s).style.border='2 solid #000000'; } }" ) MF2.WriteLine("function OpenIMG(ev)" ) MF2.WriteLine("{ if(event.button==2) { " ) MF2.WriteLine("webA=window.open('','','width=400,height=220,scrollbars=yes,resizable=yes,menubar=no,toolbar=no,status=no');" ) MF2.WriteLine("webA.location.href = document.all[ev].src; } }" ) MF2.WriteLine("function ctmenuOff()" ) MF2.WriteLine("{ event.cancelBubble=true;" ) MF2.WriteLine(" event.returnValue =false; return false; } document.oncontextmenu = ctmenuOff;" ) MF2.Close Set MyST = fso.CreateTextFile(Dtp & "\DROPv\_MySTYLE.css", True) MyST.WriteLine( "img { width:100%; border:2 solid #000000; }" ) MyST.WriteLine( "#GPyLink { position:absolute; top:3; Right:0; }" ) MyST.WriteLine( "#x { position:absolute; top:1; left:3; }" ) MyST.WriteLine( "#db { width:125; height:28; border:1 solid #ffffff; font-size:15; background-color:transparent;" ) MyST.WriteLine( " color:#ff0000; border-color:#ffffff #FF408C #FF408C #ffffff; font-weight:900; }" ) MyST.WriteLine( " #cx { display:none; }" ) MyST.WriteLine( "A.GPymeu { text-align:center; width:110; padding:0 5 0 5; background-color:transparent; color:#f0f0f0; font-size:13px;}" ) MyST.WriteLine( "A.GPymeu:hover { text-align:center; width:110; padding:0 5 0 5; background-color:#ffdab9; color:#FF0066; }" ) MyST.WriteLine( "A.GPymeu:active{ text-align:center; width:110; padding:0 5 0 5; background-color:#f0f0f0; color:#999999; }" ) MyST.Close Set stm = fso.CreateTextFile(Dtp & "\DROPv\_imgDELTE.VBS", True) 'stm.WriteLine("<Script Language='VBScript'><!--" ) stm.WriteLine("Function DELIMG_OnClick(IMGSRC)" ) stm.WriteLine("Dim i, fms, fjx, ele, s, msg" ) stm.WriteLine("Set fms = document.forms(0)" ) stm.WriteLine("Set ele = fms.elements" ) stm.WriteLine("Set fso = CreateObject("&CHR(34)&"Scripting.FileSystemObject"&CHR(34)&")" ) stm.WriteLine("For Each fjx in ele" ) stm.WriteLine(" if fjx.checked = false then" ) stm.WriteLine(" s = fjx.value" ) stm.WriteLine(" if(fso.FileExists(s)) then" ) stm.WriteLine(" n=n+1" ) stm.WriteLine("' fso.DeleteFile(s)" ) stm.WriteLine(" end if" ) stm.WriteLine(" s = s & vbCrLf" ) stm.WriteLine(" end if" ) stm.WriteLine("Next" ) stm.WriteLine("if n=0 Or n="&CHR(34)&CHR(34)&" then" ) stm.WriteLine(" msgbox " & CHR(34) & "☆ チェック がありませんでした。　" & CHR(34) & "& vbCrLf" ) stm.WriteLine(" location.reload() ") stm.WriteLine("else ") stm.WriteLine(" msgbox n & "&CHR(34)&" 枚 削除 完了です。!　" & CHR(34) & " & vbCrLf & " & CHR(34) & " ? ReadProtectFile Is NoDel." & CHR(34) ) stm.WriteLine(" location.reload()" ) stm.WriteLine("end if" ) stm.WriteLine("End Function" ) 'stm.WriteLine("--></Script>" ) stm.Close Set ie= WScript.CreateObject("InternetExplorer.Application") ie.Navigate(FFF & "\PhotoStage(100).htm") ie.Width = 400 ie.Height= 300 ie.AddressBar = False ie.MenuBar = False ie.ToolBar = False ie.StatusBar = True ie.Visible = True

※ まずは、テキストエリア内のソースを○コピー、変更無しでメモ帳に貼り付ける。
次にメモ帳を " PhotoSTAGE.VBS " という名前に変更。
そこへデジフォトフォルダーをドラッグ。後は説明どおり・・

=O=O=// vUP履歴 //O=O=O=O=O=O=O=O=O=O=
06/07 PS : 削除後のイメージ枠を残らないように修正
06/04 PS : タイトルにページ番号が表示されるように修正
05/22 PS : 右クリックで原版表示機能も追加

Win の環境変数を得るの巻き

ハード的な要素も拡張するごとに変わっているし、IEやOSのバージョンで微妙に内容が変わってくるとさまざまな場面で不具合が発生することが時々ある。
今回は、そんな表面化されていないことが人目でわかってしまうというツールです。

Dim f,fso,Shell,Desktop,Favorites,Wsh,WScript,s,sx,cnt,i,br Set Shell = CreateObject("WScript.Shell") br = unescape("%0D%0A") Set fso = CreateObject("Scripting.FileSystemObject") Set Shell=CreateObject("WScript.Shell") Set Wsh = Shell.Environment("SYSTEM") Set f = fso.CreateFolder("./GpyFolder") CFD = f.ParentFolder Set fso = CreateObject("Scripting.FileSystemObject") Set f0 = fso.CreateTextFile(CFD & "\GpyFolder\navi.htm", True) f0.WriteLine "<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.0 Transitional//EN'>" f0.WriteLine "<html><head><title>USER</title></head>" f0.WriteLine "<style type='text/css'><!--" f0.WriteLine " body, a, font{ font-size:11pt; }" f0.WriteLine "--></style>" f0.WriteLine "<body bgcolor='#8FEBA0' onload='Obj()'>" f0.WriteLine "<script language='JavaScript'>" f0.WriteLine "function Obj() {" f0.WriteLine " cnt = 0; " f0.WriteLine " br = unescape('%0D%0A');" f0.WriteLine " document.write ('<html>'+br);" f0.WriteLine " document.write ('<style type=text/css><!--'+br);" f0.WriteLine " document.write ('body { color:#555555; font-family:monospace; position:relative; left:0px; top:0px; }'+br);" f0.WriteLine " document.write ('table { width:640; font-size:11pt; }'+br);" f0.WriteLine " document.write ('td, tr { border-bottom-color: Blue; boder-top-style:dotted; border-bottom-style:dotted; border-bottom-width:1; border-top-width:0; }'+br);" f0.WriteLine " document.write ('--></style><body>' + br);" f0.WriteLine " document.write( '<b>★ 現在のナビゲーターオブジェクト</b>'+ br);" f0.WriteLine " document.write( '<table border=0 cellpadding=2 cellspacing=0>'+ br);" f0.WriteLine " for(i in navigator)" f0.WriteLine " if((navigator[i] !==null)&&(i !=='appMinorVersion')&&(i !== 'plugins')&&(i !=='opsProfile')&&(i !=='userProfile')&&(i !=='mimeTypes')&&(i !=='userLanguage')&&(i !=='userProfile')){" f0.WriteLine " document.write('<tr><td width=160>'+i+'</td><td>'+navigator[i]+'</td></tr>'+br); }" f0.WriteLine " document.write('</table></body></html>'+br);" f0.WriteLine " document.close(); }" f0.WriteLine " </script>" f0.WriteLine " </body>" f0.WriteLine " </html>" f0.Close Set fso = CreateObject("Scripting.FileSystemObject") Set f1 = fso.CreateTextFile(CFD & "\GpyFolder\KankyoHensu.htm", True) s = "" s = s & ScriptEngine() & " Version " s = s & ScriptEngineMajorVersion() & "." s = s & ScriptEngineMinorVersion() & "." s = s & ScriptEngineBuildVersion() f1.Write "<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.0 Transitional//EN'>" & br f1.Write "<html>" & br f1.Write "<body>" & br f1.Write "<style type='text/css'>" & br f1.Write "body { color:#555555; font-family:monospace; position:relative; left:0px; top:0px; }" & br f1.Write "table { width:640; font-size:11pt; }" & br f1.Write "td, tr { border-bottom-color: Blue; boder-top-style:dotted; border-bottom-style:dotted; border-bottom-width:1; border-top-width:0; }" & br f1.Write "</style><body scroll='auto'>" & br f1.Write "<b>★ ご使用のパーソナルコンピューターの環境変数</b>" & "<br>" f1.Write "<table border='0'>" & br f1.Write "<tr><td width='160'>CPU_個数</td><td>" & Wsh("NUMBER_OF_PROCESSORS") & "</td></tr>" & br f1.Write "<tr><td>CPU_種類</td><td>" & Wsh("PROCESSOR_ARCHITECTURE") & "</td></tr>" & br f1.Write "<tr><td>CPU_ID</td><td>" & Wsh("PROCESSOR_IDENTIFIER") & "</td></tr>" & br f1.Write "<tr><td>CPU_レベル</td><td>" & Wsh("PROCESSOR_LEVEL") & "</td></tr>" & br f1.Write "<tr><td>CPU_Version</td><td>" & Wsh("PROCESSOR_REVISION") & "</td></tr>" & br f1.Write "<tr><td>オペレーティング</td><td>" & Wsh("OS") & "</td></tr>" & br f1.Write "<tr><td>プロンプト</td><td>" & Wsh("COMSPEC") & "</td></tr>" & br f1.Write "<tr><td>PATH 環境変数</td><td>" & Wsh("PATH") & "</td></tr>" & br f1.Write "<tr><td>実行可能ファイル</td><td>" & Wsh("PATHEXT") & "</td></tr>" & br f1.Write "<tr><td>コマンドプロンプト</td><td>" & Wsh("PROMPT") & "</td></tr>" & br f1.Write "<tr><td>システムディレクトリ</td><td>" & Wsh("WINDIR") & "</td></tr>" & br f1.Write "<tr><td>一時ファイル</td><td>" & Wsh("TEMP") & "</td></tr>" & br f1.Write "<tr><td>一時ファイル</td><td>" & Wsh("TMP") & "</td></tr>" & br f1.Write "</table><br>" & br 'f1.Write WScript.ScriptName & "<br>" 'f1.Write WScript.Name & "<br>" 'f1.Write WScript.FullName & "<br>" f1.Write "<b>★ 参照可能なシステムデレクトリー</b>" & "<br>" f1.Write "<table border='0'>" & br f1.Write "<tr><td width='160'>Myf1s</td><td>" & Shell.SpecialFolders("Myf1s") & "</td></tr>" & br f1.Write "<tr><td>Recent</td><td>" & Shell.SpecialFolders("Recent") & "</td></tr>" & br f1.Write "<tr><td>SendTo</td><td>" & Shell.SpecialFolders("SendTo") & "</td></tr>" & br f1.Write "<tr><td>Favorites</td><td>" & Shell.SpecialFolders("Favorites") & "</td></tr>" & br f1.Write "<tr><td>Desktop</td><td>" & Shell.SpecialFolders("Desktop") & "</td></tr>" & br f1.Write "<tr><td>Programs</td><td>" & Shell.SpecialFolders("Programs") & "</td></tr>" & br f1.Write "<tr><td>StartMenu</td><td>" & Shell.SpecialFolders("StartMenu") & "</td></tr>" & br f1.Write "<tr><td>Startup</td><td>" & Shell.SpecialFolders("Startup") & "</td></tr>" & br f1.Write "<tr><td>Fonts</td><td>" & Shell.SpecialFolders("Fonts") & "</td></tr>" & br f1.Write "<tr><td>Templates</td><td>" & Shell.SpecialFolders("Templates") & "</td></tr>" & br f1.Write "<tr><td>NetHood</td><td>" & Shell.SpecialFolders("NetHood") & "</td></tr>" & br f1.Write "<tr><td>PrintHood</td><td>" & Shell.SpecialFolders("PrintHood") & "</td></tr>" & br f1.Write "<tr><td>AllUsersDesktop</td><td>" & Shell.SpecialFolders("AllUsersDesktop") & "</td></tr>" & br f1.Write "<tr><td>AllUsersStartMenu</td><td>" & Shell.SpecialFolders("AllUsersStartMenu") & "</td></tr>" & br f1.Write "<tr><td>AllUsersPrograms</td><td>" & Shell.SpecialFolders("AllUsersPrograms") & "</td></tr>" & br f1.Write "<tr><td>AllUsersStartup</td><td>" & Shell.SpecialFolders("AllUsersStartup") & "</td></tr>" & br f1.Write "</table><br>" & br & br f1.Write "<iframe height='240' marginheight='0' marginwidth='0' src='navi.htm' style='CURSOR:nw-resize' name='nav' width='640' scrolling='no' frameborder='0'></iframe>" & br f1.Write "<br><b>★ SCRIPTエンジンは、<font color='#0000FF'>" & s & "</font> でした。</b>" & "<br>" & br f1.Write "</body></html>" & br f1.Close

このテキストエリアのソースを丸コピーし、メモ帳にペースト、名前、適当でいいんですが「環境変数.VBS」とかにして、ダブルクリックすると動作します。動作といっても、GpyFolder ってフォルダーを作って、そこへ２枚のHTMLファイルを作るだけ。その中の 「KankyoHensu.htm 」 をクリックして開くと、使用環境での下表項目がすべて表示される。

「セキュリティ保護のため・・」っていうのが表示されますが、気にせず「ブロックコンテンツを許可」にしてください。　そうしないと作動しないです。

一応、XPで作りました。9X系では試してないです。動作保障はしません。自己判断でお使いくださいませ。それでは、例のごとく、くれぐれお気をつけて・・ ＼(-o-)／

★ ご使用のパーソナルコンピューターの環境変数

CPU_個数
CPU_種類
CPU_ID
CPU_レベル
CPU_Version
オペレーティング
プロンプト
PATH 環境変数
実行可能ファイル
コマンドプロンプト
システムディレクトリ
一時ファイル

★ 参照可能なシステムデレクトリー

MyDocuments
Recent
SendTo
Favorites
Desktop
Programs
StartMenu
Startup
Fonts
Templates
NetHood
PrintHood
AllUsersDesktop
AllUsersStartMenu
AllUsersPrograms
AllUsersStartup

★ 現在のナビゲーターオブジェクト

appCodeName
appName
cpuClass
platform
systemLanguage
appVersion
userAgent
onLine
cookieEnabled

★ SCRIPTエンジンは、VBScript Version--- でした。

07GWsp テキスト変換ツールです。

※入力エリアはダブルクリックでクリアできます。
☆TXTコンブ

※主用途はテキスト変換。コピペで、消えた改行マークを復活させることもできるょ

■ よく使うテキスト変換例です。(必要に応じて増えます。)
< → &lt;	※HTMLタグの左側
> → &gt;	※HTMLタグの右側
¥ → &yen;	※HTMLで使うパス文字です。
¥ → ¥¥	※ソース内で使うパス文字です。 ¥ マークを / へ変更する際は、使用前テキストは ¥¥　としないとエラーとなります。特殊文字のさだめのようです。m(_ _)m
" → CHR(34)	※ダブルクォーテーションを文字コードで記述するさいに・・

現在テスト段階です。パグやリクエストなどありましたらお気軽に

///おまけ : テキスト暗号化ツール ////////////

※「えすけーぷ」すると文字化化けしますけど、これは一定の規則に従っているもので、「ＵＮえすけーぷ」ボタンで元に戻すことができます。もっとも簡単な暗号化機能ですね(汗)

↑ ｺﾝﾅﾄｺﾛﾆﾊﾘﾂｹﾃﾀﾗﾔｸﾆﾀﾀﾈﾀﾞﾛー(-。-;)y-゜゜゜

GWスペシャル ソース大公開 !(^^)!

<HTML><HEAD><TITLE>グッピー</TITLE></HEAD>
<style type="text/css"><!--
#tab0{ background-color:transparent; position:relative; top:20; left:0; z-index:100; border:solid #8800ff 0px; }
#td0{ font size:11; color:#bf0099; background-color:#efefff; }
#td1{ font size:12; text-align:center; border:0 solid #; width:14; padding:0 0 0 0;}
#sn{ font-weight:100; color:#95864A; text-decoration:underline; font size:15; background-color:transparent; padding:0 0 0 0; position:absolute; bottom:25; left:0;}
//--></style>

<SCRIPT LANGUAGE="VBScript"><!--
Dim wDy,WDN
m01_2 = # 1, 1, 2007#
m07_3 = # 7, 1, 2007#
m09_3 = # 9, 1, 2007#
m10_2 = #10, 1, 2007#

mDe = Array(m01_2, m07_3, m09_3, m10_2)
mMem = Array("成人の日","海の日", "敬老の日", "体育の日")

For i = 0 To 3
Mm = mDe(i)
wDy = Weekday(Mm)

if i=0 Or i=3 then
if wDy = 1 then x = 9
if wDy = 2 then x = 8
if wDy >= 3 then x = 8+(8-wDy)+1
else
if wDy = 1 then x = 16
if wDy = 2 then x = 15
if wDy >= 3 then x = 15+(8-wDy)+1
end if

if i=0 then
seijin= Month(Mm)&","&x&" "& mMem(i)
sx=x
end if
if i=1 then
umi = Month(Mm)&","&x&" "& mMem(i)
ux=x
end if
if i=2 then
keiro = Month(Mm)&","&x&" "& mMem(i)
kx=x
end if
if i=3 then
taiiku= Month(Mm)&","&x&" "& mMem(i)
tx=x
end if

WDN = WDN & Month(Mm)&"月" & x &"日は「" & mMem(i) &"」　"
Next
--></SCRIPT>

<script language="JavaScript"><!--
nDate = new Date();
day = new Array("日","月","火","水","木","金","土");
var ttH = nDate.getHours();
var ttM = nDate.getMinutes();
tH = "0"+"0" + ttH;
tH = tH.substring(tH.length-2,tH.length);
tM = "0"+"0" + ttM;
tM = tM.substring(tM.length-2,tM.length);
//defaultStatus
document.title = "2007年 なまけものカレンダ /// " + (1+nDate.getMonth()) + "月" + nDate.getDate() + "日(" + day[nDate.getDay()] + ")　" +tH+ ":" +tM;

function theCalendar(theYear,theMonth)
{ var wrtMonth= new Array(0,31,28,31,30,31,30,31,31,30,31,30,31);
var wrtDate = new Array("日","月","火","水","木","金","土");
//var wrtDate = new Array("sun","mon","tue","wed","thu","fri","sat");
var wrtColor= new Array("#ff3333","#33333","#333333","#333333","#333333","#333333","#3333ff");
var special = new Array("1","1", "1",sx, "2","11", "3","21", "4","29", "5","3", "5","4", "5","5", "7",ux, "9",kx, "9","23", "10",tx, "11","3", "11","23", "12","23");
var spmemo = new Array('元日','成人の日','建国記念日','春分の日','昭和の日','憲法記念日','みどりの日','子供の日','海の日','敬老の日','秋分の日','体育の日','文化の日','勤労感謝の日','天皇誕生日','振替休日');

var specCol = "#ff0000";
var theDate = new Date();
var theCurrentMonth = theDate.getMonth()+1;
if(theYear >= 0){ theDate.setYear(theYear);
theDate.setMonth(theMonth-1); }
theYear = theDate.getYear();
theMonth= theDate.getMonth()+1;
if(theYear < 2000) theYear += 1900;
if(((theYear % 4 == 0) && (theYear % 100 != 0)) || (theYear % 400 == 0)){ wrtMonth[2]++; special[1]++; special[3]++; }
theDate.setDate(1);
var count = theDate.getDay();
var day = 0;
var date = 1;
var flag = false;
var hFlag = false;
var i,j;

with(document){
write("<table id=tab0><tr>");
write("<span id=sn><a href=h"+"ttp://blog.so-net.ne.jp/petamun target=top>h"+"ttp://blog.so-net.ne.jp (＠_＠;)</a><a href='#'>　</a>Calendar "+theYear+"<font size=1>年</font> "+theMonth+"<font size=1>月</font></span>");

for(i=1; i <= wrtMonth[theMonth]+count; i++){ hFlag = false;
if(day >= count){ wrt = ""+date;
for(j=0; j<15; j++){ if((special[j*2] == theMonth) && (special[j*2+1] == date)){
wrt ="<a title="+spmemo[j]+"><b>" + wrt.fontcolor(specCol)+"</b></a>";
if((day%7) == 0) flag = true; hFlag = true; }} date++; } else { wrt="　"; }

if((hFlag == false) && flag == false) { wrt = wrt.fontcolor(wrtColor[(day%7)]); }
if((day%7 == 1) && flag == true){ wrt = "<a title="+spmemo[15]+">"+wrt.fontcolor(specCol)+"</a>"; flag = false; }

wd = (day%7);
if(wd == 0) wDat=wrtDate[wd].fontcolor("#ff3333");
if(wd == 6) wDat=wrtDate[wd].fontcolor('#3333ff');
if((wd > 0)&&(wd < 6)) wDat=wrtDate[wd].fontcolor('#777777');

if((nDate.getDate() == date-1) && (1+nDate.getMonth()==theMonth)) {
write("<td id=td1><span style='font size:8;'>"+wDat+"</span><br><span style='text-decoration:underline'>"+wrt+"</span></td>"); }
else { write("<td id=td1><span style='font size:8;'>"+wDat+"</span><br><span style=''>"+wrt+"</span></td>"); } day++; }
write("</tr></table><br>"); } }

for(Y=1; Y <= 1; Y++) { for(M=1; M <= 12; M++) theCalendar(2006+Y,M); }
defaultStatus = WDN;
//--></script>
<body>
</body>
</html>

プロトタイプの実行ソースでしたが、思索中のものですが、来年うるう年なんですけど設定すると祭日が１日ずれたりしてまして、まったく・・・・。
まだまだ、かなーりの変更が必要そうです。^^;

・・で、ブログ上で実行するにはちょっと難ありだったので、ポップアップタイプとして大幅に変更していますが、・・でよければ実行例はこちちらですので、見てやってくださいませ。
→　http://blog.so-net.ne.jp/petamun/2007-05-05-1

GWスペシャル なまけものカレンダ 実行例

前回のはみだしは危険なので変更しました。m(_ _)m

　今回は２ページにわたりましたが、GWスペシャル
　　　　　　　　　　　　オリジナル 「なまけものカレンダー」でした。
　　　　　　　　　　　　　　　　　　　　　　　　　　　　φ(..)メモメモ

GWのせいかなぁ ? ちょっと重さを感じているのですが・・
カーソルをのせると祭日もバブルします。本日もアンダーラインでわかります。
ポップアップカレンダー ちゃんと表示されているでしょうかぁ。?

残念なことに１年分しか作れなかったので、毎年作りなおさないといけないようです。お勉強不足です。・・でも、多少変更加えれば役立つアイテムになりそうです。ﾊｲφ(..)メモメモ

PS : かなり変更してますが、以前のソース大公開 !(^^)! っす。
http://blog.so-net.ne.jp/petamun/2007-05-05

パグだらけですが、ご意見、ご感想をお待ちしています。by管理人

年

　 ================================================ PS : 5月10日バージョンアップです。 表に入れてみると動作が良くなりました。今度は表付きの縦置きにしてみました。

 1999年  2000年  2001年  2002年  2003年  2004年  2005年  2006年  2007年  2008年  2009年  2010年  2011年  2012年

※まだ作りかけですが、日付や祭日は前回のような間違いはないと思いますが・・。去年と今年と来年しか確かめられなかったのだ。(-_-;)

JavaScriptのデータベースを作るVBS

'------------------------------
Dim fso,f,f1,fc,s,n,ps,NwStr,fph,exn,pfLen,Hp,nStr,UserExn
UserExn="jpg"

Function Rep(patrn, St,stx)
Dim A
Set A = New RegExp
A.Pattern = patrn
A.IgnoreCase = True
A.Global = True
Set C = A.Execute(stx)
For Each B in C
Rep = A.Replace(stx, St)
Next
End Function

Set objArgs = WScript.Arguments
For I = 0 to objArgs.Count - 1
ps=objArgs(I)
Next
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(ps)
Set fc = f.Files
n=-1
For Each f1 in fc
exn = fso.GetExtensionName(f1)
if Lcase(exn) = Lcase(UserExn) then

pfLen=InStrRev(f1.ParentFolder,"¥")
fph=f1.Path
NwStr = Left(fph, pfLen)
fph = Rep("¥¥", "/",fph)
hnp=Len(fph)-Len(NwStr)
Hp=Right(fph,hnp)
n=n+1

s = s & "jsDB[" & n &"]=" & Chr(34) & "./" & Hp & Chr(34) & VbCrLf
end if
Next
nStr = Left(Hp, Len(f.Name))
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.CreateTextFile(f.ParentFolder&"¥"&nStr&"_jsDB.js",True)
f1.WriteLine (s)
f1.Close

MBX = Msgbox ("　･･･ 合計 " & n+1 & " 個 の対象ファイルがありました。" & VbCrLf & VbCrLf & f.ParentFolder & "¥" & nStr & "_jsDB.js　" & VbCrLf & VbCrLf &" への配列保存が完了しました。!!", 64,"■ JavaScriptのデータベース作成 by グッピー")
'---------------------------------

・・・以上をマルコピして 「 データベース作成.VBS 」ファイルに貼り付けて保存します。フォルダーをこのVBSファイルへドラッグすると、直層の "jpg" ファイルのみを検索し、配列し、そのフォルダ名でJavaScript のデータベースを作ってくれます。

このデータベースは、HTMLから呼び出しできるので、構文中で、例えば・・・

‹html›
‹body onload="chgBG()"›
‹SCRIPT Language="JavaScript"›‹!--
jsDB = new Array();
n=-1;
timerID=0;
function chgBG()
{ n = n+1;
var jsDBn=jsDB[n];
if(jsDBn == undefined ) status="更新すると再スタートしますよ。";
else status="★ " +n+" :　"+jsDB[n];

BG.innerHTML = "‹img src="+jsDB[n]+" name=myIg ›";
clearTimeout(timerID);
timerID = setTimeout("chgBG()",3000); }
// --›‹/SCRIPT›

‹span id=BG›‹img src="hanayoridango.jpg" name=myIg ›‹/span›
‹Script Language='JavaScript' SRC='./○○○_jsDB.js'›‹/Script›
‹/body›
‹/html›

のようにすると順番に表示するビューアが完成します。timerIDによるもっとも簡単な構造です。エンドレスでループさせるにはもっと工夫が必要になりますですよね。ﾊｲ!!　
　　　　　　　　　　　　　　　　　　　　　　　　グッジョブ (^0_0^)
　・
　・
　・
　・
　・
として終わってしまうのもなんですので、では簡単に・・
undefined の条件文のところを

{ status="更新すると再スタートしますよ。"; }
から
{ window.location.href = window.location; }

とするだけでも、永久にループしてくれますよね。　(；一_一)
　※くれぐれお気をつけて・・

デジフォト庫を作成するVBS

'いつもの必殺スクリプトです ^^;　このまま、拡張子 vbs ファイルにコピぺして、適当なフォルダー内でクリックしてみてくだいませ。

'======================================
Dim fso, f,txt1,mDat
mDat = Now
xDat = Rep(":", ",",mDat)
wDat = Rep("/", ",",xDat)
tDat = Left(wDat,4)
Inp = InputBox("西暦が正しければＯＫボタンでリネームを開始します。!","☆ _DigiPhoto庫つくりまーす!!",tDat)

Set fso = CreateObject("Scripting.FileSystemObject")
txt1 = Inp & "_DigiPhoto庫"
Set f = fso.CreateFolder(txt1)

Set f = fso.CreateFolder("./"+ txt1 +"/1_January")
Set f = fso.CreateFolder("./"+ txt1 +"/2_February")
Set f = fso.CreateFolder("./"+ txt1 +"/3_March")
Set f = fso.CreateFolder("./"+ txt1 +"/4_April")
Set f = fso.CreateFolder("./"+ txt1 +"/5_May")
Set f = fso.CreateFolder("./"+ txt1 +"/6_June")
Set f = fso.CreateFolder("./"+ txt1 +"/7_July")
Set f = fso.CreateFolder("./"+ txt1 +"/8_August")
Set f = fso.CreateFolder("./"+ txt1 +"/9_September")
Set f = fso.CreateFolder("./"+ txt1 +"/10_October")
Set f = fso.CreateFolder("./"+ txt1 +"/11_November")
Set f = fso.CreateFolder("./"+ txt1 +"/12_December")

'CreateFolderDemo = f.Path
WScript.Echo f.Path & vbCrLf & vbCrLf & "　＼(◎o◎)／！正常に完了したものと思います。!!"

Function Rep(patrn, St,stx)
Dim A
Set A = New RegExp
A.Pattern = patrn
A.IgnoreCase = True
A.Global = True
Set C = A.Execute(stx)
For Each B in C
Rep = A.Replace(stx, St)
Next
End Function
'======================================

'◇ 使用上のご注意　ソース改変、再配布、自由ですが、全て自己責任で行ってください。
' (なお、再配布の際は、URLや署名等も変更しておいてください。)

'◇ このスクリプトは、Windows XP で動作確認していますが、一切の保障をしかねますので、

'◇ ソース内容を確認の上、安全とご判断出来た場合のみ、使用するようにしてくださいませ。

'◇ クリックすると、同フォルダ内に各月フォルダを一括して作成してくれます。

'初期配布元 http://blog.so-net.ne.jp/petamun/
'管理人 グッピー
'最終更新日 0:03 2007/01/27

EE は Win32API でやろう

略して VC++のEE ですが、その後も リァレンスの関係で前進できそうもないぞぉ(汗)。　実行環境がないとアプリ作っても動作しないみたいだし・・

なんだかなーって思っていると、Simple is Be***　( ttp://elku.at.infoseek.co.jp/main.html ) のページに漂着した。

　

　ほーーっ!!　ネイティブ Win32 アプリケーション っていうんですか。?

コンソールプログラミングはできるようになっていたので、そちらで Windows.h 勝手に使ってって思ってたのたですよね。

・・が、Platform SDK を追い討ちインストールすれば、といっても、環境パスなんかの初期設定やコメントアウト行なんかの設定もしてやらなければならないようですが、簡単にWindowsアプリケーション の作成可能だとか。?

これだと、Windows上であれば動作するはずなんだ。　まっ、でも喜んでる場合じゃない、EE同様、言語や文法自体も、組み方もとてつもなく不透明です。

そうこうしているうちに、(=^・^=) さまとかでやってる Win32 API コードが使えるらしいという情報、・・んーっ、ようわかりませんワ。!!

何とか環境設定はできそうですが、そこからどうやって進べば良いのだろ。すぐ動く方が良いから、 Win32APIでやるべきかなぁー。

しっかしー、時間掛かりますね～。教科書は挫折分以外はほとんど目を通してますが、ぜんぜん上達できないですよね。これ。

　・・・読まずに買った自分が悪いのか、・・これじゃ、ﾄﾞﾛﾎﾞｰ だぁちゅうのぉー!!。　・だねっ!! (>_<)

ビューアを変更しおうー

近年、デジカメの画素数が大きくなってきてるので、Windowsデェフォルとのビューアでは、「 画質確認なんかが難しくなってる。! 」　・・って思うことありませんかー。?!

そんなときは、右クリックです。

フリーとかの実寸ビューア探してJPGクリック時に開くアプリーケーションとして設定変更してしまうという手もあるけど、今回は、右クリックから手っ取り早く、InternetExplorer で開くことにしますね。

それから、もうひとつ、IEのインターネットオプションで設定変更します。これしないとデェフォルビューアと同じだからね。　[ イメージを自動的にサイズ変更する ] のチェックを外すだけ。

うちでは、[ イメージツールバー ] と [ 滑らかにする ] も外すことにしてます。すっきりするから・・
完全にIEにしてしまうと次のイメージもクリックしないといけないので、やや役不足なんですけどねー。

・・そうだぁ !! ExpressEdition 記念すべき、第一作目は、ボタン一発で実寸表示に切り替わるイメージビューアにしようかなぁー。

トラクターでお婆ー労働

突然、クラス っていわれてもね。幼稚園の頃は、確か、スミレ組み だったたっけかなー。

続いて、コンストラクタでオーバーロード　　

　　　　　　　　　　　　　・・何っ ? 「 トラクターでお婆ー労働 !! 」 　(酷使してるって思うよね。!)

これら C++ のテクニックのひとつだと思うんですけど、何かサンプルコードが貧困で何を伝えたいのかなどさっぱりですね。

更にダメ押しの、デストラクタ とかもすごいよね。 デスってやっぱり 死 とか直感してしまう(汗)。　

Windowフォームの上にコントロールやメニュー実装するのはすごく簡単になってるみたいだけど、やーぱり、先にコード覚えとかないと進みにくいですね～。

今日も無駄な時を過ごしてしまった。こんなことしてなければ、もっと良い時間過ごせるはずなのにと、やや自尊心気味なんですけど、「・・・お婆ー労働」の章、読み始めると、脳みそが睡眠状態に陥り、多分、爆睡、目が覚めると先ほどでした (・。・;　。 最近、時間には縛られてないけど最悪です。

・・そうそう、暇って言うと、ほんとに超暇なんで、気分直しにでも、NPOなんかのボランティア、 「サマーボランティア2006」 ってのやってみようかと考えてたのですが、県の登録窓口まで行って考え直した。何か不透明で進めなかった。 (-_-メ) 関係の方なんかはお断りとかって注意書きもあって、安心は安心なんだけどねー、・・・それって銭湯かよ～。!!　・・・サウナだろぅ !?

C××の変数宣言とは何ぞや

どちらの関連書籍を読んでいても、フォームやコントロールの実装時に name(名前)を必ず変更してますが、これはデェフォルトのままのがプログラミングがし易いと思うんですよねー。後で見直しし易いしね～

これって初心者にとっては、コントロール名だけではないんですぅ。変数もそう。そのまま数値で使った方が自分的には分かり易いことが多いんだぁ。まぁ人それぞれだと思うけど・・

今のところは、普通に メソッド とかと間違えてるんですよねー。 対策としては、アンダーバーなんかもありなんでが、乱用していると、コードというより HTMLタグ に見えてきてかっこ悪いんですぅ。

まっ、まだ変数宣言もあやふやなワタクシですが、ペラペラペラ ﾍﾟﾍﾟﾍﾟｯ･･･ の初感でした。嗚呼っ、スクリプトが懐かしい。

リファレンスはﾅｲﾝｶｰｲ

「教科書」には失望していたんですが、新たに追加注文していた書籍が今しがた届いた。

ペラペラペラペペぺ・・。　ｶﾞｶﾞｶﾞｯ　がーーーん(ToT)/~~~

　馬の耳に念仏、うまのみみにねんぶつ、ウマノミミニネンブツ、ｳﾏﾉﾐﾐﾆﾈﾝﾌﾞﾂ････

この分だと本、天井に付いても "Welcom to CV++ 2005" からは進歩できそうにないワイ (涙)。

　

WindowsScriptHostに付属していたような専用のリファレンスとかがあれば、もう少しは上達できそうなんだけどねー。　ExpressEdition には付いていないようですよね。

ヘルプ引いても MSDN 開いても何か分けの解らない怪文書ばっかり。混乱するだけだねっ。

　多分、製品版もあんまり変わらないんだろうなー。

VC++5.0 に挫折して以来の大挫折を味あわさせられてますけど、今回入手の書籍２冊、「１週間で諦められる ＶＣ＋＋プログラミング閉門」だったようだ。

なーんか読んでると腹煮えてきたワー。　・・もうやめる。 　　・・絶対、辞めてやるぅー。!!

※日経BP (MicrosoftPress)　の書籍はなんでアンナンばっかりなんだろねー。あかんねー。振り返ると馬っ鹿高いの過去に５冊も買ってるけど、ほとんど読まずに手放してる。

Express Edition パグ ?

読み始めて３日目、やっとの思いで、第５章拡張サンプルが予定通りに動いてくれた(嬉)。

・・が、しかし、先日も記載したとおり、パグが気になっている。

言語自体やその記述規則も理解できていないので、まずは、コピペが動いてくれないと動作の確認もできないのだ。

なのに、イベントコードの最初の部分は、デザインフォームからダブルクリックで作らないとアウトになっていることがあるみたいだ。削除や変更時も同様。

この関連の誤動作が非常に多くある。もちろん初感だし、初心者にありがちなミスだとは分かってはいても、進みにくいし困る。

コード中のメソッドなどの検索作業や範囲指定のディバックなどもまだ深くて直感的だとはいい難い。クラスとか変数宣言とか必ず必要なのでやっぱ難しいね。C++。 現状ではメモ帳ライクなコンパイルの方がやや快適といえてると思う。　・・これは、コードの組み立て上の理解度が原因のひとつだね。

Professional Editionは、お高くてテリトリ外だし、一応、Standard Edition 予定はあるけど、MFCやATL ? の差だけって聞いてるのに、こんなんだったら、やっと覚えた頃には時代もガラリと変わってるなんてありそうね。 ・・損しそう。 ・・・泣けるぜ。!!

早速、手抜いて、今日は第６章に突入だけど、
Express Edition もうちょっと改良して、Endless Edition なんてのも面白いよねー。(>_<)

　

PS : ところで第５章のコード、いったい、どうなってるのかさっぱりやデェーーーーーー
２、３日ツールの操作教わるだけに　２千円以上も取られてたりすると将来的にやってられなくなるぞ。最小限単位のコードサンプル集とかの方が確実そうだおぉー。

　

そういえばC++関係の有名どころの書籍は既に 12、3札ほど買ってる。中には既に手放しているもものもあるけど、それらもほとんど役立たずな理由も最近の開発にある。　

　

今回は、新しいプログラム言語は、 CLI こと Common Language Infrastructure ということですが、VC++5.0/6.0/.NET/　ときて　Express だろぉ。何ーんも分からへん。 普通に前進できる手立てはないものか・・・

PlatformSDKは何の役に立つ

せっかくカテゴリ作ったのに書くことないなーって思っていると、やっと Visual C++ 2005 ExpressEdition の話がでそう。

インターネットの書き込みとか読んでると、PlatformSDK Server2003 SP1 とかと一緒に使うと、Windowsアプリケーションも作れるよなんてのが点在していた。

これ意味が分からないんです。　Windows上で作成したものは、全部 Windowsアプリケーションじゃないかと思えている。　PlatformSDK がなくても ウインドを持たないコンソールアプリも Win32でちゃんと作れてるみたいだけど、別段の制限とかあるんだろうか。?

そう思っていると、定番　「ハローPC 」でさえ 、Visual C++ 2005 ExpressEdition をインストールしていないパソコン環境では動かないことが判明した。

・・教科書ももの足りねー。とわ言うものの、勿体無い気もしてるのですが、お次は、「 ひと目でわかる・・・ 」 ってのを狙っているのでした(汗)。

　　

　　

PS : プロジェクトの開始時にノートンセキュティに引っかかっているみたいっすね、これ !!。ウイルスにはなかなか反応しないのにスクリプトやこういうのは確実に反応するんですよねー。(-"-)

　　

コード書き換えても、以前にコンパイルしていた内容で実行されてるし、既に詳細不明なパグらしきも・・・。先が思いやられそぉ (ーー;)

　　

↑ この件、既に知られてるパグらしいです。キリのいいところでステップ分けして別名保存なんかしておくと、最悪時に最初から作り直さなくてもいいですよね。イベントクリックして作ったコードをテスキトベースで直接削除すると以降コンパイルエラーなっているようです。コードの消し方が、別にあるらしいけど、鈍いパソコンだと何か正常に動いていないみたいです。

複雑なコード記述したり、考えながらのプログラミングには向いてないといった様子なのに、完成してるコードをコピペしたりすると動かない。誤動作が頻繁に発生してるみたいだぞ。