VBScriptについて必死に話し合うスレ [無断転載禁止]©2ch.net

**デフォルトの名無しさん** · 2017/06/28(水) 20:52:02.68

ピラフ逃亡中?

**デフォルトの名無しさん** · 2018/02/22(木) 19:00:38.20

>>492
それじゃ単なる時計だよ
ストップウォッチだからスタートはいいとしてストップボタン（ボタンでなくてもいいけど）をどうするかが問題
標準だとHTAが無難だと思う

**デフォルトの名無しさん** · 2018/02/22(木) 20:58:27.59

>>492
なるほど、もう少し詳しく教えてください。
ストップウォッチと書いたけれど、それでやりたいことは実装できそう。

vbsダブルクリックからコンソールに出力はどうすれば？

**片山博文MZ** ◆T6xkBnTXz7B0 · 2018/02/22(木) 21:05:12.88

>>494
ショートカットでcscriptから起動するようにすれば、コンソールが出てくる。

**デフォルトの名無しさん** · 2018/02/22(木) 21:06:38.51

>>494
cscript.exeで起動して、
wscript.echo time & vbcr
を送り返すでいいのかな

**デフォルトの名無しさん** · 2018/02/22(木) 21:12:34.79

>>494
crでは出来なさそう

**デフォルトの名無しさん** · 2018/02/22(木) 21:19:32.19

>>494
一行更新は出来ないね
後カウントダウンは出来るけど、キー入力できないので停止が出来ない
何がしたいかはっきりしないのでなんとも言えないけど、GUI欲しいなら素直にhtaで書いた方がいいと思う

**片山博文MZ** ◆T6xkBnTXz7B0 · 2018/02/22(木) 21:21:39.78

行更新できないのか。。。すまぬ。cscriptがちょっと悪さしてるのかな？

**デフォルトの名無しさん** · 2018/02/22(木) 21:49:27.75

>>499
何だろうね
echoってwritelineと同じかもと思ってstdout.writeでやってみたけど、横に繋がるだけで一行更新は出来ないみたい

**デフォルトの名無しさん** · 2018/02/22(木) 21:54:14.07

みなさんありがとうございます。

具体的に言うと、測定機器があってその出力結果の処理に既にvbsを使っています（ドラッグ&ドロップが凄く便利）。
でその前の測定のときに時間を計測する必要があるのですが、いつもスマホのタイマーやストップウォッチを使っているので、そのvbsに機能を付加できないかと思った次第です。

htaもいいのですがファイルが2つになるので、できれば一つで実現出来ないかなと。

**片山博文MZ** ◆T6xkBnTXz7B0 · 2018/02/22(木) 22:02:13.23

おそらく標準出力ではないのだろう。

**片山博文MZ** ◆T6xkBnTXz7B0 · 2018/02/22(木) 22:06:36.90

もしくはフィルターが入ってるのだろうか。

**デフォルトの名無しさん** · 2018/02/22(木) 22:12:30.09

>>501
複数行出てもいいならこんな感じでいいんじゃないのかな

Const Cdt = 5
Dim Tm,T1
If MsgBox("カウントダウンを開始します。",vbOKCancel+vbInformation) <> vbOK Then WScript.Quit
Tm = Timer
Do
T1 = Cdt - (Timer - Tm)
WScript.Echo Round(T1,1)
If T1 <= 0 Then Exit Do
WScript.Sleep 50
Loop

**デフォルトの名無しさん** · 2018/02/22(木) 22:20:03.32

Ruby でも、ストップウォッチは困る

Rubyから、Selenium WebDriver で、わざわざ、ブラウザを起動して、
jQuery で操作してるのは、漏れぐらいかw

何をやっているのか、よく分からない

**片山博文MZ** ◆T6xkBnTXz7B0 · 2018/02/22(木) 22:26:02.75

vbCRで行更新は問題なかったが、WScript.Echoが最後に改行する問題があるようだ。

WScript.Echo "aa" & vbCR & "ab"

**片山博文MZ** ◆T6xkBnTXz7B0 · 2018/02/22(木) 22:31:01.12

