VBSで便利なプログラムを作れスレ 2 (853ﾚｽ)

VBSで便利なプログラムを作れスレ 2 http://mevius.5ch.net/test/read.cgi/tech/1539439008/

上下前次1-新
通常表示 512ﾊﾞｲﾄ分割 ﾚｽ栞
抽出解除 ﾚｽ栞

---

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

---

709: デフォルトの名無しさん [sage] 2019/08/07(水) 10:03:43.83 ID:vuxJQR07 と言いつつ改行混じり対応版も作っちゃったね 自分で使う用途はないけどねｗ Ｄｉｍ ＤＬＭ＿ＲＯＷ： ＤＬＭ＿ＲＯＷ ＝ Ｃｈｒ(１３) ＆ Ｃｈｒ（１０） Ｄｉｍ Ｓｒｃ, Ｖａｒ, Ｑｏｔ, Ｖａｌ, Ｃｏｌｓ(), Ｃｏｌ, Ｄｌｍ Ｄｉｍ Ｏｔｆ： Ｓｅｔ Ｏｔｆ ＝ ＣｒｅａｔｅＯｂｊｅｃｔ(”Ｓｃｒｉｐｔｉｎｇ.ＦｉｌｅＳｙｓｔｅｍＯｂｊｅｃｔ”).ＯｐｅｎＴｅｘｔＦｉｌｅ(Ｒｅｐｌａｃｅ(ＷＳｃｒｉｐｔ.ＳｃｒｉｐｔＦｕｌｌＮａｍｅ,”.ｖｂｓ”,”.ｃｓｖ”)) Ｄｏ Ｕｎｔｉｌ Ｏｔｆ.ＡｔＥｎｄＯｆＳｔｒｅａｍ 　　Ｄｌｍ ＝ ＤＬＭ＿ＲＯＷ 　　Ｉｆ Ｎｏｔ Ｑｏｔ Ｔｈｅｎ 　　　　ＲｅＤｉｍ Ｃｏｌｓ(０) 　　　　Ｃｏｌ ＝ ０ 　　Ｅｎｄ Ｉｆ 　　Ｆｏｒ Ｅａｃｈ Ｖａｒ Ｉｎ Ｓｐｌｉｔ(Ｏｔｆ.ＲｅａｄＬｉｎｅ, ”,”) 　　　　Ｉｆ Ｑｏｔ Ｔｈｅｎ Ｖａｌ ＝ Ｖａｌ ＆ Ｄｌｍ ＆ Ｖａｒ Ｅｌｓｅ Ｖａｌ ＝ Ｖａｒ Ｅnd If 　　　　Ｉｆ (Ｌｅｎ(Ｖａｒ) − Ｌｅｎ(Ｒｅｐｌａｃｅ(Ｖａｒ, ””””, ””))) Ｍｏｄ ２ Ｔｈｅｎ Ｑｏｔ ＝ Ｎｏｔ Ｑｏｔ 　　　　Ｉｆ Ｎｏｔ Ｑｏｔ Ｔｈｅｎ 　　　　　　Ｉｆ Ｃｏｌ > ０ Ｔｈｅｎ ＲｅＤｉｍ Ｐｒｅｓｅｒｖｅ Ｃｏｌｓ(Ｃｏｌ) 　　　　　　Ｃｏｌｓ(Ｃｏｌ) ＝ Ｒｅｐｌａｃｅ(Ｒｅｐｌａｃｅ(Ｒｅｐｌａｃｅ(Ｒｅｐｌａｃｅ(Ｃｈｒ(０) ＆ Ｖａｌ ＆ Ｃｈｒ(０), Ｃｈｒ(０) ＆ ””””, ””), ”””” ＆ Ｃｈｒ(０), ””), Ｃｈｒ(０), ””), ””””””, ””””) 　　　　　　Ｃｏｌ ＝ Ｃｏｌ ＋ １ 　　　　Ｅｎｄ Ｉｆ 　　　　Ｄｌｍ ＝ ”,” 　　Ｎｅｘｔ 　　Ｉｆ Ｎｏｔ Ｑｏｔ Ｔｈｅｎ 　　　　ＭｓｇＢｏｘ Ｊｏｉｎ(Ｃｏｌｓ, Ｃｈｒ(９)) 　　Ｅｎｄ Ｉｆ Ｌｏｏｐ Ｏｔｆ.Ｃｌｏｓｅ >>708 そうなの？ﾒﾓ帳しか知らん田舎もんで済まんねｗ 初見のﾆﾜｶなのでﾋﾟｯｺﾛが何者か知らんよ http://mevius.5ch.net/test/read.cgi/tech/1539439008/709

717: 566 [sage] 2019/08/09(金) 00:01:26.87 ID:gCUFaYI/ >>700 全然違う。幼稚園から…いや、産まれるところからやり直しな。 >>709 そんなコード書いちゃって、生きてて恥ずかしくない？ それ、マトモに動かないよ。 http://mevius.5ch.net/test/read.cgi/tech/1539439008/717

---

ﾒﾓ帳

(0/65535文字)

---

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

---

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

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.047s