VBScriptについて必死に話し合うスレ [無断転載禁止]©2ch.net
■ このスレッドは過去ログ倉庫に格納されています
>>414
やってから言いなよ
この問題解いたら圧倒的な充実感に満たされて
文句言う気もなくすから >>416
それとこれとは話がちがうだろ
ちーがーうーだーろー 仮に完璧なコード出したところで、糞どうでもいいようなレスしてはいおしまいなんだよね
レスは必ず付けるんだよ、なぜならこいつにとってはレスバトルでの敗北を意味するから >>419
完璧なコード出してから言いなよ
言い訳ばかりで見苦しいよ、やらない理由を考えるより
できる方法を考えよう、前に進もう 手前で勝手にやってろってんだよ
お前のコード出せは「俺様に意見するな」に過ぎない >>421
一緒にやろうよ、どうしてそんなに強情なのさ 延々と繰り返して持久戦に持ち込むつもりかな
これぞピッコロ
成長などするわけない >>423
人のこと言える立場じゃないじゃん、完璧なコード出してないくせに 完璧なコード出してくれたらポポももっと成長しなきゃって思えるけど
出してないじゃん 何でこれがvbsで解けないと思うんだ?
単純な計算やん >>426
解けることは炭鉱の人が示したよ、VBScriptで解けるよ
じゃあ炭鉱の人とは別の解を示してよ
単純だって言うくらいならできるでしょ
見栄張ってないことを証明して >>424
言ったそばからそれかよ
そろそろ取り巻きを装って発狂しねえかな 意見をすればコード出せ
コードを出せばあっそ、よかったね
こいつの頭の中など見え透いてる ああ、解けることは納得してんのか
別解が欲しいだけ? >>430
それだけじゃないけどとりあえず別解示して >>431
取りあえず何かレスしないと気が済まない?
だったらお前がまず黙っててみろよ >>433
いまポポが集中してるところでしょうが!! >>390に対して>>394だもんね
舐めくさってないかこのバカは >>435
でもさあよくあるじゃん
是非うちで働きませんかと誘っておいて
出向いていったら弊社を志望した動機を教えてくださいって手合い
てめえが誘ってきたんだろうがという状況ですよ
なかなかおもしろいと思うんだよね
ユーモア理解してもらえると思ったんだけど >>432
いきなりコードを出せってなんだw
お前は一体何を議論したいんだよ そんな弁解で正当化しようとしてんの?どうしようもないクズだね >>439
ユーモアを理解せずコードも出せないお前の方がどうしようもないクズだよ >>438
そういえばラピュタに出てくる親方も炭鉱夫じゃん
片山さんのことをラピュタのおっさんと呼ぶべきか
親方と呼ぶべきか迷うよね、まずそこから議論しよう >>426の人は単純な計算やんと関西弁まで使って大見栄きったんだから
別解示すことくらい朝飯前だと思うんで朝ごはんのおかずにしようと思うから
別解示してほしいの >>440
手前の不届きをユーモアだとかほんとクズだよね
これぞピッコロ、反省などできるわけありません さらには意見されたことが許せないのでいつも通りのコード出せ
なりふり構っている余裕などありません でもちょっと静かにして欲しい寝てる人もいるんで時間考えて
頑張りたい気持ちはわかるから 寝てる人間がスレ見てうるさいなんて思うわけないだろ
そんな舐め腐った態度でコードを提示してくれるお人好しなんてまずいないよ そろそろ護衛してくれる取り巻きさんたち出てきてもいい頃じゃないの? 頑張り屋さんうざいな
実のあること何も言ってないし
NGにしよ >>442
一番単純で素直な方法はなもう示されてるじゃないか。何故別解が欲しいのか?
お前は何の考えもなく、何か刺激を受けるコードに出会いたいだけだろ。
自分の考えを言葉にすることもできない無能が偉そうな事を言うな 何これ?
ピラフの中の人面倒くさくなって別人格作ったのか? 暗黒面に堕ち、ダース・ピラフ卿となったピラフには死を コード書けなくてピラフにバカにされまくってるお前ら哀れw ははぁ。
「100bitのビット列を生成する。パターンは2^100通り」
「その中で、『1が10連続するパターンに一度でもマッチする』のは何通りか」
というお題だな。
そういう意味でコテのおっさん達は失格。
おっさん達の人格がアレとしてこのお題、ちょっと難しい。
強引にやれば解けるのは自明だけど。
元のブログの著者が「知り合いの数学者に『エレガントに』解いてもらった」てのが分からないなぁ。
紙上でサクッと出せるもんなんだろうか…。俺は思いつかない。 >>462
これ、Rubyでよろ
エレガントな解法、エレファントな解法 〜モンテカルロ法を添えて〜
https://note.mu/issei_y/n/n882e9f77e8bd Rubyはスレ違いだろ?
VBSにこだわらず好き放題やりたいならそういうすれ立てろよ じゃあなんですか、スレ違いの発言しちゃいけないとでも言うんですか Rubyというメガネを通してVBScriptを見ることで初めて見えるものってあると思う
そういうのを大切にしていきたい サバサバしてる方が良いわけ?
それベッドの上でも言える?
そこんとこよく考えて発言していただきたい >ピラフは、VBからはじめたので、Cのポインタのプログラムは、
> 組めないですが、まぁ、CASLのLEAとLDで組むようなものでしょうか。
>たとえば、自分が、マンガを読むとき、マンガの棚には、目的のマンガの本が
> あります。
> 現実は、あまくないです。マンガは、ないので、本屋にいって金で買い増す。
>さらに、さがせば、ポインタのポインタのようなもの・。
> 自分が辞書でことばの意味を調べることに似ていますが、
>ピラフは、20代でマンガをかったのは、10冊もないでしょう。
>クソバカ片山を辞書でひいても、のっていません。
>そんなのは、あたりまえで、ピラフは、辞書は、ひいていません。
>
>それでわ。 >>472
ここはベッドの上でもないしピラフが好き勝手に振る舞えるところでもないよ(他の人なら可) >>473
なにこの怪文書
大丈夫なの? お薬飲んだ? >>475
つまらない煽りにも漏れなくレスしてしまうほど余裕がないんだろうね >天才白白のおめざめですぅー!!
> 今週は、なんとか代休とれそうですぅ!!
>それまで、こつこつゲーム制作ですぅ!!
> 今日は、ザコ編隊飛行のアニメパターンと
>美少女CGの完成がメインですぅ!!
>どんなのができるというわけなのかなぁー!!
>まようというわけなのかなぁー!!
> 人間ねぼけようかなぁー!!
>
>うわぁーーい!!
>
> ______ _______
> / __ ____)
> V / でわですぅ!! / ////
> v( ^ー^)v <____________________)
> | 白白 |
> O O >Rubyistの人いるー?
>
>エレガントな解法、エレファントな解法 〜モンテカルロ法を添えて〜
>http://note.mu/issei_y/n/n882e9f77e8bd
>
>これどう?このお題Rubyならどう解く? 再起動したときにメールを送信するものを作っています
http://www.atmarkit.co.jp/ait/articles/0405/22/news017.html
これを参考に以下にようにしてみたのですが
★転送においてサーバーに接続できませんでした。
と表示されます
★[安全性の低いアプリの許可:有効] をgmail上で設定しています
問題点がありましたらご指摘ください
Set oMsg = CreateObject("CDO.Message")
oMsg.From = "hoge@gmail.com"
oMsg.To = "hoge@gmail.com"
oMsg.Subject = "Test"
oMsg.TextBody = "テストメッセージです" & vbCrLf & Now
oMsg.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
oMsg.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
"smtp.gmail.com"
oMsg.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
oMsg.Configuration.Fields.Update
oMsg.Send 再起動したときにメールを送信するものを作っています
http://www.atmarkit.co.jp/ait/articles/0405/22/news017.html
これを参考に以下にようにしてみたのですが
★転送においてサーバーに接続できませんでした。
と表示されます
★[安全性の低いアプリの許可:有効] をgmail上で設定しています
問題点がありましたらご指摘ください
Set oMsg = CreateObject("CDO.Message")
oMsg.From = "hoge@gmail.com"
oMsg.To = "hoge@gmail.com"
oMsg.Subject = "Test"
oMsg.TextBody = "テストメッセージです" & vbCrLf & Now
oMsg.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
oMsg.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
"smtp.gmail.com"
oMsg.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
oMsg.Configuration.Fields.Update
oMsg.Send >>483
認証の情報が必要なんじゃないかと
↓こちらでどう?
VBScriptのCDO.MessageでGmailアカウントを使用したメール送信
http://itmemo.net-luck.com/vbscript-mail/ >>484
ありがとうございます
この方法でメールを送ることはできました
あとは自分でPC起動時に自動で実行できるかテストしてみます
ありがとうございました ご査収ください
Sub Bubblesort(ary, fst, lst)
If fst < lst Then
Call MoveLast(ary, fst, lst)
Call Bubblesort(ary, fst, lst - 1)
End If
End Sub
Sub MoveLast(ary, fst, lst)
If fst < lst Then
Call MoveLast(ary, fst, lst - 1)
Call Exchange(ary(lst - 1), a(lst))
End If
End Sub
Sub Exchange(a, b)
If a > b Then
Dim t
t = a
a = b
b = t
End If
End Sub vbs単体でストップウォッチみたいなの作るのって不可能?
msgboxじゃ処理止まるしなあ。
複数ファイルを非同期で走らせるとか、hta使うかしないと無理かな。
powershell では作れそうだが。 開始の時刻を記録して
入力があった時刻を記録して
差を計算すれば良いような
何をやりたいのかよくわからんが >>488
無理矢理やるならpopupがある
実用になるかは知らないけど >>489
時間計測は出来るけど、それを例えば1秒毎に表示を更新してカウントダウンみたいなのをやる方法が分からなくて。
>>490
ポップアップってのがあるのか。けど閉じたり開いたりするのはちょっとうざったいなあ >>491
キャリッジリターン(CR)コードを使えば、コンソールで一行更新できる。 >>492
それじゃ単なる時計だよ
ストップウォッチだからスタートはいいとしてストップボタン(ボタンでなくてもいいけど)をどうするかが問題
標準だとHTAが無難だと思う >>492
なるほど、もう少し詳しく教えてください。
ストップウォッチと書いたけれど、それでやりたいことは実装できそう。
vbsダブルクリックからコンソールに出力はどうすれば? >>494
ショートカットでcscriptから起動するようにすれば、コンソールが出てくる。 >>494
cscript.exeで起動して、
wscript.echo time & vbcr
を送り返すでいいのかな >>494
一行更新は出来ないね
後カウントダウンは出来るけど、キー入力できないので停止が出来ない
何がしたいかはっきりしないのでなんとも言えないけど、GUI欲しいなら素直にhtaで書いた方がいいと思う 行更新できないのか。。。すまぬ。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
本人がタイマーって書いてるだろ
オマエこそ絡んでくるな ■ このスレッドは過去ログ倉庫に格納されています