これでOK。

Dim fso, conout
Set fso = CreateObject("Scripting.FileSystemObject")
Set conout = fso.CreateTextFile("CONOUT$")
conout.Write vbCr & "TEST1"
conout.Write vbCr & "TEST2"
conout.Close

**ミスターポポ** ◆9Jro6YFwm650 · 2018/02/22(木) 23:10:06.13

>>499
FSOならイケたような

Const StdOut = 1

Dim FileSystem
Set FileSystem = CreateObject("Scripting.FileSystemObject")

Dim Stream
Set Stream = FileSystem.GetStandardStream(StdOut)

Call Stream.Write(vbCr & "hoge")
Call Stream.Write(vbCr & "fuga")

**ミスターポポ** ◆9Jro6YFwm650 · 2018/02/22(木) 23:12:27.36

Call WScript.StdOut.Write(vbCr & "hoge")
Call WScript.StdOut.Write(vbCr & "fuga")
これで普通にできたわワロス

**ミスターポポ** ◆9Jro6YFwm650 · 2018/02/22(木) 23:13:05.69

>>505
じゃあこれ、Rubyでよろ

エレガントな解法、エレファントな解法～モンテカルロ法を添えて～
https://note.mu/issei_y/n/n882e9f77e8bd

**デフォルトの名無しさん** · 2018/02/22(木) 23:40:40.27

>>510
ばーか

**デフォルトの名無しさん** · 2018/02/23(金) 06:52:00.58

>>504
カウントダウンタイマーとストップウォッチの区別もつかない人は絡んでくるなよ...

**デフォルトの名無しさん** · 2018/02/23(金) 07:17:30.02

いやみなさん参考になりました。
cscriptからの実行で最低限の欲しい機能は実装できそうです。
それ以上望むときはhtaなど使ってみます。
どうもありがとうございました。

**デフォルトの名無しさん** · 2018/02/23(金) 07:21:34.16

>>512
本人がタイマーって書いてるだろ
オマエこそ絡んでくるな

**デフォルトの名無しさん** · 2018/02/23(金) 09:08:03.36

>>499
ごめんなさい
vbsedit上で試してた…
cmdでやったら普通にいけました

**デフォルトの名無しさん** · 2018/02/23(金) 14:08:48.49

VBSで非同期ってできるんだっけ？

**デフォルトの名無しさん** · 2018/02/23(金) 17:23:16.42

>>516
他のvbs呼び出し時に指定できるはず

**デフォルトの名無しさん** · 2018/02/23(金) 22:24:35.02

じゃVBSでwebsocketはできる？

と、むちゃぶりをしてみる

**デフォルトの名無しさん** · 2018/02/24(土) 14:14:40.12

>>518
winsock ocxはCOMだから使えるだろ

**デフォルトの名無しさん** · 2018/02/27(火) 00:14:14.65

>>519
ocx は基本 VBScript からは使えない。

**デフォルトの名無しさん** · 2018/02/27(火) 08:27:28.58

そうなの?

**デフォルトの名無しさん** · 2018/02/27(火) 18:28:38.01

>>520
VBScript から WinSock を使おうとするとオブジェクトは作れても上手く動かない。
ocx は画面の部品だから VBScript から使えなくても仕方がない。
また、使えたとしても VBScript から操るのはライセンス違反にあたるんだよなぁ。
ググれば分かるよ。

**デフォルトの名無しさん** · 2018/02/28(水) 08:44:15.01

>>522
Wscript.CreateObjectでインスタンスを作ると使えるらしいが。
mswinsock.ocxの単体配布はライセンス違反だがvbのダミーアプリを作って配布は大丈夫なのでは?

**デフォルトの名無しさん** · 2018/02/28(水) 21:16:35.24

>>523
技術的、ライセンス（単体配布ではなくデザインライセンス）的にダメな理由は大体以下。
http://nonsoft.la.coocan.jp/Chinamini/20100001/20100305.html
https://stackoverflow.com/questions/6348907/vbscript-jscript-networking-connect-either-udp-or-tcp
https://support.microsoft.com/ja-jp/help/318597/you-receive-an-error-message-you-do-not-have-a-license-to-use-this-con

