VBSで便利なプログラムを作れスレ 2 (853ﾚｽ)
上下前次1-新
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん
ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡
704(2): 2019/08/07(水)04:52 ID:+RwF1EPD(1/4)調 AAS
なるほど、ｿｰｽを貼るとﾌﾞﾛｯｸされることがあるのか
せっかく作ってやったのにｗ
705(2): 2019/08/07(水)04:58 ID:+RwF1EPD(2/4)調 AAS
Ｄｉｍ Ｔｓｔ(１)
Ｔｓｔ(０) ＝ ”ａ１,””ｂ１１,””””ｂ１２””””,””””ｂ１３””””””,””ｃ１”””
Ｔｓｔ(１) ＝ ”ａ２,””ｂ２１,””””ｂ２２””””,””””ｂ２３””””””,””ｃ２”””
Ｄｉｍ Ｓｒｃ, Ｖａｒ, Ｑｏｔ, Ｖａｌ, Ｃｏｌｓ(), Ｃｏｌ
Ｆｏｒ Ｅａｃｈ Ｓｒｃ Ｉｎ Ｔｓｔ
Ｑｏｔ ＝ Ｆａｌｓｅ
ＲｅＤｉｍ Ｃｏｌｓ(０)
Ｃｏｌ ＝ ０
Ｆｏｒ Ｅａｃｈ Ｖａｒ Ｉｎ Ｓｐｌｉｔ(Ｓｒｃ, ”,”)
Ｉｆ Ｑｏｔ Ｔｈｅｎ Ｖａｌ ＝ Ｖａｌ ＆ ”,” ＆ Ｖａｒ Ｅｌｓｅ Ｖａｌ ＝ Ｖａｒ Ｅｎｄ Ｉｆ
Ｉｆ (Ｌｅｎ(Ｖａｒ) − Ｌｅｎ(Ｒｅｐｌａｃｅ(Ｖａｒ, ””””, ””))) Ｍｏｄ ２ Ｔｈｅｎ Ｑｏｔ ＝ Ｎｏｔ Ｑｏｔ
Ｉｆ Ｎｏｔ Ｑｏｔ Ｔｈｅｎ
Ｉｆ Ｃｏｌ > ０ Ｔｈｅｎ ＲｅＤｉｍ Ｐｒｅｓｅｒｖｅ Ｃｏｌｓ(Ｃｏｌ)
Ｃｏｌｓ(Ｃｏｌ) ＝ Ｒｅｐｌａｃｅ(Ｒｅｐｌａｃｅ(Ｒｅｐｌａｃｅ(Ｒｅｐｌａｃｅ(Ｃｈｒ(０) ＆ Ｖａｌ ＆ Ｃｈｒ(０), Ｃｈｒ(０) ＆ ””””, ””), ”””” ＆ Ｃｈｒ(０), ””), Ｃｈｒ(０), ””), ””””””, ””””)
Ｃｏｌ ＝ Ｃｏｌ ＋ １
Ｅｎｄ Ｉｆ
Ｎｅｘｔ
ＭｓｇＢｏｘ Ｊｏｉｎ(Ｃｏｌｓ, Ｃｈｒ(９))
Ｎｅｘｔ
706(1): 2019/08/07(水)05:19 ID:+RwF1EPD(3/4)調 AAS
全部全角にしたら行けたが、半角に直すの面倒だね
ＦｉｌｅＳｙｓｔｅｍＯｂｊｃｔが面倒で、配列にﾃｽﾄｿｰｽ入れたけど、そこは自分で
今気付いたんだけど改行交じりに対応してないな
Ｉｆ Ｎｏｔ Ｑｏｔ Ｔｈｅｎ
Ｑｏｔ ＝ Ｆａｌｓｅ
ＲｅＤｉｍ Ｃｏｌｓ(０)
Ｃｏｌ ＝ ０
Ｅｎｄ Ｉｆ
こうすればいいのかなと思いつつ、面倒なのでﾃｽﾄはしない
およびＭｓｇＢｏｘのとこにも Ｎｏｔ Ｑｏｔ で行が終わったかどうか判定すればいいのかな
（ＱｏｔがＴｒｕｅの間、引用符が閉じてないという意味）（絶対か？ｗ）
ちなみにｴｽｹｰﾌﾟに使ってるＣｈｒ(０)は、ﾌｧｲﾙに含まれてるとﾃｷｽﾄﾌｧｲﾙとして読めなかったと思う（たしか）
なので、絶対被らないとしていいと思う
（そもそも必要なものを入れさせないﾍﾟﾃﾝ保守系がｶﾞﾝなんだけどね）
707(1): 2019/08/07(水)05:29 ID:+RwF1EPD(4/4)調 AAS
前の行のＱｏｔﾘｾｯﾄに依存するなら、
Ｉｆ Ｎｏｔ Ｑｏｔ Ｔｈｅｎ
Ｑｏｔ ＝ Ｆａｌｓｅ ←これ無意味だったね
上下前次1-新書関写板覧索設栞歴
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.036s