VBSで便利なプログラムを作れスレ 2 (853ﾚｽ)
VBSで便利なプログラムを作れスレ 2 http://mevius.5ch.net/test/read.cgi/tech/1539439008/
上
下
前次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
抽出解除
ﾚｽ栞
ﾘﾛｰﾄﾞ規制
です｡10分ほどで解除するので､
他のﾌﾞﾗｳｻﾞ
へ避難してください｡
104: デフォルトの名無しさん [] 2018/10/19(金) 21:15:27.83 ID:qnu/MyV1 >>83 荒らすなクズ http://mevius.5ch.net/test/read.cgi/tech/1539439008/104
112: デフォルトの名無しさん [age] 2018/10/24(水) 08:26:24.83 ID:lHIgxdMT >>111 荒らすなクズ http://mevius.5ch.net/test/read.cgi/tech/1539439008/112
181: デフォルトの名無しさん [sage] 2018/10/30(火) 15:14:50.83 ID:0mRtGVLy キー入力を検出して処理を止めるスクリプト組みたいんだけど方法ある？ 具体的にはループ処理中のスクリプトをキー入力(Esc)を検出して緊急停止に使いたい感じ。 http://mevius.5ch.net/test/read.cgi/tech/1539439008/181
236: デフォルトの名無しさん [] 2018/11/18(日) 17:58:20.83 ID:YervSdnc >>235 自演乙 http://mevius.5ch.net/test/read.cgi/tech/1539439008/236
360: ピッコロ ◆YAZTByPXwc6o [] 2019/02/22(金) 06:57:30.83 ID:yYJ9vw5F >>359 うおおお！！！実装できましたあああ！！！ ありがとうございます！！マジで尊敬します！！！！ ありがとうございます！！！！ヽ(▽＾〃ヽ)ヽ(〃＾▽＾〃)ﾉ(ﾉ〃＾▽)ﾉ ﾜｰｲﾜｰｲﾜｰｲ♪ http://mevius.5ch.net/test/read.cgi/tech/1539439008/360
374: デフォルトの名無しさん [] 2019/03/16(土) 20:08:10.83 ID:vjeczwgh 717 名前：さまよえる蟻人間 ◆T6xkBnTXz7B0 [age] 投稿日：2019/03/16(土) 17:18:04.51 ID:PQISp+Pa グリッチは広辞苑には載っていません。説明して下さい。 718 名前：デフォルトの名無しさん[sage] 投稿日：2019/03/16(土) 17:21:14.90 ID:EVMD7h0V [3/3] >>717 やだ！ピラフ、いちいち説明なんかしたくない 片山なんかにしたくない！ http://mevius.5ch.net/test/read.cgi/tech/1539439008/374
385: さまよえる蟻人間 ◆T6xkBnTXz7B0 [sage] 2019/03/16(土) 21:19:53.83 ID:qc9yYKDp アメリカに嫌われた国のパソコンの動作はなぜか遅くなる。なぜでしょう？ http://mevius.5ch.net/test/read.cgi/tech/1539439008/385
482: ピッコロ ◆YAZTByPXwc6o [] 2019/05/26(日) 00:51:38.83 ID:UgqrYdQF 解けた人いますか？ http://mevius.5ch.net/test/read.cgi/tech/1539439008/482
633: デフォルトの名無しさん [] 2019/07/27(土) 16:17:07.83 ID:xnmpB9aq >>631-632 別人を言い張ってるくせに信者だった話だけは受け入れるのな なんだこのゴミ http://mevius.5ch.net/test/read.cgi/tech/1539439008/633
709: デフォルトの名無しさん [sage] 2019/08/07(水) 10:03:43.83 ID:vuxJQR07 と言いつつ改行混じり対応版も作っちゃったね 自分で使う用途はないけどねｗ Ｄｉｍ ＤＬＭ＿ＲＯＷ： ＤＬＭ＿ＲＯＷ ＝ Ｃｈｒ(１３) ＆ Ｃｈｒ（１０） Ｄｉｍ Ｓｒｃ, Ｖａｒ, Ｑｏｔ, Ｖａｌ, Ｃｏｌｓ(), Ｃｏｌ, Ｄｌｍ Ｄｉｍ Ｏｔｆ： Ｓｅｔ Ｏｔｆ ＝ ＣｒｅａｔｅＯｂｊｅｃｔ(”Ｓｃｒｉｐｔｉｎｇ.ＦｉｌｅＳｙｓｔｅｍＯｂｊｅｃｔ”).ＯｐｅｎＴｅｘｔＦｉｌｅ(Ｒｅｐｌａｃｅ(ＷＳｃｒｉｐｔ.ＳｃｒｉｐｔＦｕｌｌＮａｍｅ,”.ｖｂｓ”,”.ｃｓｖ”)) Ｄｏ Ｕｎｔｉｌ Ｏｔｆ.ＡｔＥｎｄＯｆＳｔｒｅａｍ Ｄｌｍ ＝ ＤＬＭ＿ＲＯＷ Ｉｆ Ｎｏｔ Ｑｏｔ Ｔｈｅｎ ＲｅＤｉｍ Ｃｏｌｓ(０) Ｃｏｌ ＝ ０ Ｅｎｄ Ｉｆ Ｆｏｒ Ｅａｃｈ Ｖａｒ Ｉｎ Ｓｐｌｉｔ(Ｏｔｆ.ＲｅａｄＬｉｎｅ, ”,”) Ｉｆ Ｑｏｔ Ｔｈｅｎ Ｖａｌ ＝ Ｖａｌ ＆ Ｄｌｍ ＆ Ｖａｒ Ｅｌｓｅ Ｖａｌ ＝ Ｖａｒ Ｅnd If Ｉｆ (Ｌｅｎ(Ｖａｒ) − Ｌｅｎ(Ｒｅｐｌａｃｅ(Ｖａｒ, ””””, ””))) Ｍｏｄ ２ Ｔｈｅｎ Ｑｏｔ ＝ Ｎｏｔ Ｑｏｔ Ｉｆ Ｎｏｔ Ｑｏｔ Ｔｈｅｎ Ｉｆ Ｃｏｌ > ０ Ｔｈｅｎ ＲｅＤｉｍ Ｐｒｅｓｅｒｖｅ Ｃｏｌｓ(Ｃｏｌ) Ｃｏｌｓ(Ｃｏｌ) ＝ Ｒｅｐｌａｃｅ(Ｒｅｐｌａｃｅ(Ｒｅｐｌａｃｅ(Ｒｅｐｌａｃｅ(Ｃｈｒ(０) ＆ Ｖａｌ ＆ Ｃｈｒ(０), Ｃｈｒ(０) ＆ ””””, ””), ”””” ＆ Ｃｈｒ(０), ””), Ｃｈｒ(０), ””), ””””””, ””””) Ｃｏｌ ＝ Ｃｏｌ ＋ １ Ｅｎｄ Ｉｆ Ｄｌｍ ＝ ”,” Ｎｅｘｔ Ｉｆ Ｎｏｔ Ｑｏｔ Ｔｈｅｎ ＭｓｇＢｏｘ Ｊｏｉｎ(Ｃｏｌｓ, Ｃｈｒ(９)) Ｅｎｄ Ｉｆ Ｌｏｏｐ Ｏｔｆ.Ｃｌｏｓｅ >>708 そうなの？ﾒﾓ帳しか知らん田舎もんで済まんねｗ 初見のﾆﾜｶなのでﾋﾟｯｺﾛが何者か知らんよ http://mevius.5ch.net/test/read.cgi/tech/1539439008/709
ﾒﾓ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.040s