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