ﾁﾝﾎﾟ |＿＿__） ° (⌒─‐⌒) 新スレです
ヽ(,,.´・ω・)/ ヽ（(・ω・`,,)）/ 楽しく使ってね
（::. ） （ .::） 仲良く使ってね
⌒"⌒""⌒⌒⌒"⌒⌒⌒"⌒"⌒
探検
VBScriptについて必死に話し合うスレ [転載禁止]©2ch.net
レス数が1000を超えています。これ以上書き込みはできません。
ﾁﾝﾎﾟ |＿＿__） ° (⌒─‐⌒) 新スレです
ヽ(,,.´・ω・)/ ヽ（(・ω・`,,)）/ 楽しく使ってね
（::. ） （ .::） 仲良く使ってね
⌒"⌒""⌒⌒⌒"⌒⌒⌒"⌒"⌒
C言語って難しくない？文字列型がないし。
C言語使ってる人って変態だと思う。ピラフ変態じゃないからVBScriptやろうって思いました。
c言語ってプログラム言語としては最も簡単な部類に入るんだがなw
今さらVBScriptやるよりはJavascriptやる方が潰しが効くぞ。
おすすめは、node-webkit
先に言っておくがJavascriptはプログラム言語の中ではかなり難解な部類に入るwwww
せやなｗｗｗハハハｗｗｗ
Cに比べるとずいぶん楽になったけど。
c++のstringはテンプレートが絡んで来るので
c++やるのならc#のがマシだな。
そこが一番、同一人物と解りやすい部分たよな
まぁコードや普段の口調でも解るけど、必死になってる時が、
やはり一番地が出てるようで解りやすい
前スレの993を読むと、
ピラフはリファクタリングを知らないようだな。
Eclipseのリファクタリングでも見れば？
漏れは最近、7-11の焼めしおにぎりをよく食べる。
うまいよ
完全に言い負かされてる状況を誤魔化しきれると思いこんでるところがカワイイ
前スレの989でピラフが引用した内容とか、人のせいにして文句ばかりで
目的に向けて着実に行動できてないピラフこそが参考にしなくちゃならない内容なのに
焦ってくると相手を攻撃することだけに気が向いて、その内容が自分の方にこそ当てはまっていて
書けば余計惨めになる墓穴行為だということにまで頭が回らずに、
地球の裏側まで行きそうな勢いで墓穴掘りまくるところとか、見ててホクホクしちゃうw
でも結局自分のコード出さなかったじゃん。それでもう負け確定だよね。
他人のコードにいちゃもんつけるだけで終わった人間とコード書いて
堂々と提示して見せたピラフとの間には天と地ほどの差がある。
ピラフがお月様だとするならお前はただのスッポンさん。誰かの何かに
噛みつくしか能のない害獣。ピラフは夜空を彩るロマンスメイカー。
eclipseって何だ、日本語で書け。
西洋人気取ってんじゃねえ原始人が。はい論破。
可哀想。クレーマーにからまれてるピラフ可哀想ー。
エンジニアならプログラムで勝負しようよ。僕のコードはこういう点で優れています。
私のコードはこういうメリットがあります。ピラフのコードはすべてにおいて凌駕しています。
とかさ、ピラフはそういうやりとりがしたいんだよ。
質問者「こういうコード教えてください」
ピラフ「はいどうぞ」
雑魚「ピラフのコードはダメだ」
ピラフ「じゃあ自分がいいと思うコードを自分で書いて出しなよ」
雑魚「ピラフはダメだ」
ピラフ「は？」
雑魚は、ピラフを否定することでしか自分を主張できない悲しいモンスター。
秀逸なプログラムコードを剽窃するやつまで現れたからな。
ここは理研じゃないんですよ!STAP細胞はありまぁす!!
チームで大きなものを作るようになると、下っ端の書いたコードを読んで問題点を抜粋し
下っ端の成長を促すために、勝手に直さず解決策を教えて下っ端に書き直させるなんてのも
「プログラムを作る」うちの一環だ。
ましてや桃白白は、下っ端とは言えプロの世界の人間と比べれば、もっと下に居るんだからさ。
「桃白白のコードはダメだ」しか言わない奴に、指摘に具体性がないって文句を言うまでは解らなくもないが、
「桃白白のコードは、ここがこういう理由でダメなので、こう直した方が良い」とまで具体的に指摘されたのなら、
その指摘に対して「この指摘はこういう理由で適切ではないと思う」ってまともな反論が出来るならまだしも、
それが出来ないのに詭弁と印象操作でまくし立てても、それが負け犬の遠吠えでしかないと見抜けないほど、
ム板の住人は甘くないよ。
またかよ。コード書かずにピラフを否定することばかりに終始する。それを雑魚というのだよ雑魚と。
お前のことだ雑魚。死ねよブサイク。
俺は母が買ってきたものがジャンプじゃないことを厳しく指摘した。
雑魚が言ってるのはこういうこと。
自分で行け。
ピラフはお母さんじゃない。
甘える相手間違ってんじゃないか？
プログラム書くより他人にいちゃもんつける方が楽なのはたしかだがな。
それに満足したら堕落するだけ。
ピラフは自分でジャンプ買いにいくしワンピースで涙する。
ナルトはゴミ。
バカじゃないかと思った。
ピラフがジャンプだと思って読んでいるのはコロコロコミックだ。
皆が指摘してもジャンプだと言い張る。
ピラフが言ってるのはこういうこと。
縦一列に画像が並ぶHTMLファイルを出力したいです。
よろしくお願いしまあす！！
「縦一列に画像が並ぶHTML」の書き方がわからないの？
ってかお前名前変えてもベテランなんだから丸投げすんな
別に許可なんてお願いしなくても良いんだよ？
誰の許しを貰うこともなく、勝手に作っちゃって大丈夫だから
まさか多少なりともプログラム掛ける奴が
この程度の仕様説明では、他人にプログラムを書かせる上では
不足に過ぎるってことに気付かないわけもないし
そうなると「自分でこういうことがしたいです。許可をお願いします。」って
ことなんだろうが、自分で作るなら許可なんて求める必要は無い
因みに、そういうのはHTMLよりXHTMLの方が作りやすいかも
できるんですか！じゃあお願いしまあす!!!
ttp://pastebin.com/3aCVpW2E
ファイル作るの面倒だったのでリダイレクトしたり改変したりしてね！
グッジョブｂありがとうございます!
のちほど確認します。とりいそぎお礼申し上げまあす！
そのままでは縦一列にならないので適当にstrImgTempleteの最後にでも<br>入れてね
君は前の課題が残ってるだろ。まだ前の課題を提出してないよね。
前の課題はmdbにタイトルと内容を登録して検索するってやつだよ。
君はピラフが書いたコードを初心者にとってはうんぬんと
批判していたけれど、コードは書けたのかな？風呂敷を広げる前に、
その風呂敷を畳むことができるかを考えるようにしないといけないね。
君のミスは想定を間違ったことにある。
君は何もわからないような初心者を想定して最初からさまざまな事態に対処しようとした。
開発はそれによって難航した。最初に書くべきはシンプルでわかりやすいコードだよ。
これはUNIX哲学の受け売りなんだけどね。
具体性のない難癖ならまだしも、具体性のある指摘は
コードそのものと同列の価値があるって事にまだ気付けてないの？
指摘された内容を理解するという課題を与えられてるのは、むしろ君の方なのだがな
そもそもコードで書いても、君は自分の書いた物に対して何処がどう改善されていて、
自分のコードの何処にどういう問題があったのか理解できないでしょ？
コードで書いて理解できるなら、クラスをネット上のサンプルからコピペしてきても
無駄を残したままにせずにもっとシンプルで分かりく整えるだろうからね
そう、君のミスは想定を間違ったことにある
君は自分がシンプルにというより楽して実力以上のものを提供するために
内容も理解できてないサンプルをそのまま使った使って対処しようとした
開発はそれによって迷走した
念頭に置くべきは、自分の作業をシンプルにすることではなく、コードの内容と使い勝手をシンプルにすることだよ
これは哲学以前の常識的な配慮ね
まずは、無知は恥じゃないが、無知を認めないことは恥どころか人間性の稚拙さだと知り
虚勢を張らずに己の実力に見合った態度が取れるようになるところから始めてみようか
難癖には反発するのも良し、しかし具体性のある指摘には、論拠を以て反論できるなら反論するも良いが
反論できないなら反発せずに素直に受け入れて自分の糧とする
それが出来なきゃ、いつまで経っても小馬鹿にされるだけの立場から卒業できないよ？
自分の至らなさを指摘されるのは悔しいかも知れないが、その悔しさを相手に突っかかることで紛らわすのではなく
自分を成長させる原動力にして、君自身が前スレ989で言っていた「行動する人」になれるように頑張ろう
で、コードは？
君は、初心者に配慮したすばらしいコードを書くべきだと思ってるんだよね。
それを出してもらえるかな？他人に乗っかってずるやってないでさ。
ピラフはとっくにコード出したよ。それがピラフが言うところの行動。
自分でこうするべきだと考えてそれをコードという形にして提示した。
君はどうかな？君はピラフのコードに文句言っただけだよね。
自分で考えたわけでもない。他人のコードについて否定的な意見を述べただけ。
ピラフのこと小馬鹿にしてるんだ。じゃあ君は大馬鹿だよね。
炒飯は自分でも簡単に作れるようなものを何でお題として出すんだ?
ピラフに構うだけムダだって分からないのはさすがに野暮
炒飯とピラフは違うものだよ。そんなの常識だよ。
乞食じゃないよ！ピラフ乞食じゃないよ!!
でもさ、冷静になって考えてみると世の中の人っていうのは
何らかの乞食かもわからんよね。大工さんはお家を立てる乞食さんだし、
会計士さんは帳簿を付ける乞食さんだよね。そういう意味ではピラフも
乞食なのかもわからんね。そういう意味ではね。
コードではなく言葉でなら、論破されてもしょげて雲隠れしないから、弄り続けられて面白いんだろ
部下としてなら、このレベルの奴に手を掛けるだけ無駄だって分からないのは野暮だが
玩具としてなら、この面白さが分からない方が方が野暮ってもんだ
君なら、抽象的な文句や難癖を付けるだけではなく具体的な指摘の出来る奴が、
実コード書けないわけは無いってことくらい分かるだろうが、
それでも奴がぐうの音も出ないコードを出さないでおくのはその為だよ
では、卑ラ腐という名を授けよう
え、やだ卑弥呼みたい
ピラフは君のことをコードを書けない雑魚だと思ってます。
いまのところね。プライドだけは一流だから自分が上だと思っている。
だけど、コードで勝つ自信がない。だから言葉で蔑んで満足する。
プライドが高い臆病者。ピラフには小学生のころに君のような知り合いがいました。
コード乞食の分際で余の付けた名前が気に入らないと申すのか
ふん、余だと？ はっ・・・あなたはまさか!?新さん!!!
ちゃんと伝えられる人にやきもち焼いてるんだよ。
> だけど、コードで勝つ自信がない。だから言葉で蔑んで満足する。
だとしたら、"今の君みたいにw"抽象的な罵倒を続けるだけで、具体的な指摘はしないだろうな
具体的な指摘ってのは、コードと同じくその内容が間違っていれば反論する余地を与えるものだからね
但し具体的な指摘は自分が間違っていれば反論する余地を与えるリスクと引き換えに
正しければ、相手は素直に認めるか、"今の君みたいにw"負け惜しみを言うかしか出来ない状態に追い込める
対して、抽象的な罵倒なら、印象操作しかできないので相手を言い負かすことは出来ないが
抽象的な罵倒自体は論じゃないから論破できないし、本筋の方を論破されても、
それとは全く別ベクトルである抽象的な罵倒は、嫉妬、コンプレックス、やきもちを原動力にいくらでも続けられる
問題の本質は、「最後に価値のある情報で相手を覆したのはどちらか」ってところにあり
コードは君も拘ってる通り「価値のある情報」の一つだが、価値のある情報はコードだけではなく
"今の君みたいなw"抽象的な罵倒に価値はないが、コードにしなくても具体性のある指摘は価値のある情報の一つ
しかし君は、その線引きを「価値があるか否か」ではなく「コードか否か」という詭弁にすり替えることで
言い逃れを構成し、負け惜しみを展開している状態で、そのすり替えが出来るだけの隙はワザと与えているもの
例えば一番最初に指摘した「DAO.DBEngineのインスタンス作成」については
Class DataAccess内でPrivate DBEngineを宣言して、Class_Initializeで
Set DBEngine = CreateObject("DAO.DBEngine.36")を行い、2箇所有るGetDBEngine()の関数を
DBEngineの変数に置換し、Function GetDBEngine()プロシージャ全体を削除する
とまで書けば（本来はここまで書かなくても前の指摘の時点でw）、詭弁以外では「コードを書けないと思ってる」なんて言えなくなるが
上記も実コードではないので、詭弁でなら「おまえはコードは書けない」と言い張り続けるだけの余地はまだ残している
抽象的とか具体的とかそんなのどうでもいいの。
いいかい大事なことを言うよ、君コード書いてないよね？
言い訳考える暇あったらコード書けたんじゃない？
コードを書くっていうのは他人のコードにいちゃもんつけることじゃないの。
自分の考えをまとめて形にすることなの。
馬鹿というか、下手だな。コードこじきならもっとうまくやりなよ
言うだけの人は仕様書だけ書く上流工程気取りだよな
ここには読みにくい仕様書を一生懸命読んでくれる下請けはいないよ自分で書くしかない
俺としては低レベルでもいいから、もっと誰もが気軽に好きなコードを貼り付けられるスレであってほしいんだが
↓こんな風に
ttp://peace.2ch.net/test/read.cgi/tech/1170492587/606
ttp://hello.2ch.net/test/read.cgi/i4004/1074389689/552
生暖かく見守るスレだよ
コードなんて書かずにニヤニヤ見てようよ
先生、おしっこー
気軽に書いてええんやで
反論じゃなくコードの不備を指摘してるんだから文章でOK
コードの不備を指摘できるって事はその人はちゃんとコードが書ける人って事
コードを読んで、コードの直し方をアドバイスするってことは
コードが書ける人というのはもちろんだが、それ以前にそれ自体が
コードを書いてるも同然の作業
>>54
違います。てにおはを指摘できる人間がみんな小説書けるわけじゃない。
想像力が欠如していてクリエイチブなことができないから瑣末なところに目くじら立てる
人間ができあがるんですぞ。ピラフがムックならそう言っているね。
コード書ける連呼してもコード書けないよ。バカじゃないの。
>>55
× てにおは
○ てにをは
多分コードは書けるんだと思うよ
ただ、彼らの書いたコードだって
誰にも文句のつけようが無い完璧なものになるとは限らない。
奴らは自分がケチつけられる立場にはなりたくないから
意地でもコードは書かないだろうね。
ただの卑怯な雑魚だよ
そうだよね。
臆病な自尊心と、尊大な羞恥心の為せる業だよ。
そのハードルを越えられなくなってるんだから、なんかもう切なくなるよ。
何やってんだって思うよね。
もっと女子を見習ってほしい。女子は他人にかわいいと言うことで
たとえ自分がかわいくなくても問題ないという状況を作りだして
自己主張をなめらかに行っていくんだよ。他人をあげることって
じつは自分の主張を通すことにつながるんだよね。
だから、お前らはもっとピラフを褒めるべきだ。
それによって得するのはお前らだから。お前らのために言っているんだ。
ピラフはもっと褒められてしかるべきだと思うし、
ピラフの乙女パワーでこのスレをよくしたいと思っています。
こじきに構う好き者
お互いが何をどれだけ熱弁しようとも相容れない不毛なやりとりが多くを占めるのがVBA、VBSすれ。
本筋では敵わないからって、なんとかハードルを上げて
印象操作だけでも相手を貶めようとしてるのは桃白白じゃんw
「完璧じゃない」「完璧じゃない」って文句言ってる奴がいるならまだしも
具体的に改善策を提示しているのだから、その自分が指摘した部分さえ直したものが書けるなら
言ってるだけのことはやれる奴ってことになる
奴等はコード書けないんだって言い張り続けるのが苦しくなってきたから、そこは認めて
別方向で攻めようとしたようだけど、自演までして用意したその新たな方向の詭弁が
こうもあっさり破綻に追い込まれるようでは、コード書けるってことを認めない方が良かったかもな
コードは書けると認めてしまい、その代償として得るはずだった新たな方向の詭弁は失策に終り
現在、何一つ言い返せてない状態に陥ってるわけだから
因みに、時々名無しで書いてるのはバレてるから
このスレでは>>13-14とかを名無しで書いており、>>13-14自体は自演をしたかったわけでは
無いようだが、コテを記憶させておかずに自演に備えてることはバレちゃってる
君、コード書いてないよね？
他人の宿題について文句言っても先生は
君が宿題出したとは認めないよ。
他人を批判したら自分が認められると思っているのかな？
世の中そんなに甘くないよ。
これよくない？
京大に匹敵する必殺の言葉だわｗ
えーと、で、そのコードはいつ書くの？
結局書けないのね？
確たる根拠もなしに自演扱いで済ませようとしてるみたいだけど
それこそ詭弁じゃないかな？
> 273 自分：山片mz[sage] 投稿日：2014/05/18(日) 17:20:50.14 ID:Wf7TEvca [2/9]
> じゃ完全版な
>
> Dim str
> Do Until WScript.StdIn.AtEndOfStream = True
> str = WScript.StdIn.ReadLine
> WScript.StdOut.WriteLine StrReverse(str)
> Loop
>
> インデントを全角スペースにしてみました
↑に対する
> 340 名前：桃白白 ◆9Jro6YFwm650 [] 投稿日：2014/05/26(月) 00:18:00.43 ID:mmlPEY/l [2/14]
> >>335
> 変数宣言がいらないし、Booolean型を条件文で値と比較する必要がない。
> にわか以前のいちかわが書いたとしか思えない途方もない初心者丸出しコード。
> 桃白白を誰だと思ってるんだと言わざるお得ません。はいごきげんよう。
↑これだったｗ
とりあえず背景と線の2色でよくてマウスでフリーハンド線が書けて何かしらの形式でファイルに保存ができればよいです
VBSでなくても、Windows7,8で標準で動作してコンパイル不要（スクリプト言語で？）なものならよいです
あたりで検索して出来るか判断できるんじゃないかな
標準というか標準的なになるかもだけど
ペイントみたいなではなくペイントになるけど
html5とjavascriptで作れるけどIEは未だ対応してないので標準で動作はしないな。
ChromeとかFirefoxなら出来る。
えっと、、、、、バレてるから (￣ー￣)ﾆﾔﾘｯ
で、コードは？
ちょっと触ればわかるだろ？
素直に.net環境で開発したほうが楽だぞ
やりたいコードはぐぐれば大体でてくるし
教えたいおじさんだらけで乞食もやりほうだいなのになぁ
せやなｗｗｗｗピラフもう慣れっこやでｗｗｗｗｗんなわけあるかバカが!
ttp://www.atmarkit.co.jp/ait/articles/1412/03/news125.html
非常に残念な事に教えたいおじさんはコードが書けないのです
片や他方（一部除く）が言う「コード」って言語問わずプログラムのロジックを指してるんだよね
話が合わないのも当然
>>83
VBScriptってロジックを示すのに最適なんだよね
だからピラフはVBScriptが好きなんだなって思いました
ロジックを示すことができるのはソースコードのみだ
これはかの有名なあの人がいった言葉です
ピラフいま困ってることがあるので教えてください
やさしくお願いします
配列αは、
0番目に記号があります
1番目に数値があります
配列βは、
Aを記号順に保持します
β(α("A",10), α("A", 20), α("B", 10))
こういうイメージです
βの要素について記号ごとに件数を出力し、
数値の合計を出力したいです
A
データ数:2件
合計:30
B
データ数:1件
合計:10
こういうイメージです
質問では簡略化のために配列を使っていますが、実際には
DBからデータを引っ張ってきます
実際のデータ量は数千万です
フリーザの戦闘力を余裕で凌ぐレベルです
メモリにすべて読み取ることができないので
逐次的に処理できればと思っています
どうやればいいのでしょうか？
VBScriptのソースコードでロジックを教えてくださいお願いします
select α記号, count(*) as データ数, sum(α数値) as 合計 from βテーブル group by α記号
SQLは触れないのですよ。
プロジェクトの方針で集計関数を使わずに
プログラムで処理しましょう。というお達しを
上流工程の方からいただいています。
ロジックまで書いてない
つ Scripting.Dictionary
なにゆえ、VBScriptの様な高貴な言語に集計などという賎民のやるような
泥臭い仕事をさせるのだ？
そのような腐った思想を持つ上流にまともなプロジェクトは出来ぬ。
ピラフよお前が頭となって謀反を起こすのじゃ～
数千万のデータをメモリ上に貯めれないし
Scripting.Dictionaryは格納数が10万以上になると計算量がn^2になるから無理
そうか、よし、ピラフの乱起こしてやるのじゃー！あほか!なにけしかけてくれてんねん。
ピラフくびになるわ!そんなことしたら。ピラフは今後とも文鎮のようにお仕事頑張りたい。
記号の種類はどのくらいなの
お前の脳内カンパニーだからクビになったら、脳内妄想で作ればええじゃないの
それとも実在する会社がVBScriptでSQLにも頼らずに数千万件のデータを処理しろと言ってるんか？
ピラフが勤めるにふさわしいクレイジーな会社だなwww
記号の種類が数千万です。
VBScriptソースコードのほどよろしくお願いします。
貴様、我輩に向かってお前とは何事じゃ!
世の中はクレイジーにあふれています。
データが数千万、記号の種類が数千万
集計にならんやんけ～w
記号の種類が数千万なので、レコード数はそれ以上っすよ。
集計にはなるっしょ。おっさんなにいうてんねん。
じつはお仕事してるっていうのは嘘なの。みんなには内緒だよ(ささやき声)
その数千万の集計の目的はなんじゃ。
口を割らねば割るまで拷問をするぞwww
記号ごとの値をもとめるのが目的ですぞ。
その後にも処理があるけど、それは質問と関係がないから割愛。
集計の目的も質問と関係ないんだけどね、認識を共有することも
大事だなと思っていいました。
お前の星では数千万の記号が存在するのか？
便宜上記号と表現しただけなのでそこにこだわりをもたれてもピラフ困っちゃう
数千万にはこだわりもってもらわないとピラフ困ゆー
メモリに収まらないほどのデータをどのように処理するのかってことなのさ。
sqlとかdictionaryとかドシート丸出しのアドバイスはいらない。
ピラフはプロフェッショナルな質問をしています。
DBの再実装みたいなことになるのではないか
そうするとDBを使うのと変わらなくなるんだが
DBを使ってはいけない理由はなんだい？
今のままだとおそらく劣化DBみたいな実装しか出てこないよ
DBの何を実装するんでっか？あんさん何言うてはんの？
SQLを変えられない理由ならすでに言っただろ。
動き出した運命の歯車はもはや誰にも止められない。
ピラフを助けられるのは君しかいない。
その規模なら素直にデータベースを使えよ(w
Oracleには手が出せなくてもAccessなら何とか妥協できるだろうに
ピラフの一存でDBを導入できるほどの権力と裁量権をピラフが
有しているならば、ピラフはSQLで集計関数を使ってるよ。
件数と合計をもとめるだけでAccess使わないとできませんなんてそんなの
ありえないだろ。ピラフがプロジェクトマネージャだったらそんなやつ即刻打ち首獄門にするわ。
Windowsと同じMicrosoft製品なんだし、上司の説得くらい頑張ってやってみろよ(w
ウチの会社では一部署20～30人位の勤務時間管理にAccessを使わせてくれたぞ
一つのファイルを同時に何人もLAN経由で使う上でExcelより好都合だからな
ピラフの上司は10人、フロアには1000人います。
これが君とピラフの違いかな(勝ち組)
合計と件数を求めるためにデータベースから取得したデータを
Accessに投入したい。使わせてくれないんだったら、Accessがなければ集計も
できない無能な ID:cHA5imNW が腹を切る。これでいけると思うか？無理だろ。
ちゃんと考えてよ。このままじゃピラフの首が危ないんですけど!?
SQLで取ってきたデータは数千万件分もどうやって保存されてんの？ファイル？
データを一件ずつ取得してそれを処理して
最終的にはDBに書き出すんだけど、書き出すとこの処理は
今回の質問とは関係ないっすね。
>>117
SQLを変える気はねえっす。
β(α("A",10), α("A", 20), α("B", 10))
これを処理して
A
データ数:2件
合計:30
B
データ数:1件
合計:10
こう出力するにはどうすればいいのかVBScriptのコードで教えてくれって
のが質問だぞ
DBがどうとか難しいところはピラフが裏でこっそりやるから
集計するところだけお前らやれ。やれるだろ。
開発費をかけて少しでも時間を短くするか
DBを導入して導入費用で済ませるか
てかDB自体はあるんだったらなおさらいったん新しいDB作って入れなおしてSQLで取ってこればいい
これVBSで書けばいいの？
その話は >>114 で否定したつもりだったんだけどなあ。
お前なんか頭悪そうだな。
お前らただのコーダーか？
質問の前提に書いただろ。
> >>84
> 配列βは、
> Aを記号順に保持します
お前は何もわかってなかったのか？
ピラフが聞いたのはロジックだった。本番で動かすコード書かせるわけないだろ。
人と会話するときは想像力を働かせなさい。ピラフ株式会社と言ったけど
本当は全然違う会社名だからね。本当の名前を出したら問題になるから隠しただけで。
ピラフはマジで君たちが知恵遅れなんじゃないかと心配になってきた。
まじだAとαは置いておいても分かってなかったわ
入力はちゃんと読まなきゃだめね
記号順でソートされたデータが取り出せるんだったら簡単じゃんけw
ありがとうございます！
ではVBScriptでコード書いてください。できたら教えてください。
よろしくお願いします。
Read βテーブル
while βテーブル <> EOF
データ数 = 0
合計 = 0
oldα記号 = α記号
while oldα記号 = α記号 and βテーブル <> EOF
データ数 = データ数 + 1
合計 = 合計 + α数値
Read βテーブル
end while
Write oldα記号, データ数, 合計
end while
kill ピラフ
ありがとうございます！
ピラフ教えてもらったコードをもとに頑張ってみます！
ありがとうございます！
ピラフはブレーク処理知らんのんけ?
最後の一行が一番重要なのだw
仮にデータが、1個100byteなら10GBだから、
1度にすべてのデータをメモリに読み込むと、スワップ領域が必須
だから、データを100分割でもして読み込めばよい
それか、データを一件ずつ取得して足すだけなら、
数千万種類の記号がソート済みなら、
同じ記号が続く間は足していき、次の記号に切り替わったら、
ファイルかDBに書き込む
データも100件ずつとか、
固定サイズの小さいバッファに読み込んで、
足したら読み込んだデータを捨てて、
次のデータをバッファに読み込む
要するにすべてのデータをまとめて、メモリに読み込まず、
バッファに読み込むだけの話
どやって100分割して読み込むの？
バッファに入るサイズで、適当に100分割すれば？
結局、IOでサイズ指定して、バッファを使うだけでしょ？
1行ずつ・1byteずつ、
勝手にライブラリがバッファ処理するだけでしょ？
プログラマーはバッファについて、何も考える必要はない。
BufferedIOなどのライブラリはないの？
適当にっていわれてもSQL変えることできないって設定わすれたの？
ピラフまだ覚えてるんですけど。
BufferedIOってなに？VBScriptにそんなのないよね。
何のためにバッファリングが必要なのかという
ところの理由付けが弱い
逆に伝わり辛くなっただけだわ。
「DBからは、記号と数値の列を記号の正順でソートした結果が取得できる。」
とか>>85に書いておくだけで良かったのに。
誤解を招かせるのが目的なら、別に良いんだけどね。
じゃあ誤解が解けたところでお聞きするけど、
どうやったらいいですか？VBScriptのソースコードで教えてください。
バカかお前は、他人の成果丸パクリしてんじゃねえ。
同じもの出されてもピラフは得るものがなにもありません。
別のものを考えてくださいよ。真のプログラマならできるでしょう。
最後のピラフ抹消だけで良いかもw
ぇ？それひどくない？
オブジェクト指向的に書くと、こうだな
objピラフ.die(1000)
ピラフ 1,000回シネ。
ところで何でVBScriptで数千万のデータを処理せんとあかんのんじゃ？
効率悪すぎだろ
>>127で言っただろ。
いまどきハンガリアンはねーべよ。
そやね、ピラフのインスタンスが複数で来ても迷惑だから
こやね
ピラフ die: 10000
少し増やした。しかもSmalltalk風
ピラフもう帰る。
お前は自分の星へ帰れよw
> 1度にすべてのデータをメモリに読み込むと、スワップ領域が必須
働いてメモリー 16GB 位の PC 買えよ
ここのレベルならその方が早い
スキルがないやつはそもそも問題解決の方法を間違ってる
このケースの場合メモリ積むのが唯一解だ
ピラフ、このアフォの相手してやれ
暇やろw
むやみに食いついたやつを叩く戦法なんだよ
質問の不備を叩いていこうじゃないか
普通は小出しにしてきた時点で話にならないだろ
会話の中で話が進展していくのは会話としてごく普通のことですよ。
それを否定するっていうのは会話に慣れてないってこと。
会話に慣れてないってことは友だちが少ないってこと。
友だちが少ないってことは周囲の人間との距離の取り方がわからないってこと。
周囲の人間との距離の取り方がわからないってことは家族とうまく関係を築けなかったってこと。
つまり、君はホモですね。これが論理学。
間違ってることを、さも正しいことかのようにイメージ操作する術だけは非常に優秀
ただ、そんな術は社会に出てもなんの役にも立たないどころか、
匿名じゃない場でやらかしたら、自分の評価を下げるだけだが
匿名じゃない場でピラフピラフ言ってたら
トルコ人だと思われるよ。君の評価上がっちゃうね。
もしその時が来たらピラフに感謝すること忘れるなよ。
ところで、ピラフとチャーハンは違う物なんだって。
ピラフ、チャーハンしか食べたことないから一緒にピラフ食べに行く？
ピラフ一緒に行く？
一緒にピラフる？
もしOSが32ビットなら、仮想アドレス空間は4GBで、
仮にOS(カーネル)が1GBを使っているなら、
プログラムで使えるのは、残りの3GB
3GB以上のデータが、DBから渡って来ると、エラーになるのか？
それとも自動的にバッファのサイズに、
データを分割してくれるのか？
例えば、バッファのサイズが1GBなら、
DBが1GBを送った所で、処理待ちになり、
それらをプログラムで処理すると、
バッファにある処理済みのデータを削除して、
また次のデータを送ってくれるとか？
ギガバイトをメモリーにぶちこむ何てクレイジー
ピラフ、アフォの相手してやれ
お前が相手すればいいじゃん
お前にはちょうどいいレベルの話題だぞ
おまえピラフなのか
お前はウーロンかw
あんなじさまじゃない
のろまの桃白白も急げ
結局は、日本語版の余りのレベルの低さに英語サイトへ行くと。
STAPoverflowと揶揄されるようになるのも時間の問題だなwww
＿＿ ＿
／♯＃＼ /･_) よーし
（ｿ♯＃♯＃Ｙ ／
(_)――-(_)′
別名を名乗るなら、ピラフが桃白白宛てのレスに反応しちゃダメだよw
隠してるわけじゃないからなあ
隠してることにして欲しい？じゃあピラフは桃白白じゃありません
ホントは桃白白だけどね
MySendKyes.vbs
------------
MsgBox "a"
Wsh.CreateObject("WScript.Shell").SendKeys "{TAB}"
If Err.Number <> 0 Then
MsgBox Err
WScript.Exit
EndIf
MsgBox "z"
-------------
単体の実行は問題なくタブが打たれるのですが、
ホットキー(Shift+Ctrl+T、Ctrl+Alt+T、Shift+Alt+T)で実行すると動いてくれません。
ホットキーで実行する方法があったら教えてください。
ほっときのコードは?
最初は隠してたけど、隠しきれずに早いうちに完全にバレて自分でも認めてたもんな
ピラフが隠してたことにしないとよほど都合が悪いようだな。
そりゃそうだよね、見抜いたなんて言っちゃってたもんね。
じゃあいいよ、ピラフは隠してました。
ほんとは隠してないけどね。
コードは、以下の通り
---- VBScript ----
WScript.Echo "start"
stime = Timer()
For i = 1 To 100000000
Next
WScript.Echo Timer() - stime
---- JScript ----
WScript.Echo("start");
stime = new Date().getTime()/1000;
for (i = 0 ; i < 100000000; i++){
}
WScript.Echo(new Date().getTime()/1000 - stime);
### WScript/CScript
VBScript 14秒
JScript 25秒 ←遅すぎ
### HTA(mshta)
VBScript 14秒
JScript 0.9秒 ←速すぎw
### Google Chrome
JavaScript 0.3秒
ブラウザ上のJavaScriptの最適化が進んでいて思いのほか速いど
WScript/CScriptに比べて若干制限はあるがHTA/JScriptでやるのが良いんじゃないの画面も付けれるし
<html>
<head>
<script language="VBScript">
Window.alert("start")
stime = Timer()
For i = 1 To 100000000
Next
Window.alert(Timer() - stime)
</script>
</head>
<body>
</body>
</html>
---- JScript.hta ----
<html>
<head>
<script language="JScript">
alert("start")
stime = new Date().getTime()/1000;
for (i = 0 ; i < 100000000; i++){
}
alert(new Date().getTime()/1000 - stime);
</script>
</head>
<body>
</body>
</html>
Option Explicitのない言語なんてクソ食らえじゃー
WSHだとJScriptは逆に遅いのか
ttp://peace.2ch.net/test/read.cgi/tech/1378978504/53
主張は統一させとけよ
http://peace.2ch.net/test/read.cgi/tech/1391694526/807
807 名前：桃白白 ◆9Jro6YFwm650 [] 投稿日：2014/10/05(日) 19:33:29.43 ID:d2HSvfAw
>>805
効いてる効いてるｗ
Option Explicitは記憶力がなくタイプミスを犯す鈍臭い木偶の坊が使うものだ。
桃白白はプログラムの隅々まで完全に記憶してるし一流ピアニストも顔負けの
超精密なタイピングができるからね。Option Explicitなんて書いたことにあ。
どうよ？
https://friendpaste.com/iT455gp8Hy3t1IvEn3nIu
いつの話してんねん。先に進もうよ。ピラフは先に行って待ってる。
Option Explicit付けてもOn Error Rsume Nextすると変数定義が無くてもスルーされる糞言語だぞwww
＞ほっときのコードは?
少し考えましたが何を指すのかわかりませんでした。
ホットキーに割り当てたキーは
(Shift+Ctrl+T、Ctrl+Alt+T、Shift+Alt+T)
の三種を試しました
WSHが出た頃はVBの天下だったからな。当時はJScriptなんてオマケでしかなかった。
それが今じゃ、ブラウザ側ではJavaScriptの天下だからなぁ。
ほっとき、ホットキー
>(Shift+Ctrl+T、Ctrl+Alt+T、Shift+Alt+T)
+^{TAB}、^%{TAB}、+%{TAB}
こうじゃないんか?
と言うか、マニュアルくらい見よう
http://msdn.microsoft.com/ja-jp/library/cc364423.aspx
それはSendKeysのパラメタですよね。
VBSから「タブ」を送る記載は "{TAB}" と書いてます。
単体の実行なら動きます。
「タブ」でなく「あ」を送ろうとした場合でも、
VBSファイルをホットキーで実行すると動ないんです。
VBSファイルのショートカットファイルのショートカットキー起動のこと?
問題なく動くが
デスクトップに置いてないんじゃない？
---- c# ----
var start = Stopwatch.StartNew();
for (int i = 0; i < 100000000; ++i)
{
}
Console.WriteLine((double)(start.ElapsedMilliseconds) / 1000);
---- c ----
最適化するとループがなくなるので最適化なし
DWORD start = timeGetTime();
for (int i = 0; i < 100000000 ; ++i) {
}
DWORD end = timeGetTime();
printf("%f\n", (double)(end - start) / 1000);
c# 0.498秒
c 0.427秒
Google v8 速すぎw
もう、全部JavaScriptで良いんじゃないの
C直下の作業フォルダから C:\Users\<User Name>\ShortCut
を作って放り込んだら動きました！これは絶対気づきませんでした。
これで捗ります。ありがとうございました！
>>191
ありがとうございました。
レジストリの掃除から始めないとだめみたいです。
JavaScript には strict があるぞ
空ループでパフォーマンスとか意味ないだろ
前スレでバブルソート（笑）で比較してたけどJavaScriptの方が速かったぞ
目的のアプリを.activateしなきゃいけないから
ホットキーをマウスに登録してやるのは
他のアプリで誤って押した時にマズイ事になる可能性があるから、やめた
WScript.CreateObject("WScript.Shell")が遅いですし。
>>194
そりゃそうだなw
ベンチマーク用の定番コードってなんかあるんかな
どっちにしてもブラウザ上のJavaScriptが最速だろうな
WindowsでのスクリプトPGは、hta/JavaScriptが良さそうだ
配列を返すStringDivideメソッドを作ってください。
StringDivide("abc", 2) -> Array("ab", "c")
2つの値を受け取って小さい方を返すMinメソッドを作ってください。
Min(1, 2) -> 1
Minメソッドを使って、2つの値を受け取って大きい方を返すMaxメソッドを作ってください。
Max(1, 2) -> 2
Maxメソッドを使って、3つの値を受け取って一番大きいものを返すMaxTripleメソッドを作ってください。
Max(1, 2, 3) -> 3
VBScriptのソースコードを書いてください、ピラフ困っています。よろしくお願いします。
自分で考えなさい(^○^)
もしかしてピラフってVBScriptのダメな所を世間に知らしめようと活動してるのか？
string divide
文字列の格差
by google翻訳
ダメな所をフォローしたり、適材適所で他と使い分けたりするだけの能が無いだけ
いやだ、ピラフは絶対に教えてもらいたい
>>203
ここはJavaScriptのスレじゃない
>>204
あ？
>>205
ここはVBScriptのスレだ
とにかくVBScriptのプログラムを書きまくり必死に話し合うスレだ
できたよー
ttps://friendpaste.com/1NzAOY5XbZZLoGOmWCAhoD
ワロタ(^○^)
ファイル全体では>>207よりやや複雑になるというか、wsfのXMLタグ分の行数が増えるが
タグを除いた実コード自体はもっとスッキリする上に<script language="JScript"></script>部分を
折りたたんでおけば、普通にVBSだけのwsfと変わらないように扱える
まあそれもmaxなどの関数部分以外をどうしてもVBSで作りたい場合の話で
そうでなければ全部をJSで作っちゃうけど
笑うな！おもしろくない!!
>>207
＿＿＿_
／ ＼
／ ─ ─＼
／ ⌒ ⌒ ＼ ハハッワロス
| ,ﾉ(､_, )ヽ |
＼ ﾄｪｪｪｲ ／
／ _ ヽニｿ, く
ここはVBScriptのスレなんだよ？
VBScriptが好きなピラフに嫉妬爆発させてVBScriptを否定しようとするのやめなよ。
そういうのってかっこ悪いよ。
ピラフよ、>>201 のコードなんてお前は簡単に作れるだろ
何で聞いてるの？
それともマジで作れないアフォなんかwww
ピラフアフォなんよ。教えてほしいんよ。
自分がアフォだと認めるんだなw
でも教えないww
MaxTriple(x, y, z) = Max(Max(x, y), z)
認めるんよ。教えてほしいんよ。
>>215
なんだおら！
えへへ・・・ピラフさびしがり屋さんだからさ
クリスマスイブはみんなで楽しくすごしたいじゃん？
クリスマスなんてどこにあるんだ？
ピラフがサンタさんやってあげるんよ。
25日なったらピラフがクリスマスおめでとーと言うからありがとーと言ってくれればいいんよ。
何歳？
どういう容姿？
設定の方で良いなら、過去ログ読めば解るよ
実際の方については隠してるけど、発言内容から推して知るべしって感じだなw
イブ
愛してるぞ♪
人間自分と似た人を好きになるらしいし、ピラフの設定もあたらずとも遠からず
あたりだと思うんだよね。じゃあ逆に聞くけど、そちらの容姿はどんな感じ？
封神演義で言うと誰？ ワンピースでもいいよ。
で
objCut.TargetPath="""G:\Program Files\Google\Chrome\Application\chrome.exe"" --user-data-dir=""Z:\ChromeData\2"""
ってするとエラーになるんですが回避方法ありませんか？
Z: ドライブは RAM ディスクで、起動するたびにデータをコピーして使います。
ショートカットを自動で正しく作成できないとChromeがクラッシュして再インストールしないといけないので
VBSに限らず、ショートカットの自動作成ができる方法を教えてください。
何でCreateShortcut部分のコードを全部貼らないんだ？
必要ないかと思って
Set objCut=objShl.CreateShortcut(objFs.BuildPath(objShl.SpecialFolders("Desktop"),"chrome new" & ".lnk")) ' デスクトップ上にショートカットを作成
某記事で紹介されてるやつを "chrome new" & ".lnk" ってファイル名に変えただけ。
うまくいったらアカウントごとのショートカットを作る予定。
>某記事で紹介されてるやつを "chrome new" & ".lnk" ってファイル名に変えただけ。
wwwwwwwww
"""、""
などダブルクォーテーションが連続するのはおかしいのでは？
項目を区切るカンマが抜けているのでは？
"","～","～" とか
ダブルクォーテーション自身は連続するダブルクォーテーションで表現するってあちこちのブログで紹介されてた。
で、代入したいのは引数付きコマンド文字列なので単なる文字列です。
いろいろ試した結果、どうやらドライブ名＋パス名が二つあるとエラーになるような感じ。
長すぎるのがダメなのかと思ったら”aaa...”って長い文字列はフルパスが自動的に補われておっけーだった。
ショートカットが作れないならEXECで起動するかバッチファイルでやる手もあるしそれでもいっかな。
アフィニティマスクも設定したいしそっちのほうがいいかも。
'"～"～"～"'
VBSではこういうように、
シングルクォーテーションで囲えないのか？
objCut.Arguments="--user-data-dir=""Z:\ChromeData\2"""
こうじゃねっすか？
| ノ ＼ ／ヽ クリスマスおめでとー!
/ ● ● | いちゃいちゃすんな！
| ( _●_) ミ
彡､ |∪| ､｀＼
/ ＿＿ ヽノ /´> ) ))
￣￣(＿＿＿）￣￣ (_／ﾄﾞﾝ!!￣￣￣￣＼
＿＿＿＿＿ ＼
｜＼＿＿＿＿＼ ＼
| ｜======== |
＿| |oo======= |
|＼＼|＿___＿______|＼
VBSは ” だけですね
>>235
なるほど
ttp://support.microsoft.com/kb/242297/ja
>>236
メリクリとリス
できますたありがとう。
ダブルクォーテーションは自動で補ってくれるんですね。
VBSでIEを使用してYahooメールで受信したメールを開きたいのですが
昔はメールの一覧がリンクだった為、簡単にクリックで表示できたのですが
新しいシステムになってから開くことができません。
開く方法を教えてください。
普通に受信すれば良いだけでは？
YahooメールAPIってのがあるみたいだけどね
（∴∴）
r"￣￣￣￣"ヽ
（ ___________________）
r ´ ｀ヽ
＜（___________________________）＞
/ ＼ ／＼
/ ● ,,. .,, ● ヽ
|. （__人__） | あけおめことよろ
ﾐﾐ､､,,,,,,__,,,,,,,,,,,,,,_,,,,,,,,,,,､､-ﾐ
┗━彡ミﾐ彡ﾐ ミ彡ミﾐ彡━┛
ﾐミ彡ﾐ .＼ .／ﾐ彡ミﾐミ
彡ミﾐﾐ .＼／ .ミﾐ彡
ﾐ丿.┃ . ● .┃ヾﾐ
┗━━┛┗━━┛
いや、超遅漏だ
今頃2014年が明けたことに気づいてる
完全無料で、スレッドの作成や匿名での投稿も可能です
お気軽にお試しください。
http://fluid.twolineprj.com/twoline/entry
無料でもメールアドレスとかIPアドレスとか知られるのはいやだ。
メニューがわかりにくいし、子画面が開くのがいやらしいし。なんかやだ。
これピラフ
http://trendy.nikkeibp.co.jp/article/column/20080821/1017834/03_px300.jpg
ところで、ピラフ完全に閃いたんだけどさ、
2つの配列を結合するメソッドConcatがあったとするじゃん。
Function Concat(A, B)
Dim C
ReDim C(UBound(A) + UBound(B) + 1)
Copy C, A, 0
Copy C, B, UBound(A) + 1
Concat = C
End Function
Sub Copy(S, D, I)
Dim E
For Each E In D
S(I) = E
I = I + 1
Next
End Sub
そしたら、配列に値を追加するメソッドAppendはあっさり実装できるんだよね。
Function Append(A, Value)
Append = Concat(A, Array(Value))
End Function
これってすごくない？
写真見てもらったらわかると思うけど、ピラフまだ20代だよ。
美紀ちゃんは41歳だけど
40代に見えないよね。これが奇跡の世代か。
ピラフ職場で50代のババアだと思ってた人が30代の人でびっくりしたことがある。
世の中不思議だよね。
美人だが40に見えるぞw
引数AをReDim Preserveすれば、
Copy C, A, 0
を省略できる
特にAとBの要素数比において、Aの方が大きい場合程、その影響は大きく
AとBの要素数が同じくらいなら、処理速度は2倍差くらいのものだが
Appendの場合はBの要素数は1つなので、基本的にAの方が大きいわけで
10^9要素のAに値を一つ追加する場合だと、処理時間は10000倍以上もの差になる
実際に試してみたが、10^8要素配列への追加だと、>>249は 1分02秒 で、前述の方法は 0.0057 秒
引数Aの参照先変数を書き換えたくない場合は、ByVal Aにすれば良いし、それでも>>249より遙かに速い
それに、多要素配列同士の結合は、そう何度も実行することは無いだろうが
配列への値追加は、何度も繰り返して行われる可能性があるので、Concatの使い回しはせずに
効率化に徹した方が実用的
AppendからConcatを実行した場合は、UBound(B)の結果は0だと解ってるんだから無駄だし
1要素しか無いものに対してループ回すのも無駄で、現要素数+1にReDim Preserveして、
末尾にValueを代入するだけにした方がシンプルかつ効率的
自分が作った関数の汎用性をアピールしたかったのかもしれないが、実用性を無視してまでアレにもコレにもと
無理矢理使い回そうとすると、むしろ弊害を生んで、考えの足りなさをアピールする結果になるので注意な
なんて書くと、また他人のコードへの文句しか言えないとか、詭弁と屁理屈で発狂するのかな？
キュニスしたら子どもできちゃうよお!!
ところで、キュニスってなんですか？(真顔)
／ ＼
／ ─ ─＼
／ （●） （●） ＼
| （__人__） |
＼ ｀ ⌒´ ,／
/ ::::i ＼
/ / ::::|＿/
＼／ ::|
| ::::| ｷｭﾑ
i ＼ ::::/ ｷｭﾑ
＼ |::／
|＼＿／/
＼＿／
あどうも、ご丁寧に、こちらこそおまんこ。
速度厨の寝言は聞き飽きた。ピラフがいまさらそんなことで発狂するわけがない。
_ノ _ノ _ノ ヽ／| ﾉ ﾉ 。。
/＼＿＿_／ヽ
／ﾉヽ ヽ、
/ ⌒''ヽ,,,)ii(,,,ｒ'''''' :::ﾍ
| ﾝ（○）,ﾝ <､（○）<::| |｀ヽ､
| ｀⌒,,ﾉ(､_, )ヽ⌒´ ::l |::::ヽl
. ヽ ヽ iｌ´ﾄｪｪｪｲ｀ｌi ｒ ;/ .|:::::ｉ |
／ヽ !ｌ |,ｒ-ｒ-| ｌ! /ヽ |:::::ｌ |
/ |^|ヽ､ ｀ﾆﾆ´一／|^|｀,ｒ-|:「￣
/ | .| | .| ,Ｕ(ﾆ ､)ヽ
/ | .| | .|人(_(ﾆ､ﾉﾉ
あそこまで無駄なことやってるのを指摘するのは、速度どうこう以前の問題だろw
それ、詭弁として良く言われるけど間違いね
正しくは
「VBScript に速度の追求が必要なことをやらさせるなよ」
であって、速度を追求するには不適切なVBSでも
無駄に遅くなるようなことを極力避けようとするのは当然のことであり
コストが掛りすぎない範囲では、遅い方より速い方を選ぶとは有効なことだ
レーシングカーでなく乗用車でも、法定、安全、コストなどとの兼ね合いを満たした上では
加速性の良さも無意味とは扱われないのと同じでね
軽自動車でさえ、その出力制限の範囲でスムーズな加速が出来るように工夫されてる
極限を追求できるところまでには達せないなら完全に無視するなんてのは、愚かな発想だ
速度が必要ないのに、Append のために別の Concat 作るとかバカなの？
タイプミスでいちゃもんつけるのはダサいと思う
簡潔さを好む人がいて
包丁もって叫んでる人もいる。
でも、みんなに共通することがあって、みんなVBScriptが好きなんだよ。
これってすてきなことだよね。VBScriptでみんなが繋がってるんだよ。
ドッキングだよ。ピラフみんなに勇気もらったから、告白してくる。
ピラフあなたとドッキングしたいって。
お前、鼻が青くないか?
どういう意味？
http://blog-imgs-45.fc2.com/x/3/3/x333/20100818183734369.jpg
これ
http://onepiecemaana.img.jugem.jp/20110314_1862863.jpg
チョッパーかわいいよねチョッパー
なにしてんねんアホｗ
そんなに喜ぶなよ
なんで、Append のために別の Concat 作るなんて愚かな発想になるんだ？
>>249のAppendを
Sub Append(A, Value)
ReDim Preserve A(UBound(A) + 1)
A(UBound(A)) = Value
End Sub
にしてやれば良いってだけの話だろ？
（関数形式にしたり、UBound(A) + 1を変数に取ったりはご自由に）
自分で勝手に指摘とは違うバカな発想をして、その発想をバカ呼ばわりとか
君は一人コントで笑いでも取りたいのか？w
「俺の作ったFunction Concat()は、Appendの実装にも使えるんだぜ」って自慢をするために
Appendの実装には向かないConcatを、Appendの実装に無理に使うのは愚かしいってだけで
Appendの実装には向くConcatを別に作れなんて誰も言っていない
「既存の配列に別の配列や値を追加する」って字面で見ると、似たような処理に見えるけど
追加するのが単一の値の場合、効率化出来る部分というか、追加するのが配列の場合と比べて
必要ない処理が多いので、同系列の処理として考えずに別個のものとして扱った方が
処理効率はもちろん、簡潔さも向上するって話だ
Appendの中の行数で見れば1行増えてるが、外部関数を呼ばずに内部だけで完結しているって本質を見れば
処理内容は遙かに追いやすく、効率だけでなく簡潔さも向上しているからね
効率の良いAppendを実装するのに、既存のConcatと同等の別コードが必要ってなら
簡潔さを求めるために効率化はあえて無視して既存のConcatを使い回すのもアリだろうけど、
使い回さないことで効率も簡潔さも両方を向上させられるなら、それを否定する理由は無いだろう
因みに、悔し紛れで、説明が長いだの長文だのというところに食って掛かるのはよしてねw
一部のアホ以外は言わなくても分かってるから、
いちいち論破する必要ない。
Append()は要素数1のConcat()と同等である
>>283の要約
>>249よりも良いAppend()を実装出来る
↑そもそもそんな話じゃねーし、正論とは言わんなこれ。
話が明後日の方向きすぎて耳がキーンなるわｗ
別の Append 作るのはバカだって書いてるのに、～すればいいじゃんとか明後日のレスされてもな w
しかも、明後日まで被るとは w
結婚しようか？
自身の理解力が明後日の方向いてると暴露してるだけなんだけどね。
そう、Twitter的にボソッと呟いて「へぇー、こんなのあるんだ、覚えとこ。サンクス」みたいなレスがつくんかなーとか思ってたんだけど、なんだっけ？俺、何を呟こうとしたんだっけ？
悔しくて夜中まで考えたレスがこれとか、笑える
正直その手の台詞コラージュ画像は嫌いなんだが
楽しい仕事がしたい
でもピラフのことは嫌いじゃないでしょ？
つまり、>>295はピラフのことが好き。
ピラフはコラ画像が好き。
論理学的には>>295はコラ画像が好きというのが
>>295の主張の眼目であるってことに結論付けざるおえないよね。はい論破。
＞結論つけざるおえない
日本語で
日本語でなんですか？は？
みたいなことできる関数なんだっけ
src=""で、インクルードするファイルを指定する
どうしても関数でやりたい場合は、相手をwscにする必要があったような気がする
ファイル読み込んでevalするとかか?
>>302のやり方が正解だと思うが
VBS Include でグググったらたくさん出てきた。
Execute file.ReadAll
ExecuteGlobal file.ReadAll
292でお伝えしたかった事はこれです。
知らなかったみんな、仲良く使ってね！
おっけ。寝る。
'ソ'とか'十'の0x5c含むダメ文字でちょん切れる場合とちょん切れない処理結果が混在するんだが
何が原因だろう？
本当はSJISファイルなんて使いたくないんだけど
7z.exe が犯人だったわ
結果がバラける原因はまだ不明だけど
以下のことを確認するVBScriptのコードをよろしくお願いいたします。
ある監獄にA、B、Cという3人の囚人がいて、それぞれ独房に入れられている。
罪状はいずれも似たりよったりで、近々3人まとめて処刑される予定になっている。
ところが恩赦が出て3人のうち1人だけ助かることになったという。
誰が恩赦になるかは明かされておらず、
それぞれの囚人が「私は助かるのか?」と聞いても看守は答えない。
囚人Aは一計を案じ、看守に向かってこう頼んだ。
「私以外の2人のうち少なくとも1人は死刑になるはずだ。
その者の名前が知りたい。私のことじゃないんだから教えてくれてもよいだろう?」
すると看守は「Bは死刑になる」と教えてくれた。
それを聞いた囚人Aは「これで助かる確率が1/3から1/2に上がった」
とひそかに喜んだ。果たして囚人Aが喜んだのは正しいか?
選び直しの無い3囚人問題では、証明するまでもないし、証明の仕方も単純すぎで面白くない
というか、ピラフは、3囚人問題やモンティ・ホール問題の本質を理解してるのか？
ふふっ、ピラフが理解してるわけないでしょうが！
ピラフをなんだと思ってるんだ!!
是非VBScriptで本質コーディングのほどよろしくお願いいたします。
プログラムで試すならモンテカルロだよね
証明はしてない
https://friendpaste.com/2mT12ZAo99a2KfnZbA2nUx
で答えとしては看守の気分次第で変わる
VBSで高階関数ってないんだよね
Evalでごまかした
元は、A、B、C共に33%
Aが看守に尋ねてBが詩形になるという答えが返ってくると
Bの助かる確率が0%になり、その分はCに廻ってCの助かる確率が66%になる
Aが助かる確率は変動しない
モンティ・ホールの場合、最初に選んだ扉（囚人Aに相当）がアタリな確率が33%で
モンティが開けたハズレ扉の分が、残った扉に廻り、その扉がアタリな確率が66%になるから
選び直しをした方がアタリを引く確率は高い
Ａ Ｂ Ｃ の扉があり、それぞれのアタリが以下の3パターンで、最初に選らんがのがＡの扉の場合
○××ならモンティはハズレなBかCの扉を開き、そのままだとアタリ、選び直しをするとどっちにしろハズレ
×○×ならモンティはA以外でハズレなCの扉を開き、そのままだとハズレ、選び直してBにするとアタリ
××○ならモンティはA以外でハズレなBの扉を開き、そのままだとハズレ、選び直してCにするとアタリ
と、選び直しをしないとアタリを引くのは一番上の1つだけで、選び直しをすると、中と下の2パターンでアタリを引ける
故に、選び直しをしないとアタリの確率は3パターン中1つで33%、選び直しをするとアタリの確率は3パターン中2つで66%
選び直しが出来ない囚人は、上記の「選び直しをしない」ケースと同じで看守の回答の前後で確率は変動しない
ありがとうございます！！！
とり急ぎお礼まで！！！！！
囚人の問題に関しては、その3パターンでは説明しきれない
看守がBが死刑だと言うと条件が足りない
>看守がBが死刑だと言うという条件が足りない
A以外の2人の囚人うち、 死刑になる者を、 看守が明かす ことに該当していて
その条件が既に含まれていることに気付いてないのか？
まぁこの問題は「直感で正しいと思える解答と、論理的に正しい解答が異なる問題」の適例と
言われるくらいで、錯覚しやすい罠がちりばめられてるから注意しよう
モンティ・ホール問題と3人囚人問題は、条件とその結果の確率のところまでは全く同じで
扉=囚人、ハズレ=処刑、アタリ=恩赦、司会者（モンティ）=看守
プレイヤーが最初に選んだ扉=囚人A
プレイヤーが最初に選んだ扉以外でハズレの扉を司会者が開く=囚人A以外で死刑になる者を看守が明かす
にそれぞれ対応しており、アタリおよび恩赦の確率も
1/3=33%：プレイヤーが最初に選んだ扉=囚人A
0/3=. 0%：司会者が開いたハズレ扉=看守が明かした死刑者
2/3=66%：残ったドア=囚人B,Cのうち死刑と宣言されていない者
となる
違うのはその確率から導き出される最終結論だけで
モンティ・ホール問題は、「選び直した方が33%→66%に確率が上がるので、選び直しをするべき」で
3人囚人問題は、「BもしくはCの死刑が明かされても、Aが恩赦になる確率は33%のままで50%にはならない」
死刑になる囚人のうち必ず名簿の上にある方を答える とかいう場合は結論が違う
まぁ、>>315,>>319の解に対して、1000人近い博士号保持者を、抗議をするまでに錯覚させた程の問題なので
一般人が錯覚するのも無理はないが、結局は抗議してた博士号保持者達も自分の誤りを認めることになるわけで
既に>>315,>>319が正解であることが証明されている問題なのだから、ケチを付けることに必死になるより
その解を理解することに注力した方が建設的だと思う
これ重要
たぶん勘違いや思い込みしてる部分があるから見直した方が良いよ
そこに偏りが出ると、なにがどう変化するかちゃんと解った上で言ってるの？
それとも苦し紛れで反論に使えそうな文をwikiから引張ってきただけ？
その部分の回答に偏りがあっても、Aが助かる確率が1/3という部分は変わらないんだよ
BC共に死刑になる場合に、B死刑とC死刑を等確率で答える場合と、
BC共に死刑になる場合は、必ずB死刑と答える場合とでは
1/3 × 1/2 ＋ 1/3 × 1/2 ＝ 1/3か
1/2 × 2/3 ＋ 0 × 1/3 ＝ 1/3かの違いだけだ
つまり、解法が違うだけで結論は同じ
wikiで等確率でなければ成立しないって言ってるのはベイズの定理による解法であって
結論のことでは無いんだよ
それが解っていれば、解法に対してケチを付けられても、結論に対する反論として使えないその文を
持ち出してはこないはずだが、たぶん勘違いや思い込みしてるんだろうね
Bが死刑だと言われた場合にAが助かる確率の話をしてた
この話なら必ずB死刑と答える場合は、確率が変わる
たしかにAが助かる確率のみなら看守の発言によらず33%のままだね
ちなみにベイズの定理による解＝結論になると思ってるんだけどそれも違うの？
これが間違ってるようであれば違ってる点を指摘してもらえると後学のためになりそう
恩赦 看守答 確率
A B 1/3
A C 0
B C 1/3
C B 1/3
となるので、看守がBと答えたときにAが助かる確率は(1/3)/(1/3+1/3)で1/2となる
こう思ってるので間違ってる点を指摘してください
合ってるよ
解法の途中経過としてはね
それが
1/2 × 2/3 ＋ 0 × 1/3
の最初の「1/2」に当たる中間解だ
但し、
> BCともに死刑になる（Aが恩赦になる）場合に看守が必ず「Bは死刑になる」と答える
という条件は提示されていないので、
等確率には成らずに偏る可能性を考慮するのは無意味じゃないが
それを考慮するなら、別方向に偏った場合やその発生率から、その範囲や平均値を出すのが確率論ってものなので
恣意的に違う結果が出るように偏ったケースだけの数値を出しても、意味はないんだけどね
「BCともに死刑になる（Aが恩赦になる）場合に看守が必ず「Cは死刑になる」と答える」
という条件を追加した上で、看守が「Bは死刑になる」と答えた場合だと
この回答によりCが助かることが決定するので、Aが助かる確率は0になるしね
で、それらを恣意的に偏らせずに平等に評価すると、Bが死刑と答えた場合に限ったAの助かる確率も、結局は1/3
>BC共に死刑になる場合は、必ずB死刑と答える場合とでは
>1/3 × 1/2 ＋ 1/3 × 1/2 ＝ 1/3か
>1/2 × 2/3 ＋ 0 × 1/3 ＝ 1/3かの違いだけだ
の最後の行のそれぞれの値の意味を教えてほしい
1/2については>>330の最後の1/2ってことなんですよね
という偏りの上で、「Bは死刑になる」という回答の発生率は、3パターン中、AもしくはCが恩赦となる2パターンなので2/3であり
この回答の上でAが助かる確率は1/2
> BCともに死刑になる（Aが恩赦になる）場合に看守が必ず「Cは死刑になる」と答える
という逆の偏りも平等に考慮すると、この偏りでの「Bは死刑になる」という回答の発生率は1/3で
この偏り条件でこの回答が発生するとBが助かることが決定するので、Aが助かる確率は0
故に、助かる確率1/2というケースが2/3の確率で発生し、助かる確率0というケースが1/3の確率で発生するので
恣意的に一方に偏った場合だけを取りざたすなんて卑怯なことはせずに、偏りを考慮するにしても
逆の偏りとその発生率まで平等に評価すると、看守がBと答えた場合に限ったAの助かる確率も、結局は1/3という解に帰結する
逆の偏りを平等に評価するのではなく、逆の回答を平等に評価するというアプローチだと
> BCともに死刑になる（Aが恩赦になる）場合に看守が必ず「Bは死刑になる」と答える
という偏りの上で、「Bは死刑になる」という回答の発生率は2/3で、Aの助かる確率は1/2
「Cは死刑になる」という回答の発生率は1/3で、Aの助かる確率は0
こちらのアプローチでも結論は1/3
この問題では、三者の元の助かる確率は1/3ずつとさえ明記されていないので
恩赦を決定する者の心理で考えれば、三者に差異がなければ
リストで筆頭となるAを恩赦とする確率が一番高く、それぞれの恩赦率はA=5割、B=3割、C=2割程度なので
元からAの助かる確率は1/2である
なんて詭弁さえ言うだけは言えるけど、こんな恣意的に恩赦率を偏らせるとか、見苦しいにも程があるって話でしょ？
それと同じく、この問題は詭弁ではケチを付ける余地を残しておきながら、ケチを付けた方が見苦しくなるような所にしか
その余地は残されておらず、正当に評価すれば結論は揺るがないからこそ有名なんだよ
正論で解を覆せるような問題だったら、そんなの有象無象とばかりにいくらでもあるので、ここまで有名になってない
送る方にもIPmessengerを入れたら良いんだけど
送信元へはインストールしたくないです
Perlでやってるサンプルは見つけたんだけどVBScriptのサンプルが見つからなくて
それとも丸投げ？
> Perlでやってるサンプルは見つけた
で、お前らも探せと？
まあ、俺は Perl 嫌いだから、見ないけど w
じゃあipmsgのソース見た方が早いんじゃないか
何の言語で書かれてるか知らないけど、いろんな人が改造して公開してるし、オープンじゃなかったっけか
↓
vbsでインターフェース要件を満たせるか調べる
送信側として必要な情報は、受信側のIPとポートだけだと思うから、ipmsgのやり取りの形式を理解する
↓
その送信形式をvbsで実装が可能かを検討する
あ、ipmsgソースよりもPerlをちょっと勉強して、ipmsg依存部分を判断する方が早いかな？
まあ頑張って。
移植してくれ
とは頼まない
Perlを移植することがvbscriptにあったやり方とは思わない
まあサンプルが無いなら340のやり方しか無いだろうな
そもそもvbscript向きなのか？も疑問だな
画像の左右反転処理で、1行ずつ同じことをやっていた
他にも、ビッグ・リトルエンディアンの変換にも、
応用できそう
>>335
Ruby,Pythonはどうかね？
わざわざvbsなんだしipmsgもインストールしたくないんだからvbsなんじゃね
本人じゃないから知らんけど
vbsで出来ないか？と考えたら何が何でもvbsとなる思考ってステキ
windows標準で出来ないかな？って思っているので
PerlもRubyもPyhtonもやめておきたい
> VBScript使って
って書いてあるのに
> そもそもvbscript向きなのか？も疑問だな
とか、
> vbsで出来ないか？と考えたら何が何でもvbsとなる思考ってステキ
とか言う奴って...
この意図を最初に書けばよかったんじゃね
WSHでUDP通信自体がwindows標準でできなさそうかも？
WSHで通信する方法はあるがVB6ランタイムが必要らしい
.NETフレームワークのオブジェクトがWSHからいくつか参照できるからUdpClientはどうかと思ったけどたぶんできない
スレチって騒がれそうだしな
まあwindowsで他のPCへメッセージ出したい
送信元へはソフトを入れたくないってだけだったが
とりあえず難しそうだな
あまり深く関わらずに具体的な解決法とかはアドバイスしない方がいいかも
仮に今回の彼の目的が悪用じゃなかったとしても
ソフトのインストールが許可されてないPCから、ちょいとVBS書くだけで
外部に向けて情報を流出させられるって、悪用に対して有用すぎる方法だからな
別にインストーラを起動する必要なんてない。
IPmsg 入れていいなら、コマンドラインから送信できるインストール不要の適当なチャットソフト入れればいいんじゃないの。
他の PC へテキストを送信する機能は昔は標準機能にあったがセキュリティの問題で外された。
あと、自己正当化の見苦しい奴は嫌われたりからかわれたりする。
Private Me_Name
Private Me_Birthday
End Class
Class Pilaf
Private This_Name
Private This_Birthday
End Class
Class Pilaf
Private Self_Name
Private Self_Birthday
End Class
どれがいいと思う？ピラフ的にはミーがかっこいいと思うんだよね。
なら_Nameと_Brithdayにするわ
Private name_
Private birth_
Private sex_
End Class
プリンター出力可能なActiveXを介せばね
ActiveXを介すなんて言うと特別なことのように聞こえるかもだが
FSOやDictionaryだってActiveXなわけで、それらを使うのと同じって話だ
まあ、359が何をどのようにプリンタ出力したいのかは分からないので
359の望み通りの出力が出来るActiveXが有るかは別問題だが、
無ければ作れば良いだけの話だし、無料の開発ツールで作れるからね
俺の場合、最初にそういうこと始めた十数年前には、Excelのインスタンスを非表示で作って
VBSからシートに印刷したい内容を書き出して印刷させてたりしたが
今はレシートプリンタの内蔵フォントを使った高速印刷がやりたくて
レシートプリンタの内蔵フォントや特殊制御が使える専用ActiveXを作って使ってる
／ ヽ
／＼ ／´ } ジ
／ _ _. ´,-‐-、〈
／ /´r:oヽ / o::ヽヾ ＼ だ
/ { 0::::::} {::::::o::} } }
i ヽ::: ｿ ヾ:::::: ソ / お
| i´ ﾍ iヽ..: ＼
ヽ ヽ＿/ ＼＿＿ノ:::::｀ ）！
ヽ ＼ ／ / ＿
＼ ｀-´ ￣
＞
そこから発展した話題の中で、他の人がピラフを論破する上で出した情報やコードとかが
タメになったことは何度かあるので、皆が突っ込みたくなるような
幼稚で間違ったネタをピラフが投下するのも、そう悪い事じゃないような気がしてきた。
なあに？
なに思いついたん？
あったとするじゃん。仮にそのオブジェクトの名前をタイタニックとすると
こうなるじゃん。
Class Titanic
Public Function Sail()
End Function
End Class
ループの中でタイタニックオブジェクトのセイルメソッドを
繰り返し呼ばなくてはいけません。しかし、ループのたびに
タイタニックを作ってたらとても時間がかかります。
ループの外でタイタニックを作ってそのオブジェクトを
使いまわすことにします。しかし、ループが1回も回らなかったら
タイタニックを作るのにかかる時間が無駄になります。
ループする数をあらかじめ知ることができればよいのですが、
ハリウッドの原則を忠実に守っている素敵フレームワークを使っていて
ループの中で呼ばれる処理は実装できますが、何回呼ばれるかは
あらかじめ知ることができません。
みんなはこういうときどうする？
スーパーヘビー？wなオブジェクトをループ内で毎回初期化するには時間が掛るとしても
フラグ作ってそれが初めてか否かを判定するだけなら、ループ内で行ったところで
たかが知れてるというもの
100回判定しても10000回判定しても、昨今のPCなら体感的には0秒だ
億単位のループになって、初めて数秒くらいの体感できる時間になるが
億単位のループなら、その判定以外の処理の部分でも相当な時間が掛るはずだから
1時間の処理が1時間5秒になるなどで、判定に掛る時間だけを見れば体感できても
判定が加わったことにより増えた時間は結局体感できない程度の差にしかならないはず
教えていただけませんか？
添付ファイルを追加するのは
MessageObj.AddAttachment パス・ファイル名
ですが、逆に添付ファイルを削除するのはどのようにしたらいいでしょうか？
.Attachments.Delete
とか
.Attachments.Items(n).Delete
とかじゃね、しらんけど
CDOとか未だ現役で使われるのかね
WMIをつかうのでしょうか？
http://itpro.nikkeibp.co.jp/article/COLUMN/20060725/244263/
コマンドラインはクライアントから設定できないだろ
もっと具体的に
>>370
>>371
>>379
純粋オブジェクト指向型言語であるVBScriptで条件分岐使ったら
負けだと思うよ。
https://friendpaste.com/2FviEh6jieAyYwfDZGNX2l
これはもうデザインパターンに追加するべきだと思うんだよね。
ファーストオンリーイニシャライズステートチェンジタイタニックパターンと
呼んで欲しい。考案したのはピラフ。どうしようピラフ歴史に名を刻んじゃいそう・・・！
それに今のバージョンでも『純粋』なオブジェクト指向じゃないよ
ピラフ新しいPC欲しい。
ところでさ、ピラフ社畜っぷりが半端ないから
毎日出勤時刻と退勤時刻を会社にご報告しなきゃいけないの。
そこでイベントログを参照してPCの起動時刻とPCの終了時刻を
出力するVBScriptのプログラムをよろしくお願い致します。
1週間前まで出力されるととても助かります。以上、よろしくお願いします。
出退勤の概念がある業務形態で、出退勤時刻を必要としていながら、タイムカードやタイムレコーダーの類も無く
手書きの出退勤時刻記録表さえ作らずに、個々で出退勤時刻の報告をしろなんて会社はまず無いし
勤務時間（始業時刻、終業時刻）は、それの記録を目的とするもので記録しなければならず
事実上、PCの起動時刻と終了時刻がそれとほぼ一致するとしても、それを以て出退勤の記録としてはいけないので
出勤時刻どうこうってのがウソなのはバレバレなのにね
というか、理由として書いた物がウソだろうと、とにかくイベントログの扱い方が解ればいいわけなんだから
「イベントログ VBS」でググればいくらでも情報出てくるじゃん
「イベントログ ID 起動 シャットダウン」とかでググれば、起動や終了のイベントIDもすぐに出てくる
「イベントログ VBS」でググって、WMIのWin32_NTLogEventを使うことが解れば、
「Win32_NTLogEvent 時刻」でググって、TimeGeneratedがイベントの時刻を取得するプロパティであることもすぐ解る
それとも何か、働いてるってのがウソなだけではなく、イベントログの扱い方が知りたいってのもウソで
単にコード書かせてケチ付けたかっただけなのかな？
ピラフが無職じゃなくても別に困らないでしょ。
ピラフは仕事してると思われたいと思ってる。
それを汲み取って返信するのが会話だと思う。
相手の意志を受け入れて困らないのであれば、
受け入れるべきだと思う。それが相手を尊重するってことだと思うし、
会話を行うにあたって不可欠なことだと思う。相手の意志を無視して
自分の中で結論付けたところでそれは話が食い違ってるだけだし、
自己満足にしかならないよね。
大事なのは相手を尊重する心。VBScriptのコードを
書いてほしいというピラフの心をなによりも尊重するべきだし、
ググって分かった気になってるだけじゃダメです。コード書いてください。
形で示してください。よろしくお願いいたします。
良い関係を築くべきな友人やお得意様相手の場合の話ね
良い関係を築いたところで、何のメリットも無いどころか
調子に乗らせてつけ込まれるだけみたいな相手に対してまで
そういう配慮をするのは、大人な対応ではなく単なる頭の弱い奴
ちゃーメシは夢職なのか
可哀想すぎるぞ
そうだよね、ピラフ可哀想。
同情でVBScriptのプログラム書いてくれてもいいんだよ？
やさしさに甘える準備は万端だよ？
ピラフがそんな人間じゃないっていうのはスレ見てたらわかるでしょ。
心外！ピラフ心外!!
ピラフじゃない、ピラフじゃない、ピラフじゃない。
え？そんな人いるの？想像もできないよ。
残業代を減らすため、勤務表を改ざんする上司がいるので、
知らない間に、給料が減っている
また、1分単位の残業代を払わない会社もある
その代わり、1分単位の私語雑談や、ちょっと手が止まってるくらいは、口頭で注意されるくらいのことはあっても
事細かに懲戒処分とかにされずに見逃してもらえてるはずだ
何でもかんでも杓子定規に法律守らせようとするのは、まだまだ社会的に未熟で幼稚な思考
流石に残業の計算単位を1時間とした上で、毎日40～50分の残業をさせられるとかならまだしも
15分単位の計算で、5分、10分くらいのサビ残にとやかく言わないのが、社会を知った大人の対応
自分も完璧ではないのだから、相手が完璧でなくても、法律的にではなく社会通念的に問題がなければ
完璧じゃない自分を棚に上げて、相手の不完全さを攻撃するなんて幼稚で恥ずかしいマネはしない方がいい
大丈夫だよピラフ最初から改竄して提出してるから、えへへ
じゃあ、お願いしますけど、
イベントログから取得したPCの起動時間と終了時間を
15分単位で丸めて出力するVBScriptのプログラムをよろしくお願いいたします。
それやり放題だから30年前にうちの会社じゃ廃止された方式だよ？(´･ω･｀)
30年ていったい今いくつなんよ？Windowsもない時代じゃん。
古代文明にもほどがあるよ。ピラフの会社はお給料少ないし、
時間なんて適当でええんよ。
今の会社で勤めてたと勘違いしたんだ？(´･ω･｀)
ちなみ、その頃うちの会社はPC-98というのを使っていたらしい伝聞だが(´･ω･｀)
ああなんだ、ピラフてっきり古代人が経験談を語ってるんだと思ってた。
ピラフは自分の会社の歴史とか聞いたりしないからさ、絶対そうだと思ってたよね。
30年は勤めてないってことでいいのね、28年くらいでおk？
PC-98っていったらやっぱDOSなんドスか。VBScriptが使えないのは嫌だよね。
できぬわー！！！
(#｀Д´)ﾉﾉ┻┻;:'､･ﾞ
EventDataを取得できないんです。
どうやったらEventLogのEventDataを取得できますか。
教えてください、お願いします。
Get-WmiObject -Class win32_operatingSystem | Format-list *
LastBootUpTime : 20150118063309.491758+540
なぜか最後の起動時間が、1/18になっている??
PowerShellは嫌や。VBScriptでお願いします。
数個しか見てない奴はそれで十分か
過去ログ消えるから困る。
かといって SC から書き込みはめんどくさい。
幸い、今のところ、スレ覧は今まで通りに見れるんで、３つに分けると言い。
１．過去ログはオフラインにして使う。
２．閲覧は SC が見れればおｋ。
３．書き込みは NET のスレ覧で同じスレを探す。
.dat の取得ができないけど、スレにマークを付けられるんで、マークでソートしてそっからブラウザを開いて書き込み。
間違ってクリックしたらログ削除。これでスレタイはもとに戻る。
NEXT
なんでwindows バックアップ廃止するかな、しかも不便になってるし
Google先生に「vbs パソコン 起動終了」で聞いたら
1番TOPに出てくる内容じゃダメ?
これ1週間単位だけど、
出力内容を、後は15分繰上げ、繰り下げするだけだから
イケる気がすんだけど…。
【誤】>>401
【正】>>402
なんでだ、全然情報がない
なんでプロセスが増殖するのか意味がわからない、
動作的に下記のことをやると再帰的に自分自身を呼び出しているような動きをしている
Set objShell = WScript.CreateObject("WScript.Shell")
objShell.Run "cmd /c wbadmin start backup -backupTarget:d: -include:c:\* -quiet", 0, True
ディレクトリを指すリンクがあって、
上の階層に飛ばされて、またリンクに当たると、
上の階層に飛ばされて、またリンクに当たると、
上の階層に飛ばされて、、、を繰り返しているとか？
よく知らないけどさ
http://japan.zdnet.com/article/35061894/
＞関数型言語は手続き型言語と違って、セミコロンが不要だ。
VBSは関数型言語だったのか…
bashもそうだな
￣ヽ、 _ノ￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
｀'ｰ '´
○
Ｏ
,､,,..._
ﾉ ・ ヽ と思う鳩サブレであった
/ ::::: i
/ ::::: ﾞ､
,i :::::: `ｰ-､
| :::: i
! :::::.. ﾉ
`ー――――― '"
いけそうですか！！ありがとうございます！！
よろしくお願いいたします！！！
初級の俺には、とても参考になる。
あと、ttps://www.upken.jp/kb/vbscript-dedup-process.html のコードも参考になった。
'※また、ttp://www.vector.co.jp/soft/winnt/util/se386622.html のスクリプトを参考にしてます。
Option Explicit
Dim Document, ShiftKeys, strFlug : strFlug = 0
Do While strFlug = 0
WScript.Sleep 100 : inpShiftKeys
If Instr(1, ShiftKeys, "shift", 1) > 0 Then strFlug = 1
Loop
Wscript.CreateObject("wscript.Shell").Run "cmd /c EchoX.exe 0 14 【お知らせ】 13 9 シフトキー押下を確認。 && pause"
If Right(UCase(WScript.Fullname),12) = "\CSCRIPT.EXE" Then
WScript.Echo("シフトキーが押されたため、このスクリプトを終了します")
End If
WScript.Quit
Sub inpShiftKeys
Set Document=CreateObject("htmlfile") : Document.write "<body></body>" : Document.close
Document.body.onunload=GetRef("OnUnload") : Document.write "<body></body>" : Document.close
If Right(UCase(WScript.Fullname),12) = "\CSCRIPT.EXE" Then WScript.Echo "keys = " & ShiftKeys
End Sub
Sub OnUnload()
ShiftKeys=Array()
If Me.event.shiftLeft Then Push ShiftKeys,"shiftLeft"
If Me.event.shiftKey Then Push ShiftKeys,"shiftKey"
ShiftKeys=Join(ShiftKeys," + ")
End Sub
Sub Push(Items,Item)
ReDim Preserve Items(UBound(Items)+1) : Items(UBound(Items))=Item
End Sub
あるファイルを取得したのはいいが、コピー先にコピーできない。
NewFileName = objFile.Name
WScript.Echo NewFileName 問題なくファイル名が表示される。
取得した変数（コピー元ファイル名）を使ってコピー先に
コピーしたいだけですが方法が分かりません。
例）下記のだめのパターン
NewFileName.Copy "d:\copy先フォルダ"
Sub Copy(SourceFilepath, DestinationFilepath)
Set Fso = CreateObject("Scripting.FileSystemObject")
Set SourceFile = Fso.GetFile(SourceFilepath)
SourceFile.Copy DestinationFilepath
End Sub
これで
すみませんが自分のスクリプトに当てはめると理解できておらず
、再度具体的に教えていただけたら幸いです。
Option Explicit
Dim objFS
Set objFS = CreateObject("Scripting.FileSystemObject")
Dim objFolder
Set objFolder = objFS.GetFolder("d:\copymoto")
Dim strNewFileName
Dim dtmMostNewTimeStamp
Dim objFile
'特定フォルダ内のファイルを列挙
For Each objFile In objFolder.Files
'最終更新日 objFile.DateLastModified
If dtmMostNewTimeStamp < objFile.DateLastModified Then
dtmMostNewTimeStamp = objFile.DateLastModified
strNewFileName = objFile.Name
End If
Next
'最新更新ファイル取得
WScript.Echo strNewFileName
(##################################################
取得した最新更新ファイル（straNewFileName)を
コピー先(d:\copysaki\"）にコピーしたいが、どうしても分かりません。
すみませんが、駄目もとでお願いです。
Dim strNewFilePath
Dim dtmMostNewTimeStamp
Dim objFile
'特定フォルダ内のファイルを列挙
For Each objFile In objFolder.Files
'最終更新日 objFile.DateLastModified
If dtmMostNewTimeStamp < objFile.DateLastModified Then
dtmMostNewTimeStamp = objFile.DateLastModified
strNewFilePath = objFile.Path
End If
Next
'最新更新ファイル取得
WScript.Echo strNewFilePath
objFS.CopyFile strNewFilePath, "d:\copysaki\"
こうかな。
ご丁寧に対応頂きありがとうございました。
大変たすかりました。
Shellとかは簡単なんですが、もっとVbscriptは勉強します....
スパルタンでは使えなくてもアイイーがあるらしいし問題ないよ
これからもVBScriptをよろしくお願いいたします
以上、よろしくお願いいたします
サポートされないことが明らかになりました。
おめでとうパイパイ、ぴらふ、さようなら
http://www.publickey1.jp/blog/15/microsoft_edge_activex_vbscript.html
A break from the past, part 2: Saying goodbye to ActiveX, VBScript, attachEvent…
http://blogs.windows.com/msedgedev/2015/05/06/a-break-from-the-past-part-2-saying-goodbye-to-activex-vbscript-attachevent/
mshtaだとIEが動くのか?
「名探偵コナン」脚本家の望月武氏、急性心筋梗塞、４６歳。
他の国々のように、日本もさらに多くの原子力発電所を作ろうとしています。
彼らは幻想の中に生きています。人々は、放射の影響で不必要に死んでいます。
ahjzfl-1/04zpzf/n0gkne
何千もの鳥や魚が死んでいます。集中豪雨の結果です。その中には、放射能が含まれます。
magazines/rwhnd8/kxz1kf/ewe6t0
人々は肺炎やインフルエンザやＨＩＶ/エイズに抵抗できなくなっています。
magazines/33116k/yitdsf/u198z0
あらゆる種類の癌の増大もまた核放射能によるものです。
33116k/04zpzf/30g6fe
認知症の過程は放射能汚染によって加速します。
magazines/ljbue8/pnv97m/xchu67
マイトレーヤは、世界中の原子力発電所を直ちに閉鎖することを助言されます。
33116k/yitdsf/u198z0
マイトレーヤが公に話し始めるとき、彼はこのことについて話されるでしょう。
magazines/ahjzfl-1/pzytyf/vk7zly
他に適切な板があったら、誘導していただければありがたいです。m(_ _)m
http://peace.2ch.net/test/read.cgi/win/1292764835/
せっかく教えていただいたのでありますが。
元々は、Wscript.ShellのExecかRunで、
「コマンドの結果をファイルにリダイレクトしているバッチ」を
呼び出そうとしていて、スルーされる場合があるのに困っていた。
まあ、リダイレクトの動作が保証されていると
明記されているのを見た事もないけれど。
つーことで、無精をせずに、Execを使ってStremを取得し、
それを自前でファイルに出力する、
という方法で解決しました。
以上、報告であります。
／ ＼
／ ─ ─＼
／ （●） （●） ＼ 本日はお日柄もよく、絶好のVBScript日和ですね
| （__人__） |
/ ∩ノ ⊃ ／
( ＼ ／ ＿ノ | |
.＼ “ ／＿＿| |
＼ ／＿＿＿ ／
いまいち評判わるいね。
じゃあさ、みんなでVBScriptを盛り上げていこうよ！
全力わっしょいVBScriptだよ
VBScriptは、ディスコンだからJScriptやろうぜ。
いやなら仕方がない
せやなｗピラフの人生打ち切りやでｗｗ
なんでや！！！
mshtaはvbscriptディスコンでしょ
一括変更したく次のサイトを参考に
ドラッグandドロップで渡さず、
指定フォルダ内を検索して
リンク先パスが指定文字に合致するものは、指定パスに置換え、置換えたファイル一覧は
ログ出力したく教えていただけないでしょうか？
http://pnpk.net/cms/?p=2231
ナイスクエッション！
ピラフやってみる
>指定パスに置換え、置換えたファイル一覧は、
>ログ出力したく教えていただけないでしょうか？
WScript.Shellの、CreateShortcutで、
ショートカット(リンク)を新たに作成できるが、
すでに存在するリンクを、読み取る関数はあるのか？
また、リンク先パス(TargetPath)には値を設定できるが、
逆にリンク先パスから、値を読み取ることはできるのか？
また、指定文字に一致する場合、
完全一致にしないと、複数に一致してしまう
また、完全一致にしても、2つのリンクが、
たまたま同じリンク先パスを、指すこともあり得る
この質問に誰も答えないのは、
簡単にリンクを処理できないし、
また、正規表現で複数一致した場合の処理が難しく、
間違ったリンクが処理されてしまうから
>Function REWRITE_SHORTCUT(strFile)かとおもってます
>パスの頭、第一階層から指定してますので、
>完全一致で問題ないと考えております
REWRITE_SHORTCUT は、そのサイトの人が、作った関数で、
その関数内で、WScript.Shellの、CreateShortcutを使っているし、
TargetPath = 値
とリンク先パスに、値を設定しているけど、
変数 = TargetPath
という記述はなく、リンク先パスから、値を読み取ってはいない
MSが既存のリンクのリンク先パスから、
値を読み取る機能を、公開しているのか？
正規表現については、
abc1 なら、abc1, abc12, xabc1/de, de/xabc1
など、複数に一致すると問題になる。
先に、abc12に一致して処理すると、abc1は処理されない
フルパスで完全一致にすれば、それを防げるが、
同じリンク先パスを持つ、リンクがあると問題になる
できたおー
https://friendpaste.com/2U7C4gBBLBjo4e2v1Znf8p
使い方はこんな感じで
dir /s /b | find ".lnk" | cscript .\test.vbs pilaf freeza
>既存のlnkファイルのパスを入れてやれば、
>TargetPathプロパティを取得できます
>あとはショートカットファイルを探して、
>渡してあげればいいのかと思います
上3行分は、どういうソースコードになるんだ？
書いてくれ
set WshShell = WScript.CreateObject("WScript.Shell")
set objShellLink = WshShell.CreateShortcut(strFile)
strSHORTCUT_PATH = objShellLink.TargetPath
すまんすまん。
最後の行で、リンク先パスを取得できるのか
まあ、PowerShell ででも考えてみるよ
これは本当に、ピラフが作ったの？w
ピラフ様の実力を、なめてましたw
ピラフさんありがと。
ピラフをフリーザに置換ですかw栄枯盛衰ですね
マルチしてたのか。マナー悪いやつだな
ピラフ様マジぐう聖
ってのも情けない話だ。もっとちゃんとせいｗ
ちょっとした繰り返し計算に使ってたんで便利だったんですけど。
ちょっとしたテキスト処理やファイル処理をどーすればいいのか。
なんかスクリプト言語をインストールするしかないのか。
デバッグ用のPowerShell_ise でもできる
PowerShellは、.NET だし、
クラスのオブジェクトを使って処理するので、
様々なクラスのメソッドが使える
フォルダの移動をVBScriptで出来るようにしたいと思ってます。条件としては、
１ 移動したいフォルダがどのドライブにあっても、指定したフォルダに移動。
２ フォルダ内のファイルやサブフォルダも一緒に移動。
３ 移動先に同名のフォルダがある場合は自動でリネーム、もしくは上書き。
（どちらかができればOK）
４ これらを確認のダイアログを出さずに実行。
少し調べてみて以下のように記述してみましたが、パスが見つかりませんというエラーが出てしまいます。
どのように書き直せばよいか教えていただけると嬉しいです。よろしくお願いします。
以下はテスト用に記述したので、移動元、移動先は上に書いた条件に当てはまってないです。
Option Explicit
Dim objFileSys
Dim strScriptPath
Dim strMoveFrom
Dim strMoveTo
Set objFileSys = CreateObject("Scripting.FileSystemObject")
strScriptPath = Replace(WScript.ScriptFullName,WScript.ScriptName,"")
strMoveFrom = objFileSys.BuildPath(strScriptPath, "D:\aaa")
strMoveTo = objFileSys.BuildPath(strScriptPath, "D:\backup\")
objFileSys.MoveFolder strMoveFrom, strMoveTo
WScript.echo "[aaa] を [BackUp] に移動しました。"
Set objFileSys = Nothing
いまいち分からんけど、
fsoのmoveメソッドは自動的に
フォルダを作成してくれないので
事前に作成しておく必要がある。
それがイヤなら、wscript.shellの
runメソッドでcmd.exe呼び出して
dosコマンドのmove呼び出してやれば
フォルダが無くても移動できる。
createobject("wscript.shell").run "cmd.exe /c ""move c:¥xxxx c:¥oooo""",0,true
みたいな感じ。
パスは適当に変数に置き換えて。
存在確認して、無かったらcreatefolder
で作成って面倒なことになる。
簡単なのはフォルダ作成の方だった。
dosのmdコマンドで作成すれば、
親フォルダが無くても作成してくれる。
fsoだと親フォルダが無いとエラーになる。
教えて下さり、ありがとうございました。
初心者と言うよりまったく知識がないもので、教えていただいたことを理解するまでに
少し時間がかかりそうです。
スレの趣旨とはズレてしまいますが最終的に実現したいことは、
フォルダーのコンテキストメニューに「○○○へ移動」というメニューを追加 です。
HKEY_CLASSES_ROOT\AllFilesystemObjects\shellex\ContextMenuHandlers\MoveTo の値のデータを、
{C2FBB631-2971-11D1-A18C-00C04FD75D13} とすれば簡単にできるのですが、
それですと、フォルダーの選択や上書きの確認のダイアログが出てじゃまなので、
VBScriptならこれらを非表示にできるかなと思って質問させていただきました。
お時間がありましたら、また教えていただければ幸いです。
ありがとうございました。
>>462さん
教えて下さり、ありがとうございました。
462です。
SendToフォルダに登録して使うイメージ。
Option Explicit
'移動先フォルダ
Const cMoveTo = "d:\test3"
Dim objShell
Dim objFileSys
Dim strMoveFrom
Dim strMoveTo
Dim strMsg
Set objShell = CreateObject("WScript.Shell")
Set objFileSys = CreateObject("Scripting.FileSystemObject")
'引数が指定されていない場合は終了
If WScript.Arguments.Count = 0 Then WScript.Quit
'引数から移動元フォルダを取得
strMoveFrom = WScript.Arguments.Item(0)
'移動元フォルダの存在チェック
If Not objFileSys.FolderExists(strMoveFrom) Then
WScript.echo "移動元フォルダが存在しません。[" & strMoveFrom & "]"
WScript.Quit
End If
'移動先フォルダ名の生成
strMoveTo = objFileSys.BuildPath(cMoveTo, objFileSys.GetFolder(strMoveFrom).Name)
strMsg = "[" & objFileSys.GetFolder(strMoveFrom).Name & "] を [" & objFileSys.GetFolder(strMoveTo).Name & "] に"
If Not objFileSys.FolderExists(strMoveTo) Then
'フォルダが存在しない場合は移動
objFileSys.MoveFolder strMoveFrom, strMoveTo
If Err.Number = 0 Then
WScript.echo strMsg & "移動しました。"
Else
WScript.echo strMsg & "移動出来ませんでした。[" & Err.Description & "]"
End If
Else
'フォルダが存在する場合はコピー後に削除
objFileSys.CopyFolder strMoveFrom, strMoveTo, True
If Err.Number = 0 Then
WScript.echo strMsg & "移動しました。"
Else
WScript.echo strMsg & "移動出来ませんでした。[" & Err.Description & "]"
End If
objFileSys.DeleteFolder strMoveFrom, True
End If
Set objShell = Nothing
Set objFileSys = Nothing
ありがとうございます。思っていたより大変なことになってしまってすいません。
教えていただいたコード（？ 違っていたらすいません）をメモ帳に貼り付けて、
拡張子を.vbsとして、SendToに入れて使わせていただきました。
残念ながら下記のエラーがでてしまいました。
行: 22
文字: 1
エラー: パスが見つかりません
コード: 800A004C
ソース: Microsoft VBScript 実行時エラー
これ以上お手数をかけていただくのは申し訳ないので、後は自分で調べてみようと思います。
また何かありましたらよろしくお願いいたします。
>>469さん
バッチという方法もあるんですね。まったく無知なものですぐには出来ないですが、
こちらも検討してみようと思います。ありがとうございました。
まだしも、PowerShellの方がマシ
>470
行22の内容は何？
一応動く物を…
Option Explicit
'移動先フォルダ
Const cMoveTo = "d:\backup"
Dim objShell
Dim objFileSys
Dim strMoveFrom
Dim strMoveTo
Dim strMsg
Set objShell = CreateObject("WScript.Shell")
Set objFileSys = CreateObject("Scripting.FileSystemObject")
'引数が指定されていない場合は終了
If WScript.Arguments.Count = 0 Then WScript.Quit
For Each strMoveFrom In WScript.Arguments
'移動元フォルダの存在チェック
If Not objFileSys.FolderExists(strMoveFrom) Then
WScript.echo "移動元フォルダが存在しません。[" & strMoveFrom & "]"
WScript.Quit
End If
'移動先フォルダの作成
If Not MakePath(cMoveTo) Then
WScript.Echo "移動先フォルダが作成出来ませんでした。[" & cMoveTo & "]"
WScript.Quit
End If
'移動先フォルダ名の生成
strMoveTo = objFileSys.BuildPath(cMoveTo, Split(strMoveFrom,"\")(UBound(Split(strMoveFrom,"\"))))
strMsg = "[" & objFileSys.GetFolder(strMoveFrom).Name & "] を [" & cMoveTo & "] に"
On Error Resume Next
'フォルダが存在する場合はコピー後に削除
objFileSys.CopyFolder strMoveFrom, strMoveTo, True
If Err.Number = 0 Then
objFileSys.DeleteFolder strMoveFrom, True
WScript.echo strMsg & "移動しました。"
Else
WScript.echo strMsg & "移動出来ませんでした。[" & Err.Description & "]"
End If
Next
Set objFileSys = Nothing
Function MakePath(Path)
Dim objFileSys,LPath,MPath,Start
Set objFileSys = CreateObject("Scripting.FilesystemObject")
LPath = Path
If Right(LPath,1) <> "\" Then LPath = LPath & "\"
Start = 1
MakePath = False
Do
MPath = Left(LPath,InStr(Start,LPath,"\"))
If Not objFileSys.FolderExists(MPath) Then
On Error Resume Next
objFileSys.CreateFolder MPath
If Err.Number <> 0 Then
WScript.Echo Err.Description
Exit Function
End If
On Error Goto 0
End If
Start = InStr(Start,LPath,"\") + 1
If InStr(Start,LPath,"\") = 0 Then Exit Do
Loop
MakePath = objFileSys.FolderExists(Path)
Set objFileSys = Nothing
End Function
>>472さん
ありがとうございました！ 無事フォルダーの移動ができました！
コンテキストメニューには、
HKEY_CLASSES_ROOT\AllFilesystemObjects\shell に backup というキーを作り
そこに commandキー を新規作成して、値のデータを "vbsのパス" "%1"
とすることで表示できました。
自分で考えているだけでは到底解決できなかったと思います。
ほんとうにありがとうございました。
>>471さん
PowerShellはこちらで質問する前に少し検索してみたのですが、
自分には難しいかなと思って、一旦情報を集めるのをやめてしまいました。
機会があれば試してみようと思います。
バッチを馬鹿にしちゃいけない。
簡単な物であればバッチの方が単純。
この程度で同程度のことが出来る。DOS窓出ちゃうけどね。
@echo off
set targetpath=d:\backup
if not exist %targetpath% (
md %targetpath%
if not exist %targetpath% (
echo 移動先フォルダを作成出来ませんでした。[%targetpath%]
goto :ext
)
)
:loop
if {%1} equ {} goto :ext
set name=%~n1
robocopy %1 "%targetpath%\%name%" /e /move /np > nul 2>&1
if %errorlevel% equ 1 (
msg 1 "[%name%] を [%targetpath%] へ移動しました。"
) else (
msg 1 "%errorlevel% [%name%] を [%targetpath%] へ移動出来ませんでした。"
)
shift
goto :loop
:ext
どう致しまして。
お役に立てて何よりです。
>>476
訂正で、
msg 1 "%errorlevel% [%name%] を [%targetpath%] へ移動出来ませんでした。"
↓
msg 1 "[%name%] を [%targetpath%] へ移動出来ませんでした。"
バッチのif文1だけ判定してもだめだろ。
7以下はokとしてさらに、0は変更なしだから。
Set IE = CreateObject("InternetExplorer.Application")
IE.document.all.item("user").Value = "kyami"
IE.document.all.item("password").Value = "paryu"
IE.document.forms(0).submit
みたいのでできました。
webサイトからファイルをダウンロードするのは
Set http = CreateObject("WinHttp.WinHttpRequest.5.1")
http.Open "GET", "http://kyary.asobisystem.com/";, False
http.Send
みたいのででできました。
でもユーザパスワードをいれてログインしてから
ダウンロードするようなサイトの場合
どうすればいいのでしょう？
組み合わせてもうまくいきません＞＜
ログインした情報をセッションに保持して承認してるんでしょね。
クッキッキを設定していけないかしら。
ダウンロードするようなサイトの場合
たぶん、http.Open "GET" のように、
いきなり外部から、異なるセッションで、
アクセス出来ないのでは？
ログインした同じセッションで、
数秒待ってから、ダウンロードすれば？
IEのクッキーの設定でしょか？
常にセッションクッキーを許可するにしてみましたがダメでした。。。
言われてること理解してなさそうな気もしますが・・・
>>481
同じセッションでダウンロードするにはどんな方法がありますか？＞＜
遅レスだけど、デバッグに、Visual Studioのデバッガー使ってるよ。
最近は、PROもどきが無償で使えるみたいだし、Expressでもできたんじゃないかな。
VBScriptデバッガーも使ったことあるけど、何か使いにくかった記憶がある。
金払う価値あるよ。
IE EdgeでVBScriptが切り捨てられたから動かなくなるもんだと思ってたw
つまり消え行く技術だな……
つまり、htaは無くならない。
.NET Frameworkはどんどん切り捨てられてるのに古いもんの既得権益は凄いな。
http://www.microsoft.com/en-us/download/details.aspx?id=326
ほお
えへへ
ことになったわけで、vbsやjsのソースファイルで直接WSHはほとんどしてないな。
イルでプログラム作ったりしてる人がいたが、OfficeもVB6.0もVC++6.0もイン
ストールされてるのにvbsで作るとは奇特な人もいるもんだ。
それで実行時間が長いとか言ってたし。
なかなかイカしてるじゃん
vb6って開発環境もうサポート切れで作れないでしょ？
//;;;;`-､_
//ー-､;;;;;;;;;ヽ、
//_ ;;;;;;;;ヽ、
// ﾞﾞｰ-､ ｀ ;;;;;;ヽ
＿＿＿ // ｀-､ ` ;;;;ヽ
＿ ／::::::::::::::::::::ヽ // ＼ `;;;;|
／::::::::::::::::::::::::::::::::::ヽ // ヽ ﾞ､;|
∠＿:::::::::::::::::::::::::::::::::::::::ヽ // | i;|
＼／￣＼::::::::::::::::::::::::::::::::::＼ // | l/
/ ＼＿＿:::::::::::::::::::::::// l/
l ● ● ＼::::::::::::://
l (_●_ ) 》:::::://
ミi |∪ / /:::::://:: シルバーウィーーク
＼ ヽ丿 /:::::::://::::::::"-､､
` ァ-―''7":::::::://-;;:::::::::::::/
/|::| ｛:::::⊂￣ヽ'":::::::／
<;;;;;;| ＼:::ゝ(_ノ:::::::::::`-､,..--─-,,,
i＼;;| //l |::::::::::::::::::::`::::::::::::::::::｝
. l ﾄ、 .// ゝ＼:::::;;:::::::::::::::::::::::;;;-''
| l ＼__//＿＿＿,,..-''~ﾞー--─＜
----
Set WScoWs = WScript.CreateObject("WScript.Shell")
' skin 有効
Call WScoWs.RegWrite("HKCU\Software\Microsoft\MediaPlayer\Player\Skins\LastViewModeVTen","1","REG_DWORD")
strCmdLine = "C:\PROGRA~1\Windows Media Player\wmplayer.exe"
Set objExecCmd = WScoWs.Exec(strCmdLine)
WScoWs.Popup "アナウンス始動、待機中...",10,"オペレーター info",48
WScoWs.AppActivate (objExecCmd.ProcessID)
snd = "C:\darpa.net\CentralPrime\img\operator.png"
str = "wmplayer /play " & chr(34) & snd & chr(34)
WScoWs.Run str,3,False
WScoWs.AppActivate (objExecCmd.ProcessID)
z(3) = Array("06-05","06-15","06-30","20-45","20-55")
z(4) = Array(2,3,4,0,1)
z(1)(2)(0) = z(1)(1)(0)
If(z(1)(1)(1) > 4)Then
for y = 0 To UBound(z(2))
if(z(1)(1)(1) >= z(2)(y))Then
z(1)(2)(1) = z(2)(y)
End If
Next
Else
z(1)(2)(1) = 0
End If
for y = 0 To UBound(z(1)(2))
If(z(1)(2)(y) < 10)Then
z(1)(2)(y) = "0" & z(1)(2)(y)
End If
Next
z(1)(0) = z(1)(2)(0) & "-" & z(1)(2)(1)
snd = "C:/darpa.net/HOPs-ZERO/WakeUp_Timer/signal/iona-Arpeggio/" & z(1)(2)(0) & "-00.mp3"
for y = 0 To UBound(z(3))
if(z(1)(0) = z(3)(y))Then
snd = "C:/darpa.net/HOPs-ZERO/WakeUp_Timer/phase/" & z(4)(y) & ".wav"
z(1)(3) = 2
End If
Next
WScript.Sleep(10000)
WScoWs.Run str,3,False
WScoWs.AppActivate (objExecCmd.ProcessID)
WScoWs.Popup "information_" & z(1)(3) & " " & z(1)(0) & " 起動",12,"オペレーター info",48
WScript.Sleep(18000)
WScoWs.Popup "アナウンスを再起動しています。",3," 強制終了",48
objExecCmd.Terminate
Set objExecCmd = Nothing
Set WScoWs = Nothing
同一ファイルを開く時間でメッセージ変化
②再生し終わったら自動で閉じる
③スキンモードで起動する
④時報と、それ以外のメッセージも再生できる様にする
COIN_BACK = "BACK"
Class clsCoin
Public Value
Private Sub Class_Initialize()
If Fix(Rnd() * 2) = 0 Then
Value = COIN_FRONT
Else
Value = COIN_BACK
End If
End Sub
Public Sub Toss()
If Fix(Rnd() * 2) = 0 Then
Value = COIN_FRONT
Else
Value = COIN_BACK
End If
End Sub
End Class
Set Coin = New clsCoin
For I = 1 To 10
Coin.Toss
WScript.Echo Coin.Value
Next
コイントスをやりたいけどコインがないんですって状況って
よくあると思うんだよね。そういうときに便利だと思うんだよね。
ライセンスはBSDライセンスでいいです。
あとぜんぜん関係ないんだけど、フロントとバックってなんかエロくない？
フロントドア(左右)，リヤドア(左右)，バックドア…明らかに自動車関連ですね
(； ･`д･´)ですよね・・・桃白白も同じです
変数の宣言は、スコープ内のどこに書いても良いものだと思ってました。
VBAで書いた関数をモジュールごと下の方に張り付けたら、型が違いますってなりました。
「先に」宣言されている必要がある
VBSって、一通り読み込んでから動作するんじゃないのか。
確かに、構文エラーの直前まで実行できるのだからそうかもしれないですね。
それなら、スクリプトを追加しながら実行できるのかな。
バッチファイルなんかは、実行中に書き換えても、動作することできるし、VBSもそうなのかもしれませんね。
そもそもスクリプトを読み込むことと、それを解釈・実行する事は
別次元の話だ。
// 8.js
WScript.StdOut.Write("８");
// lc.js
var all = WScript.StdIn.ReadAll();
all = all.toLowerCase();
WScript.StdOut.Write(all);
> cscript //NoLogo //U 8.js cscript //NoLogo //U lc.js > out.txt
これでおかしくなる。8.jsはUTF-16LEで保存。これは読めるようだけど
こうでした
もうよくわからん
フリーの画像処理コンポーネントをご紹介下さい。
ImageMagick と Doodle2 が使えるのは分ったんだけど
他にないかなと思いまして
一応 やりたい事は
・画像フォーマット変換
・画像のリサイズ(縮小)
・各ピクセルの カラー情報を取得する
そういう仕様のようだ
//Uを付けなきゃ動作する
ただし、シフトJISで出力される
,.．-──-.‐-‐-.‐-､
/:::::::::::::::::::::::::::::::::::<:::::::::ヽ
/::::::::::::::::::::::::::::::::::::::::ヽ::::::::|
/::::::::::::::::::::::::::::::::::::::::::::::ヽ::::::|
（＿＿＿＿＿＿＿＿＿＿__）○
丿 ::.__ .::::::::::::: __ ::::ヽ
／ ／。 ヽ_ヽｖ /: ／。ヽ ::::::ヽ ,.〃´ヾ.、 / ／
/ ／￣￣√_＿＿丶 ￣￣＼ ::::| ／ |l ', / ／
| .:::::::::: / / ｔｰｰｰ|ヽ ..::::: ::|r'´ ||--‐r､ ', じんぐるべー！
| .:::::. ..: | |ヽ .,..ィ'´ l', '.j '. じんぐるべー！！
| ::: | |⊂ニヽ| | 'r '´ ',.r '´ !| ＼
| : | | |:::T::::| ! l! ....:.:.:.:.:.:ヽ､ ,ｌ ＼
＼: ﾄ--^^^^^┤ ゝ､.,_ ---‐‐‐----ゝ､ノ
このスレの実力見せつけてやろうよ！
ほとんどのエンジニアには解けるが、下位10％のダメなエンジニアにだけ解けないパズル?
http://tango-ruby.hatenablog.com/entry/2015/11/30/122814
【パズル２】ほとんどのエンジニアには解けるが、下位20％のダメなエンジニアにだけ解けないパズル?
http://tango-ruby.hatenablog.com/entry/2015/12/28/212010
おちんぽふやけるほどのポリネシアン・セックス了解です
みたいなことをやりたいんですが
スマートな書き方を教えて下さい
失礼しました
桃白白、諸般の事情でクライアントのIPアドレスを制限しなければならないの。
検証するIPアドレスと
許可するIPアドレスと
許可するサブネットマスクを受け取って
検証するIPアドレスが許可するIPアドレスの範囲内か調べたいです。
IPアドレス、サブネットマスクのデータ型は文字列でその形式はIPv4のドットつき10進数です。
どうやればいいですか？みなさんのお知恵と手技を拝借つかまつりたいですお願いします。
サブネットマスク 255.255.255.0 (/24)
/24は2進数で考えて、左から24ビットの1と、8ビットの0
ネットワークアドレス(開始) = IPアドレス And サブネットマスク。
ブロードキャストアドレス(終了) = IPアドレス Or (Not サブネットマスク)
開始がネットワークアドレスで、終了がブロードキャストアドレス
192.168.0.0 ～ 192.168.0.255
この場合、利用できるアドレスは、開始・終了の2つを除いて、
2^8 - 2 = 254
サブネットマスクの解説
ttps://www.cman.jp/network/term/subnet/p3/
ありがとうございます！
引き続きよろしくお願いいたします！！
< 終了(ブロードキャスト)アドレス
これで良いのでは？
ちゃーはんおめ
VBScriptのコード書いてもいいのよ？遠慮しなくていいのよ？
ﾄﾞﾓ(ﾟ∀ﾟ)ﾉﾄﾞﾓ
今年の目標はなんにしようか。
桃白白みんなと一緒にVBScript頑張るってことにする。
桃白白今年から本気出す。
メールとかWebアプリとか使うときのパスワード。
あれって定期的に変更してくださいって言ってくるお節介焼きまくりのやつがあるじゃん。
桃白白いままでパスワードを変更したところでブルートフォースアタックされたら意味ないじゃん
変更するだけ手間がかかるだけじゃん、桃白白の貴重なお時間をなんだと思ってるわけ？と
思ってたんだけどさー、あれってパスワード変更したらブルートフォースアタックで
破られる確率下がるんだね。確率はほんと不思議。桃白白完全にお手上げ。もう万歳三唱するしかないよ。
これ桃白白
https://41.media.tumblr.com/9b00b986c01291f044728c5ac60a57ce/tumblr_n24i9owuAz1qi3fp7o1_500.jpg
そうなの。桃白白便秘なの！助けて！
ないないw
桃白白いま >>530 これやってるの。
そっちもできたら教えて。桃白白ひさびさに本気出す。
IPアドレスとサブネトマスクを二進数化してゴニョゴニョする。
CIDRのプリフィクス長をサブネットマスクに変換するのが難しい。
これ無理ゲーじゃない？
サブネットマスクとは順番が逆になってしまうんよ・・・。
許可するネットワーク、例えば適合条件192.168.0.0/24というのがあって、192.168.0.123が適合するのかを判定したいんやろ？
/24に相当するサブネットマスクは &hFFFFFF00 やねん(先に示した式で出る)
192.168.0.123 は &hC0A8007B やから &hC0A8007B And &hFFFFFF00 して192.168.0.123のサブネットが出る
192.168.0.0 は &hC0A80000 やから &hC0A80000 = 上記の結果 が True なら適合ってわけやね
これやってる事がわかるなら正統手順のサブネット演算方式がええけど、職場で自分以外わかりそうにない時は
もっと妥協してサブネット持ち出さずに範囲指定／判定する実装をしておいた方がええかもな
あるのは論理演算子、And, Or, Xor, Not だけか
掛ける２、割る２で良いのでは
ネットで検索して見つかるやつはwindows8.1までしか対応してないというか
10から仕様が変わったみたいで
ちなみに8.1まででしか動かない奴はVerbsで右クリックのメニューもってきて実行
って流れなんだけど10からはVerbsで持ってこれるコマンド？が限定されてるみたいで
タスクバーにピン留めするってコマンド?が取得できてない状態でした
メソッドの第一文字が大文字なのがこんなに気持ち悪いものだったとは。
ま、大文字小文字の区別を間違えても動くからいいんだけど、あれは駄目だ…個人的に。
>>554
その「動いてくれないスクリプト」をここに書く方が良いのではないのか？
BitTorrentがオープンソースで開発されています
言語は何でも大丈夫だそうなので、P2P書きたい！って人居ませんか？
Covenantの作者（Lyrise）がそういう人と話したいそうなので、よろしければツイートお願いします
https://twitter.com/Lyrise_al
ちなみにオイラはCovenantの完成が待ち遠しいプログラミングできないアスペルガーｗ
The Covenant Project
概要
Covenantは、純粋P2Pのファイル共有ソフトです
目的
インターネットにおける権力による抑圧を排除することが最終的な目標です。 そのためにCovenantでは、中央に依存しない、高効率で検索能力の高いファイル共有の機能をユーザーに提供します
特徴
Covenant = Bittorrent + Abstract Network + DHT + (Search = WoT + PoW)
接続は抽象化されているので、I2P, Tor, TCP, Proxy, その他を利用可能です
DHTにはKademlia + コネクションプールを使用します
UPnPによってポートを解放することができますが、Port0でも利用可能です(接続数は少なくなります)
検索リクエスト、アップロード、ダウンロードなどのすべての通信はDHT的に分散され、特定のサーバーに依存しません
4
ピラフはねー、暇すぎて死にそー
国民の休日にも対応したやつ
おもしろそう
ピラフやってみる！
リスト形式はできた
https://friendpaste.com/5DHCsnSc378S6UqDr6AgCB?rev=613239393762
どう？これ、どう？いい感じじゃない？
http://www.fastpic.jp/images.php?file=5805410062.png
VBScript書くのにVisual Studio Code使ってみてるけど結構書きやすい。
矩形選択と矩形入力ができれば文句なしなんだけど。
htmlかMarkdownで吐いてくれよ。
できたー
https://friendpaste.com/5DHCsnSc378S6UqDr6aJrV?rev=646362373635
じゃーん！
http://www.fastpic.jp/images.php?file=9978192732.png
Markdownってなんだろ、調べてみる
できそうだったらやってみる
色々参考になった。ありがとう。
おーす!
>>566
食べられてないが！ピラフ食べられてないが!!
ちょっとチューチューされただけだよ(ヽ´ω`)
いまねーMarkdownについて調べてる
さして上手くない、という意味で参考にさせてもらいました。
ぇ？
表示部はまあ良いとして、カレンダーが固定って面白くないね。
ピラフ食って美味いと思ったことが無いからな。
チャーハンの方が美味いわ。
万年カレンダー作ってみて下さい。
みんなでやろうよ
ピラフいまMarkdownでいっぱいおっぱいだからさ
万年カレンダーはそちらでお願い
それはねピラフも完全に同意する
チャーハン美味しいよね
ミックスベジタブルと卵と魚肉ソーセージが最強のトッピングだよね
表示する月は引数で変えられるよ!!
markdownなんて真面目にやるもんじゃねーだろ…
なん・・・だと・・・！
2016年のカレンダーしか入ってないでしょ。
万年カレンダーにすると良いねって話で。
マークアップのパロディみたいなもんだが結構使われてるよ
チャーハンのトッピングは脂と味の素が最高さ。
不健康化学物質ペアなのさ。
＿＿＿_
／ ＼
／ _ノ ヽ､_ ＼ えーでも
／ （●） （●） ＼ どうすりゃいいのさ
| （__人__） |
＼ ｀ ⌒´ ／
／´ ｀＼
/ / l l .
＿_l l_.[] ＿＿＿＿＿/＿/＿_
＼, ´-'ヽ
ヾ＿ノ
|
|
|__ コロ・・・・
_____＼ コロ・・・・
()＿＿)」
ピラフ頑張ってみるよ
BASP２１とか使わないでね。
ピラフがやるの？
／￣￣＼
/ ノ ヽ
｜ (●)(●)
｜ (_人_) ムリでしょ
｜ |┬||
｜ ヽノ|
/￣＼_＿＿ノ
`/| ＼ / ＿＿＿_
/ ヽ ￣／ Lﾉヽ
＼ / ＼_＿ノ
＼ ( ＼([ﾉ
/￣＼ ＼ﾉ￣
/ ￣
貧乏なピラフにはいずれにしても100%ムリ
https://msdn.microsoft.com/ja-jp/library/cc446847.aspx
http://excel-ubara.com/excelvba4/EXCEL233.html
ﾉ:;☆_;;.ヽ
（´･∀･`） おやすみー
ｒ'⌒と ､j ミ ヽ
ノ ,.ｨ' ｀ヽ. /
／ i!/
（_,. //
く.,_｀^''ｰ-､_,,..ノ /
｀~`''ー--‐'
https://friendpaste.com/2s4T5cdNKsurRyTCJTCJ5v
あざーす！>>591さん、あざーす！！
Map(DateValue(YYYY & "-03-" & Temp)) = "春分の日"
ここはどう考えればいいのかな？
カレンダーに詳しいサイトから拾ってきただけだよ。
祭日は人が決めることらしいので、絶対に正しいわけではないらしい。
この方法では大正時代では正しく動作しないだろうね。
平安時代には祭日は決まっていなかっただろうし。
正確さがあればお金を出しても買いたいと思うだろうね。
VBScriptは操作系がダメだからね。
よって年によってブレる。
かなりの精度で予想は付くが保証はない。
これはカレンダーコマンドを自作してたら常識。
できたー！じゃじゃーん！！！
http://www.fastpic.jp/images.php?file=9136288309.png
https://friendpaste.com/2s4T5cdNKsurRyTCJTZRxi?rev=303333303237
週単位でスケジュール立てる人結構いると思うんだよね。
そういうときって月で切られな方がわかりやすい。
これ、使っていいよ！印刷して書き込みまくったらいいと思うよ！
つぎはこれかなー。難問なんだよね。
これLinux系の話じゃんか。アホか？？
> 検証するIPアドレスと
> 許可するIPアドレスと
> 許可するサブネットマスクを受け取って
それを「どこからどのように受け取って「どう返すか」明示しろ。
三つの引数を要求して適合しなけりゃエラーコード吐いて終わりで後はバッチの方でよしなにしてくれる、でいいんかね？？
馬鹿ほど仕様を明確にせずに要求だけすんだよ死ね。
Linuxにcurlはあるけど問題解くのにcurlが必須ってわけじゃないし行けるよね？
よろしくお願いします。
んなのググればいいじゃん…しかも何年も前からあるし…。
「印刷して書き込め」って…何ユーザーに拷問強いてんだよ…。
素直にGoogleカレンダー使えばいいじゃんか。
引数でいいよ。テキストファイルから読み取ってもいいし。
それはお好みで。引数チェックをどうするかはピラフが知りたいことじゃないしお好みで。
気を利かせてよろしくやっていただけるとピラフ助かります。よろしくお願いします。
VBScriptでカレンダ作ってみようよってことだからグーグル使うのはずるいと思う。
つ telnet（Vista以降はオプション）。これはそういう問題。
無理してxx言語を使うという縛りプレイがおもんない企画。かつWindows系はおもくそ不利。
分かれよボケ。
>>605
ま、今月は忙しいから来月前半で挑戦してみようかねぇ…。管理系で使えそうだから。
お前、これマジでできねーの？？？？
引数のエラーチェック無し（つまり正しいと見込む）なら割と簡単だろ…。
めんどかったらここに直接コードを貼るからヨロ。
プライベートアドレスに対するチェック、ということでいいよな？
>>606
車輪の再発明には意味が興味無い。
意味も興味も無い。
telnetはあまり関係ないと思う。
WebAPIを呼ぶんだよ。不利じゃないよ！行けるよ!!
車輪の再発名と言ったらなんでもかんでもそうなっちゃうよ。
ガンダム作るのだってスカイツリーに上るのだって先人がいるわけだし
それの後追いでしかいないよね。でも、みんなやるでしょ。なぜならそれが楽しいから。
VBScriptによるプログラミングを楽しもうよ！
telnet で 80番ポートを叩くのと WebAPI は等価だボケ。
Cookie が噛むなら別だけどな。しかしこの出題は噛んでない。
curl は通常のブラウザの URI 欄に記述する内容でもよさそうだが、telnet は HTTP の手続きを忠実に再現しないと蹴られる。
ということも知らない素人かよ…やれやれ…。
じゃあWebAPIを呼べばいいんじゃん。行けるよね？
「無ければ作るが、あれば使う。」怠惰の鉄則。
もっと言うと、ネットワークアクセス周りはCOMコンポーネントを使えば大体よろしい。
IEコンポーネントはIE11に至ってもCOMが使える（らしい）。
つうか Perl 入れてライブラリを使えば超ラクチン。VBScript でわざわざやる理由はない。
>>611
だから >>605 以外やってみる気はねーよ。「VBScript縛りプレイの業務で役に立ちそうなこと」じゃなきゃ面白くないことは俺はやんない。
やらないんじゃなくてできないじゃないの？
お前がケツの穴でピーナッツを噛み砕いて食す動画をうｐすればやるけど。
煽るんなら他所でやりな。
ああそう、結局できないんだ
> 検証するIPアドレスと
これは1個だな
> 許可するIPアドレスと
これは複数か？
> 許可するサブネットマスクを受け取って
？？？？日本語でおｋ
だな。何これ？？
あーあるある。
ああ、こいつ、IP通信では自分のサブネットマスクまで相手に通知しねーのを知らないらしい。
あーあるある。
監視すべきポートはどこ？ていうかこのVBScriptはIPを与えられてリクエストする側？される側？分かんないの？
あーあるある。
出題側の頭がおかしい。
あーあるある。
飲んでるので理解が遅れたがシラフだったら速攻だったわ…
リストの先頭から全(線形)探索するため、ルール数と処理時間は比例する
特定の国からのアクセスを禁止したい場合、ルール数が数万となることもあり、処理時間がかかる
IP range では、連続したIPアドレス範囲ごとに、ルールを設定するため、
ルール数を減らせるが、うまく連続しない場合もある
IP set では、任意のIPアドレス群・MACアドレス群・ポート番号群をグループ化し、
それに対してルールを設定できる
とどのつまり、できないってこと？
んふふーできたー
http://www.fastpic.jp/images.php?file=7129670237.png
https://friendpaste.com/1fPV01o3mv4SoQvReWYaHO?rev=356438383534
ビットシフト難しすぎじゃない？ピラフくじけそうになったわ・・・
http://forest.watch.impress.co.jp/docs/news/1003958.html
VBScript始まったな
VBScriptはこれからも続きますか。
○んこになります
食われてないが!?ピラフ全然問題ないかぶら
／￣ヽ_
/ / ﾟ ▼)
(_ﾉ∩ﾟヮﾟﾉ) わんこーー
((＜ミ｜ ｜
((∠彡人＿＿ﾉ
ﾊﾟﾀﾊﾟﾀ ＵＵ
そりは土佐弁ばい
／① ＼ ／ ①＼.
／^ ｀ ´ / ヽ ｀ ´ ^＼
l,.､_ ヽ ／ .三 ＼ ,' _,.､ｌ
＼ ｀ｖ〈＿ヽ /＿〉v' ／
／_∩ ∨ ￣ ∨ .＼
（＿__＿） |、 ＼
| |/ ／
| ⊂ ／
| し'
＼ ､／ ／
＼／ ／
＿／ ／｀`l
（＿_＿_／（＿/
＞ な・・・・なんだってクマー！！ ＜
￣^Ｙ^Ｙ^Ｙ^Ｙ^Ｙ^Ｙ^Ｙ^Ｙ^Ｙ^Ｙ^Ｙ^Ｙ^Ｙ^Ｙ^￣
∩＿＿＿∩ ∩＿＿＿_∩
| ノ u ヽ / u u └| ∩＿＿＿_∩
/ ● ● | | ● ● ヽ/ u └|
| u ( _●_) ミ 彡 (_●_ ) u |● ● ヽ
彡､ |∪| ､｀＼ ／ |∪| 彡 (_●_) u |
/ ＿＿ ヽノ /´> ) （ く ヽ ﾉ ／ u |∪| ミ
(＿＿＿） / (_／ ＼_ ) （ く ヽ ﾉ ヽ
ピラフ、このスレから姿を消す。
めでたし、めでたし。
Visual Stdio Code でVBScriptのデバッグができるんですか。
ブレークポイント仕掛けるのはできないんだけど、
コードの色分けとか変数名、関数名の補完ができるよ。
スクリプト言語のバグの100割は変数や関数名の書き間違いだから
VSCode使ったらいいと思うよ。
早速のご返答ありがとうございます。
ちょっと試してみます。
Windows Script Debugger が消えてしまったので、困ってました。
デバッグしなくてもインテリセンスが秀逸
新元号に対応しますか。
AppActivateで該当アプリをアクティブにするスクリプトを作っています。
Windows7だと正常に動作しましたがWindows8.1だとタスクバーの該当アプリが点滅するだけでアクティブになりません。
調べる限り特にOSによる挙動の差異報告が無いように思えたのですが対策ありますでしょうか？
ソース貼ると投稿NGになるので、やってるのはこれです
objWshShell.AppActivate(objExecCmd.ProcessID)
よろしくです
タスクスケジューラでvbsを実行した時、起動したソフトが最前面に表示されません
http://q.hatena.ne.jp/1373728119
ttps://www.ka-net.org/blog/?p=7191
modi = new ActiveXObject("MODI.Document");
} catch (e) {
WScript.Echo("MODIが利用できません。" + e.message);
WScript.Quit();
}
実行結果：「MODIが利用できません。オートメーション サーバーはオブジェクトを作成できません。」
MODI（SharePoint Designer 2007）はインストールしてあります。(Greenshotは動作した)
環境はwin10 64bitで、WSHで実行しました。
エラーの原因は何が考えられますか？
32bit版のWSHで試してみてはどうだろう？
→ C:\Windows\SysWow64\wscript.exe
C:\Windows\SysWow64\cscript.exe
c:¥windows¥syswow64¥ 配下のcscript.exe か wscript.exeで実行してみると動くかもね。
それでできました。
ｔｈｘ
いつからtry/catchとかVBSで使えるようになった？
俺知識が止まってるのか
えへへー味の素買ってきた
明日チャーハン作る！
たとえば､ここ(http://www.vbsedit.com/scripts/misc/database/scr_1351.asp)にあるサンプルをコピペして実行しても同じ結果です。
どうしたらいいですかね？
ちなみにSystemScripterだとちゃんと動きます。
http://stackoverflow.com/questions/2806584/how-do-i-run-a-vbscript-in-32-bit-mode-on-a-64-bit-machine
に書いてある方法でちゃんと動きました。
デストラクタが無い言語はオブジェクト指向言語を名乗るな
http://aoking.hatenablog.jp/entry/20121005/1349395291
> 最近の言語はデストラクタがない軟弱な偽物ばかり
> オブジェクト指向言語の頂点はVBScript
デストラクタを持ってないことを理由に、オブジェクト指向言語でないと言うのは強引な話だなｗ
それを押すとテキストに時刻を出力してから所定のpdfファイルやWordドキュメント、xlsファイルを開くようにしたい
どのファイルをいつ開いたかのログみたいなイメージなんだけど
そんな簡単な事は自分で頑張りなさい
ファイルに出力、或いはpdfを開くとか
でも両方が出来ない
動きをみるとタゲが移るところで止まるみたいなのよね
コードを張るとか
えへへー頑張ってみる！
Button.Push().OutputNowTimeToText().Shotei().PdfFairuYaWordDokyumento,XlsFairu().Open().Rogu()
できたおー
https://friendpaste.com/76nkH4H7BxY3y9sUqYkUbu?rev=653237313630
ありがとうございますピラフ様
早速動かしてみます
ありがとうございます
でも、だが、しかし
早速イントラネットで試してみようと思ったら
クソ課長が「これIPは採れないの？」とか言い出した
なんとかならんでしょうか
業務用の物は自分で作れ
出来ないなら諦めろ
むしろＶＢスクリプトの需要は個人用途の方が少ないですやん
というところだが、今の過疎過疎の2chでなら別にいいんじゃないの。
VBスクリプトでなきゃ出来ない、難しいアイデアや使い方は歓迎するよ
流れるってのも変な話
そのおかげでウィルスの元みたいな扱いで嫌われたってことだよ
そんな安っぽい挑発に乗るわけないよ、ピラフを煽るなんて100万年早いよ
／_ノ ヽ､_＼
. ／ （;;..゜）;lll（;;..゜）＼ ごるぁぁぁ！！！このガキャあああああああ！！！
／ ⌒（__人__）⌒ ＼ ぶちのめすぞコラァァl！！
| ノ（ |r┬- | u | ＿＿＿＿＿＿＿＿
＼ ⌒ |r l | ／ .| | |
ノ u `ー' ＼ | | |
／´ .| | |
| ｌ ﾌﾟﾙﾌﾟﾙ u | | |
ヽ u -一ー_~､⌒)^),-､ | |_＿＿＿＿＿＿＿|
ヽ ＿＿＿＿,ノγ⌒ヽ) ｌ二二ｌ＿|_|＿_|＿
うちのバ課長の無茶な要求をなんとか
とはいえ、出来たら出来たでまた何かへんな要求してきそうで嫌なんですが
かわりに祈っておきます。
ググればその辺にいくらでも落ちてるだろ
人に頼るな
その程度も出来ないようでは、その後のメンテもできないだろ
諦めろ
ピラフも甘やかすな、最後まで面倒見る気があるならいいけどな
バッチくらいなら組めるんですが、VBは目下学習中で、前述したように単体だけならなんとかいけるものの
複数の動作がどうにもならない
お願いします
∩＿＿＿∩
| ノ ⌒ ⌒ ヽ
/ ● ●
| //// ( _●_) ミ なにその責任感、チョーウケルー
彡､ /⌒)(⌒ヽ
./ / / ＼ ヽ
l ノ
自分で調べる自由もあるし、人に頼る自由もある
わからないことを聞く自由もあるし、わかってて聞く自由もある
成長する自由もあるし、現状を維持する自由もある
サトシのピカチュウは進化しない道を選んだ
サトシはピカチュウが進化するのはピカチュウの自由だと言い
あくまでピカチュウの立場を尊重して見守った
それによってピカチュウは進化しないまま敵を倒す程の
実力を身に着けて物語の中心的存在しとして揺るがぬ地位を確立した
Ｙ ● - ● Ｙ
(＠ o ＠) ピカチュー
> <
人） （人
ﾎﾟｹGOやってますか？
そこでユーザーが、ファイルを選択して、ダイアログを閉じると、
そのファイル名を取得して、ログファイルに書き出してから、
選択したファイルを、アプリで開く
ピラフやってない、やってたんだけどね、なんかあれなんだよね
なんか車に轢かれそうになって、なんか天国に召されそうになって、なんかやめちゃったんだよね
へい
https://friendpaste.com/76nkH4H7BxY3y9sUqYkUbu?rev=663761373537
でも実行してみたらエラーを吐いちゃいました
-------------------------------------------
このページのスクリプトエラーが発生しました
ライン 5
文字 5
エラー 型が一致しません GetIP()
コード ０
URL file://c:\/vbtest/piraf.hta
htmだろ！
へい
https://friendpaste.com/76nkH4H7BxY3y9sUqYkUbu?rev=346262363364
バッチリ動きました
windows7 windows2008 windows2012の3種類で確認できました
昔、windowsサーバーマガジンの特集記事な「vbscriptはwindowsの神聖語、それを使いこなす者は魔法使いである」
という記述がありましたが、まさにそんな気分です
JavaScriptこそが真なる神の言葉
ttp://echo.2ch.net/test/read.cgi/hp/1403286918/
しかし予想通りバ課長が妙な事を言い出しました
1.ユーザー名を出力できるように
2.IPアドレスの表記が「191.168.1.2」のようになっているが、これを「192.168.001.002」3桁に
3.出力されるログをcsv形式に
つまり
「2016/09/28 12:34:56 192.168.1.2 D:WebSite\data\qwert.pdf」
↓ ↓ ↓ ↓
「2016/09/28,12:34:56,192.168.001.002,momotarou,D:WebSite\data\qwert.pdf」
この分だとエンドレスに要求がエスカレートしていきそうです
何か思いつきで言ってるだけのような気がしてきたので
「ハイわかりました」と答えて永久に製作中で終わりにしちゃいます
独学でVBの勉強しようかと思ったけど、やる気も消失しました
いいじゃん、おもしろそうじゃん、このスレのみんなでやってみようよ！
PowerShell_ise では、
$num = 1
$num.ToString("000")
出力 : 001
あのバ課長は素人に作らせようとしてるんですね
ＯＪＴみたいな従業員教育的な思惑で課題を出してるのかなと思ってた部分もあったんですが
やはり単なる思い付きだったことを確信しました
なおも善意に解釈するとイエスマンは淘汰されるということを教えたかったのかな
調べてコピペするなら誰でも出来るし
／::::::::::::::::＼
／:::::─三三─＼
／:::::::::<○>三<○>.＼
/⌒)⌒)⌒.:::::::::: （__人__） :::::: ＼ /⌒)⌒)⌒)
| / / /.. ｀ ⌒´ | (⌒)/ / / /,,
| :::::::::::(⌒) ／ ゝ ::::::. .........._
| ノ ＼ /_ ／´ ヽ
ヽ / ヽ / /０ .',
| | {o ホイミ ::}
': /
ヽ､_＿_,.,／
>>708
作ったあああ！！！
Function ToString(Number, Format)
ToString = Right(Format & Number, Len(Format))
End Function
へい
https://friendpaste.com/76nkH4H7BxY3y9sUqYkUbu?rev=343862613363
ttp://www.thinbasic.com/
BASIC文法のスクリプトです。
バッチリ動きました
でもまだしばらく隠しておきます
どうせ次はコンピュータ名を出せとかログを1日ごとに別けろとか
ログを自動でメールに添付して送れとかくだらないことをいうはず
1997/02 ペンティアム2
1999/02 ペンティアム3
2000/11 ペンティアム4
<--約6年-->
2006/07 Core 2 Duo
2007/01 Core 2 Quad
2008/01 Core i 7
2009/09 Core i 5
2010/01 Core i 3
<--約7年-->
2017/?? Core シリーズの後継がそろそろくる時期
半月が経過したので、そろそろリリースしてみます
果たしで何を言い出すか、あるいは旬が過ぎてスルーとなるか
是非スルーして欲しいものですじゃ
やはり間をあけたおかげで何事もなくクリアできました
ありがとうございました
過労死しなさんなよ
左右にフレーム分割した画面で、左側をメニューにして右側が表示領域となるように設定
左のボタンを押すと右のフレームに表示されるようにしたいとして
普通のハイパーリンクだと出来るのにボタンでやると新しいウインドウが開いてしまいます
何が足りないのでしょう
○<HTML>
○<HEAD>
○<TITLE></TITLE>
○</HEAD>
○<BODY>
○<P><A href="http://www.2ch.net/"; target="sub">hoge</A>
○<P><A href="http://www.demap.info/tetsudonow/"; target= sub >piyo</A></P>
○<FORM><A href="http://www.2ch.net/"; target="sub"><INPUT type="button" name="hoge" value="hoge"></A></FORM>
○<FORM><A href="http://www.demap.info/tetsudonow/"; target="sub"><INPUT type="button" value="piyo"></A></FORM>
○</BODY> ↑
○</HTML> ここが動かない
○<HTML>
○<HEAD>
○<TITLE></TITLE>
○</HEAD>
○<FRAMESET cols="10%,90%">
○<FRAME src="left.htm">
○<FRAME src="light.htm" name="sub">
○</FRAMESET>
○</HTML>
●light.html
○<HTML>
○<HEAD>
○<TITLE></TITLE>
○</HEAD>
○<BODY></BODY>
○</HTML>
<INPUT type="button" value="piyo"></A></FORM>
一方に、name="hoge" が無いから？
value の値も同じにして、テストすべし。
つまり、すべての条件を同じにして、テストすべし
老婆心ながら、人に見せるならlightはrightにしといた方がいいかもしれません。
ファイル名の校正もね。
WINDOWS 93
http://www.windows93.net/
URL忘れたけど、15年位前にもMACになっちゃうサイトもあったよね
覚えてる人いるかな？
https://jamesfriend.com.au/pce-js/
マックロＯＳＸ
http://www.virtualdesktop.org/complete/osx2/index.html
管理者権限で実行する必要があるスクリプト中でOutlookのバージョンを
取得する必要があるので
Set objOL = CreateObject("Outlook.Application")
として、objOL.Version によりバージョンを取得しようとしているのですが、
管理者権限でオブジェクトを作成するとOutlook自体が起動してしまいます
Outlookを起動させずに又は起動しても表示させずにバージョンを
取得できる方法はないでしょうか？
管理者権限のない一般ユーザーだとOutlookは表面上は起動せず普通に
バージョンを取得できるのですが・・・
環境はWindows7 Professional 32bit版ですが、Windows8以降のOSとか
64bit版でも使える方法があればご教示お願いします
その中でファイルを逆順で表示するようにしたいのです
【hoge.logの中身】
2016/03/51 11:11 heyjh
2016/04/42 22:22 ejnyh
2016/05/33 03:33 ejnuyh
2016/06/24 06:44 yoil
2016/07/15 12:55 jfuyj
これを下記のようにしたいのです
2016/07/15 12:55 jfuyj
2016/06/24 06:44 yoil
2016/05/33 03:33 ejnuyh
2016/04/42 22:22 ejnyh
2016/03/51 11:11 heyjh
へい
https://friendpaste.com/nQiuRRfoQtXXAonhkjkzJ?rev=623864623064
objOL.Application.Visible = False
で、非表示に出来ない？
ありがとうございます
ただ、ちょこっと意図するものと違いました
こんな感じの3つのhtmlとlogのイメージを張ってみます
https://friendpaste.com/nQiuRRfoQtXXAonhlBZlX
\\HogeServer\c$\Program Files\logs\hoge.log
\\PiyoServer\c$\Program Files\logs\piyo.log
のパスに存在するファイルになります
ありがとうございます
いろいろやっていてとりあえず
・最初に一般ユーザー権限でオブジェクトを作ってバージョン取得
↓
・取得したバージョンを引数として追加してrunasで自身を再実行
↓
・再実行後に引数の値からバージョンを取得
というやり方で凌いだのですが、これだと管理者アカウントでスクリプトを実行した時は
やはりOutlookが立ち上がってしまうのでもうちょっと何とかならないかなと思ってました
Visible = False は試してみて結果は報告します
普通にoutlook.exe探してファイルのプロパティ情報のバージョンじゃダメなの？
なるほど、ピラフにはこれが限界
https://friendpaste.com/2ze8Z4V9aDywcVqs9NPKae?rev=373730663563
スタイルシート難しすぎ
うちのは管理者でも違うくてもウインドウ表示されないけどなあ
その代わりタスクトレイにoutlookのアイコンが表示されて、スクリプト終了後にアイコンも消えるけど
となると、ちょっと迂遠だけど一旦ログファイルをローカルにコピーして
sort -rコマンドで逆転させてから開く方法ですかね
昨日試してみたけどobjOL.Application.Visible = False では無理でした
>>735
場所が分かれば確かにファイルバージョン取得でいけますね
ただ環境によってOutlookのインストールパスが違う場合があるので、レジストリから
インストールパスを取得する等してもうひと手間かける必要がありそうです
それができれば望んでいた動作になりそうなのでもうちょっと試してみます
PCによっては管理者権限でCreateObjectしてもOutlookは起動しないようです
ただ起動する場合としない場合の違いがよくわからないです
同じPCでも初めは管理者権限で試したらOutlookが起動したのに、何時間後かにもう一度やったら
今度は起動しなかったってこともあってかなり混乱してます
まあぶっちゃけた話、とある業務用OutlookマクロのインストーラをVBScriptで作ってるだけなので、
「Outlookが起動した場合は終了すること」とマニュアルに書いとけば終わりではあるんですが
パスはWIN32APIでも取得できるけど、遅いので
http://pnpk.net/cms/?p=3541
この辺参考にアンインストール情報取得してInstallSource取得すれば場所はわかるかな
､(,,, （ ）､
ﾐ （ ）ヽ
ﾐ ● ﾉ●ヽ
ミ (´｀ヽ ﾐ
ミヽ | ヽノ ミ
彡ﾐﾐヽ,,,,.|∪| 彡＼ トリー
/ ＿ ヽノ /´> )
ミミ(＿＿＿） ( )/ (_／
《巛ミ彡^| /
(巛ｿ^ ｿ| ／＼ ＼
《 | / ) )
∪ （ ＼
＼つつつ
＿＿_／ ヽ
／ ／ ／⌒ヽ|
/ (ﾟ)/ ／ /
/ ﾄ､/｡⌒ヽ。
彳 ＼＼ﾟ｡∴｡ｏ
`／ ＼＼｡ﾟ｡ｏ
/ /⌒＼Ｕ∴)
｜ ﾞＵ｜
｜ ||
Ｕ
あけおめーー！！
／ ＼
/ ヽ
/ ,ｨ /l i ／￣￣￣￣￣￣￣￣￣￣＼
i ,ｨ//./ l l. |ピラフ様ぁぁ～?
il ,ｲl.i././ .l ,.. ,. l. |
l トﾖ｣｣.｣∠_ノ｣｣｣ l. |
l .K"(_ゝ r'_(.ﾝi li |
l i. ,: ./ li. ＼_ ＿＿＿＿＿＿＿＿＿／
il ヽ ,｀. / ヽ )'
l ｀ i-ﾆ..:ｨ'´ i､
ﾉ r┴--┴i . li
ﾉ,...:-‐i ト-､｣.＿｣ トー-.!､
／ i ! l! fＯl l l! ,:へ､
,..イli i il .l .l ! l l ,i f:`;:､
ムj.ゲ il l l ! l l! .l .l! !っ入
/￣"" ﾉ__,,_｣ .ﾉ__｣.Ｏl l l l ヽーﾞ!､
./ / l l l l l l! l! ヽ
f ｲ l__.｣ l l L_.｣ il ﾞ!,
l. i l ﾄOj r::､__,,:=‐' l
l. l ヽ､ .ﾉ .レ- ,. , l.／ l
! _,,, .l ﾞ｢Ｏ/L＿ﾉノ_,.-./ ＿_ l
ヽ､／ Ｏl l ヽヽ＿,ｨ‐==‐r.i ,.｣.人 !､Ｏヽ ／
ヽ､ ／,.-ｹﾞ￣ .l‐ﾄ .l ;Lｨ'"l ヽヽ.＼＞､＿>'
><"/ .〉――ii"ヾ＝"T ﾘ l .i ﾞYー'
（`v / ./ l l! .!/ l ! ! l. ＼ ^ﾘ
ヽ./ ./ ｲ l! l.Ｏ l l f｀ヽ Y"
そのOfficeのバージョンよろ。でないと通用するか分からん。
>>736
CSSとか関係ないだろこれ。
普通に sort を /r で Exec して ReadLine すればいい話だろ。
ていうか HTML に VBSscript 埋め込むとか今時超クソダサいわ…
ねーよ。
要件はhtmlに表示するってことだからcssでいい感じに仕上げるのがいんじゃないかなって・・・
要件を満たしつつナウでクールなプログラム作れるのがベストだよね
ピラフ人間性はクールなんだけどクールなプログラム作るのは苦手
はーい！！！
あんたは今も充分カッコいいよ
どうすればそんだけ身に付けられるのやら
オイラは過去にNTTドコモの人給システム、最近は総務省の人給システムで遭遇しました
総務省の方は去年うまい具合に離脱できたんだけど
閲覧用のログをHTML形式を作っておきたい（〇月〇日分、とか）、というのか、
随時更新されるログファイルを都度表示したいのか、
で作り方は変わるけど、いずれにしても別な言語を使った方が楽。
>>755
仕様書の無いシステムのサーバー移転と改修をやらされてた隣の席のやつが失踪して、その案件が降りかかってきたことはある
ここはVBScriptのスレだからVBScriptで実装するなら
どうするかを話し合うべきだと思うんだよね
どの言語が適切かの議論もあるけれども
それをやると議論が発散すると思うんだよね
当初の目的であるログファイルをhtmlに表示すること
から離れていってヤクの毛刈り的なことになるんじゃないかな
トドのつまり議論が収束せず当初の目的に対するソリューションは提供されず
ぼくらの思いはインポッシブル・デザイアであり人の世はアンリミテッド・ディスティニー
ということになるんじゃないでしょうか、ピラフはそのことを懸念いたします
っていうのを結果と合わせて提示すれば問題ないと思うんだけど
逆に言えば結果が伴わなければソリューションとしては成り立たないというか
非常に厳しい状況にあるというか完全に白昼夢見てるコアラのマーチだと思うんだよね
五月蠅いオッサンだな。発想が貧困。
VBScriptでのDOM操作はもうサポートされないし（どうしても必要ならJavaScript）、ちゃっちゃと実装すれば使用感がわかるからそうすべし。
CGIぽくやるのが常套手段だが、ヒアドキュメント的に書けるバッチスクリプトで書くとサクッとできる。
https://friendpaste.com/7CB1PXAeGnHpQk9w11juQM
やっぱり文字実態参照が必要だとか、機能や仕様に色々要望が出たら改めてこの「なんちゃって手元CGI」を捨てて本格的に作ればいい。
元々管理行為の自動化を目的にしているVBScriptでやる必然性は全くない。そういう用途には向いてない。
main.htm とか data.htm とかは乗せてないから適当に修正してくれ。
VBScript で書き直したいならどうぞ。めんどくさいけど。
ていうか…。>>736 のコードをまともに読んでみた。お前ヘタクソ過ぎ。
連結リストの要素をいちいち New して要素に行をぶら下げて繋げていくとかマジでありえねー。
こんなクソ重い処理を書いて人様に見せる神経がわからねー。
せめて動的配列使えよ。
合法ドラッグでもキメた感じのクラクラ感だわ。
VBScriptを書くためのエディタでオススメあります？
VBScriptを書くための良いエディタをさっさと教えろやハゲ。
て聞けばいいの？
高いけど
評価版を落としてみた。悪くはないが色々物足りない。
そもそも、あなたがVBSEditをおすすめした理由って何？
インテリセンス
あと、デバッグね
人に聞いておいて何か言い方おかしくないか？
これよりいいものがあったら教えてくれ
褒めるところが違う。あるいは不足。
駄目なところもしっかりある。
出直せ。
>>771
どういう側面について「これよりいいもの」って言ってる？壺でも売ってほしいのか？
バカじゃねーの
死ね
VB系言語の書き手にはあまりにもゴミが多すぎる。その代表格が>>773。
まともな会話も出来ないやつに言われたくないね
アダルティな大人を目指そうよ。
豊島岡女子学園では運針といって毎朝長さ1mの布に針を通す作業をやるんだって。
基礎の大切さと努力の重みを知って人格を高めて強い意志が育まれるらしい。
プログラムではバブルソートがまさにうってつけだと思うんだよね｡
毎朝バブルソートを実装することによって
頭は研ぎ澄まされて澄み渡り凍てついた炎のような心で一日を過ごせる。
ピラフは知らず知らずのうちにやってた。真似していいよ？
ピラフ逃げてないし、お風呂入ってただけだし
もし良ければ、見てください
http://jsdo.it/michihito/bGH5
見る！！！
それか、自分で図を描きながら、理解してください
要素の移動が見えるようなサイトを、作れれば良いのですが、自分の実力では作れません
図は描けるんじゃない
動かなくていいよ
ちゃんと説明して
ピラフ理解できないから
親は必ず、子以下になるように、木を保つ
2つの子の(つまり兄弟の)大小関係は、問わない
最後尾にpushして、先頭からpopする。
その時にも再帰的に、上記のルールを適用する
詳しくは、どこかのサイトで調べてください
http://image.itmedia.co.jp/nl/articles/1511/12/kk_151112popu04.jpg
できたー！！
https://friendpaste.com/5JtEKMUvckdhuNd5rWjfaN
いまこうやってるけど
https://www.fastpic.jp/images.php?file=7032023841.png
こうした方が効率いいよ
https://www.fastpic.jp/images.php?file=4277940801.png
下図では、もし7に、0が入っている時、
2を1に上げて、4を2に上げた後、除外していた0を4に入れてから、
その0を上に上げていくから、2度手間になる
7に入っている値が、大きいとは限らないから
7は必ず、3以上になるのか
でも下図で、1が抜けたとき、2より3の方が小さい場合、
3が上に上がった時に、考えるのがややこしいw
頭がついて行かないw
スクリプトファイルをダブルクリックした？
コマンドプロンプトとかPowwerShellなどのターミナルエミュレータで
cscript .\test.vbs
みたいに実行するといいよ
考えるより実装した方が早いよ
ヒープの末尾にあるものはヒープの下の方に位置することが多いから
下から比較していくと比較回数が少なくなるんだよね
ビットシフト使ったらfloorはいらないよ!
var Heap = (function () {
function Heap() {
this.list = new Array();
}
Heap.prototype.add = function (value) {
this.list.push(value);
var i = this.list.length - 1;
while (i > 0) {
var p = (i - 1) >> 1;
if (this.list[p] <= value) {
break;
}
this.list[i] = this.list[p];
i = p;
}
this.list[i] = value;
};
return Heap;
}());
var heap = new Heap();
ピラフ、JavaScriptも出来るの？
底の知れない人だなw
ピラフ食いたくなるだろ
まずスクランブルエッグを作ります
そこにご飯を投入し
パラパラになったところで
創味シャンタンDXを入れてまんべんなくなじませて完成です
チャーハン？
データを素集合に分割して保持する、Union-Find
木の高さを揃える、AVL木・赤黒木
シェフはカタコトの日本語でこういった
コメヲ、イタメナ！ ←逆から読んじゃダメだよ
あんな不潔で臭酸っぱいものを？
こう！！
https://paiza.io/projects/Dm62N-QlZkn4an1AUBib-A
でも、漏れの頭は、そこまでついていけませぬw
jQueryでデータを取り出す所を、今研究している
元のHTMLは、ajaxで2chへアクセスして、その返信をHTMLに表示するなど、なかなか凝っている。
こういうループ処理なら、AngularJSを使いたくなってくる
2chで、こういうツールを作れる人は、
プログラム板のVBScriptのスレ主である、ピラフだけかもw
誰も作れなさそうだから、ピラフに頼む
1週間以内に作ってみせろ
創味シャンタンDXは糞ゲロまずいぞ。
無能かよ
数時間ループしたら気がついたら落ちてるんだが原因わかる？ログにも落ちたって出てないんだけど
使い終わった変数やオブジェクトは毎回こんな風にきちんと片付けてるか？
↓
Set ●● = Nothing
それは片付けてることにならない
これで判明
If Err.Number <> 0 Then
WScript.Echo "エラー番号 " & CStr(Err.Number) & " " & Err.Description
End If
何をやりたいのかさっぱりわからないんだよね
AngularJSっていうのも聞いたことないし、ここがどこかもわからないし、ピラフは誰？
じゃあおすすめのシャンタン教えてよ！
無限ループでエラーになったらErr.Clearだけするようにしてますが、
一回だけならOn Error Resume Nextもループの中に入れたほうがいいんでしょうか
使い方間違ってる。
On Error Resume Nextというのは、
エラーが起きたら次の行で自分でちゃんとエラーチェックします！
って言う時に使うんだよ。
効く期間を知りたいってことだろ。
そりゃずっと効くだろ。
On Error Goto 0
とかで切り替えるまでは。
それともスコープ的な話かな?
有効なのはそのプロシージャ内。
Option Explicitと同じような感覚で入れてましたが
これじゃダメってことですね？
main関数の中でやらないと
https://github.com/katsura-pgo/pgo/blob/master/pgo.vbs
CookDo香味ペーストと間違えたw
創味ペーストDXは超美味い。
えっ?
それ、エラーにならんの?
そういえばVBScriptってプロシージャ外から始まるんだっけ?
これってMainまでにOn Error Resume Nextだけ実行してるってこと?
どちらにしてもこれがプロシージャ内に及んだら色々問題ありそう。
それに、しくみ上Mainにも入れればいけると思うけど、こんなエラー処理皆無のプログラムはダメだね。
On Error Resume Nextってのは、条件によってわざとエラーを起こしてきちんとエラー処理をするために使うものだぞ。
ファイルを開く直前でOn Error Resume Nextに切り替えてエラー番号調べてファイルが無かった場合に切り替えるとか。
エラーを観測したい部分に設置するってことでいいですか
あとCall使ってるのって年輩の印象がする
call hoge(a, b, c) ⇒ hoge a, b, c
カッコなしでやる
やってみます。
http://tamae.2ch.net/test/read.cgi/php/1314546533/178-180
jQuery 質問スレッド vol.7
http://echo.2ch.net/test/read.cgi/hp/1478055094/252-297
ピラフへ、ここに作りかけを書いておいたので、コピペして使ってくれ。
まあ、漏れも作ってみるけど
http://jsdo.it/michihito/zWfm
2chの返信から、(URL) (日付) (時刻) (ID)の書式4文字列を取り出す部分と、
入力URLの一番末尾の、/ 以降の部分をチェックする、処理を作っておいた。
ここには、1～1000の単独の数字か、1-1000 のような範囲が入る
http://～/～/1000
http://～/～/1-1000
入力URLには、空行を除いて、10個以下ぐらいに制限して、
$.ajax で1つアクセスしたら、2～3秒待ってから、次のアクセスをすればどうか？
ただ、例には、<div class="number"> タグしかないから、
<dt> タグを使っているHTMLには、対応できない。
元のJSでは、両方のタイプに対応している
無能かよ
複数のajax処理と、2chの返信から、DOMを構築して、
jQueryでデータを取り出す所を、今研究している
元のHTMLは、ajaxで2chへアクセスして、その返信をHTMLに表示するなど、なかなか凝っている。
こういうループ処理なら、AngularJSを使いたくなってくる
2chで、こういうツールを作れる人は、
プログラム板のVBScriptのスレ主である、ピラフだけかもw
誰も作れなさそうだから、ピラフに頼む
1週間以内に作ってみせろ
なるほどね、面白そうだから考えてみる
いっしょにやろう！
俺に言わせれば｢コメヲ、イタメナ｣だけど
http://jsdo.it/michihito/zWfm
ここのJSファイルの一番下に、
Date型のプロパティで、オブジェクトをソートする、
テストを作っておいたので、自由にコピペして使って
タイムスタンプでソートして並べ替える、というのが要件にあるので
日付型であれば、単に日付型を比べればいいだけだし
a = new Date()
b = new Date()
a < b
ゴミを渡されて使えと言われても困る
ピラフあきらめた！
http://qiita.com/labocho/items/5fbaa0491b67221419b4
Date.prototype.getTime で 世界協定時 1970 年 1 月 1 日 00:00:00 からの、
経過ミリ秒が得られるので、これで比較する
Date型同士を、<, > で比較するのは、ややこしいので使わない
>>840
http://～/～/101-103
http://～/～/200
依頼は、複数のURLを入力して、
各レス番号の、(URL) (日付) (時刻) (ID)の書式4文字列を取り出す。
その際、時刻順に並べる
なるほどねえ、日付は文字列でソートしたらいんじゃない？
2chのデータは、ミリ秒まである。
.02 なら、20ms
この文字列から、Dateオブジェクトを作る所は、もう作った
> ちなみに Date 同士の比較でも < や > は期待通りに動作するが、ややこしいのでおすすめしない。
「期待通りに動作するが」って言葉をわざと消したね？
何がややこしいのか理解不能
ミリ秒まであっても桁数が同じなら文字列でいんじゃないかな
全部捨ててゼロから始めよう！VBScriptで！！
9時間の時差とか、夏時間とか、色々あって面倒くさい。
サーバーが、どの国にあるかによって変わるのかも？
getTime を使っていれば、問題ない
同じことだ
9時間の時差を気にするならタイムゾーン指定して入力すればいい、とか突っ込みどころが満載
grepとか
できた！
https://friendpaste.com/20wv25hFJ2by4Y5vFvUZ1P?rev=363437313235
その返信から、データを抜き出すのは、漏れ独りで作るのは、難しい
これを作れるのは、ピラフぐらいだろうと思って、このスレへ頼みに来た
>>851
これは、VBScript？
これは、どうやって実行するの？
PowerShell_ise で、
cscript test.vbs で、実行できた
データを、<div class="date">(.*?)</div> の正規表現で抜き出せた？
漏れは、jQueryで、HTML木にしてから、[data-id="200"] とかで、抜き出したけど
(URL) (日付) (時刻) (ID)の書式4文字列は、半角区切りで、以下
http://何たら/かんたら/250 2013/04/01 23:35:12.89 ID:abcdefgh
http://何たら/かんたら/250
最後の数字部分の入力チェックも必要。
1-1000 までの範囲か、単独の数字
通信は非同期なら、2, 3秒ずつ、おいてやった方がいい
それと、通信エラー時の処理。
タイムアウトは1分ぐらいか？
見ヅライのはバグの温床になるから
基本カッコつけてる。
カッコ省略化でもつけてる。
年配の人がカッコつけてるなら
経験的にバグを避けようという心理的な
ものだよ。
そういうの考えずに新しく知ったからやってみるのもいいけど
見ヅライコードを生産する新人は
陰でバカにされてる。
この話の流れでその返しはおかしくないか？
call付けなくても動くのかって質問で、括弧外せば動くって回答してるだけだろ
/ ＼＿＿＿＿/ ヘ. ヽ
し／ ｀ ＼ソ
／ ／ ＼ ＼
/´ ,.--‐--､ ｜
| ///// （ ○○ ） ///// | ﾌﾞｳｰ
｜ ヽ----''′ |
ヽ ... ／
＼ ........::::::::＜
それこれから焼いて食べるんですか？
というバッチはVBScriptで書くとどうなりますか？
http://hayabusa6.2ch.net/test/read.cgi/linux/1479499953/6
この板のデータは、パターンが異なる。
<dt>～<dd> というタグがあって、この中に、日時・IDが入っている。
ピラフ、この様式にも対応してもらえます？
漏れは、edgeのF12開発者ツールでデバッグしているけど、
2chはShift_JISだから、文字化けして、Syntax errorになる
どうやれば良いのか？
テストすら、ままならぬ
へい
https://friendpaste.com/20wv25hFJ2by4Y5vFvUZ1P?rev=383136653938
文字化けはレスポンスヘッダにcharset=Shift_JISがないのが原因みたいね
http://echo.2ch.net/test/read.cgi/tech/1416826139/
-> Content-Type: text/html; charset=Shift_JIS
http://hayabusa6.2ch.net/test/read.cgi/linux/1479499953/
-> Content-Type: text/html
レスポンスを強制的にShift_JISに変換してデバッグ出力すれば
テストできるっしょ、いけるいける
これってフォルダを1個作ってるだけ？
こちらでどうぞ
CreateObject("Scripting.FileSystemObject").CreateFolder WScript.Arguments(0)
ありがとうございます
>>863はD&Dしたテキストファイルからテキストを１行ずつ読み込み、
読み込んだテキストを名前としたフォルダの作成を最後の行まで繰り返す
というバッチです
ご教示頂いたコードは上記の動作はしないようです
バッチは読めないから、やるべき処理を説明してくれ。
実行する前に、cd "c:\abc\def" で適当なフォルダへ移動してから、実行して
DirName.txt には行区切りで、
a
b
c
のように、フォルダ名が書いてあるものとする
-WhatIf を付けているから、実際には実行されない。
このまま実行して、動作を確かめたら、-WhatIf を消して実行すれば、実際に実行される
$dnAry = Get-Content -Encoding UTF8 DirName.txt
foreach ($dn in $dnAry) {
# フォルダーが無い時だけ、作成する
If (Test-Path $dn) {
echo "${dn} は既に存在します"
}else {
New-Item -Path $dn -ItemType Directory -WhatIf
echo "${dn} を作成した"
}
}
XP環境なためPowerShellを使ったことはなかったんですが、
v1.0が入っていたので使い方をググりながら試してみたところ、
多少手こずりましたがなんとか実行に漕ぎ着けました
結果は、期待した通りにフォルダの作成がなされました
何故バッチ以外でやろうとしたのかというと、
バッチの場合テキストファイルに半角の&等が含まれていると
変換処理も出来なくて詰むからなのですが、
>>868のコードの場合は&や;や半角スペース等があっても
問題無くフォルダを作成してくれたのでまさに理想通りでした
今後活用させて頂きたいと思います
ありがとうございました
ファイル名には半角英数字と、_ (アンダーバー)以外、使ったらダメ。
他のアプリで、バグるよ
このデータの曜日の部分、(月)を取り除いて、
(URL) (日付) (時刻) (ID)の書式4文字列は半角区切りで、以下のようにして。
http://何たら/かんたら/250 2013/04/01 23:35:12.89 ID:abcdefgh
IDが空白の場合は、時間の後ろに、半角空白を入れない方が良いかな？
ひとまず、PowerShell で、カレントフォルダで、
cscript 実行ファイル名 入力ファイル名 出力ファイル名
のような感じで、入力ファイルに行区切りで、URLを書いておけば、
出力ファイルに出力するように、作って下さい
ひとまず、これで良いでしょう。
ソースコードに、コメントも書いて下さい
漏れは、JavaScriptでもう少し、実験してみます。
まあ、ユーザーには入力画面があった方が、良いんだろうけど
草も生えない
実験じゃなくて製造しなよ
ﾎﾝﾄだよね乞食ってｻｲﾃｰ
そもそも、万物万象の初め、混沌とした大本はすでに固まっていたが、
まだ生命も形も現われなかったころのことは、名もなく、
また動きもなく、誰もその形を知りようがなかった。
PowerShell使うなら全部PowerShellでやったらいんじゃない？
https://friendpaste.com/4Ew8kq6ysXoZ7nbh05cIoE?rev=343436373864
エクスポネンシャルバックオフってなんかかっこよくない？
必殺エクスポネンシャルバックオフ!!って感じ
もう、漏れが作る意味がない。
まあ、実験はしてみるけど
こらこら団報告書生成
http://hotmilk350ml.web.fc2.com/korakorashot.html
これのHTMLに、dataType: 'jsponp' ってあるけど、これ、jsonp の間違いじゃないの？
$.ajax
({
type: 'GET',
url: url,
dataType: 'jsponp',
timeout: 12000,
漏れは、Win10, EdgeでローカルPC上で、jsonp でやると、
callback が呼ばれないというエラーになる
ローカルPCに、サーバーを立てていないからかな？
サーバー環境もない。
PowerShell でサーバーを立てられるかな？
YQL (Yahoo! Query Language)のサービスを使って、クロスドメインを可能にする、
jquery.xdomainajax.js プラグインを、試してみようと思う
こらこら団報告書生成
http://hotmilk350ml.web.fc2.com/korakorashot.html
元々、このツールでも、このプラグインを使っているし
でも、世界中の人が、YQLを使ったら、どうなるんだろう。
2chでもYQLを、アクセス禁止にするかも知れない
これは、PowerShellかい？
もう、作ったの？
いくら何でも、仕事が速すぎる
実行の仕方と、引数の使い方ぐらい、教えてよ。
それに、コメントも書いて。
解読するのは大変
これはもう天賦天稟の才だろう
>>877 にあるピラフが作った、PowerShell 用のソースコードをコピペする。
ファイル名を例えば、kora.ps1 (拡張子はps1。数字の1)とする
urls.txt というファイルに、1行ずつURLを書く
http://hayabusa6.2ch.net/test/read.cgi/linux/1479499953/5-6
http://echo.2ch.net/test/read.cgi/tech/1490506257/200
PowerShell_ise または、PowerShell を右クリックして、管理者として起動する。
Set-ExecutionPolicy RemoteSigned と入力する。
RemoteSigned は、署名なしのローカルスクリプトを実行できる
cd で作業フォルダへ移動する。
そのフォルダへ、すべてのファイルを置いておく
.\kora.ps1 > out.txt
out.txt に結果が出力される。
出力ファイル名は、自由に決めてよい
PowerShell では、大文字・小文字どちらを使っても、同じ命令になる。
Tab キーで補完できる
ピラフへ
入力ファイル名も、urls.txt の固定じゃなくて、自由に決められた方がよいのでは？
.\kora.ps1 < in.txt > out.txt
ピラフとペアプログラミングするのは、もうイヤ。
こっちがJavaScriptのクロスドメインで困っている時に、
勝手に突っ走って、PowerShellで仕上げてしまうのだから、手に負えない
1. 漏れがJSでコーディング
2. それを参考にして、ピラフがVBSでコーディング
3. それを参考にして、漏れがJSでコーディング
4. それを参考にして、ピラフがVBSでコーディング
こういうペアプログラミングの、きれいな流れにならない
1. 漏れがJSでコーディング
2. それを参考にして、ピラフがVBSでコーディング
3. それを参考にして、漏れがVBSの文法を勉強する
4. ピラフが突然、PowerShellでコーディング
終了w
> ひとまず、PowerShell で、カレントフォルダで、
~~~~~~~~~~~~~
> 出力ファイルに出力するように、作って下さい
~~~~~~~~~~~~~
自分が依頼したことすら忘れてんのかこの知的障害者
流行らせようと啓蒙活動ですね
わかります
それはそうと、日本のＩＴは先進諸外国に比べて劣っているという記事を見て思い出したんだけど
2000年代初頭とかなり昔に日経コンピュータか何かの記事に載っていたもので
欧米先進国ではシステムに合わせて業務処理を改変するのに対し
日本企業は業務処理に合わせてシステムを改変するため構築のコストが膨大になってう
という内容だったんだ
俺も20年近くこの業界で飯を食ってるから後者が事実でいまだにそのままだってのはわかるんだが
わからないのは前者で、システムに合わせて業務を変えちゃうってのは本当なのかね
外資の仕事はやったことないのでよくわからんのだがどーよ？
海外の場合は、すぐにリストラされて業界内での人材の移動が
頻繁にあって業務処理が均質化されるんだが
日本の場合は子飼いの叩き上げが多いので会社ごとに業務処理が
出来上がっていて簡単には変えられない。
業務処理を変えないまま無理やりERPパッケージ導入して失敗なんてことも良くある。
知ってる会社は何億もつぎ込んで失敗して担当者が消えたwww
>知ってる会社は何億もつぎ込んで失敗して担当者が消えたwww
これはあるね
10年くらい前にNTTドコモの人級システム、去年まで総務省の人級システムの現場にいたけど
どちらも永久に完成しないシステムになってる
◯人給
あれだって、どちらかの方式に統一する方向で進めば何も問題なかったはずなのに
社内の派閥争いの結果だもんね
でも少し勘繰ってしまうんだけど、わざとシステムを複雑化して余計な金を使わせることで
ＩＴ業界の市場拡大とＩＴ技術者の雇用拡大によってトリクルダウンを狙った陰謀だったりして
/ ⌒ ⌒ ヽ ,,,
/ （ ●）（●） | /⌒_）
| （__人__） } ノ ノ うーす
_＿. }、. ｀ ⌒´ 、｀ /
（⌒ |_,,,ノ
"''''''ヽ_ |
| |
| |
i ￣＼ ./
＼＿ |/
_ノ ＼＿＿_）
（ _／
|＿ノ''
PowerShell でサーバー建てるのはできるみたいよ
http://qiita.com/kikuchi/items/785631cb24dfe5fa8d52
サーバー停止するのCtrl + cだけじゃ死んでくれないので
ブラウザからリクエスト送るなりしないといけない
非同期で処理できればいんだけど
Runspaceがかくかくしかじかでなんかできなかった
サーバ用のウィンドウを開いてウィンドウごと閉じてしまうのが
手っ取り早いかと、運用でカバーてことで
クロスドメインで困ってたんだ
∧ ∧
|1/ |1/
／￣￣￣｀ヽ、
/ ヽ
/ ⌒ ⌒ |
| （●） （●） |
/ |
/ |
{ |
ヽ、 ノ |
｀`ー――‐''" |
/ |
| | |
.| | | |
.| し,,ノ |
!、 /
ヽ､ / 、
ヽ、 ､ ／ヽ.ヽ、
| | | ヽ.ヽ、
（＿_（＿＿| ヽ､ニ三
YQLを試してみるって言ってたけどダメだった？
何がどうしてダメだった？
JSのコーディングが終わったら改めてVBSにポーティングするよ
動作する前からエラーチェックとか細かいところ作りこむ必要ないと思う
全体をざっくり作って詳細を作りこんでいく感じの欧米スタイルがいんじゃないかな
|1/ |1/
／￣￣￣｀ヽ、
/ ヽ
/ ⌒ ⌒ |
| （●） （●） |
/ |
/ |
（ ＿ |
（ヽ、 / ）|
| ｀`ー――‐''"| ヽ|
ゝ ノ ヽ ノ
￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
以前は「ピラフなんてたいしたことないよ」とか揶揄してるコメントもあったけど
ここ数年はそういう書き込みは無くなって、みんな素直に「凄い！」を連呼するようになった
>>894と896はムーミンだと思うけど、やる夫の改変系みたいな892のキャラは何のAAだろう
PowerShell で起動したプロセスは、スクリプトの終了後も、生き続けるのか
これは、厄介だな。
スクリプト内で起動したプロセスIDを覚えておいて、
スクリプトの終了時に、終了させなければならない
それと、入力ファイル名は固定ではなく、スクリプト起動時の引数にでもして、
ユーザーが決められる方がいいかも
ピラフとは、スクラム・アジャイル開発はできない。
普通、1サイクルは1週間だから、ピラフのように、
1日で作ってしまうような人は、チーム開発できないw
能力が突出しすぎ
ここはド素人のたまり場か
,.､- '''''' ヽ、
／｡｡ﾟ｡ﾟ,､-────ヽ
/｡ﾟ｡｡ﾟ ｡| ヽ
|｡ﾟ｡｡ ／ ─- ､-､ ﾟ _=|
/￣ヽ | ━━ヽヽ l/━|
ヽ Ｌｌ ,..ヽ | |
| |. ヽ─ |
| レ┐ -二三 |
| | /
ヽ=へ ────'''／
┌‐.< ────=､
,.┴─､＼ ＼/ヽ
/ ＼ ヽ ／ ）/-/ヽ
/ | ﾉ┐/ ,.-/ ヽ
https://blogs.windows.com/msedgedev/2017/04/12/disabling-vbscript-execution-in-internet-explorer-11/
まあエッジも近々に対策されるかもしれんけど
「ひたすらタスクログ」ってのがあります
ttp://www.vector.co.jp/soft/win95/util/se172075.html
これと同じ機能をVBスクリプトでやりたいんですが
可能でしょうか？
証跡管理みたいに使いたいのです
wscript.networkでユーザー名とコンピュータ名取ってきて
win32apiのprocessでユーザー名で引っ掛ければ簡単に出来るとおもう
全部取ってくるしかないかな
リアルタイムだと厳しいかもしれない
一定時間毎のログなら可能
安心していいピラフには難しすぎて無理
https://friendpaste.com/5rbDWtPapRa2VAlg0lPCAj
作るつもりなかったけど作ってみた。
ウインドウのほうは調べてない。
すぐに、ピラフが作ってしまいそうで、怖いからw
作らなくてもいい
やるじゃん
Class Class_Test
Public Sub Process
End Sub
End Class
Call (New Class_Test).Process
こういうときはCall付けないとエラーになる
Process実行後にClass_Testのインスタンスが闇に葬られてるしwww
現実にこんなコード書くやつ居たら脳みそがCallエラー起こしてる
GCに回収されるだけでしょ
メソッドがオブジェクトに属しているのはオブジェクト指向的に正しい
素直できれいなピラフの本質が現れたすばらしいコードです
よろしくお願いします
Public Sub GoDie
End Sub
End Class
Call (New ピラフ).GoDie
https://friendpaste.com/6kenxOo7gTOl3NaIQODREg
ウインドウの方も作ってみたぞ
純粋なvbscriptじゃ無理なのでtasklist.exe使った方法だけど
jqueryプラグインの、xdomainajax.js を使おうと思ったが、
これは非推奨のsuccess を使っているから、
jQueryから直接、YQL (Yahoo! Query Language)のサービスを使って、2ch のHTMLを取得できた
var url = "http://hayabusa6.2ch.net/test/read.cgi/linux/1479499953/6";;
// 全体の設定
$.ajaxSetup({
data: {format: 'xml'},
timeout: 60 * 1000
});
var YQL = "http://query.yahooapis.com/v1/public/yql?q=";,
query = 'select * from html where url="'
+ url + '" and xpath="*"';
$.ajax( YQL + query )
.done(function(data) {
var jqObj = $(data).find('dt');
console.log('jqObj.length = ' + jqObj.length, '\n', jqObj);
})
.fail(function(data) {
console.log('data');
});
WSHのRunメソッドのbWaitOnReturn=TRUEが効かなくなってる気がする
外部コマンドの処理待ちせずに
さっさと次の処理に移ってしまう
,. -‐＝=､､
,. =＝=､､ ｏ ○o. i :::ト､
_,/ ｀ヾ´´`ヽ、 ﾟ .ｌ :::ﾄ､＼ イヤッッホォォォオオォオウ！
// .::::/ :::::!=＝=l :::|ｽ. ',
/./ .::::/ ::::l | __ ..... _::::|} ヽ l-､
. ,ｨｸ ,'..__ .::::/ ::::l :l '´ ｀)'｀ヽ ヾ;＼
／::{ﾞ ヽ、 ｀`丶､;/‐‐- ､::::l `'::┬‐--＜_ } ./;:::::＼
／::::::::! ,＞---‐'ﾞｰ- ...__)ｲ ,. -‐‐-､ﾄ､ |l::ヽ ／;';';';';::::＼
. ／|::::::;';';'＼／｝ （ヽ、 _/| (´ _,.ｨ!::ヽ. ヾｰ'´;';';';';';';';';:: /ヽ、
／ ,ﾉ:::;';';';';';';';';'/ /ヽ､二ﾆ-ｲ ヾT ¨´ ,/;';';::`、. ＼';';';';';';';';';';〈::...
. ／ i::;';';';';';';';';';'/ ,ｲ.:::::::::::::::::: ! ヽ`ｰ‐'";';';';';';';ヽ ＼';';';';';';';';';!:::::
／ ..:!;';';';';';';';'／ / .| ::::::::::::::::: ! ｀､;';';';';';';';';';';';'ﾄ、 ＼;';';';';';/::::::
..::::::l;';';';';';／ / .:::::::::::::::::::::::| 丶;';';';';';';';';';';|:.ヽ ｀ﾞ'ベ::::::::::
. ..:::::::::::ヽ-イ i .:::::::::::::::::::::::::l ｀､;';';';';';';';';'l::::.｀､ ＼::::
::::::::::::::::::;／ |::::::::::::::::::::::::::/ ヾ-､;';';';'/:::::::. ヽ ヽ
:::::::::::::／ |::::::::::::::::::::::::/ ヽ ｀'ｰ':::::::::::::.. ヽ、
2chのHTMLから、タグを取得せず、
datファイルから取得しろと言われたのだが、どうしよう？
jQuery 質問スレッド vol.7
https://echo.2ch.net/test/read.cgi/hp/1478055094/511-
>普通はdatファイルからスレを操作する
>htmlファイルから操作するアホはおらん
>このスレのdatファイル
https://goo.gl/B1I8Ge
1つのレスのデータを取るだけでも、
千件分のデータを順次読み込んで、処理しないといけないのか？
レス番号が999なら、1～998を読み込んでは、捨てていく
まあでもHTMLよりは、広告などの余計な情報はないから、案外サイズは小さいかも
ただ、datファイルって、1,000レスまで書き込まれていない、
現存しているスレでも作られるの？
datへのアクセスは近日廃止されます、と書いてある
やっぱり、datファイルへのアクセスは、やめておいた方が良いかな？
制度変更前の dat を使いたいとか、他の形式から dat に変換して使いたいなら別。
l＼ ＼
. }＼＼ ＼
/ ＼＼ ＿＿__ . .＼
／ ＊ ＼＼ ／ : ::::ヽ、 ＼
'´ ＊ ＼＼ ／ : : ::::::::::ヽ、 ＼
＼ ＊ ＼＼ ／ : : ::::::::::::::::::;、 .＼
ヽ、 ＊ ＼＼＿_＿_＿＿| .:.:.:.:.:.::::::::::::::::::,'＿＿__＼
＼ ＊ ＼＿＿＿＿ ヽ、 .:.:.:.:.:.:.::::::::::::::::::ノ＿＿＿＿|
｀''-､ ＊ / ＊ ｀γ :.:.:.:.:.:::::::::::::::ヾ´ {
ヽ、＊ ,/ ＊ ,' :.:.:.:.::::::::::::::::::', ＊ |
＼ /＊ ＊ . ,;! ﾉ .:.:.:.:.::::::::::::::! ＊ !
＼/ ＊ ＊ノ｀ｰ '´ .:.:.:.:.:::::::::::::,' ＊ !
｀"''ー--一''"''´ ヽ、_.; .:.:.:.::::::::::::::ノ｀'ｰ一'""'''-!
YQLでhtmlを取得する方向で完成させたがいんじゃないかな
このスレじゃ、ピラフ丼が大人気さ
datアクセスは過去ログを取得できなくなるから論外
半可通の適当な妄言を真にうけなさんな
起動時のオプションで、入出力ファイル名を指定できた方が、ユーザーには良さそう。
それと、同時に要求するよりも、2秒ずつとか、各要求を遅らせた方が良いのでは？
Param( [string]$in, [string]$out )
スクリプト名 -out "out.txt" -in "in.txt"
PowerShell スクリプト引数(Param)の Tips
http://www.vwnet.jp/Windows/PowerShell/Param.htm
制作依頼でもしていて、要件を伝えているつもりなのか？
小さいことは気にしないと
ちんちんの話？それもしかしてちんちんの話？
,,..' -‐==''"フ ／
（n *‘ω‘*)η ちんぽっぽー！
（ ノ ＼
（＿）_ ）
_,,..-―'"⌒"~⌒"~￣ﾞﾞ"'''ｮ
ﾞ~,,,....-=-‐√"ﾞﾞＴ"~￣Y"ﾞ=ﾐ
Ｔ | l,＿,,/＼ ,,/l |
,.-r '"l＼,,j / |/ L,,,/
,,/|,／＼,/ _,|＼_,i_,,,/ ／
_V＼ ,,/＼,| ,,∧,,|_/
http://techwave.jp/archives/a-source-code-written-by-mr-mikitani.html
| 「楽天市場」開設当時。三木谷自身が書いたソースコード。
| 「1000」の整数を「1,000」の通貨表示にする単純なものでしたが
| プログラミングを知らない三木谷が独学でこのような変更を実現させ
| ほかの創業メンバーを驚かせた。
これVBScriptで解いてみようよ！
気にしてたんかすまぬ
忘れてくれ
大きさなんて関係ないから～
https://friendpaste.com/2W8Tx5hUl2L0RzkL5YpxlS?rev=323136613639
長ったらしいね
こんなんで良いんでないの
やるじゃん
ちょっとやってみた感じ
iは要らなかったな…
消すの忘れた
VBsでプログラムランチャーを作ってもらえませんか
下記のようなイメージです
┌─────────────┐
│ ┌───────┐ │
│ │ 駅すぱあと.exe │ │
│ └───────┘ │
│ │
│ ┌─────────┐ │
│ │ドキドキ体験乳部.bat │ │
│ └─────────┘ │
│ │
│ ┌────────┐ │
│ │ AI・野獣先輩.exe.│ │
│ └────────┘ │
│ │
│ ┌───────┐ │
│ │ Excel.exe .│ │
│ └───────┘ │
│ │
│ ┌───────┐ │
│ │ クローム.exe │ │
│ └───────┘ │
│ │
│ ┌──────────┐ │
│ │リモートデスクトップexe │ │
│ └──────────┘ │
└─────────────┘
ピラフ大王様がHTAで作ってくれます
お待ちを
いい物がないので自分で作るってんなら分かるが、依頼して作ってもらうってどう言う了見だ
フォルダにショートカットを集めて
タスクバーにそのフォルダをツールバーとして追加すればいんじゃないかな
アカウントの再作成でせっかく作ったフォルダが消えないように
フォルダは共有ディレクトリに置いておくといいよ
今何故？
Windows自動処理のための WSHプログラミングガイド 増補改訂版 単行本 - 2017/5/2 五十嵐 貴之 (著)
https://www.amazon.co.jp/dp/4802611021/
これ？
この人確か最近CodeZineでもWSHの記事書いてたよ
https://codezine.jp/author/946
いまWSHが熱い
MS OfficeのAPIがCOMだから、まだVBScriptの方が扱いやすい
全面的に.NETに移行したら変わってくるんだろうけど
VBScript.NETができてほしいよね、LINQもラムダ式も使いまくれるの
PowerShellは永久に流行らんと思うよ。
JScript.NET使えば?
batをbashくらいに発展させて欲しかった
Windows PowerShell コマンド&スクリプティングガイド PowerShell 4.0対応
五十嵐 貴之、2015/3/13
この本、内容は良いけど、ノリ付けが悪い。
ページが取れて、バラバラになるw
特定の時間帯だけifで処理されるVBSが組みたい
シンプルでビューティフルで分かりやすいifを教えてください
「プログラムとファイルの検索」でオフラインファイルと入力するとウィンドウが開いて設定できるわけですが
これをリモートPCの設定がどうなってるか、またリモートでONからOFF、OFFからONに変更したいんですが
そういうツールVBSで作れますかね？
https://friendpaste.com/5Vc2AUzs6XeRksPvFk7fUT
よくわかりません
ドメインあるならグループポリシーで管理すればいいでしょ
どうしてもスクリプトでやりたいならレジストリ値は
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\NetCache \Enabled
にあるらしいから頑張れば出来るんじゃないかな
ただし設定後は再起動必要ね
安西先生VBScriptでxmlが読みたいです!!(号泣)
MSXMLってCOMだからブビから使えるんでねーの?
オレは使ったことないんで紫蘭が
お疲れ様です
教えてもらったので早速のぞいてみました
本当に主なんですね
月曜に色々教わりに行きます
PowerShellでは、これだけで変数、$xmlは、
XMLの階層構造を保持した、オブジェクトになっている！
PowerShellでXMLファイルの内容を検索する
http://tech.sanwasystem.com/entry/2015/05/08/151326
http://jbbs.shitaraba.net/bbs/subject.cgi/game/7135/
http://jbbs.shitaraba.net/bbs/subject.cgi/otaku/15956/
あざーす！ >>964さんあざーす！！
ピラフちょっと調査してみます
VBScriptはビアンカで
PowerShellはフローラです
その先は言う必要ありませんよね？
何を？ ピラフなんか教えた？ VBScriptの質問なら
いつでもこのスレに書き込んだらいいよ
VBScriptプロフェッショナルが大勢いるからね
PowerShellすごいよね！
>>966 すごくない？
すごいすごいいうだけなら精神年齢低学園のガキでもいえる
>>966 が すごい
~~~~~~~~
噂程度に聞いたことはあるけど
はるか東方の国にそういう技術があるって
それくらいしか知らない
それはピラフの性癖だ
ぇ？
( )
( ) ( )
∧＝∧
_(´∀｀∩
｜し￣￣￣｜
｜ ┼─┼ ｜
｜ ／＼ ｜
｜／ ホ ＼｜
＼＿＿＿／
└──┘
ttp://language-and-engineering.hatenablog.jp/entry/20150711/WebScrapingByWshJscriptWithJquerySelectors
vbscriptで直接スクレイピングするのに比べてjqueryを使うと何が良いのか今イチよく分からん。
でもこれIEしか使えないよね。
俺は直接VBScriptでもJavaScriptでもスクレイピングするコードは書けるから聞いてみた。
そういうコードは書けるんだけど実はWeb系はまともに書いたことないんだ。
管理者権限画面が出てきてうまくいかなかった
.batの方がええのかな？
batができるならVBScriptでも出来るんじゃね?
もう書けないので、新しいスレッドを立ててくださいです。。。
life time: 936日 4時間 25分 25秒
運営にご協力お願いいたします。
───────────────────
《プレミアム会員の主な特典》
★ ２ちゃんねる専用ブラウザからの広告除去
★ ２ちゃんねるの過去ログを取得
★ 書き込み規制の緩和
───────────────────
会員登録には個人情報は一切必要ありません。
月300円から匿名でご購入いただけます。
▼ プレミアム会員登録はこちら ▼
https://premium.2ch.net/
▼ 浪人ログインはこちら ▼
https://login.2ch.net/login.php
レス数が1000を超えています。これ以上書き込みはできません。
ニュース
- 【鉄道】女性「電車で隣に座ってくる男キモい」SNS“炎上”…男女で《賛否》真っ二つ、それぞれの言い分とは [ぐれ★]
- 【三重】保健室に来た男子中学生を抱きしめたりキスをしたり…２７歳女性養護教諭を懲戒免職 [シャチ★]
- 【文春】「相合い傘で自宅マンションへ…」内田理央と人気YouTuberヒカルの寿司デート＆お泊まり愛“スクープ撮 [Ailuropoda melanoleuca★]
- 2月の実質賃金、1.8％減 速報から下方修正、厚労省 ★2 [蚤の市★]
- 【緊縛】代々木公園の「LGBTQ+」イベント 「過度な露出」に運営が声明「あえて社会規範に挑戦」「ご理解を」 [梵天丸★]
- 他に空いているのに横に座られ…『女性の隣』がトレンド入り…元プラスマイナス岩橋も反論した「あえて女性の横に座る男性」の賛否 [muffin★]
- ぬわ粘の🏡
- 経団連会長「今の円安は行き過ぎている」 [434496575]
- いなり寿司誤認逮捕に平和堂、謝罪「2回も誤操作で被害者を叩く投稿にいいねをしてしまいました」 [931948549]
- X「8900円の30%引きを電卓で計算する方法教えます！」→3万いいね [681166764]
- 向井理のＴシャツ、流石に一線を超える [207516352]
- 殺しをしたいね