VBSで便利なプログラムを作れスレ 2 (853ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞
ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡
705(2): 2019/08/07(水)04:58 ID:+RwF1EPD(2/4)調 AAS
Ｄｉｍ Ｔｓｔ(１)
Ｔｓｔ(０) ＝ ”ａ１,””ｂ１１,””””ｂ１２””””,””””ｂ１３””””””,””ｃ１”””
Ｔｓｔ(１) ＝ ”ａ２,””ｂ２１,””””ｂ２２””””,””””ｂ２３””””””,””ｃ２”””
Ｄｉｍ Ｓｒｃ, Ｖａｒ, Ｑｏｔ, Ｖａｌ, Ｃｏｌｓ(), Ｃｏｌ
Ｆｏｒ Ｅａｃｈ Ｓｒｃ Ｉｎ Ｔｓｔ
Ｑｏｔ ＝ Ｆａｌｓｅ
ＲｅＤｉｍ Ｃｏｌｓ(０)
Ｃｏｌ ＝ ０
Ｆｏｒ Ｅａｃｈ Ｖａｒ Ｉｎ Ｓｐｌｉｔ(Ｓｒｃ, ”,”)
Ｉｆ Ｑｏｔ Ｔｈｅｎ Ｖａｌ ＝ Ｖａｌ ＆ ”,” ＆ Ｖａｒ Ｅｌｓｅ Ｖａｌ ＝ Ｖａｒ Ｅｎｄ Ｉｆ
Ｉｆ (Ｌｅｎ(Ｖａｒ) − Ｌｅｎ(Ｒｅｐｌａｃｅ(Ｖａｒ, ””””, ””))) Ｍｏｄ ２ Ｔｈｅｎ Ｑｏｔ ＝ Ｎｏｔ Ｑｏｔ
Ｉｆ Ｎｏｔ Ｑｏｔ Ｔｈｅｎ
Ｉｆ Ｃｏｌ > ０ Ｔｈｅｎ ＲｅＤｉｍ Ｐｒｅｓｅｒｖｅ Ｃｏｌｓ(Ｃｏｌ)
Ｃｏｌｓ(Ｃｏｌ) ＝ Ｒｅｐｌａｃｅ(Ｒｅｐｌａｃｅ(Ｒｅｐｌａｃｅ(Ｒｅｐｌａｃｅ(Ｃｈｒ(０) ＆ Ｖａｌ ＆ Ｃｈｒ(０), Ｃｈｒ(０) ＆ ””””, ””), ”””” ＆ Ｃｈｒ(０), ””), Ｃｈｒ(０), ””), ””””””, ””””)
Ｃｏｌ ＝ Ｃｏｌ ＋ １
Ｅｎｄ Ｉｆ
Ｎｅｘｔ
ＭｓｇＢｏｘ Ｊｏｉｎ(Ｃｏｌｓ, Ｃｈｒ(９))
Ｎｅｘｔ
708(2): 2019/08/07(水)07:50 ID:VdbhIGNf(1)調 AAS
>>703-707
全角半角切り替えなんてエディタの一操作でできる事なのに
スペースはインデントのみ全角とかありえないことやってんな
IDと時間帯を変えたピッコロ ◆YAZTByPXwc6＝山中俊次の自演乙
714(1): ピッコロ ◆YAZTByPXwc6o 2019/08/08(木)02:00 ID:m7RL5FrQ(1)調 AAS
>>705
ありがとうございます！
xmlは難しいって聞きます、解析してるのすごいです
上下前次1-新書関写板覧索設栞歴
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.031s