と言いつつ改行混じり対応版も作っちゃったね
自分で使う用途はないけどねｗ

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

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