よって、VB6.0 の開発ライセンスを持っていて、コマンドとして作って、それを VBScript から Exec する分には合法だと思うよ。
「Mswinsck.ocx の COMオブジェクトをコードから直接覗く行為」≒「開発行為、もしくはスクリプトからの直接使用」が駄目だと解釈したけどね。

ちなみに、PowerShell なら好きなポートから TCP し放題。
あーもうこっちでいいやと思った。

**デフォルトの名無しさん** · 2018/02/28(水) 21:38:28.95

あ、Mswinsck.ocx をラップしたような COM を作ってる人は世界にいっぱいいる。
それでいいんじゃないかな。

**デフォルトの名無しさん** · 2018/03/01(木) 08:30:04.02

>>524
>ちなみに、PowerShell なら好きなポートから TCP し放題。
でもセキュリティがお面倒なんでそ?

**デフォルトの名無しさん** · 2018/03/13(火) 19:47:35.20

みなさん、教えてください

VBScript逆引き大全500の極意
という本を買いました
vbsからエクセルを操作するやり方が
たくさん出ていて買ってよかったです

そこで疑問が
エクセル操作は、この本に出てる
ことしかできないのでしょうか？

それとも、できることはもっと
あるけど本では一部しか載ってない
のでしょうか？

**デフォルトの名無しさん** · 2018/03/14(水) 07:35:33.72

>>527
もっと出来るね
DLLいじる以外はVBAとほとんど同じ事ができるよう

**527** · 2018/03/14(水) 12:19:12.70

ありがとうございます
「 excel.application やりたいこと」
で検索してみます

**デフォルトの名無しさん** · 2018/03/15(木) 06:43:28.50

いまさらVBScriptを使おうとする理由はなんなんだ？

**デフォルトの名無しさん** · 2018/03/15(木) 07:04:42.56

代替手段がない

**デフォルトの名無しさん** · 2018/03/15(木) 07:07:39.93

VBScript以外の言語を使う人は結局イキってるだけ

**デフォルトの名無しさん** · 2018/03/15(木) 10:44:58.29

俺もVBScript単体またはVBScriptとバッチファイルの併用じゃないとできない事が多い

**デフォルトの名無しさん** · 2018/03/15(木) 10:56:24.90

PowerShellのセキュリティ制限が緩かったらVbscriptもbatも絶滅してたかもね

**デフォルトの名無しさん** · 2018/03/15(木) 12:48:51.81

おっさんばっかで草

**527** · 2018/03/15(木) 13:06:55.99

仕事用に、htaで簡単な押しボタン式ツールを
作ってみんなに使ってもらってるんです
いつまで使えるか不安ですが

**デフォルトの名無しさん** · 2018/03/15(木) 22:14:28.96

>>536
WPFに移りはなれ。あれはいいぞ。

**デフォルトの名無しさん** · 2018/03/15(木) 22:43:05.65

もうwshスレも落ちてるんだな、ここも早く楽になれよｗ

**527** · 2018/03/15(木) 23:27:40.71

WPF？
グーグル先生に聞きましたが
よくわかりませんでした

HTAとVBSって、ホント人気ないですね
会社でちょろっとしたツールを
作るには最適だと思うんですが

**デフォルトの名無しさん** · 2018/03/15(木) 23:39:48.66

きいてないやろ

**デフォルトの名無しさん** · 2018/03/16(金) 07:27:53.84

VBSの貧弱な機能に絶望してPowerShellを勉強してみたが
=じゃなくて-eqだとか、大昔のUNIXに載ってたB-shellかよと再絶望した
VBSを捨てて一から設計したスクリプト環境がこれではゲイツも浮かばれんわ

**デフォルトの名無しさん** · 2018/03/16(金) 08:22:04.56

>>541
理由はあったみたいだけど、不等号の表現は失敗だと思う。直観で分かりにくいよな。

**デフォルトの名無しさん** · 2018/03/16(金) 08:35:46.99

>>539
wpfはグーグル先生じゃなくてかずき大先生だろ?

**デフォルトの名無しさん** · 2018/03/16(金) 23:05:27.60

>>542
別に = の代わりに -eq 程度は FORTRAN の .EQ. FORTRAN eq

**デフォルトの名無しさん** · 2018/03/17(土) 07:13:49.84

シェルスクリプト、PowerShell、VBS の次のレベルは、Ruby

Windows でも、ファイル・テキスト処理に問題ない

**ピラフ** ◆9Jro6YFwm650 · 2018/03/17(土) 14:24:29.50

>>545
じゃあこれ、Rubyでよろ

エレガントな解法、エレファントな解法～モンテカルロ法を添えて～
https://note.mu/issei_y/n/n882e9f77e8bd

**ピラフ** ◆9Jro6YFwm650 · 2018/03/17(土) 14:24:53.79

>>534
じゃあこれ、PowerShellでよろ

エレガントな解法、エレファントな解法～モンテカルロ法を添えて～
https://note.mu/issei_y/n/n882e9f77e8bd

**デフォルトの名無しさん** · 2018/03/17(土) 16:15:19.01

>>546,547
ばーか

**ピラフ** ◆9Jro6YFwm650 · 2018/03/17(土) 18:59:07.51

できないの？おーん？

**片山博文MZ** ◆T6xkBnTXz7B0 · 2018/03/17(土) 19:02:13.67

ピラフつまらない。コレクターじゃあるまいし。

**デフォルトの名無しさん** · 2018/03/17(土) 19:26:12.97

Rubyなら>>455にあるやろ
というかただ別言語に書き下すだけで解いたことになるんだろうか
工夫の余地もほとんどないし
https://pastebin.com/gbLdzrqq

**ピラフ** ◆9Jro6YFwm650 · 2018/03/17(土) 20:18:45.56

>>550
ピラフにはイギリス人の血が混じっているので収集癖があります
いわば大英博物館もピラフに流れている血のおかげで建っていると言っても過言ではないわけです

**ピラフ** ◆9Jro6YFwm650 · 2018/03/17(土) 20:21:33.98

>>551
それがビューティフルだと思って書いたわけ？
なにも考えず書き写すだけじゃ意味ないよね
もっと工夫できるよね、ちゃんとやって

**ピラフ** ◆9Jro6YFwm650 · 2018/03/17(土) 20:22:40.74

君たちの潜在能力はそんなものじゃない
もっと工夫できるし、もっとビューティフルなコードに辿り着ける
もっとやれるよ

**ピラフ** ◆9Jro6YFwm650 · 2018/03/17(土) 20:30:34.59

言語の特徴もそう、Rubyらしいプログラム、PowerShellらしいプログラムがある
Rubyの特徴っていうのは便利な関数がたくさん用意されていて
簡単な文法がたくさん用意されていてラムダ式も簡単に書くことができて
ストリームの処理もお手の物でPowerShellはとにかく頑張ってる
そういう言語の特徴をとらえた上でその言語らしいコードを書くのが
スタイリッシュだと思うしビューティフルでブリティッシュだと思う

**ピラフ** ◆9Jro6YFwm650 · 2018/03/17(土) 23:58:43.82

それじゃあ勝負しましょうよ
Cドライブ以下（サブディレクトリ含む）のすべてのファイルの
ファイル名とファイルサイズをテキストファイルに出力するの
PowerShellとVBScriptでどっちが速いか勝負しましょうよ

**ピラフ** ◆9Jro6YFwm650 · 2018/03/18(日) 00:00:13.02

ピラフがプロジェクトマネージャやるから

>>550
VBScriptのコードよろしくお願いします

>>551
PowerShellのコードよろしくお願いします

**ピラフ** ◆9Jro6YFwm650 · 2018/03/18(日) 00:04:05.17

　∧,,∧
（=・ω・）　にゃん♪
（,, ｕｕﾉ

**デフォルトの名無しさん** · 2018/03/18(日) 03:04:57.01

