素人丸出しお粗末で遅くてもいいので
いますぐ使えるちょっぴり便利プログラムを作れ
(例○○を自動処理してくれるプログラム)
前スレ
VBSで便利なプログラムを作れスレ
https://mevius.5ch.net/test/read.cgi/tech/1170492587/
探検
VBSで便利なプログラムを作れスレ 2
1デフォルトの名無しさん
2018/10/13(土) 22:56:48.61ID:X8llOrQa703ピッコロ ◆YAZTByPXwc6o
2019/08/07(水) 01:20:50.23ID:uspboHJw "a"b
このような値をどうするかという課題がある
囲まれてるとみなすか否か
CSVは斯くも難しい
このような値をどうするかという課題がある
囲まれてるとみなすか否か
CSVは斯くも難しい
704デフォルトの名無しさん
2019/08/07(水) 04:52:07.16ID:+RwF1EPD なるほど、ソースを貼るとブロックされることがあるのか
せっかく作ってやったのにw
せっかく作ってやったのにw
705デフォルトの名無しさん
2019/08/07(水) 04:58:54.16ID:+RwF1EPD Dim Tst(1)
Tst(0) = ”a1,””b11,””””b12””””,””””b13””””””,””c1”””
Tst(1) = ”a2,””b21,””””b22””””,””””b23””””””,””c2”””
Dim Src, Var, Qot, Val, Cols(), Col
For Each Src In Tst
Qot = False
ReDim Cols(0)
Col = 0
For Each Var In Split(Src, ”,”)
If Qot Then Val = Val & ”,” & Var Else Val = Var End If
If (Len(Var) − Len(Replace(Var, ””””, ””))) Mod 2 Then Qot = Not Qot
If Not Qot Then
If Col > 0 Then ReDim Preserve Cols(Col)
Cols(Col) = Replace(Replace(Replace(Replace(Chr(0) & Val & Chr(0), Chr(0) & ””””, ””), ”””” & Chr(0), ””), Chr(0), ””), ””””””, ””””)
Col = Col + 1
End If
Next
MsgBox Join(Cols, Chr(9))
Next
Tst(0) = ”a1,””b11,””””b12””””,””””b13””””””,””c1”””
Tst(1) = ”a2,””b21,””””b22””””,””””b23””””””,””c2”””
Dim Src, Var, Qot, Val, Cols(), Col
For Each Src In Tst
Qot = False
ReDim Cols(0)
Col = 0
For Each Var In Split(Src, ”,”)
If Qot Then Val = Val & ”,” & Var Else Val = Var End If
If (Len(Var) − Len(Replace(Var, ””””, ””))) Mod 2 Then Qot = Not Qot
If Not Qot Then
If Col > 0 Then ReDim Preserve Cols(Col)
Cols(Col) = Replace(Replace(Replace(Replace(Chr(0) & Val & Chr(0), Chr(0) & ””””, ””), ”””” & Chr(0), ””), Chr(0), ””), ””””””, ””””)
Col = Col + 1
End If
Next
MsgBox Join(Cols, Chr(9))
Next
706デフォルトの名無しさん
2019/08/07(水) 05:19:56.25ID:+RwF1EPD 全部全角にしたら行けたが、半角に直すの面倒だね
FileSystemObjctが面倒で、配列にテストソース入れたけど、そこは自分で
今気付いたんだけど改行交じりに対応してないな
If Not Qot Then
Qot = False
ReDim Cols(0)
Col = 0
End If
こうすればいいのかなと思いつつ、面倒なのでテストはしない
およびMsgBoxのとこにも Not Qot で行が終わったかどうか判定すればいいのかな
(QotがTrueの間、引用符が閉じてないという意味)(絶対か?w)
ちなみにエスケープに使ってるChr(0)は、ファイルに含まれてるとテキストファイルとして読めなかったと思う(たしか)
なので、絶対被らないとしていいと思う
(そもそも必要なものを入れさせないペテン保守系がガンなんだけどね)
FileSystemObjctが面倒で、配列にテストソース入れたけど、そこは自分で
今気付いたんだけど改行交じりに対応してないな
If Not Qot Then
Qot = False
ReDim Cols(0)
Col = 0
End If
こうすればいいのかなと思いつつ、面倒なのでテストはしない
およびMsgBoxのとこにも Not Qot で行が終わったかどうか判定すればいいのかな
(QotがTrueの間、引用符が閉じてないという意味)(絶対か?w)
ちなみにエスケープに使ってるChr(0)は、ファイルに含まれてるとテキストファイルとして読めなかったと思う(たしか)
なので、絶対被らないとしていいと思う
(そもそも必要なものを入れさせないペテン保守系がガンなんだけどね)
707デフォルトの名無しさん
2019/08/07(水) 05:29:13.29ID:+RwF1EPD 前の行のQotリセットに依存するなら、
If Not Qot Then
Qot = False ←これ無意味だったね
If Not Qot Then
Qot = False ←これ無意味だったね
レスを投稿する
ニュース
- 高市早苗氏、総裁選のPRに8000万円超支出していたことが判明。水面下で巨費投じる [バイト歴50年★]
- 【滋賀】不良グループのメンバーの「タイマン」で17歳重体 殺人未遂容疑で岐阜市の19歳を逮捕 頭蓋骨骨折や脳挫傷、急性硬膜下血腫 ★2 [ぐれ★]
- 【外交】中国大使館、自民党の石破茂前首相の発言「台湾は中国の一部。変えてはならない」をX投稿 産経 [1ゲットロボ★]
- Amazonブラックフライデー 活況の裏に過酷労働 事故やケガを「自己責任にしないで」配達員ら4年連続抗議 [蚤の市★]
- 経団連会長、中国大使面会 代表団受け入れ要請 [蚤の市★]
- 「おこめ券知られていない」農水省が説明会実施へ 「税金でおこめ券配ると、発行2団体に利益集中するのでは?」記者の問いに鈴木農水大臣 [ぐれ★]
- 【実況】博衣こよりのえちえち4周年44人逆凸 🧪★5
- 【実況】博衣こよりのえちえち4周年44人逆凸 🧪★3
- 【実況】博衣こよりのえちえち4周年44人逆凸 🧪★4
- 【衝撃】去年の自民党総裁戦、高市は宣伝費に約8400万円もの巨額を使っていた ※この時勝利した石破は約40万円 [597533159]
- 【動画】石破茂メイク界隈にとんでもない猛者が現れるwwwwwwwwww [834922174]
- 👊👊😅 👊👊😅 さかなーっ!🏡
