VBScriptについて必死に話し合うスレ [無断転載禁止]©2ch.net
■ このスレッドは過去ログ倉庫に格納されています
>>411 できてからいいなよ、ゆえにお前がやるんだよ 炭鉱で働きながら問題解いた人もいるんですよ、甘えるな! >>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 カウントダウンタイマーとストップウォッチの区別もつかない人は絡んでくるなよ... ■ このスレッドは過去ログ倉庫に格納されています
read.cgi ver 07.5.5 2024/06/08 Walang Kapalit ★ | Donguri System Team 5ちゃんねる