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