VBSで便利なプログラムを作れスレ 2 (853レス)
上下前次1-新
抽出解除 レス栞
リロード規制です。10分ほどで解除するので、他のブラウザへ避難してください。
104(1): 2018/10/19(金)21:15:27.83 ID:qnu/MyV1(27/31)調 AAS
>>83
荒らすなクズ
112(1): [age] 2018/10/24(水)08:26:24.83 ID:lHIgxdMT(1)調 AAS
>>111
荒らすなクズ
181(2): 2018/10/30(火)15:14:50.83 ID:0mRtGVLy(1)調 AAS
キー入力を検出して処理を止めるスクリプト組みたいんだけど方法ある?
具体的にはループ処理中のスクリプトをキー入力(Esc)を検出して緊急停止に使いたい感じ。
236(1): 2018/11/18(日)17:58:20.83 ID:YervSdnc(1/8)調 AAS
>>235
自演乙
360(2): ピッコロ ◆YAZTByPXwc6o 2019/02/22(金)06:57:30.83 ID:yYJ9vw5F(1/2)調 AAS
>>359
うおおお!!!実装できましたあああ!!!
ありがとうございます!!マジで尊敬します!!!!
ありがとうございます!!!!ヽ(▽^〃ヽ)ヽ(〃^▽^〃)ノ(ノ〃^▽)ノ ワーイワーイワーイ♪
374: 2019/03/16(土)20:08:10.83 ID:vjeczwgh(4/12)調 AAS
717 名前:さまよえる蟻人間 ◆T6xkBnTXz7B0 [age] 投稿日:2019/03/16(土) 17:18:04.51 ID:PQISp+Pa
グリッチは広辞苑には載っていません。説明して下さい。
718 名前:デフォルトの名無しさん[sage] 投稿日:2019/03/16(土) 17:21:14.90 ID:EVMD7h0V [3/3]
>>717
やだ!ピラフ、いちいち説明なんかしたくない
片山なんかにしたくない!
385(1): さまよえる蟻人間 ◆T6xkBnTXz7B0 2019/03/16(土)21:19:53.83 ID:qc9yYKDp(4/5)調 AAS
アメリカに嫌われた国のパソコンの動作はなぜか遅くなる。なぜでしょう?
482(1): ピッコロ ◆YAZTByPXwc6o 2019/05/26(日)00:51:38.83 ID:UgqrYdQF(1)調 AAS
解けた人いますか?
633(1): 2019/07/27(土)16:17:07.83 ID:xnmpB9aq(1/9)調 AAS
>>631-632
別人を言い張ってるくせに信者だった話だけは受け入れるのな
なんだこのゴミ
709(1): 2019/08/07(水)10:03:43.83 ID:vuxJQR07(1/2)調 AAS
と言いつつ改行混じり対応版も作っちゃったね
自分で使う用途はないけどねw
Dim DLM_ROW: DLM_ROW = Chr(13) & Chr(10)
Dim Src, Var, Qot, Val, Cols(), Col, Dlm
Dim Otf: Set Otf = CreateObject(”Scripting.FileSystemObject”).OpenTextFile(Replace(WScript.ScriptFullName,”.vbs”,”.csv”))
Do Until Otf.AtEndOfStream
Dlm = DLM_ROW
If Not Qot Then
ReDim Cols(0)
Col = 0
End If
For Each Var In Split(Otf.ReadLine, ”,”)
If Qot Then Val = Val & Dlm & 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
Dlm = ”,”
Next
If Not Qot Then
MsgBox Join(Cols, Chr(9))
End If
Loop
Otf.Close
>>708
そうなの?メモ帳しか知らん田舎もんで済まんねw
初見のニワカなのでピッコロが何者か知らんよ
上下前次1-新書関写板覧索設栞歴
スレ情報 赤レス抽出 画像レス抽出 歴の未読スレ AAサムネイル
ぬこの手 ぬこTOP 0.036s