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

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

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

709(1): 2019/08/07(水)10:03 ID:vuxJQR07(1/2)調 AAS
と言いつつ改行混じり対応版も作っちゃったね
自分で使う用途はないけどねｗ

ＤｉｍＤＬＭ＿ＲＯＷ：ＤＬＭ＿ＲＯＷ＝Ｃｈｒ(１３) ＆Ｃｈｒ（１０）
ＤｉｍＳｒｃ, Ｖａｒ, Ｑｏｔ, Ｖａｌ, Ｃｏｌｓ(), Ｃｏｌ, Ｄｌｍ
ＤｉｍＯｔｆ：ＳｅｔＯｔｆ＝ＣｒｅａｔｅＯｂｊｅｃｔ(”Ｓｃｒｉｐｔｉｎｇ.ＦｉｌｅＳｙｓｔｅｍＯｂｊｅｃｔ”).ＯｐｅｎＴｅｘｔＦｉｌｅ(Ｒｅｐｌａｃｅ(ＷＳｃｒｉｐｔ.ＳｃｒｉｐｔＦｕｌｌＮａｍｅ,”.ｖｂｓ”,”.ｃｓｖ”))
ＤｏＵｎｔｉｌＯｔｆ.ＡｔＥｎｄＯｆＳｔｒｅａｍ
　　Ｄｌｍ＝ＤＬＭ＿ＲＯＷ
　　ＩｆＮｏｔＱｏｔＴｈｅｎ
　　　　ＲｅＤｉｍＣｏｌｓ(０)
　　　　Ｃｏｌ＝０
　　ＥｎｄＩｆ
　　ＦｏｒＥａｃｈＶａｒＩｎＳｐｌｉｔ(Ｏｔｆ.ＲｅａｄＬｉｎｅ, ”,”)
　　　　ＩｆＱｏｔＴｈｅｎＶａｌ＝Ｖａｌ＆Ｄｌｍ＆ＶａｒＥｌｓｅＶａｌ＝ＶａｒＥnd If
　　　　Ｉｆ (Ｌｅｎ(Ｖａｒ) − Ｌｅｎ(Ｒｅｐｌａｃｅ(Ｖａｒ, ””””, ””))) Ｍｏｄ２ＴｈｅｎＱｏｔ＝ＮｏｔＱｏｔ
　　　　ＩｆＮｏｔＱｏｔＴｈｅｎ
　　　　　　ＩｆＣｏｌ > ０ＴｈｅｎＲｅＤｉｍＰｒｅｓｅｒｖｅＣｏｌｓ(Ｃｏｌ)
　　　　　　Ｃｏｌｓ(Ｃｏｌ) ＝Ｒｅｐｌａｃｅ(Ｒｅｐｌａｃｅ(Ｒｅｐｌａｃｅ(Ｒｅｐｌａｃｅ(Ｃｈｒ(０) ＆Ｖａｌ＆Ｃｈｒ(０), Ｃｈｒ(０) ＆ ””””, ””), ”””” ＆Ｃｈｒ(０), ””), Ｃｈｒ(０), ””), ””””””, ””””)
　　　　　　Ｃｏｌ＝Ｃｏｌ＋１
　　　　ＥｎｄＩｆ
　　　　Ｄｌｍ＝ ”,”
　　Ｎｅｘｔ
　　ＩｆＮｏｔＱｏｔＴｈｅｎ
　　　　ＭｓｇＢｏｘＪｏｉｎ(Ｃｏｌｓ, Ｃｈｒ(９))
　　ＥｎｄＩｆ
Ｌｏｏｐ
Ｏｔｆ.Ｃｌｏｓｅ

>>708
そうなの？ﾒﾓ帳しか知らん田舎もんで済まんねｗ
初見のﾆﾜｶなのでﾋﾟｯｺﾛが何者か知らんよ

717(6): 566 2019/08/09(金)00:01 ID:gCUFaYI/(1)調 AAS
>>700
全然違う。幼稚園から…いや、産まれるところからやり直しな。

>>709
そんなコード書いちゃって、生きてて恥ずかしくない？
それ、マトモに動かないよ。

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

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

ぬこの手ぬこTOP 0.031s