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

VBSで便利なプログラムを作れスレ 2 (853ﾚｽ)
上下前次1-新
抽出解除ﾚｽ栞

ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡

377: さまよえる蟻人間 ◆T6xkBnTXz7B0 [age] 2019/03/16(土)20:39:51.16 ID:qc9yYKDp(1/5)調 AAS
女性(に見える)キャラを女性扱いしたらまずいのか？という哲学的な議論になりそう。

424(1): 蟻人間 ◆T6xkBnTXz7B0 2019/05/17(金)22:51:42.16 ID:/y7hsWfJ(1)調 AAS
ランダウの記号

だろ？名前くらいは知ってるよ

511(2): ピッコロ ◆YAZTByPXwc6o 2019/05/27(月)23:54:03.16 ID:z2ROiAa+(14/16)調 AAS
>>509
>>510
それピッコロじゃないよマジで
君は友だちが少ないうえに思い込みが激しいな
友だちが少ないから思い込みが激しいのか？

いずれにしろピッコロじゃないので
名誉毀損です、謝罪してもらえますか？
鈴木雅之に

704(2): 2019/08/07(水)04:52:07.16 ID:+RwF1EPD(1/4)調 AAS
なるほど、ｿｰｽを貼るとﾌﾞﾛｯｸされることがあるのか
せっかく作ってやったのにｗ

705(2): 2019/08/07(水)04:58:54.16 ID:+RwF1EPD(2/4)調 AAS
ＤｉｍＴｓｔ(１)
Ｔｓｔ(０) ＝ ”ａ１,””ｂ１１,””””ｂ１２””””,””””ｂ１３””””””,””ｃ１”””
Ｔｓｔ(１) ＝ ”ａ２,””ｂ２１,””””ｂ２２””””,””””ｂ２３””””””,””ｃ２”””

ＤｉｍＳｒｃ, Ｖａｒ, Ｑｏｔ, Ｖａｌ, Ｃｏｌｓ(), Ｃｏｌ
ＦｏｒＥａｃｈＳｒｃＩｎＴｓｔ
　Ｑｏｔ＝Ｆａｌｓｅ
　ＲｅＤｉｍＣｏｌｓ(０)
　Ｃｏｌ＝０
　ＦｏｒＥａｃｈＶａｒＩｎＳｐｌｉｔ(Ｓｒｃ, ”,”)
　　ＩｆＱｏｔＴｈｅｎＶａｌ＝Ｖａｌ＆ ”,” ＆ＶａｒＥｌｓｅＶａｌ＝ＶａｒＥｎｄＩｆ
　　Ｉｆ (Ｌｅｎ(Ｖａｒ) − Ｌｅｎ(Ｒｅｐｌａｃｅ(Ｖａｒ, ””””, ””))) Ｍｏｄ２ＴｈｅｎＱｏｔ＝ＮｏｔＱｏｔ
　　ＩｆＮｏｔＱｏｔＴｈｅｎ
　　　ＩｆＣｏｌ > ０ＴｈｅｎＲｅＤｉｍＰｒｅｓｅｒｖｅＣｏｌｓ(Ｃｏｌ)
　　　Ｃｏｌｓ(Ｃｏｌ) ＝Ｒｅｐｌａｃｅ(Ｒｅｐｌａｃｅ(Ｒｅｐｌａｃｅ(Ｒｅｐｌａｃｅ(Ｃｈｒ(０) ＆Ｖａｌ＆Ｃｈｒ(０), Ｃｈｒ(０) ＆ ””””, ””), ”””” ＆Ｃｈｒ(０), ””), Ｃｈｒ(０), ””), ””””””, ””””)
　　　Ｃｏｌ＝Ｃｏｌ＋１
　　ＥｎｄＩｆ
　Ｎｅｘｔ
　ＭｓｇＢｏｘＪｏｉｎ(Ｃｏｌｓ, Ｃｈｒ(９))
Ｎｅｘｔ

756: 2019/08/17(土)15:45:05.16 ID:bKsAsHNB(2/2)調 AAS
273 名前：デフォルトの名無しさん[sage] 投稿日：2018/12/16(日) 20:20:29.20 ID:Ux2imWCY [1/4]
わがはいはバイナリ　男をサーチ!!

　　　 (YYﾌ
　　　　目
　ヘ／￣￣＼
　＼/ (･)(･) ヽ
　｜　゜　　|
　ヽ＼＿／ノ
`○ｴｴ>ー――<ｴｴ○
　　｜ｏ　ｏ｜
　　 >―――<＼
　　 (＿_)(＿_)､

781(1): ピッコロ ◆YAZTByPXwc6o 2019/08/17(土)23:49:02.16 ID:Q/0o0KuH(2/3)調 AAS
>>779
ブラボー！おお・・・ブラボー！！

853: 05/20(火)18:30:05.16 ID:mTpWtVWr(1)調 AAS
vbsの代わりにpowershellを使えというから、ネットを参考にエクセルブックを操作するコードを書いてみてるけど、COMオブジェクトっていうんですかね、タスクマネージャにEXCEL.EXEが残ったり、ガベコレ?に数十秒掛かってEXCELが消滅したり、慣れるまでかかりそうです

あと、psの冗長な記述、スイッチとか嫌だなぁ

上下前次1-新書関写板覧索設栞歴

ｽﾚ情報赤ﾚｽ抽出画像ﾚｽ抽出歴の未読ｽﾚ AAｻﾑﾈｲﾙ

ぬこの手ぬこTOP 0.041s