VBSで便利なプログラムを作れスレ 2 (853ﾚｽ)
VBSで便利なプログラムを作れスレ 2 http://mevius.5ch.net/test/read.cgi/tech/1539439008/
上
下
前次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
抽出解除
ﾚｽ栞
ﾘﾛｰﾄﾞ規制
です｡10分ほどで解除するので､
他のﾌﾞﾗｳｻﾞ
へ避難してください｡
1: デフォルトの名無しさん [] 2018/10/13(土) 22:56:48.61 ID:X8llOrQa 素人丸出しお粗末で遅くてもいいので いますぐ使えるちょっぴり便利プログラムを作れ （例○○を自動処理してくれるプログラム） 前スレ VBSで便利なプログラムを作れスレ https://mevius.5ch.net/test/read.cgi/tech/1170492587/ http://mevius.5ch.net/test/read.cgi/tech/1539439008/1
8: デフォルトの名無しさん [] 2018/10/14(日) 01:39:32.42 ID:BqZmi47p 数値を文字列に変換するとき CStrを使用すると 999999999999999より大きな値は 指数表現となり近似値になります 2の52乗 - 1まで精確に文字列に変換するメソッドを作ってください http://mevius.5ch.net/test/read.cgi/tech/1539439008/8
22: さまよえる蟻人間 ◆T6xkBnTXz7B0 [sage] 2018/10/15(月) 00:13:43.12 ID:8D/muze/ >>16 グロ注意。 http://mevius.5ch.net/test/read.cgi/tech/1539439008/22
30: デフォルトの名無しさん [] 2018/10/15(月) 15:31:10.86 ID:PMSd/DPm >>8 Function CStr2(n) If n<0 Then CStr2="-"+CStr2(-n) ElseIf n<10 Then CStr2=CStr(n) Else CStr2=CStr2(n\10)+CStr(n Mod 10) End If End Function http://mevius.5ch.net/test/read.cgi/tech/1539439008/30
189: デフォルトの名無しさん [sage] 2018/11/02(金) 23:45:16.49 ID:n91FqQh7 VBS においては、MVP の吉岡氏が、一通りやりつくしている。 なので今は、車輪の再発明のときである。 漏れにはその必要性は、感じられない。 http://mevius.5ch.net/test/read.cgi/tech/1539439008/189
260: デフォルトの名無しさん [] 2018/12/16(日) 01:38:42.57 ID:gn/FiBbt ソート済みのランダムな数列があるとします (0, 15, 30, 46, 61, 76, 112, 148, 183, 219, 255) この中から任意の数値の近似値を得たいのですが アルゴリズムを教えてください できるだけ高速なアルゴリズムがよいです どうぞよろしくお願いいたします http://mevius.5ch.net/test/read.cgi/tech/1539439008/260
262: さまよえる蟻人間 ◆T6xkBnTXz7B0 [age] 2018/12/16(日) 11:27:56.96 ID:HKNcszmI 差の絶対値が最小になるものを選べばいい。 http://mevius.5ch.net/test/read.cgi/tech/1539439008/262
264: デフォルトの名無しさん [] 2018/12/16(日) 11:57:05.95 ID:/fF8nF6N >>262 では差の絶対値が最小のものを選ぶ高速なアルゴリズムを教えてください http://mevius.5ch.net/test/read.cgi/tech/1539439008/264
266: さまよえる蟻人間 ◆T6xkBnTXz7B0 [age] 2018/12/16(日) 16:22:49.06 ID:NQzKS8Ci MinValue = 9999999 ' とりあえず大きな整数 For I = 0 To Cnt - 1 Diff = A(I) - N Abso = Diff * Diff If Abso < MinValue Then MinValue = Abso End If Next WScript.Echo MinValue ' 未確認。 http://mevius.5ch.net/test/read.cgi/tech/1539439008/266
267: デフォルトの名無しさん [] 2018/12/16(日) 16:39:00.92 ID:/fF8nF6N 自己解決しました http://mevius.5ch.net/test/read.cgi/tech/1539439008/267
268: デフォルトの名無しさん [] 2018/12/16(日) 16:39:18.56 ID:/fF8nF6N >>266 ありがとうございます http://mevius.5ch.net/test/read.cgi/tech/1539439008/268
271: デフォルトの名無しさん [sage] 2018/12/16(日) 17:34:16.21 ID:2P/btQ9u えーバイナリサーチとかしないの？ http://mevius.5ch.net/test/read.cgi/tech/1539439008/271
321: ピッコロ ◆YAZTByPXwc6o [] 2019/02/19(火) 23:10:02.49 ID:hrS7nHTV ところでご質問させていただきたく https://light.dotup.org/uploda/light.dotup.org575301.png このような二分木があった場合に ノードをたどって1 2 3 4 5 6 7という 順番に値を出力したく、これを再帰を使わずに実装したく どのように実装すればよいでしょうか 皆様のお知恵を拝借したく 教えていただきたく よろしくお願いします http://mevius.5ch.net/test/read.cgi/tech/1539439008/321
327: さまよえる蟻人間 ◆T6xkBnTXz7B0 [sage] 2019/02/19(火) 23:41:43.43 ID:9iizyjaH お題: VBSでインターネット上のファイルをダウンロードするプログラム。 http://mevius.5ch.net/test/read.cgi/tech/1539439008/327
333: デフォルトの名無しさん [sage] 2019/02/20(水) 02:40:36.02 ID:B2QSVSiS >>321 すべてのノードについて、左の子以下の数は、自分の数よりも小さく、 右の子以下の数は、自分の数よりも大きくなる これは普通の2分探索木で、 C++ のSTL にある、map・set というコンテナだろ でも皆、再帰を使って実装しているのでは？ 再帰を使わない方法は、思いつかない http://mevius.5ch.net/test/read.cgi/tech/1539439008/333
334: デフォルトの名無しさん [sage] 2019/02/20(水) 02:45:56.98 ID:B2QSVSiS >>327 PowerShell にも、curl, wget ある get-alias (gal) curl -> Invoke-WebRequest wget -> Invoke-WebRequest http://mevius.5ch.net/test/read.cgi/tech/1539439008/334
350: 333 [sage] 2019/02/21(木) 00:10:49.00 ID:JBRYA9bz それを再帰を使わずに実装していることなんて、あるかな？ 漏れは、思いつかない アルゴリズムのスレで聞いたら、どうかな？ http://mevius.5ch.net/test/read.cgi/tech/1539439008/350
366: ピッコロ ◆YAZTByPXwc6o [] 2019/02/23(土) 19:33:17.51 ID:ayKygkD0 >>365 https://gist.github.com/piccolo-namek/1f50e717bac7a7d9900fb8f08d699e04 どうぞ！ http://mevius.5ch.net/test/read.cgi/tech/1539439008/366
370: ピッコロ ◆YAZTByPXwc6o [] 2019/03/16(土) 19:34:55.46 ID:nk9NEvEm >>369 あろはー！こんな感じで！ https://paiza.io/projects/38QLLsvJRs2PzTZhz_0hJQ?language=ruby http://mevius.5ch.net/test/read.cgi/tech/1539439008/370
401: 333 [sage] 2019/03/18(月) 22:38:04.62 ID:e1XJ4IHa 平衡2分木は基本だね インデックスに対して、MongoDBはB Treeを採用し、MySQLのInnoDBはB+ Treeを採用しているらしいし、 Linux のプロセス・スケジューラーは、赤黒木を使っている B TreeとB+ Treeの違い https://christina04.hatenablog.com/entry/2017/05/17/190000 http://mevius.5ch.net/test/read.cgi/tech/1539439008/401
419: ピッコロ ◆YAZTByPXwc6o [] 2019/05/17(金) 22:06:57.85 ID:0ADdj9iV >>418 じゃあこれ解いて プログラミングのお題スレ Part13 http://mevius.5ch.net/test/read.cgi/tech/1549160513/ | 920+8 ：デフォルトの名無しさん [↓] ：2019/05/16(木) 20:28:13.91 ID:3sIrlJF4 | お題 | 整数の数列が与えられるので、各値の大小関係を変えないように値をなるべく小さくせよ | ただし1番小さい要素は1にすること | 入力 | -6 3 9 5 3 -7 | 出力 | 2 3 5 4 3 1 http://mevius.5ch.net/test/read.cgi/tech/1539439008/419
480: デフォルトの名無しさん [sage] 2019/05/25(土) 16:40:05.58 ID:MUGP4AlX ランキングの問題でしょ。 4を飛ばすパターンと、連続するパターンの、2パターンで解いてみれば？ -6 3 9 5 3 -7 出力 2 3 5 4 3 1 2 3 6 5 3 1 プログラミングのお題スレ Part13 https://mevius.5ch.net/test/read.cgi/tech/1549160513/920-984 プログラミングのお題スレ Part14 https://mevius.5ch.net/test/read.cgi/tech/1558168409/4-89 http://mevius.5ch.net/test/read.cgi/tech/1539439008/480
545: 狂乱のピッコロ ◆YAZTByPXwc6o [] 2019/05/30(木) 06:18:49.06 ID:dCcyd6On >>544 徹夜したら簡単でした https://gist.github.com/piccolo-namek/87ea1688ae85534b7a415c92c9f8da2f http://mevius.5ch.net/test/read.cgi/tech/1539439008/545
566: デフォルトの名無しさん [sage] 2019/07/22(月) 23:38:59.37 ID:jXK2B8zb Office も Access コンポーネントもインスコできない環境で CSV を処理したいのですが…。 どっかにコード落ちてませんか？ http://mevius.5ch.net/test/read.cgi/tech/1539439008/566
569: ピッコロ ◆YAZTByPXwc6o [] 2019/07/23(火) 07:32:50.72 ID:wzqbz6Qy OleDbのテキストドライバー使うかもしくはオートマトンをゴリゴリ実装するかってところだと思うんだけど この辺試してみたらいんじゃないかな WSHサンプル集 - Tips for us. https://wiki.bit-hive.com/y10/pg/WSH%E3%82%B5%E3%83%B3%E3%83%97%E3%83%AB%E9%9B%86 VBScript - CSV ファイルを読み込む CsvReader クラス http://blogs.wankuma.com/jeanne/archive/2007/04/20/72209.aspx ダブルコーテーションあり文字列のSplit [VBScript] http://blog.livedoor.jp/tea_cocoa_cake/archives/5356742.html http://mevius.5ch.net/test/read.cgi/tech/1539439008/569
571: 566 [sage] 2019/07/25(木) 21:20:16.07 ID:mCQlPBRI >>568 今のところ PowerShell はいつ破壊的変更が起きても不思議じゃないので使いたくない。 >>569 1. なんでサンプルが JScript なんだ？ 2. 方針としては良いと思うが、実際の実装がかなり下手。 3. 設計からしておかしい。テキストファイルから1行ずつ読んで渡す使い方ができない。何これ？ 適当にググッて URL を貼っただけでしょ。 正解は理由付きで存在するけど教えない。 http://mevius.5ch.net/test/read.cgi/tech/1539439008/571
575: デフォルトの名無しさん [sage] 2019/07/26(金) 20:57:13.35 ID:54Ib42km Ruby なら、これで、改行・ダブルクォーテーション(b・c の間)も含められる。 ファイルから読み込んで、1行ずつ処理するには、CSV.foreach がある require 'csv' str = <<"EOT" id,first name 1,"ab""c" 2,"xy\nz" EOT options = { :headers => true } CSV.parse( str, options ).each do | row | p [ row[ 'id' ], row[ 'first name' ] ] end 出力 ["1", "ab\"c"] ["2", "xy\nz"] http://mevius.5ch.net/test/read.cgi/tech/1539439008/575
682: ピッコロ ◆YAZTByPXwc6o [] 2019/07/28(日) 11:08:54.77 ID:HrvIO7Kp ┌──────────────────────────────────────────────── │566+1 ：デフォルトの名無しさん [↓] ：2019/07/22(月) 23:38:59.37 ID:jXK2B8zb │Office も Access コンポーネントもインスコできない環境で CSV を処理したいのですが…。 │どっかにコード落ちてませんか？ └──────────────────────────────────────────────── 目的はCSVを処理することでした ピッコロのレスをきっかけに自己解決に至ったことは ピッコロもうれしく思います http://mevius.5ch.net/test/read.cgi/tech/1539439008/682
692: ピッコロ ◆YAZTByPXwc6o [] 2019/08/02(金) 00:53:04.71 ID:VeWgf3Oa Option Explicit Main Sub Main() Dim a a = Array(1, 2, 1, 1, 4, 3, 9) StarlinSort a WScript.Echo Join(a, ",") End Sub Sub StarlinSort(arr) Dim i, j j = 0 For i = 0 To UBound(arr) If i = UBound(arr) Then arr(j) = arr(i) j = j + 1 ElseIf arr(i) <= arr(i + 1) Then arr(j) = arr(i) j = j + 1 Else arr(i + 1) = arr(i) End If Next ReDim Preserve arr(j - 1) End Sub http://mevius.5ch.net/test/read.cgi/tech/1539439008/692
717: 566 [sage] 2019/08/09(金) 00:01:26.87 ID:gCUFaYI/ >>700 全然違う。幼稚園から…いや、産まれるところからやり直しな。 >>709 そんなコード書いちゃって、生きてて恥ずかしくない？ それ、マトモに動かないよ。 http://mevius.5ch.net/test/read.cgi/tech/1539439008/717
741: デフォルトの名無しさん [sage] 2019/08/16(金) 22:47:55.27 ID:D9VBDwVE 適度に飛ばして探索するけど、 最初の卵が割れると、残りの卵は1つになるので、 ミスれないため、順探索・総当たりになってしまう！ 例えば、20階飛ばしで、20階で割れなかった時、 飛ばして、40階で割れてしまうと、そこから21〜39階まで、順探索となる http://mevius.5ch.net/test/read.cgi/tech/1539439008/741
750: 741 [sage] 2019/08/17(土) 02:19:34.90 ID:fYRni8gj >>745 の、10階飛ばしが、最小かな？ 9 + 9 = 18回 平方根、√100 = 10 だから、10階が最小になるのかな？ http://mevius.5ch.net/test/read.cgi/tech/1539439008/750
751: ピッコロ ◆YAZTByPXwc6o [] 2019/08/17(土) 03:19:30.69 ID:6zPYx3oD >>750 もっとも効率の良い方法での最大数は？ http://mevius.5ch.net/test/read.cgi/tech/1539439008/751
754: ピッコロ ◆YAZTByPXwc6o [] 2019/08/17(土) 14:53:34.79 ID:6zPYx3oD >>753 お前が答えるんだよ なに他人事のように言ってるんだ 責任持て http://mevius.5ch.net/test/read.cgi/tech/1539439008/754
799: ピッコロ ◆YAZTByPXwc6o [] 2019/08/20(火) 00:13:13.49 ID:6EOJan/q >>798 コピペするなよ！絶対にコピペするなよ！！ http://mevius.5ch.net/test/read.cgi/tech/1539439008/799
800: ピッコロ ◆YAZTByPXwc6o [] 2019/08/20(火) 00:16:38.62 ID:6EOJan/q ピッコロさー3ヶ月働いた会社から明日から来なくていいって言われたんだけど酷いと思わない？ ピッコロかわいそうすぎ http://mevius.5ch.net/test/read.cgi/tech/1539439008/800
ﾒﾓ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.055s