Ruby で書いた。
2ch 以下のフォルダを、再帰的に走査して、ファイル名・サイズ(KB)を表示する

# . で始まる、directory, file を除く
Dir.glob('C:/Users/Owner/Documents/2ch/**/*') do |file|
stat = File.stat file
size = stat.size / 1024
if size < 1
size = 1
elsif size >= 1000
# ここだけ、size は、3桁区切りの文字列になる！
size = size.to_s.gsub(/(\d)(?=(\d{3})+(?!\d))/, '\1,')
end
puts "#{file} : #{size} KB"
end

**デフォルトの名無しさん** · 2018/03/18(日) 08:31:16.41

>>552
ピラフはキリギリスの血が混じっていているのか
只者ではないと思っていたが昆虫から進化していたのか

**デフォルトの名無しさん** · 2018/03/18(日) 09:07:16.57

>>555
うんちブリブリブリティッシュ

**ピラフ** ◆9Jro6YFwm650 · 2018/03/18(日) 10:06:50.54

>>559
やるじゃん、こういうのサクッと書けるのがRubyの強みだよね

**ピラフ** ◆9Jro6YFwm650 · 2018/03/18(日) 10:09:38.26

>>560
オメーのその早とちりなところピラフ嫌いじゃない

**ピラフ** ◆9Jro6YFwm650 · 2018/03/18(日) 10:09:50.98

>>561
IQがひどいと思いました

**デフォルトの名無しさん** · 2018/03/18(日) 10:17:14.00

またこいつ全レス始めてるよｗｗ

**ピラフ** ◆9Jro6YFwm650 · 2018/03/18(日) 10:20:44.35

はいNG

**デフォルトの名無しさん** · 2018/03/18(日) 10:24:16.41

ピラフは糖質だから仕方ない

**ピラフ** ◆9Jro6YFwm650 · 2018/03/18(日) 10:27:58.62

なんだじゃあしょうがないな

**デフォルトの名無しさん** · 2018/03/18(日) 10:45:03.99

許せるかどうかはまた別の話だろ

**片山博文MZ** ◆T6xkBnTXz7B0 · 2018/03/18(日) 11:43:10.23

>>557
https://friendpaste.com/6WXpiP9RzhHUWuT5vuMkoR

**ピラフ** ◆9Jro6YFwm650 · 2018/03/18(日) 12:05:03.33

>>570
あざーす片山さんあざーす！

**デフォルトの名無しさん** · 2018/03/18(日) 13:05:21.68

>>557
こんなんでいいの?工夫もクソも無いけど
ls 'C:\Users\Owner\Documents\' -rec -file | select Name,Length | Export-Csv .\hoge.txt -e UTF8 -not

**ピラフ** ◆9Jro6YFwm650 · 2018/03/18(日) 13:10:14.80

>>572
ありがとうございますー！

**デフォルトの名無しさん** · 2018/03/18(日) 14:11:51.76

>>563
ピラフは焼き鳥か
ということはレプティリアン
キモいわ

**ピラフ** ◆9Jro6YFwm650 · 2018/03/18(日) 14:19:56.76

>>574
ちょっと待てピラフキモいのか？
ピラフキモくないと思ってたから
ピラフキモいみたいな言われ方すると
ピラフ傷つくんですけど、ところで焼き鳥って美味しいよね
ときどき無性に食べたくなる、ねぎまが最高だよ

**デフォルトの名無しさん** · 2018/03/18(日) 20:23:21.36

あっそ、よかったね

**デフォルトの名無しさん** · 2018/03/19(月) 06:59:21.48

Ruby で、順列を表示する、関数を作った

class MyPermutation
def initialize (number)
@number = number
@results = Array.new @number
@ary = (1..@number).to_a
end

def next_number (ary)
if ary.length == 1
@results[-1] = ary[0]
puts @results.join ', '
else
ary.length.times do |i|
clone = ary.clone # コピー
@results[@number - ary.length] = clone[i]
clone.delete_at i # 要素を削除
next_number clone # 再帰
end
end
end

