【VBScript】WSHについて話し合うスレ【JScript】 (181ﾚｽ)
上下前次1-新
34: 2020/03/01(日)21:46 ID:aiS1BF+G(2/2) AAS
> 33 続き
〇〇.bat
@if(0)==(0) echo off
cscript.exe //nologo //E:VBScript "%~f0" %*
echo コピー元フォルダは %srcFolder%
echo コピー先フォルダは %dstFolder%
robocopy "%srcFolder%" "%dstFolder%" /mir /r:0 /w:0 /dcopy:t /sec /fft /xjd /xjf /xf *.lnk
goto :eof
@end
Option Explicit
SetFolderName()
Wscript.Quit()
sub SetFolderName()
dim wshEnv
set wshEnv = WScript.CreateObject("WScript.Shell").Environment("Volatile")
wshEnv.item("srcFolder") = GetFolderName("コピー元のフォルダを指定してください"&vbCRLF&"例 C:\Users\ユーザー名")
wshEnv.item("dstFolder") = GetFolderName("コピー先のフォルダを指定してください"&vbCRLF&"例 D:\")
end sub
function GetFolderName(strQ)
dim wshShell, wshPath
dim PathName
set wshShell = WScript.CreateObject("Shell.Application")
set wshPath = wshShell.BrowseForFolder(0, strQ, &h1)
if not wshPath Is Nothing Then PathName = wshPath.Items.Item.Path
GetFolderName = PathName
End function
35(1): 2020/03/02(月)00:08 ID:TxSplURq(1/2) AAS
>>33
それは JScript をバッチに埋め込むときに使うテクニック。
エンジンに VBScript を指定してたら、そりゃあ1行目の1文字目でエラーになる。
36: 2020/03/02(月)00:09 ID:TxSplURq(2/2) AAS
>>33
「VBScript を混在させる技」でググって出てくるページを参考にすると良いと思う。
（この板URLが貼れないっぽい？）
でも、このバッチはドラッグ＆ドロップで使った時に特定の文字（キャレットや半角空白等）を含むファイル名を正しく処理できるんかなぁ…？
試したら教えて。
37: 2020/03/02(月)17:20 ID:p3CUZnH+(1) AAS
>35 36
ありがとうございます。
これの仕組むをざっと調べた限り条件コンパイル？
みたいな感じで、jscriptが、@if〜@endまでを
実行しないみたいな仕組みで動いているようですので、
cscript呼び出しで、引数を渡すなどはできました。
ただjscriptから、戻ってきた時に値渡しする方法が、
わからず、環境変数を使う事を考えましたが、
同じプロセス内あつかいで、環境変数もまんまでは
無理でした。もうちょい色々試してみます。
ありがとうございました。
38: 2020/03/02(月)23:28 ID:8PHDRupm(1) AAS
例えば、vbs ファイルの中で、powershell コマンドも呼べる。
可読性の悪いバッチで、プログラミングしなくても、vbs 中で、robocopy を呼べば？
CreateObject("WScript.Shell").Run "powershell ""gcb | % trim | scb""", 0
例えば漏れは、バッチファイルには、
「ruby .\script.rb」みたいに、起動コマンドしか書かない
例えば下のように、そのRuby スクリプト内で、
powershell, clip コマンドを呼んで、クリップボード処理を行う
# クリップボード内の複数行文字列の、各行の先頭・末尾から、
# 連続する空白類を除去して、クリップボードに入れる
str = `powershell Get-Clipboard`
str.encode! Encoding::UTF_8, Encoding::CP932 # UTF_8 へ変換
ary = str.each_line.map( &:strip ) # 連続する空白類を除去する
IO.popen( 'clip', 'w:cp932' ) do | clip | # CP932 へ戻す
clip.print( ary.join "\n" )
end
39(1): 2020/04/10(金)13:47 ID:2KZut19P(1/2) AAS
Windows 10, WSL では、GUI が使えないが、
VBScript を使うと、GUIの入力ダイアログなどで、入力できるらしい！
入力ダイアログで入力 → 入力値をWindows側のファイルに保存
→ そのファイルを、Linux側で読み出して処理する
こういう簡単なサンプルを、書いてもらえませんか？
40: 2020/04/10(金)14:07 ID:bhRn7qUp(1) AAS
X入れろよ
41: 2020/04/10(金)14:11 ID:mpIpCatM(1) AAS
powershell使いなよダイアログでも独自フォームでも何でも出せるぞ
42(2): 39 2020/04/10(金)18:00 ID:2KZut19P(2/2) AAS
以下を、CP932(sjis)で、input.vbs に書いて、
WSL, Ubuntu 18.04 から、wscript.exe input.vbs と実行したら、
文字化けもせずにダイアログが表示された
wscript.exe のパスも通っている
which wscript.exe
/mnt/c/WINDOWS/system32/wscript.exe
でも、どうやって、CP932 から、UTF-8 へ変換するか？
Ruby でも使うか？
Dim Input
Input = InputBox("名前を入力してください。")
MsgBox(Input & "を入力しました。")
43: 2020/04/10(金)22:38 ID:fYJRGaFQ(1) AAS
この人物は荒らしの自覚がないようだ
113 名前：デフォルトの名無しさん[sage] 投稿日：2020/04/09(木) 15:48:38.65 ID:pqMoXxyo
荒らしは必ず、2回書き込む。
「そうだよね」とか、同意するレスを付けて、人数が多いように見せる
くだすれPython(超初心者用) その47【Ruby禁止】
Ruby禁止とか、色々なスレのタイトルを勝手に変える
工学部というコテハンだろ。
ソースコードを書かないし、プログラマーじゃないから相手をしないように！
44: 2020/04/12(日)20:29 ID:LD5vNBL5(1/2) AAS
>>42
お前は社会に不要。LANケーブルで吊れ。
45: 2020/04/12(日)20:32 ID:LD5vNBL5(2/2) AAS
WSLは好きものが使う実験環境だということをこの>>42はいまだに知らないらしい。
プログラミングは自由だが、それは若者のためだ。
ゴミジジイのためにあるんじゃねーんだよ。
46(1): 2020/04/14(火)21:32 ID:Jb9e4r2m(1) AAS
>>8
コードがXORまみれでうんざりした時、代わりに使える
あるいはひねくれたXOR交換アルゴリズム
ごめん、思い浮かばん。
47: 2020/04/14(火)21:40 ID:WCIJ8ygh(1) AA×
>>46
48(2): 2020/04/28(火)20:31 ID:f4hk4dsD(1) AAS
Rubyジジイ＝ピッコロ（桃白白）＝片山MZ（蟻人間）
でFAだよなあ？
全員ド下手なのが共通している。
49(1): 蟻人間 ◆T6xkBnTXz7B0 2020/04/29(水)16:29 ID:EqfxCPAQ(1/4) AAS
>>48
実はお前は20年後のオレなんだよ。
50(1): 蟻人間 ◆T6xkBnTXz7B0 2020/04/29(水)16:31 ID:EqfxCPAQ(2/4) AAS
ホントのこと言うと、お前のお母さんはオレのお爺さん。
51(2): 蟻人間 ◆T6xkBnTXz7B0 2020/04/29(水)16:38 ID:EqfxCPAQ(3/4) AAS
まあ、全人類は兄弟らしいから、みんな親族だよね。
52(1): 蟻人間 ◆T6xkBnTXz7B0 2020/04/29(水)16:44 ID:EqfxCPAQ(4/4) AAS
>>48
猿は目が２つ、鼻がひとつ、口がひとつだから、お前、猿と共通点が多いね。
53: 2020/05/05(火)20:29 ID:k7i+4g7K(1) AA×
>>49-52
54(1): 2020/05/12(火)11:53 ID:4WwqN1hQ(1/2) AAS
続きは C#
55(1): ウーロン ◆YAZTByPXwc6o 2020/05/12(火)12:08 ID:R2T/YTBM(1) AAS
>>54
その手があった！！！
56: 2020/05/12(火)12:14 ID:4WwqN1hQ(2/2) AAS
>>51
継承図って大抵は上が根で下が枝葉だけど
実際は親が二人居ないと産まれないから
自分の親の代で二人でGGBBで四人で
自分が根で先祖が枝葉っていう継承図も同時に存在する
そしてここからが重要だが10世代(たった300年程度)遡るだけで
一人当たり千人の祖先が存在することになる
単純に現在一億人の日本人それぞれの先祖を考えると
300年前に一千億人の先祖が存在するはずだがそんなに人口あるはずがない
つまり我々他人の300年前の先祖は相当な確率でダブっていると考えるのが正しい
57: 2020/05/13(水)00:24 ID:RUsQ54h/(1/2) AA×
>>55
58: 2020/05/13(水)00:25 ID:RUsQ54h/(2/2) AA×
59: 蟻人間 ◆T6xkBnTXz7B0 2020/05/31(日)05:23 ID:KExNe49d(1/5) AAS
ロボットはなにゆえに
60(1): ウーロン ◆YAZTByPXwc6o 2020/05/31(日)05:39 ID:0XZA+K88(1/5) AAS
ロボットなのか
61: 蟻人間 ◆T6xkBnTXz7B0 2020/05/31(日)09:04 ID:KExNe49d(2/5) AAS
オレもロボットかもよ。
62: 2020/05/31(日)09:33 ID:Yo2mFI7E(1/6) AA×
>>60
63(1): 蟻人間 ◆T6xkBnTXz7B0 2020/05/31(日)10:00 ID:KExNe49d(3/5) AAS
ほら、WSHに関わるヒトを地獄に落とそうとするロボットじゃん。全自動。
上下前次1-新書関写板覧索設栞歴
あと 118 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ
ぬこの手 ぬこTOP 0.044s