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

**デフォルトの名無しさん** · 2018/10/13(土) 22:56:48.61

素人丸出しお粗末で遅くてもいいので
いますぐ使えるちょっぴり便利プログラムを作れ
（例○○を自動処理してくれるプログラム）

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

**ピッコロ** ◆YAZTByPXwc6o · 2019/08/07(水) 01:20:50.23

"a"b
このような値をどうするかという課題がある
囲まれてるとみなすか否か
CSVは斯くも難しい

**デフォルトの名無しさん** · 2019/08/07(水) 04:52:07.16

なるほど、ｿｰｽを貼るとﾌﾞﾛｯｸされることがあるのか
せっかく作ってやったのにｗ

**デフォルトの名無しさん** · 2019/08/07(水) 04:58:54.16

ＤｉｍＴｓｔ(１)
Ｔｓｔ(０) ＝ ”ａ１,””ｂ１１,””””ｂ１２””””,””””ｂ１３””””””,””ｃ１”””
Ｔｓｔ(１) ＝ ”ａ２,””ｂ２１,””””ｂ２２””””,””””ｂ２３””””””,””ｃ２”””

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

**デフォルトの名無しさん** · 2019/08/07(水) 05:19:56.25

全部全角にしたら行けたが、半角に直すの面倒だね
ＦｉｌｅＳｙｓｔｅｍＯｂｊｃｔが面倒で、配列にﾃｽﾄｿｰｽ入れたけど、そこは自分で

今気付いたんだけど改行交じりに対応してないな
Ｉｆ　Ｎｏｔ　Ｑｏｔ　Ｔｈｅｎ
　Ｑｏｔ＝Ｆａｌｓｅ
　ＲｅＤｉｍＣｏｌｓ(０)
　Ｃｏｌ＝０
Ｅｎｄ　Ｉｆ
こうすればいいのかなと思いつつ、面倒なのでﾃｽﾄはしない
およびＭｓｇＢｏｘのとこにも　Ｎｏｔ　Ｑｏｔ　で行が終わったかどうか判定すればいいのかな
（ＱｏｔがＴｒｕｅの間、引用符が閉じてないという意味）（絶対か？ｗ）

ちなみにｴｽｹｰﾌﾟに使ってるＣｈｒ(０)は、ﾌｧｲﾙに含まれてるとﾃｷｽﾄﾌｧｲﾙとして読めなかったと思う（たしか）
なので、絶対被らないとしていいと思う

（そもそも必要なものを入れさせないﾍﾟﾃﾝ保守系がｶﾞﾝなんだけどね）

**デフォルトの名無しさん** · 2019/08/07(水) 05:29:13.29

前の行のＱｏｔﾘｾｯﾄに依存するなら、
Ｉｆ　Ｎｏｔ　Ｑｏｔ　Ｔｈｅｎ
　Ｑｏｔ＝Ｆａｌｓｅ　←これ無意味だったね