def print
next_number @ary
end
end

obj = MyPermutation.new 3
obj.print

**ピラフ** ◆9Jro6YFwm650 · 2018/03/19(月) 07:05:46.36

>>577
これはすばらしい

**デフォルトの名無しさん** · 2018/03/19(月) 07:08:01.89

>>578
ばーか

**デフォルトの名無しさん** · 2018/03/19(月) 08:26:38.32

>>575
ピラフがキモいのじゃなくて
キモいのがピラフ

**デフォルトの名無しさん** · 2018/03/19(月) 12:21:18.48

キモイのがピラフで
もっとキモイのがピラフだ

**デフォルトの名無しさん** · 2018/03/20(火) 02:02:29.80

>>546-547
Ruby で作った。
chunk で、数字が切り替わるごとに、グルーピングする。
0 か1 が、10回以上続くものだけを集める

prng = Random.new
cnt = 0

100.times do |idx|
results = 100.times.map { |i| prng.rand 2 }
.chunk { |num| num }
.select { |num, ary| ary.length >= 10 }

cnt += 1 if results.length >= 1
end

puts cnt

**デフォルトの名無しさん** · 2018/03/20(火) 06:06:36.55

“なりすまし万引きＧメン”を再逮捕　女児の弱みにつけ込みわいせつ行為　奈良県警2018.3.19 19:13

　弱みにつけ込み、女児にわいせつな行為をしたとして、奈良県警郡山署は１９日、強制わいせつ容疑で、東京都日野市高幡、会社員、藤井裕久被告（４８）＝強要罪で起訴＝を再逮捕した。容疑を否認している。

　再逮捕容疑は昨年１２月１７日午後３時４５分ごろ、大阪市天王寺区の小学６年生の女児（１２）に対し、女児の自宅玄関前で首筋に両手を回して抱きつき、背中をなで回すなどのわいせつ行為をしたとしている。

　同署によると、藤井容疑者は同区の中古本販売店で、少女向けの本棚に陳列されている本と本の間に千円札１枚をはさみ、女児が持ち帰る様子を観察。店外に出たところで身分証明書を求め、さらに住所や電話番号を聞いた上で、女児の自宅まで押しかけて犯行に及んでいた。

　藤井容疑者は今年２月、同県大和郡山市の中学１年生の女子生徒（１３）に対しても、同様の手口で名前などを聞いたとして強要容疑で逮捕されていた。同署は余罪を調べている。

**ピラフ** ◆9Jro6YFwm650 · 2018/03/20(火) 21:53:18.73

>>582
やるじゃん！！！

**582** · 2018/03/20(火) 23:52:21.50

>>582
修正

results という結果配列も必要ない。
Enumerator#size で、Enumerator から直接、要素数を取れる

prng = Random.new
cnt = 0

100.times do |idx|
size = 100.times.map { |i| prng.rand 2 }
.chunk { |num| num }
.select { |num, ary| ary.length >= 10 }
.size

cnt += 1 if size >= 1
end

puts cnt

**デフォルトの名無しさん** · 2018/03/21(水) 09:17:50.16

何を得意になってるんだよ(笑)

**ピラフ** ◆9Jro6YFwm650 · 2018/03/21(水) 09:43:08.08

>>586
じゃあオメーできんのかよ？おーん？

**ピラフ** ◆9Jro6YFwm650 · 2018/03/21(水) 09:43:36.79

悔しかったらVBScriptで書いてみろよー

**デフォルトの名無しさん** · 2018/03/21(水) 09:56:18.99

>>587,588
ばーか

**デフォルトの名無しさん** · 2018/03/21(水) 10:01:30.90

うんこくさいとおもったらピラフだった

**デフォルトの名無しさん** · 2018/03/21(水) 10:07:14.84

>>588
VBSじゃ出来ないって言ってたのはお前だろ
ほんとバカだな

**ピラフ** ◆9Jro6YFwm650 · 2018/03/21(水) 10:21:20.67

>>591
じゃあVBScriptでできるんですかー？証明できるんですかー？おーん？