VBScriptについて必死に話し合うスレ [無断転載禁止]©2ch.net
■ このスレッドは過去ログ倉庫に格納されています
行更新できないのか。。。すまぬ。cscriptがちょっと悪さしてるのかな? >>499
何だろうね
echoってwritelineと同じかもと思ってstdout.writeでやってみたけど、横に繋がるだけで一行更新は出来ないみたい みなさんありがとうございます。
具体的に言うと、測定機器があってその出力結果の処理に既にvbsを使っています(ドラッグ&ドロップが凄く便利)。
でその前の測定のときに時間を計測する必要があるのですが、いつもスマホのタイマーやストップウォッチを使っているので、そのvbsに機能を付加できないかと思った次第です。
htaもいいのですがファイルが2つになるので、できれば一つで実現出来ないかなと。 >>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 Ruby でも、ストップウォッチは困る
Rubyから、Selenium WebDriver で、わざわざ、ブラウザを起動して、
jQuery で操作してるのは、漏れぐらいかw
何をやっているのか、よく分からない vbCRで行更新は問題なかったが、WScript.Echoが最後に改行する問題があるようだ。
WScript.Echo "aa" & vbCR & "ab" これでOK。
Dim fso, conout
Set fso = CreateObject("Scripting.FileSystemObject")
Set conout = fso.CreateTextFile("CONOUT$")
conout.Write vbCr & "TEST1"
conout.Write vbCr & "TEST2"
conout.Close >>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") Call WScript.StdOut.Write(vbCr & "hoge")
Call WScript.StdOut.Write(vbCr & "fuga")
これで普通にできたわワロス >>505
じゃあこれ、Rubyでよろ
エレガントな解法、エレファントな解法 〜モンテカルロ法を添えて〜
https://note.mu/issei_y/n/n882e9f77e8bd >>504
カウントダウンタイマーとストップウォッチの区別もつかない人は絡んでくるなよ... いやみなさん参考になりました。
cscriptからの実行で最低限の欲しい機能は実装できそうです。
それ以上望むときはhtaなど使ってみます。
どうもありがとうございました。 >>512
本人がタイマーって書いてるだろ
オマエこそ絡んでくるな >>499
ごめんなさい
vbsedit上で試してた…
cmdでやったら普通にいけました じゃVBSでwebsocketはできる?
と、むちゃぶりをしてみる >>518
winsock ocxはCOMだから使えるだろ >>519
ocx は基本 VBScript からは使えない。 >>520
VBScript から WinSock を使おうとするとオブジェクトは作れても上手く動かない。
ocx は画面の部品だから VBScript から使えなくても仕方がない。
また、使えたとしても VBScript から操るのはライセンス違反にあたるんだよなぁ。
ググれば分かるよ。 >>522
Wscript.CreateObjectでインスタンスを作ると使えるらしいが。
mswinsock.ocxの単体配布はライセンス違反だがvbのダミーアプリを作って配布は大丈夫なのでは? あ、Mswinsck.ocx をラップしたような COM を作ってる人は世界にいっぱいいる。
それでいいんじゃないかな。 >>524
>ちなみに、PowerShell なら好きなポートから TCP し放題。
でもセキュリティがお面倒なんでそ? みなさん、教えてください
VBScript逆引き大全500の極意
という本を買いました
vbsからエクセルを操作するやり方が
たくさん出ていて買ってよかったです
そこで疑問が
エクセル操作は、この本に出てる
ことしかできないのでしょうか?
それとも、できることはもっと
あるけど本では一部しか載ってない
のでしょうか? >>527
もっと出来るね
DLLいじる以外はVBAとほとんど同じ事ができるよう ありがとうございます
「 excel.application やりたいこと 」
で検索してみます いまさらVBScriptを使おうとする理由はなんなんだ? VBScript以外の言語を使う人は結局イキってるだけ 俺もVBScript単体またはVBScriptとバッチファイルの併用じゃないとできない事が多い PowerShellのセキュリティ制限が緩かったらVbscriptもbatも絶滅してたかもね 仕事用に、htaで簡単な押しボタン式ツールを
作ってみんなに使ってもらってるんです
いつまで使えるか不安ですが もうwshスレも落ちてるんだな、ここも早く楽になれよw WPF?
グーグル先生に聞きましたが
よくわかりませんでした
HTAとVBSって、ホント人気ないですね
会社でちょろっとしたツールを
作るには最適だと思うんですが VBSの貧弱な機能に絶望してPowerShellを勉強してみたが
=じゃなくて-eqだとか、大昔のUNIXに載ってたB-shellかよと再絶望した
VBSを捨てて一から設計したスクリプト環境がこれではゲイツも浮かばれんわ >>541
理由はあったみたいだけど、不等号の表現は失敗だと思う。直観で分かりにくいよな。 >>539
wpfはグーグル先生じゃなくてかずき大先生だろ? >>542
別に = の代わりに -eq 程度は FORTRAN の .EQ. FORTRAN eq シェルスクリプト、PowerShell、VBS の次のレベルは、Ruby
Windows でも、ファイル・テキスト処理に問題ない >>545
じゃあこれ、Rubyでよろ
エレガントな解法、エレファントな解法 〜モンテカルロ法を添えて〜
https://note.mu/issei_y/n/n882e9f77e8bd >>534
じゃあこれ、PowerShellでよろ
エレガントな解法、エレファントな解法 〜モンテカルロ法を添えて〜
https://note.mu/issei_y/n/n882e9f77e8bd Rubyなら>>455にあるやろ
というかただ別言語に書き下すだけで解いたことになるんだろうか
工夫の余地もほとんどないし
https://pastebin.com/gbLdzrqq >>550
ピラフにはイギリス人の血が混じっているので収集癖があります
いわば大英博物館もピラフに流れている血のおかげで建っていると言っても過言ではないわけです >>551
それがビューティフルだと思って書いたわけ?
なにも考えず書き写すだけじゃ意味ないよね
もっと工夫できるよね、ちゃんとやって 君たちの潜在能力はそんなものじゃない
もっと工夫できるし、もっとビューティフルなコードに辿り着ける
もっとやれるよ 言語の特徴もそう、Rubyらしいプログラム、PowerShellらしいプログラムがある
Rubyの特徴っていうのは便利な関数がたくさん用意されていて
簡単な文法がたくさん用意されていてラムダ式も簡単に書くことができて
ストリームの処理もお手の物でPowerShellはとにかく頑張ってる
そういう言語の特徴をとらえた上でその言語らしいコードを書くのが
スタイリッシュだと思うしビューティフルでブリティッシュだと思う それじゃあ勝負しましょうよ
Cドライブ以下(サブディレクトリ含む)のすべてのファイルの
ファイル名とファイルサイズをテキストファイルに出力するの
PowerShellとVBScriptでどっちが速いか勝負しましょうよ ピラフがプロジェクトマネージャやるから
>>550
VBScriptのコードよろしくお願いします
>>551
PowerShellのコードよろしくお願いします 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 >>552
ピラフはキリギリスの血が混じっていているのか
只者ではないと思っていたが昆虫から進化していたのか >>559
やるじゃん、こういうのサクッと書けるのがRubyの強みだよね >>560
オメーのその早とちりなところピラフ嫌いじゃない >>557
こんなんでいいの?工夫もクソも無いけど
ls 'C:\Users\Owner\Documents\' -rec -file | select Name,Length | Export-Csv .\hoge.txt -e UTF8 -not >>563
ピラフは焼き鳥か
ということはレプティリアン
キモいわ >>574
ちょっと待てピラフキモいのか?
ピラフキモくないと思ってたから
ピラフキモいみたいな言われ方すると
ピラフ傷つくんですけど、ところで焼き鳥って美味しいよね
ときどき無性に食べたくなる、ねぎまが最高だよ 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 >>575
ピラフがキモいのじゃなくて
キモいのがピラフ >>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 “なりすまし万引きGメン”を再逮捕 女児の弱みにつけ込みわいせつ行為 奈良県警2018.3.19 19:13
弱みにつけ込み、女児にわいせつな行為をしたとして、奈良県警郡山署は19日、強制わいせつ容疑で、東京都日野市高幡、会社員、藤井裕久被告(48)=強要罪で起訴=を再逮捕した。容疑を否認している。
再逮捕容疑は昨年12月17日午後3時45分ごろ、大阪市天王寺区の小学6年生の女児(12)に対し、女児の自宅玄関前で首筋に両手を回して抱きつき、背中をなで回すなどのわいせつ行為をしたとしている。
同署によると、藤井容疑者は同区の中古本販売店で、少女向けの本棚に陳列されている本と本の間に千円札1枚をはさみ、女児が持ち帰る様子を観察。店外に出たところで身分証明書を求め、さらに住所や電話番号を聞いた上で、女児の自宅まで押しかけて犯行に及んでいた。
藤井容疑者は今年2月、同県大和郡山市の中学1年生の女子生徒(13)に対しても、同様の手口で名前などを聞いたとして強要容疑で逮捕されていた。同署は余罪を調べている。 >>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 >>588
VBSじゃ出来ないって言ってたのはお前だろ
ほんとバカだな >>591
じゃあVBScriptでできるんですかー? 証明できるんですかー? おーん? お友達582が出てきてくれてさぞ安心してんだろうな
おーん?(笑) コードを出してもらっても、その内容には一切の言及なし
おーん?(笑) ピラフ大王の実力は、すごいからな
漏れは、かなり分析したから、
骨身にしみて、よく知ってるw >>594
VBScriptでできないんですかー? おーんおーんおーん? ピラフ大王のソースコードは、芸術性が高い
もし、大王が「たのしいRuby 第5版、2016」を読んだら、
スクリプトにかけては、天下無双になる! >>597
これぞ統合失調症
出来ないって言ってたのはお前だよな、と何回ループさせれば気がすむのかな ■ このスレッドは過去ログ倉庫に格納されています