VBSで便利なプログラムを作れスレ

1 名前：デフォルトの名無しさん [2007/02/03(土) 17:49:47 .net] 素人丸出しお粗末で遅くてもいいので いますぐ使えるちょっぴり便利プログラムを作れ （例○○を自動処理してくれるプログラム） 601 名前：桃白白 ◆9Jro6YFwm650 [2013/12/08(日) 19:45:03.23 .net] CIE2000による色の近似 https://friendpaste.com/yEAHgTkQMKg7EVEAOYO3V 参考画像 i.imgur.com/HoHVgoA.png 602 名前：デフォルトの名無しさん mailto:sage [2013/12/15(日) 04:33:33.24 .net] tes 603 名前：桃白白 ◆9Jro6YFwm650 [2013/12/22(日) 21:09:18.87 .net] パステルカラーを出力 https://friendpaste.com/1pWEO8f9PLMXDM5wKMXZqS 604 名前：デフォルトの名無しさん mailto:sage [2013/12/23(月) 00:18:09.78 .net] 相変わらず無駄が多い、、、 605 名前：桃白白 ◆9Jro6YFwm650 [2013/12/28(土) 12:55:53.24 .net] Friendpaste - CRC32 https://friendpaste.com/5VYChrRpLWhzDP8OJSR7UV 606 名前：デフォルトの名無しさん mailto:sage [2013/12/28(土) 15:44:49.45 .net] どっかから集めたコードを切り貼りして大文字化しただけのものなんて 価値無しなので貼らなくていいよ 607 名前：デフォルトの名無しさん mailto:sage [2013/12/28(土) 20:15:22.96 .net] '# Baidu IMEがインストールされているかチェックして、インストールされていれば、アンインストーラーを起動するバッチを作ったよ '# メモ帳に以下の内容を貼り付けて「baidu_check.vbs」というファイル名で保存。 '# 「baidu_check.vbs」をダブルクリックして【Baidu IME】がインストールされているかチェック 608 名前：デフォルトの名無しさん mailto:sage [2013/12/28(土) 20:16:46.43 .net] Option Explicit '#-------------------------------------- ' 管理者になーる Dim WMI, OS, Value, Shell do while WScript.Arguments.Count = 0 and WScript.Version >= 5.7 Set WMI = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2") Set OS = WMI.ExecQuery("SELECT *FROM Win32_OperatingSystem") For Each Value in OS if left(Value.Version, 3) < 6.0 then exit do Next Set Shell = CreateObject("Shell.Application") Shell.ShellExecute "wscript.exe", """" & WScript.ScriptFullName & """ uac", "", "runas" WScript.Quit loop '#-------------------------------------- Dim objShell, ret Set objShell = CreateObject("Wscript.shell") Dim winName: winName = "【Baidu IME】インストールチェック" On Error Resume Next If IsNull(objShell.RegRead("HKEY_CURRENT_USER\SOFTWARE\Baidu\")) Then ret = objShell.Popup("このパソコンには【Baidu IME】はインストールされていません。", , winName, vbOKOnly Or vbSystemModal) Else On Error GoTo 0 ret = objShell.Popup("このパソコンには【Baidu IME】がインストールされています。" & vbCrLf & _ "【Baidu IME】をアンインストールしますか？" & vbCrLf & _ "(【猫耳】に泣きつかれても断固アンインストール！！)", , winName, vbYesNo Or vbSystemModal) Select Case ret case 6 objShell.Exec(objShell.RegRead("HKLM\Software\Microsoft\Windows\CurrentVersion\Uninstall\Baidu IME\UninstallString")) case else WScript.Quit End Select End If 609 名前：デフォルトの名無しさん mailto:sage [2013/12/30(月) 10:44:04.20 .net] >>589 >>590 Baidu IMEが「入力情報送信しない」でもサーバーに情報を集めていた件の対応か。 すばらしい。 あれって、アン・インストールが普通の手順ではできないって聞いたが。 610 名前：デフォルトの名無しさん mailto:sage [2013/12/30(月) 12:32:45.86 .net] >>591 blog.livedoor.jp/blackwingcat/archives/1781259.html 611 名前：桃白白 ◆9Jro6YFwm650 [2013/12/30(月) 19:16:53.07 .net] 　　∠Y"´ﾞﾌ 　 ;'　ゝ‘,,ェ）　あけおめー 　;　'(,,ﾟ∀ﾟ) 　ﾞ;（ﾉ　　 ';） 　ヾ,;'　　 '; 　　''∪''∪ 612 名前：デフォルトの名無しさん mailto:sage [2014/02/03(月) 17:06:44.36 .net] このスレも桃白白の遊び場みたいだから有効利用しようね 613 名前：デフォルトの名無しさん [2014/02/07(金) 16:22:51.04 .net] このスレも桃白白の遊び場みたいだから有効利用しようね 614 名前：デフォルトの名無しさん [2014/02/08(土) 19:19:41.23 .net] このスレも桃白白の遊び場みたいだから有効利用しようね 615 名前：デフォルトの名無しさん mailto:sage [2014/02/09(日) 02:22:56.15 .net] でも桃白白は有効なコード書けないけどね オナニーで自分ではスゴいつもりらしいコードは何度も晒してるけど バグだらけか、皆当たり前に使ってる手法かのどちらかで 有効利用できるようなものを書いた試しがない まあ超初心者の質問に対しては、有効な回答をしたこともあったけど ちょっと質問のレベルが上がると、まったく答えられないし 616 名前：デフォルトの名無しさん [2014/03/08(土) 17:13:17.17 .net] どんだけ桃白白に劣等感感じてんだよｗさらしあげｗ 617 名前：デフォルトの名無しさん [2014/03/08(土) 17:23:56.33 .net] ＮＡＯの気まぐれ独り言:他人を下げる adviser70.ti-da.net/e3259555.html 世の中には、自分の自信やプライド、存在価値や存在意義を保つために“他人を下げる”ことをする人がいます。 (他人を下げるとは、他人をバカにしたり、見下したり、軽視することです。) コレが良い悪いという話は置いといて、この“他人を下げる”行為について今日は考えてみました。 僕は“他人を下げる”ことは、人間の“自己防衛本能”の一種だと思っています。 人間はとても繊細な生き物ですからね。 特に、自信やプライドは傷つきやすく壊れやすいものですから、皆、それを必死に守ろうとします。 (ただし、本物の自信やプライドは簡単には傷つきませんし、壊れません。) また、存在価値や存在意義は人によって違い、何が正解という明確な“答え”がなく、自分を保つのには自分自身の強い意志や独自の価値観が必要となります。 でも、強い意志や独自の価値観なんて、そう簡単に得れるものではありません。 だから、“他人を下げる”んです。 だから、自分が傷つかないように、また自分を保つために“他人を下げる”んですよ。 618 名前：デフォルトの名無しさん [2014/03/08(土) 17:28:12.18 .net] Twitter / jack69xz: 他人を下げることしか自分を上げれないならもう同列以下でいいじ ... https://twitter.com/jack69xz/status/296338741096747008 他人を下げることしか自分を上げれないならもう同列以下でいいじゃん〜つまんねえ奴だな〜 619 名前：デフォルトの名無しさん [2014/03/08(土) 17:31:52.18 .net] 否定しない生き方 - 院長ブログ「幸せってなぁに？」 blog.goo.ne.jp/minamiaoyama_dental/e/64aaa4363fd92fb87726a6e508ec3b4e 人と比べる生き方をすれば、自分が上がるか、相手が下がるかのどちらかになります。 自分が上がるのは大変ですが、他人を下げる事は簡単です。 こういう心理が働いて、無意識で相手の足を引っ張ったり、相手を否定する発言をしてしまうのではないでしょうか？ 長い時間かけて身についた悪い癖は、同じぐらいそれを取り除くのに時間がかかります。 620 名前：デフォルトの名無しさん mailto:sage [2014/06/14(土) 10:19:12.75 ID:3GqQ9q9L.net] >>602 > 拾いモノ。通常はSendToフォルダ経由またはD&Dでファイルを指定する しばらく、VBSコードから遠ざかっていたけど、 これって、単に、SendToやDDで指定したファイルの.GetAbsolutePathName() をクリップボードに格納するだけ？？？ 単にそれだけ？？？ それだけで、こんなに長く直感的でないコードとなるのが VBS なのか？ 621 名前：デフォルトの名無しさん mailto:sage [2014/06/14(土) 11:23:29.55 ID:0SKI+ryl.net] もともとVBSにはクリップボード操作機能は無いからね たかが > それだけで、こんなに長く直感的でないコードとなるのが VBS なのではなく、 どんな言語でもサポートされていないことをなんとかして実現しようとすれば 直感的とは言えないコードになるのは仕方のないこと 逆に言えば、コードが長く複雑になることを許容すれば サポート外の機能さえ実現方法があるのがVBS まぁ、直感的に使える機能だけを使ったコードしか書いたことの無い人には 理解できない世界かも知れないが 622 名前：デフォルトの名無しさん mailto:sage [2014/06/14(土) 13:36:12.22 ID:1ymPxb6J.net] うろ覚えだが>>602は昔のWindows95やWindowsNT4.0でも正常に動く命令しか使われてなかった気がする (少なくとも俺のWindows7＋IE11では正常に動いたし、//uオプション付で起動すればUnicodeファイル名も問題なく扱える) それ以外の方法(例えば ttp://www.vector.co.jp/soft/win95/util/se098868.html のようなフリーソフト)で 同じ事をやろうとすると、どうしてもOS毎の互換性をもっと気にする必要があるから心情的に手を出しづらいかも知れない 623 名前：Westrip ◆cFyu7DKD9w [2014/11/25(火) 15:39:40.09 ID:+Ehd3ZDh.net] 「コンピュータ連続運用時間計測」 (常駐型ではない。ローカルグループポリシーエディターおよびイベントビューアを使えるPC環境でないと無意味) 以下のテキストファイルを適当な名前で保存し、拡張子を.txt→.vbsに変えると使える 使い方や注意点などはテキスト内に書いてあるので、必ず読む事 ttp://alp.jpn.org/up/s/21848.txt　(このアップローダは1年4〜5ヶ月くらい持つようだ) 624 名前：デフォルトの名無しさん mailto:sage [2014/12/19(金) 12:40:35.66 ID:dKKXcASW.net] Explzh(フリーのアーカイバ)とExplzh用FTPクライアントアドオンの両方をインストール済の環境において FTP接続ダイアログ表示を自動化するスクリプト 元々どっかのブログで拾ったものに手を加えて、Explzhのインストール先をレジストリから取得する方式に変えた そのためインストール先に関係なく、そのまま使える Dim WS,strPath,strExe Set WS=WScript.CreateObject("WScript.Shell") strPath = WS.RegRead("HKEY_CURRENT_USER\Software\Pon\Explzh\Folders\ExplzhDir") strExe = "EXPLZH.EXE" WS.Run Chr(34) & strPath & strExe & Chr(34) WScript.Sleep 500 WS.AppActivate strExe WScript.Sleep 500 WS.SendKeys "^l" Set WS=Nothing WScript.Quit() 625 名前：デフォルトの名無しさん mailto:sage [2014/12/19(金) 23:20:35.24 ID:adO/IJZB.net] 妹に入れますねん 626 名前：デフォルトの名無しさん [2014/12/20(土) 09:05:52.58 ID:m+ssCFWe.net] >>607 このスレに来てまでExplzhの作者をからかうとは何て奴だ 627 名前：デフォルトの名無しさん mailto:sage [2014/12/25(木) 03:24:30.28 ID:lscuhgwk.net] ' 0.1秒単位で好きな時間ウェイトをかけるスクリプト Option Explicit Dim WshShell, lngSec, corAg Set WshShell = CreateObject("WScript.Shell") Set corAg = WScript.Arguments ' lngSec = 10 ' 引数省略時は待ち時間を1秒(＝10×100ミリ秒)とする If corAg.Count > 0 Then lngSec = corAg(0) lngSec = CLng(Trim(lngSec)) * 100 WScript.Sleep lngSec ' Set WshShell = Nothing Set corAg = Nothing WScript.Quit() 628 名前：デフォルトの名無しさん mailto:sage [2015/01/04(日) 10:55:13.06 ID:wMzfWTLi.net] 何処が便利なの？ 629 名前：デフォルトの名無しさん mailto:sage [2015/01/04(日) 15:44:01.03 ID:k/mKj4Vo.net] DOSコマンドで実行できるんでしょ 普通は１秒単位でしかできないから 630 名前：デフォルトの名無しさん mailto:sage [2015/01/05(月) 10:54:40.07 ID:Ez8c83Yt.net] sleep.exeは同名フリーソフトまたは別売りリソースキット内の物を使うしかない timeoutコマンドはVista以降のWindowsにしか搭載されてない上に、1秒単位でしか待ち時間を指定できない >609なら古いWindows95などでも(WSHがあればの話だが)そのまま実行できたはず 631 名前：デフォルトの名無しさん mailto:sage [2015/01/06(火) 00:12:40.29 ID:kEk+oN5g.net] まんどくさいなぁ・・・オレならこうする echo wscript.sleep 3000 >temp.vbs & cscript temp.vbs あと、１秒単位のラフなsleepなら、pingを流用するのが定石じゃなかろうか 632 名前：デフォルトの名無しさん mailto:sage [2015/01/19(月) 22:34:01.04 ID:XQ8dBSiC.net] ブロックスコープをやりたいのだが Rem Blockscope.vbs Option Explicit Sample Function Sample() Dim I I = 10 I = Used Msgbox Typename(I) 'Variant() Rem I = 20 'Error at Erase I Rem Set I = Nothing 'Error at Erase I Erase I End Function Function Used() Dim J() Used = J End Function 人力でErase I てのがバカっぽい なんとかなりませんか 633 名前：マッハ五等 [2015/02/26(木) 00:43:19.72 ID:DaJNGHwl.net] 【カワイイ】海外メディアが報じた美人過ぎる議員候補者　美しい国ニッポン！なぜこんなに議員候補者が可愛いのか？と話題に【KWAII】 ttps://www.youtube.com/watch?v=uI59ogPcazE 634 名前：デフォルトの名無しさん mailto:sage [2015/04/16(木) 07:32:59.78 ID:UIJv8RFa.net] june styleの広告解除するバッチ書いて 635 名前：ピラフ [2015/04/25(土) 17:57:16.27 ID:KZvIujNC.net] >>614 ローカル変数宣言したら負けただと思うよ Option Explicit Sample "" Function Sample(I) 　I = Used 　Msgbox Typename(I) End Function Function Used() 　Used = Array() End Function 636 名前：デフォルトの名無しさん [2015/05/14(木) 08:23:07.90 ID:TbUpA8Wq.net] システムの起動が、通常起動なのか、再起動なのかの識別する方法を考えています。 今のところ、ログオフからログオンまでの時間の違いにより識別する方法しか発想できませんです。 しかしこの方法は、100％確実でないので、他の方法があればヒントをお願いします。 637 名前：デフォルトの名無しさん mailto:sage [2015/05/17(日) 23:40:50.31 ID:wdkXHT83.net] つまり、電源を切ったか、切らなかったか、ってことかな 638 名前：デフォルトの名無しさん [2015/05/18(月) 08:04:34.63 ID:O0NInJV+.net] >>619 ＰＣの主電源は、再起動の時、切るタイプと切らないタイプがあるようです。 なので、その判別方法は、使えないと思います。 ところで、主電源のＯＮ-ＯＦＦ判別はどのような方法でしょうか？ 639 名前：デフォルトの名無しさん mailto:sage [2015/05/18(月) 12:27:22.13 ID:kkG7b6r2.net] >>618 シャットダウンイベントの追跡ツールを有効にして、イベントログを確認 640 名前：デフォルトの名無しさん [2015/07/25(土) 19:16:04.23 ID:Q3QGe3XY.net] >>616 下のMsgBoxを広告の上においてみなよ 文字を増やすと、ウインドウが大きくなって、効果てきめん MsgBox "広告バスター 広告バスター 広告バスター" 641 名前：群馬大学病院腹腔鏡手術後8人死亡事故 [2015/07/28(火) 00:25:13.74 ID:AlkUvM7FE] / 【速報】「生きるのに向いていないから」健康な24歳女性の安楽死が認められる!! news.biglobe.ne.jp/trend/0630/toc_150630_9059532140.html 642 名前：ピラフ [2016/03/05(土) 22:58:28.36 ID:reoACJ/5.net] できた！ システムカラーを出力 https://friendpaste.com/3XztNzDZtSekbOCjlprhMv?rev=333231356561 www.fastpic.jp/images.php?file=1701053691.png 643 名前：デフォルトの名無しさん [2016/03/29(火) 08:45:45.83 ID:/c8bAcK4.net] サッカーブッシュ日本代表日程ぷあたん（しゅっちょうまいくろ教育長交代）春文執行40代売上差額シュガーチョコ https://www.youtube.com/watch?v=NDq1QoJY0nY宇ドナルドアナリストパワーストーンコーチングとしまえん サッカーブッシュ日本代表日程古本屋よしたけしゅっちょうちょこしゅがー ディーラー税務署天才開発者死亡詰みヨミドクターマイクロサービス不足 サッカーブッシュ日本代表日程ぷあたんシフト光金さかい強制バイト人権侵害問題 春分資源執行ニューヨーク低原価ぼったステーキソルトレイク福岡横浜新橋奴隷課金パチシフト強制バイト問題新潟米センター生残 コスメ２４チャリティー隠れ40代生活保護プレイボーイバイトレードいたりあん接待問題 マスコミKARDローンケーオーサービス不足婚活パーティー寄付金執行原発ビジネス FBIチャイニーズタイホテル売上事務所ガチャ決算ガチャキャンペーン（販売報道陣過激派組織向携帯最新情報提供終了 校長発言細心注意ノートン産廃エラー(著作権クレーム中国反応融資高額教育費)(中国捕鯨団体40代社員サッカーコメント 高額入学金ヤフウ新橋大学ヤフウ新橋理事長FX経費 おじや50代資産ガリバズフィード40代エリート 644 名前：ピラフ [2016/06/09(木) 22:54:40.95 ID:pXMVc1f3.net] なんか作りたい！でも思いつかない!! 645 名前：デフォルトの名無しさん [2016/06/10(金) 14:24:55.00 ID:YAUUTr4W.net] 赤ちゃん！ 646 名前：デフォルトの名無しさん mailto:sage [2016/06/10(金) 17:45:55.05 ID:E7QyX/xf.net] 尻取り 647 名前：デフォルトの名無しさん mailto:sage [2017/07/23(日) 14:14:08.03 ID:7erAQfie.net] '// テキストファイル名の配列を受け取って、結合した内容をクリップボードにコピーするスクリプト Option Explicit Dim txtArry With CreateObject("Excel.Application") 　　.DefaultFilePath = "C:\" 　　txtArry = .GetOpenFilename("テキストファイル,*.txt;*.csv",,,,True) 　　If IsArray(txtArry) Then 　　　　If Ubound(txtArry) > 0 Then Call TextCopy(txtArry) 　　　　.Quit 　　Else 　　　　WScript.Echo "キャンセルされました。" 　　　　.Quit 　　End If End With Sub TextCopy(txtArry) 　　Dim i 　　Dim txtStr 　　With CreateObject("Scripting.FileSystemObject") 　　　　For i = 1 To UBound(txtArry) 　　　　　　With .OpenTextFile(txtArry(i)) 　　　　　　　　txtStr = txtStr & .ReadAll & vbCrLf 　　　　　　　　.Close 　　　　　　End With 　　　　Next 　　End With 　　CreateObject("WScript.Shell").Exec("clip").StdIn.Write(txtStr) 　　WScript.Echo "クリップボードにコピーしました。" End Sub 648 名前：デフォルトの名無しさん mailto:sage [2017/07/23(日) 21:44:37.72 ID:7erAQfie.net] '// .vbsファイルのアイコンにドラッグした複数ファイルのフルパスリストをクリップボードにコピーするスクリプト Option Explicit Dim i Dim fileNames With WScript 　　For i = 0 to .Arguments.Count - 2 　　　　 fileNames = fileNames & .Arguments(i) & vbcrlf 　　next 　　fileNames = fileNames & .Arguments(i) 　　CreateObject("WScript.Shell").Exec("clip").StdIn.Write(fileNames) 　　.Echo "ファイルリストをコピーしました。" End With 649 名前：デフォルトの名無しさん [2018/05/23(水) 22:04:08.08 ID:Au5e7VGg.net] 僕の知り合いの知り合いができたパソコン一台でお金持ちになれるやり方 役に立つかもしれません グーグルで検索するといいかも『ネットで稼ぐ方法　モニアレフヌノ』 XDVRR 650 名前：デフォルトの名無しさん [2018/07/04(水) 23:59:09.15 ID:gFgZc5FG.net] TO3 651 名前：デフォルトの名無しさん mailto:sage [2018/08/21(火) 12:58:35.50 ID:2l7tVH8h.net] ショートカットを『スタートにピン留め』 フォルダを『クイック アクセスにピン留め』 Windows10なのでよろしく。 652 名前：ピラフ [2018/09/02(日) 15:58:55.25 ID:uO0ayeCX.net] >>633 任せて https://gist.github.com/kingpilaf/6f923ce6fc619923b5525e611d2b15cb 653 名前：ピラフ [2018/09/02(日) 16:00:04.92 ID:uO0ayeCX.net] ピラフの環境だと Verb.DoItを2回呼ばないと反映されなかったんだよね なんなんだろこれ 654 名前：デフォルトの名無しさん mailto:sage [2018/09/05(水) 20:51:41.21 ID:223DM7Lb.net] >>635 どうせどっかのコピペだろ。 お前のコードはいちいちスタイルが違い過ぎる。 氏ね。 655 名前：ピラフ [2018/09/05(水) 22:59:35.09 ID:BuNkH2Jq.net] >>636 形に拘ってるようじゃピラフには一生勝てないよ 656 名前：ピラフ [2018/09/05(水) 23:11:54.62 ID:BuNkH2Jq.net] 見せてやるよ、形式に囚われないピラフの究極奥義 SUB SWAP(A, B, C) 　C = A 　A = B 　B = C END SUB SUB SORT(A, I, J) 　FOR I = 1 TO UBOUND(A) 　　FOR J = 1 TO UBOUND(A) 　　　IF A(J - 1) > A(J) THEN SWAP A(J - 1), A(J), EMPTY 　　NEXT 　NEXT END SUB SUB MAIN(A) 　A = ARRAY(5,4,3,2,1) 　SORT A, EMPTY, EMPTY 　WSCRIPT.STDOUT.WRITELINE JOIN(A, ",") END SUB MAIN EMPTY 657 名前：ピラフ [2018/09/05(水) 23:14:07.11 ID:BuNkH2Jq.net] ローカル変数を最小にすることによってバグを最小化できる これこそがVBScriptプログラミングの真髄 658 名前：デフォルトの名無しさん mailto:sage [2018/09/06(木) 07:24:37.16 ID:ezd+bzmC.net] こいつまだいたのかよ 一生ソートやってそうｗｗｗｗ 659 名前：ピラフ [2018/09/06(木) 07:32:32.39 ID:ndioKak8.net] >>640 奥義についての感想をいただけたら 660 名前：デフォルトの名無しさん [2018/09/06(木) 07:36:00.23 ID:ezd+bzmC.net] 競技プログラミングですでにやってるわ そんなのアスぺ自慢にもならない 661 名前：ピラフ [2018/09/06(木) 07:43:37.26 ID:ndioKak8.net] ちょっと何言ってんのかよくわからない 662 名前：デフォルトの名無しさん [2018/09/06(木) 17:19:09.87 ID:ezd+bzmC.net] そりゃお前だからだろ スレの趣旨も理解できてなさそうだし そろそろ出てきても大丈夫とか思っちゃったんだろうか 663 名前：ピラフ [2018/09/06(木) 22:09:39.70 ID:VSCSfufl.net] クソレスすんなゴミ 664 名前：デフォルトの名無しさん [2018/09/06(木) 23:45:24.23 ID:ezd+bzmC.net] お前が来なければ何の問題もないんだよ バブルソートも満足に組めないゴミのくせにｗｗ 665 名前：デフォルトの名無しさん [2018/09/07(金) 01:27:31.43 ID:mHXQx/fB.net] >>7-8 うまく動かないのは、 > PASS_WRD = PASS_WRD + "2 3 4 5 6 7 8 9 2 3 4 5 6 7 8 9 2 3 4 5 6 7 8 9 " と > MOJISYU_C = MsgBox("記号を使いますか？",vbYesNo) の間に End If が抜けているからだ。 11年半待たせたな。 666 名前：ピラフ [2018/09/10(月) 22:04:51.82 ID:EFF3DhTd.net] >>646 >>638で完全な実装を我は示した、それでも満足できぬと申すか？ どうなんだ？ おん？ 667 名前：デフォルトの名無しさん [2018/09/10(月) 22:10:48.32 ID:ioZkQTlp.net] >>648 スレ違いだバカ 668 名前：ピラフ [2018/09/10(月) 22:16:42.81 ID:EFF3DhTd.net] >>649 うるせーバカ 669 名前：ピラフ [2018/09/10(月) 22:17:47.07 ID:EFF3DhTd.net] ピラフのバブルソートに満足できないなら何が不満かを言いなさいよ 670 名前：デフォルトの名無しさん [2018/09/10(月) 22:21:13.47 ID:ioZkQTlp.net] こいつバカだから聞き出そうとしてんだろ テメーの教育スレじゃねえよ 671 名前：ピラフ [2018/09/10(月) 22:29:04.16 ID:EFF3DhTd.net] >>652 バブルソートも満足に組めないと言ったから どこが不満なのかお聞きしたのに答えられないって なんなのそれ、パーフェクトバブルソートってことでいいね？ 672 名前：ピラフ [2018/09/10(月) 22:31:31.94 ID:EFF3DhTd.net] 言っとくけどピラフの奥義はバブルソートだけじゃないから 君たちがのんべんだらりと怠惰な生活を送ってる間に ピラフは厳しい修行を積んで圧倒的成長を遂げたから 673 名前：デフォルトの名無しさん [2018/09/10(月) 22:33:49.16 ID:ioZkQTlp.net] >>653-654 だからスレ違いだって言ってんだよバカ 674 名前：ピラフ [2018/09/10(月) 22:35:08.44 ID:EFF3DhTd.net] >>655 だからうるせーバカ 675 名前：デフォルトの名無しさん [2018/09/10(月) 22:40:37.66 ID:ioZkQTlp.net] >>656 てめーに来る権利なんかないんだよ スレ違いだって言ってんだバカ 676 名前：ピラフ [2018/09/10(月) 22:41:27.56 ID:EFF3DhTd.net] >>657 静かにしろよ、子どもが起きるでしょうが！！ 677 名前：ピラフ [2018/09/10(月) 22:41:50.85 ID:EFF3DhTd.net] 子どものことを考えて欲しい 678 名前：デフォルトの名無しさん [2018/09/10(月) 22:46:49.70 ID:ioZkQTlp.net] >>658-659 微妙に方向を変えてレスされないよう工夫してるつもりのバカ 679 名前：ピラフ [2018/09/10(月) 22:48:21.82 ID:EFF3DhTd.net] >>660 子どもには寝る権利がある、君は優しい人だから子どもには手を出せない 君の負けだよ、子どもがどうなっても良いのか！ 680 名前：ピラフ [2018/09/10(月) 22:49:32.47 ID:EFF3DhTd.net] ところでさ黄金のハンマーがあったら何でもかんでも叩きたくなるっていう プログラミング業界で広く知られた寓話があるけれども ピラフは厳しい修行を積んで習得した奥義を披露したくて仕方がないよ 実験台になってくれる？ 681 名前：デフォルトの名無しさん [2018/09/10(月) 22:50:39.35 ID:ioZkQTlp.net] 昔から嫌われてるようだけどこの態度を見れば当然だよな 682 名前：ピラフ [2018/09/10(月) 22:55:31.48 ID:EFF3DhTd.net] >>663 でも君はボッチじゃん ピラフもボッチじゃん これからもボッチコンビとしてやっていこうよ 君はピラフのこと嫌いじゃないでしょ？ それで十分だよ 683 名前：デフォルトの名無しさん [2018/09/10(月) 22:57:11.75 ID:ioZkQTlp.net] >>664 てめーの雑談スレじゃねえんだよ 684 名前：ピラフ [2018/09/10(月) 22:59:33.34 ID:EFF3DhTd.net] >>665 いいじゃん、どうせ誰も書き込まないし スレが埋まったらまたスレ建てればいいし 何を気にすることがあろうか いまどきVBScriptの話する人なんて ピラフと変態の君くらいだよ 685 名前：デフォルトの名無しさん [2018/09/10(月) 23:01:24.61 ID:ioZkQTlp.net] まあどうせ自分のレスを最後にして終わりにしたいだけだろ こいつバカだから 686 名前：ピラフ [2018/09/10(月) 23:01:29.79 ID:EFF3DhTd.net] ちなみにピラフの奥義は配列に関するものです Array(Array(Array("a"), "b"), "c") こういう入れ子になった配列を Array("a", "b", "c") というように平坦化します 名付けてフラッテンです 687 名前：ピラフ [2018/09/10(月) 23:02:34.99 ID:EFF3DhTd.net] >>667 あまり変な綾つけてるとフラッテンを発動せざるを得ないが？ 688 名前：デフォルトの名無しさん [2018/09/10(月) 23:03:11.10 ID:ioZkQTlp.net] 悔しさに耐えきれず出てきてしまったバカ>>648 689 名前：ピラフ [2018/09/10(月) 23:04:13.53 ID:EFF3DhTd.net] >>670 クソレスすんなクズ 690 名前：ピラフ [2018/09/10(月) 23:04:30.71 ID:EFF3DhTd.net] はい勝利 691 名前：デフォルトの名無しさん [2018/09/10(月) 23:05:44.11 ID:ioZkQTlp.net] 嫌がらせをするために生まれてきたとしか思えないようなクズだよな 692 名前：デフォルトの名無しさん [2018/09/10(月) 23:09:43.33 ID:ioZkQTlp.net] >>634-635 汚名返上大失敗 693 名前：ピラフ [2018/09/11(火) 22:25:27.29 ID:sKts/OLx.net] >>673 秘奥義フラッテンを伝授してやっても良いけど？ 694 名前：ピラフ [2018/09/11(火) 22:25:46.20 ID:sKts/OLx.net] 教えようか？ しょうがないなあもう！ 695 名前：ピラフ [2018/09/11(火) 22:29:50.82 ID:sKts/OLx.net] フラッテンというのはArray(Array("a"))このように 入れ子になった配列をArray("a")このように平坦化するメソッドです VBScriptは配列を中心にプログラムを組み立てる Array Orietedな言語と言っても過言ではありません それくらいVBScriptにとって配列は重要なデータ構造であり いかに配列とうまく付き合うかがプログラムの出来を大きく左右します フラッテンを知ることでVBScriptで信頼性の高いプログラムを 作ることができるようになります 696 名前：ピラフ [2018/09/11(火) 22:33:42.97 ID:sKts/OLx.net] まず、フラッテンによってどのようにデータが変換されるのかを学びましょう Array("a") => Array("a") もともと平坦な配列はそのままです Array(Array("a")) => Array("a") 入れ子になった配列は平坦化されます Array(Array(Array("a"))) => Array("a") 入れ子が入れ子になっていても平坦化されます Array("a", Array("b", Array("c"))) => Array("a", "b", "c") 値と配列が混在して格納されていても平坦化されます どうです？ フラッテンの威力はすごいでしょう？ 697 名前：さまよえる蟻人間 mailto:sage [2018/09/11(火) 22:52:10.95 ID:qY ] [ここ壊れてます] 698 名前：6EWQ/c.net mailto: フランケンとフラッテンとフリテンはどう違うんだ？ [] [ここ壊れてます] 699 名前：ピラフ [2018/09/11(火) 23:13:01.51 ID:sKts/OLx.net] >>679 フランケンは人造人間を作った博士のこと フラッテンはピラフが厳しい修行の末に身に着けた奥義 フリテンはちんちん丸出しのこと 700 名前：ピラフ [2018/09/11(火) 23:14:54.59 ID:sKts/OLx.net] おちんちん

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef