X



VBSで便利なプログラムを作れスレ
レス数が1000を超えています。これ以上書き込みはできません。
0001デフォルトの名無しさん2007/02/03(土) 17:49:47
素人丸出しお粗末で遅くてもいいので
いますぐ使えるちょっぴり便利プログラムを作れ

(例○○を自動処理してくれるプログラム)
0003Windows厨&rlo;wwwね死はCAM。すでXUNILチンアやや2007/02/03(土) 17:54:41
2ch自動書き込みスクリプト・・・    はVBSなんかじゃなくちゃんとしたプログラムが既にあちこちに存在するか
0007デフォルトの名無しさん2007/02/08(木) 22:08:15
日経ソフトウェアだったかに乗ってたのですが 動きません 助けて

KETA = inputbox("何文字のパスワードを作りますか?","パスワードを生成","8")

If KETA < 1 Then
MsgBox "文字数は0以上でなくてはなりません"
End If

PASS_WRD = "A B C D E F G H J K L M N P Q R S T U V W X Y Z "
MOJISYU_A = MsgBox("アルファベットの小文字を使いますか?",vbYesNo)

If MOJISYU_A = vbYes Then
PASS_WRD = PASS_WRD + "a b c d e f g h i j k m n p q r s t u v w x y z "
End If

MOJISYU_B = MsgBox("数字を使いますか?",vbYesNo)
If MOJISYU_B = vbYes Then
PASS_WRD = PASS_WRD + "2 3 4 5 6 7 8 9 2 3 4 5 6 7 8 9 2 3 4 5 6 7 8 9 "

MOJISYU_C = MsgBox("記号を使いますか?",vbYesNo)
If MOJISYU_C = vbYes Then
'記号
PASS_WRD = PASS_WRD + "! # $ % & ? - _ ~ @"
End If

'指定された条件で配列を作成
PASS_STR = Split(PASS_WRD)
MAX = Ubound(pass_str)
000872007/02/08(木) 22:08:56
続き
'指定された桁数のパスワードを作成
For i=0 To KETA - 1
Randomize
X = abs(Int((0 - MAX) * Rnd))
PASS = PASS + PASS_STR(X)
Next
InputBox "パスワードが完成しました","生成完了!",PASS
0009デフォルトの名無しさん2007/02/09(金) 01:15:14
>7
どう動かないんだ。
エラーメッセージが出るならエラーメッセージを貼れ。
0012デフォルトの名無しさん2007/02/09(金) 02:01:47
まぁ、COBOLの冗長さには勝てないがな
'VB
For I = 1 To 10
Next

*COBOL
PERFORM VARYING I FROM 1 BY 1 UNTIL I <= 10
END-PERFORM
0015wol.wsf2007/06/03(日) 10:59:59
<job>
<script language="vbscript" src="./computer.class"/>
<script language="vbscript">
Option Explicit

Const COMPUTERS = 3
Const DEFAULT_WAKEUP = 2
Dim objComputers()
ReDim objComputers(COMPUTERS)
Dim intNum, i, strHostnames

For i = 0 To COMPUTERS
  Set objComputers(i) = New Computer
Next
objComputers(0).setComputer "xxxxxxxxxxxx", "chitose"
objComputers(1).setComputer "yyyyyyyyyyyy", "tomoyo"
objComputers(2).setComputer "zzzzzzzzzzzz", "ayanami"
objComputers(3).setComputer "wwwwwwwwwwww", "maya"

For i = 0 To COMPUTERS
  strHostnames = strHostnames & i & ":" & vbTab & objComputers(i).GetHostname & vbCrLf
Next

intNum = InputBox(strHostnames, "WakeOnLan", DEFAULT_WAKEUP)
objComputers(intNum).Wakeup

For i = 0 To COMPUTERS
  Set objComputers(i) = Nothing
Next
</script>
</job>
0016computer.class2007/06/03(日) 11:03:50
Option Explicit

Class Computer
  Private pHostname
  Private pMACAddr

  Public Sub setComputer(strMACAddr, strHostname)
    pMACAddr = strMACAddr
    pHostname = strHostname
  End Sub

  Public Sub WakeUp
    Dim WSHShell
    Set WSHShell = WScript.CreateObject("WScript.Shell")
    WSHShell.Run "wol.exe " & pMACAddr
  End Sub

  Public Function GetHostname()
    GetHostname = pHostname
  End Function
End Class

これを同じフォルダに入れておく→ttp://www.gammadyne.com/cmdline.htm#wol
vbsもWOLもやってみると意外とできるもんだ。
0017デフォルトの名無しさん2007/06/04(月) 23:41:38
VBSでダイアログを表示させることってできないものかな?
構造体は使えないはいろいろと細かいところで制約が多い。。
0018デフォルトの名無しさん2007/06/27(水) 11:51:05
VBSについての質問です

WINDOWSからSolarisにFTP接続してファイルを取得するVBスクリプト。
・ /export/home/backup/mysql/の下にあるファイルを取得
・ /export/home/backup/www/の下にあるファイルを取得
・取得したいファイル名をリスト化、そのリストを読み込んで、
1つのファイルをGET.→FTP切断→FTP接続→ファイルGET→FTP切断の繰り返し
・取得したファイルはSolarisから削除
・日付を管理。最新のを5つだけ残す。一番ファイルを削除

こういったVBSはどうつくればいいんでしょうか?
0019デフォルトの名無しさん2007/06/27(水) 23:06:22
>>18
ここれは便利なスクリプトを作ってくれとお願いするスレじゃなくて、
自発的に自分が書いた物を晒すスレのような気がするんだが。

漏れの場合は、取得したいファイル名を変数にしてして、毎回
FTPスクリプトを生成して実行する方法にしてる。

ちなみにアカウント情報はcsvにしてるが平文で書いてるので
取り扱いに注意してる。PASVが使いたい場合はGNU版を
使う事。

どっちかっつーとWSHスレ向きジャネ?そのまま質問しても罵倒
されるだけだと思うけど。


0020デフォルトの名無しさん2007/06/28(木) 09:04:40
漏れの場合は、取得したいファイル名を変数にしてして、毎回
FTPスクリプトを生成して実行する方法にしてる。
上司にも同じこと言われましたね、。
なんとなくイメージできても、いざ作るとなると難しくて…
どう作ったらいいのかわからないですね。
0021デフォルトの名無しさん2007/06/28(木) 09:43:15
>>20
じゃーまず、ここに取得したいファイル名が固定のFTPスクリプトを
生成するVBSを書いてみてよ。
0022デフォルトの名無しさん2007/06/28(木) 10:19:50
open itsol01
i1125
i1125

get /export/home/backup/mysql/mysql_&YYYYMMDD&.tar.gz
loop
quit

と書いたテキストファイルをコマンドプロンプトで実行したら、指定したファイルは取得できました。
0025VBSって面白いのか?2007/07/22(日) 23:29:16
みんな高度なプログラムかくね
このくらいでいいんじゃね?
’びびらせるログオンメッセージ書き込むプログラム?
msgb = InputBox("ビビらせるログオンメッセージ指定")
If msg <> "" Then
Set WshShell = WScript.CreateObject("WScript.Shell")
Call WshShell.RegWrite("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\LegalNoticeCaption", "ここにメッセージでも", "REG_SZ")
Call WshShell.RegWrite("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\LegalNoticeText", msgb, "REG_SZ")
WshShell.Popup("終了")
Else
MsgBox("書き込みキャンセルしました")
End If
0026VBSって面白いのか?2007/07/22(日) 23:32:39
訂正 ×ここにメッセージでも ○メッセージ
まあなんでもいいんだが・・。
0027VBSって面白いのか?2007/07/22(日) 23:36:33
これ便利じゃねえなそれに遊び心だな。
誰かウイルススレでもしよう・・・・。
0028デフォルトの名無しさん2007/07/29(日) 00:14:47
質問なんだけど
s = 1

test = Array("test")
Set xmlHttp = WScript.CreateObject("Msxml2.SSLHTTPS.3.0")

For i = 0 To s
xmlHttp.open "POST", "test", False
xmlhttp.setRequestHeader "Referer", "test"
xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xmlhttp.send "test="+test(i)+""
Next

で、https://には対応できない?
Set xmlHttp = WScript.CreateObject("Msxml2.SSLHTTPS.3.0")
を書き換えればいいのかな?解る方書き換え方おせーてください

For i = 0 To s
xmlHttp.open "POST", "https://www.livly.com/reg/rekeep.php?";, False
xmlhttp.setRequestHeader "Referer", "https://www.livly.com/reg/rekeep.php?";
xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xmlhttp.send "kid="+kid(i)+"&+pname="+pnames(i)+"&iname="+iname(i)+"&nname="+nname(i)+"&pprofile="+pprofile(i)+"&iprofile="+iprofile(i)+"&entry="+entry(i)+""
Next
0029名無し2007/08/08(水) 20:23:43
無理でもない
0030デフォルトの名無しさん2007/08/11(土) 17:05:13
CreatoShortcutで
NumLock状態の1をショートカットキーに適用したいのですが

Hotkey="Num 1"
Hotkey="NumLock 1"

どちらでもできません

直接作成は無理なのでしょうか?
0031デフォルトの名無しさん2007/08/12(日) 20:21:53
俺もNumlockは悩んだ
なんとかいうAPI使って実行ファイル作ったけど無理だった
敗北の想い出が蘇る
0033デフォルトの名無しさん2007/09/06(木) 20:53:01
こんばんは。
C#からVBSのFunction呼び出そうしてるんですが
複数の値を返すことができません。
教えてください。
0034デフォルトの名無しさん2007/09/06(木) 20:54:08
C#側からvbsを走らせるときにC#側のFor文だと処理するたびに
vbsが走るのでだめでした。
vbs自体が複数値を返す処理をするためにはどのようにすればよいでしょうか。
値は、Excelのセルからとります。
0035デフォルトの名無しさん2007/09/06(木) 22:08:15
俺が考え付く方法は次の2つ。
1. そのVBScriptの内容をC#へ書き換える。
2. VBScriptをC#プログラム内でホストする。
0036デフォルトの名無しさん2007/09/06(木) 22:13:43
>>35
は1は実行済みですけどVBSにも全く一緒のコードを書くことになって
かなり冗長的なコードになるんですよ。
2もしたが取り出すとき複数の値をとるほうほうが不明です。
0037デフォルトの名無しさん2007/09/06(木) 22:27:49
配列を返せばいいのでは?
それが無理なら、C#から戻り値を受け取るオブジェクトを渡すってのはどう。
0038デフォルトの名無しさん2007/09/06(木) 22:33:48
>>37
配列を返すって考えましたけどVBScriptのリターン文ってありませんよね。
関数名 = 処理
↑こんな感じがリターン文なのかな。
0039デフォルトの名無しさん2007/09/06(木) 22:40:58
そう。関数内では関数名と同名の変数が存在する。
型は関数の戻り値の型と同じ(と言ってもVBSは常にVariantだが)。
関数を抜けるときにその変数に入っていた内容が戻り値になる。

これはVB系一般で通用する文法。
0040デフォルトの名無しさん2007/09/06(木) 23:14:36
なるほどね。けど、関数名と同名の変数が定義されてるって時点で
配列とか返せないと思うんですがいかがでしょう。
0042デフォルトの名無しさん2007/09/07(金) 00:05:36
>>41
情報量が少ないから断定的な判断はできないんですよ。
0043デフォルトの名無しさん2007/09/07(金) 00:10:31
>>40
Array関数で配列を作れる。
その戻り値を関数名の変数に代入すれば
配列を返す関数の出来上がり。
0044デフォルトの名無しさん2007/09/07(金) 00:11:37
>>42
調べるのも大事なことだが、試すのだって大事なことだぞ

msgbox a()(2)

function a()
dim b()
redim b(10)
b(2)=100
a=b
end function

こんな感じで出来ない?
0045デフォルトの名無しさん2007/09/07(金) 00:13:35
おおきにおおきに、明日試してみる。
しかし、型なしには驚いた・・・
0048デフォルトの名無しさん2007/11/01(木) 17:26:59
JavaScriptなら<script src=a.js
VBSなら<script src=a.vbs ですか?
0049デフォルトの名無しさん2007/11/01(木) 18:21:37
>>48
ああ拡張子はなんでもいいが
typeなりlanguage書こうぜw

それとタグは閉じような
気になってしょうがないw
0050デフォルトの名無しさん2007/11/02(金) 13:45:30
PPPOEをVBSで切断できないですかね?
2つプロバイダ登録してあって、ショートカットで無理やり接続はできたのですが、
なぜだか切断の時に1%くらいの確率で失敗します。
(slect case でやって、引数を保持しているのですが何故か極まれに間違えます)
タスクトレイの接続の所では、何処に繋がっていても切断できますので、せめてこれが
呼び出せればSENDKEYSでなんとかなるんですが…
0051デフォルトの名無しさん2007/11/02(金) 15:42:00
JavaScriptでの o = new Option(); をVBScriptに書き直すとどうなりますか?
0052デフォルトの名無しさん2007/11/03(土) 01:48:36
↓デバッグおねがいします

<form id="fm">
<input name="t1" value="てすと">
</form>
<script language="VBScript">
Function bt_onClick()
MsgBox Eval("t" & CStr(1) & ".value")
End Function
</script>
<button name="bt"></button>
0054デフォルトの名無しさん2007/11/04(日) 13:13:19
プリンタの管理ユーティリティにある自動電源ONオプションをタスク
スケジューラで週一自動実行したいんですけど、VBSで可能でしょうか?
0055デフォルトの名無しさん2007/11/18(日) 23:11:59
HTMLのVBSで
<a href="javascript:f();void(0)">
というJavaScriptをVBSで書けますか?
0059デフォルトの名無しさん2007/11/26(月) 08:03:28
BASP21でダウンロードソフトを作ろうと思っているんですが、
FTPだとFTPサーバーの名前を知らないとアノニマスでも接続できませんよね?
どうすれば良いのでしょうか?
0060デフォルトの名無しさん2007/11/26(月) 16:00:11
>>59
たとえばスーパーに買い物に行きますよね
でもスーパーの住所を知らなければ買い物できませんよね?
どうすれば良いのでしょうか?
006159です2007/11/26(月) 20:59:22
Iriaとかのダウンロードソフトはどうしてるんでしょうか?
HTTPからでもダウンロード可能なようですが、全くやり方が不明です。
勉強中の身でして、質問が多くなりますが、お願いいたします。

>60
そのスーパーの住所の調べ方を伝授してください
お願い致します
006559です2007/11/27(火) 08:04:28
皆さんご返信ありがとうございます
VBSでこのスレッドを落とす場合
.Connect("pc11.2ch.netのFTPサーバー", "ユーザー(anonymousでいける?)", "パス")
で繋いで
.GetFile("pc11.2ch.netのFTPサーバー/1170492587/*.*", "c:\dowsodata")
となると思いますが、
ここのFTPのサーバー名が解らないと何ともなりませんよね。

62>とりあえずWiki逝って来ます。金曜日の休みに本屋にの行きます!
63>FTPのURLでなくてもダウンできるので不思議なんです
64>そんなことやってたんですか!?

試しにftp://pc11.2ch.net/をIEでやってみたら「ファイル名が正しくないか許可してないぞ!!」
と怒られました。
ギコナビとか、巷にあふれる2CHツールが許可もらってやっているように
思えませんので(失礼…)何かしら打開策があると思うのですが
0067デフォルトの名無しさん2007/11/27(火) 09:23:50
>>65
> Connect("pc11.2ch.netのFTPサーバー", "ユーザー(anonymousでいける?)", "パス") 
> で繋いで 
> .GetFile("pc11.2ch.netのFTPサーバー/1170492587/*.*", "c:\dowsodata") 
> となると思いますが、 
いいえ違います
pc11.2ch.netのFTPサーバなんてありません
0068デフォルトの名無しさん2007/11/27(火) 14:48:35
全員がこの後に及んでスレ違いと言い出さないのは、
あまりの事にあきれ果てているから?

>>59
釣られたのかもしれないが、マヂレスしておくと君の考えて
いる事は全くの見当違い。

ttp://www5e.biglobe.ne.jp/~aji/3min/index.html
ここのFTP、DNS、HTTPの所でも読んでくれ。

で、理解したら、これ以上聞かないでね。
006959です2007/11/28(水) 08:57:51
すみません、質問を変えます!
<a href="*.dat">download</a>
を、VBSで書くとどうなりますか?
(ダウンロードしますか?と言うダイアログが出ます)
VBSで書いてる途中なのでできれば全部VBSで書きたいんです。

皆さんいろいろ教えていただいてありがとうございました
FTPはファイル交換、DNSはネット接続の中間、HTTPはHTMLを見るため
位の感覚で覚えていましたので、どうやってファイル転送機能なしでファイル転送するんだろう?
ドメイン(biglobe.ne.jp)の部分が同じなので探す方法があるのかと思い、質問しました。
興味が出ましたので、細かく調べようと思いますが、解らないところは「ネットワーク板」で
訊けばいいんですよね?
0070デフォルトの名無しさん2007/11/28(水) 13:45:34
>>69
ネットワークの勉強ついでにVBSとかクライアントスクリプトも調べて来い
質問の意図が分からなさ過ぎる
きっと用語を正しく理解していない

> 興味が出ましたので、細かく調べようと思いますが、解らないところは「ネットワーク板」で 
> 訊けばいいんですよね? 
責任もてないので、「はいそうです」とは言わない
調べられなければ調べられるまで調べつくせ
007159です2007/11/28(水) 20:59:50
>70
すいません、知りたかったのはIriaなどのHPを丸ごとダウンロードしてくるソフトが
どのようにダウンロードをしているのかを知りたかったんです。

よく考えたらこの命令は単純にアドレス指定してアクセスするだけですね、
ちょっとやってみます。

0072デフォルトの名無しさん2007/11/28(水) 22:39:14
>>71
知らないのは罪では無い。
だが、知らないという事を盾にして、初歩的な事を人に聞きまくるのは迷惑。

>すいません、知りたかったのはIriaなどのHPを丸ごとダウンロードしてくるソフトが

こんな事は最早ネットワークすら関係無い。通信技術板で聞こう物なら、
即氏ねと言われてもおかしくない。

初歩的なhtmlを知っていてIriaを使っていれば、どういう仕組みで丸ごと
ダウンロードしているのか、一般的な知能を持っていればわかるはず。

まず人に聞くな。自分で考えろ。
0074デフォルトの名無しさん2007/11/29(木) 02:24:51
>>72
html知っててもhttpの仕組みがわかるわけ無いだろ。

>>59
「XMLHTTP VBS」あたりでググればいくらでもサンプル出てくる。

でも、VBSでリストだけ作ってダウンローダーに渡すのがいろんな意味でおすすめ。
007559です2007/11/29(木) 07:20:59
>72
ありがとうございます、貴方のおっしゃっているように、私のやろうとしている事は
ネットワークとはあまり関係がありませんね。

>74
XMLHTTPですね、ありがとうございます。
タグ辞典読んだり、「VBS ダウンロード」とか組み合わせてググっても
それに対応出来そうな命令が全く出てこなかったんで、困っておりました。
これでやっと点が線で繋がりました!!
0076デフォルトの名無しさん2007/11/30(金) 10:37:58
間違えてVB.NETのスレで聴いてしまったのですが、こちらでお聴きすべきでした。
WshShellオブジェクトでURLショートカットファイルを作成する際にファイル内容
に不足があることがわかりました。

例として、たとえばマイクロソフトのサイト
http://www.microsoft.com/japan/msdn/architecture/
などに対して作成すると、IEで作成した場合に作成される処の

[DOC_pagetools]
XMLUSERDATA__Size=・・・・・
XMLUSERDATA=・・・・・
USERDATAURL=・・・・・

という部分が作成されていませんでした。そしてこの部分がないと、クリック
して実行してもIEで表示できないことがわかりました。どうも実行に際して
不可欠の内容のようでした(これはユーザーの同定等を行っているのでしょうか)。

こうした部分をWshShellオブジェクトのCreateShortcutメソッドで作成する
ことは不可能でしょうか。可能とした場合はどのようにすればよいでしょうか?
なにとぞよろしくお願いします。
0078デフォルトの名無しさん2007/11/30(金) 20:58:14
ドメインユーザーのSID(S-x-x-x....)
から、ユーザーID(Domain\UserID)を知りたいんだけど、
ActiveDirectoryにどんな方法でアクセスすれば良いですか?
ADSIを使うっぽいのですが、いまいちわかりません。
0079762007/12/03(月) 23:26:26
>>77
ご指導ありがとうございます。
おっしゃってくださったことから、今もう一度やってみましたら確かに
今度は動作致しました!
昨日やったときはページが移動しなかったのですが、IE系のトラブルか何か
が重なっていたのかもしれません・・・、お手数おかけしてすみません。
ご指導ありがとうございました。
0080デフォルトの名無しさん2007/12/08(土) 06:36:58
>>56
だめだ。それは結局JavaScriptを使っているから。
HTML内にVBSオンリーで同等の機能を実装してくれ。
0082デフォルトの名無しさん2007/12/08(土) 15:04:43
>>81
VBSが分からないから日本語に着目して自己満足ですか。
はいはい、あなたは正しく理解し、適切な回答をなさいました。
キミにはたぶん質問者が知りたがっていることを回答するのは無理だね。
>>57は漢字が間違ってるし。
0089デフォルトの名無しさん2007/12/10(月) 12:02:32
>>86
何を期待してるのかわからんが,
とりあえず「f()の後にvoid(0)を置く意味を知りたい」という要求の原因を教えてもらおうか
0092デフォルトの名無しさん2007/12/11(火) 18:08:58
void(0);だけじゃ何の効果も示さないみたいな
f();は今のところ自端末じゃ何も設定されてなくて

voidの()内に後でチェックコードでも書くとか?

今は何を作るか知られたくないから意味のないコードしか書いてないとか
0093デフォルトの名無しさん2007/12/14(金) 10:35:11
360: 2007/06/16 11:58:31 ??? [sage]
みんな最後にvoid(0)やfocus()を付けるのはなんでだぜ?

361:ぼけなす 2007/06/16 12:12:44 P+YI6MXb
>>360
Location Bar 本来の機能が邪魔することがあるから.
全体を function として記述してもうまくいくようだ.
0096デフォルトの名無しさん2007/12/17(月) 11:54:28
Excelの2003と2007がインストールされた環境で、以下のVBSを実行すると2007が起動します。
2003を起動するには、どう書けばいいんでしょう?

Set ExcelObj = CreateObject("Excel.Application")
ExcelObj.WorkBooks.Add()
ExcelObj.Visible = True
0097デフォルトの名無しさん2007/12/17(月) 13:01:46
それってWindowsの設定の問題じゃないの?
xlsファイルを2003のExcelで動作するように設定すれば動くんじゃない?
0098デフォルトの名無しさん2007/12/18(火) 01:05:13
>>97
すいません。説明不足でした。
常に2003を起動したいわけではなく、2003と2007を必要に応じて使い分けたいのです。
そういう区別はVBSでは無理なんでしょうか?

あと、regmonでVBS実行中に参照されるレジストリを調べてみたところ、どうやら
HKCR\Applications\excel.exeを見て、起動するアプリを決定しているようでした。
つまり、>>96のような書き方では最後にインストールしたバージョンしか起動できないのです。
0099デフォルトの名無しさん2007/12/18(火) 02:12:08
2003はたぶん Excel.Application.9 で,2007はしらね

ttp://support.microsoft.com/kb/240794/ja
0100デフォルトの名無しさん2007/12/18(火) 04:06:22
>>99
ありがとうございます。さっそく調べてみたところ、

2000 → 9
2002 → 10
2003 → 11
2007 → 12

のように対応していることがわかりました。そこでプログラムを

Set ExcelObj = CreateObject("Excel.Application.11")

と修正してみたのですが、これではまだ2007が起動してしまいます。
もう少しオブジェクトの扱い方を調べる必要があるようです。
0104デフォルトの名無しさん2007/12/19(水) 07:02:16
>>101
MSOライブラリを複数登録するんでしょうか?
別バージョンのMicrosoft Office Object Library、Microsoft Excel Object Libraryを参照設定から
追加しようとしたのですが無視されてしまいました。
エラーも出ず、追加も出来ず、よくわかりません。

>>102
excel /regserverを実行してみたところ、Officeのインストーラーが起動してシステムの設定をすべて書き換え、
確かにデフォルトのアプリケーションもオブジェクトも切り替わりました。
が、この方法ではいちいちインストーラーが起動するということで、見栄えがよくありませんし、
時間もかかりすぎてしまいます。元に戻す手間もありますし。

>>103
最終的にはウィンドウを出さずに裏でこっそり処理をさせたいので、(>>96のプログラムの3行目が
存在しないイメージです) 単純にショートカットからExcelを起動して最小化、みたいな処理は、
できれば避けたいのです。後出しですみません。

もう少しヒントを、よろしくお願いします。
0106デフォルトの名無しさん2007/12/21(金) 15:02:41
「2003に致命的な問題が見つかりますた」と言って強引に2003をアンインストールして2007のみの環境にしる
0109デフォルトの名無しさん2007/12/24(月) 15:35:09
あ、既出でやんの。 

(office2000以降)CLSIDが共通だって事は、
オートメーションでバージョンを指定することは出来ない ってことじゃねえの?
0111デフォルトの名無しさん2007/12/24(月) 16:25:44
なるほど、希望バージョンのExcel.exeを先に起動しておいてからGetObjectすればよいのかな?
0113デフォルトの名無しさん2007/12/25(火) 23:04:38
何をアクティブにして何をさせたいか

ちょっとした選択ミスがすべてを台無しにする事もある
目的と干渉によるけどやりたいなら自己責任で
0114デフォルトの名無しさん2008/02/11(月) 06:52:56
突然質問ですが…
プログラムに汎用性を持たせるために、一部の変数を外部ファイル化したんですが、
どうすればよいのでしょうか?
実行専用ファイルを作って、その中で変数専用ファイルとメインファイルをPublic変数で繋いで
走らせる事も考えたのですが、できますでしょうか?
って言うかVBSってinclude無いんですか?
0116デフォルトの名無しさん2008/02/11(月) 23:26:24
ini ファイルみたなのをつくって、フツーにopenして読み込めばいいじゃん。
0117壱壱四2008/02/12(火) 07:24:04
115-116
ありがとうございました。
あとはググって調べます
0118デフォルトの名無しさん2008/03/06(木) 09:58:25
EventQuery.vbs の使い方で教えてください。
というか、挙動不審なんです。

cscript eventquery.vbs /V /FI "ID EQ 564 AND DATETIME GE 03/06/08,12:00:00AM AND USER NE NT AUTHORITY\SYSTEM" /FO CSV /L

↑こういうのを書いたんですが、フィルタ条件のエラーになります。

上記の3つの条件を個別に単発で書けばそれぞれ ちゃんと動くんですが
3つまとめるとダメみたいで・・・。

そういう仕様なんでしょうか?

何か書き方にクセがあるんでしょうか?
0120デフォルトの名無しさん2008/04/08(火) 00:03:03
Excelで、セルに入力された文字列のうち、ある部分だけの色を変える、という処理をVBSで行いたいです。
たとえば「A1」のセルに「VBSで便利なプログラムを作れスレ」と入力してあった場合、
そのうちの『プログラム』だけをフォント赤色に変更する、というような感じです。

セル内の文字列すべてだとできるのですが、セル内の文字列の一部分だけを変更する方法を思いつきません。
ExcelのVBAだとCharactersオブジェクトが使えてたけど、これはVBSでは使えないのでしょうか? (←うまいきませんでした)
なにかいいアイデアあったら、誰か教えてください・・・
0121デフォルトの名無しさん2008/04/08(火) 00:48:23
エラー処理してないんで適当に。
偉い人添削ぷりーず

Option explicit

Const TARGET_WORD = "プログラム"
Dim XL, XLBook, XLRange
Set XL = CreateObject("Excel.Application")
Set XLBook = XL.workbooks.open("C:\Documents and Settings\デフォルトの名無しさん\デスクトップ\book1.xls")
Set XLRange = XLBook.sheets(1).Range("A1")

Dim TargetChr
Set TargetChr = XLRange.characters(Instr(XLRange.value, TARGET_WORD),len(TARGET_WORD))

If Instr(XLRange.value, TARGET_WORD) > 0 then
TargetChr.Font.ColorIndex = 3
End if

XLBook.save
XLBook.close
Set XLBook = nothing
XL.quit
0122デフォルトの名無しさん2008/04/08(火) 13:55:16
よーし、素人丸出しで質問させてくだされ!

とあるCSVファイルがあります。エクセルで展開すると60項目のセルがあります。
その項目で不要項目があるので、消す作業を自動で処理することを考えてます。

*******************************************************

Set objEXCEL = CreateObject("Excel.Application")
Set objBOOK = objEXCEL.Workbooks.open("指定場所と指定.CSV")
objEXCEL .Visible = true

myExcel.Range("B:D").Select
myExcel.Selection.Delete
myExcel.Cells(1,1).Select

********************************************************

サンプルやエクセルマクロ記録などしてそれらを参考にやってみました。
対象CSVは相対パスで指定してあります。
でも、相対パス指定した行でERRになります。

CSVを相対パスで指定して不要項目を削除するには、上記スクリプトを
どのように変更すればいいでしょうか?
0125120です2008/04/08(火) 23:27:32
>>121
ありがとう。書いてもらったのを参考にして思う通りのものができました。
CharactersオブジェクトのStartとLengthの指定の仕方をまちがってたようです。
任意のフォルダを選択すると、コマンドプロンプトのTREEコマンドみたいな枝?罫線+選択フォルダ以下すべてのサブフォルダ名 OR ファイル名を
Excelに書き出す、というのを作ってたんですが、その出力内容のうち、サブフォルダ名の部分だけを色変えたかったのです。
0126120です2008/04/08(火) 23:28:08
>>122
相対パスとるより絶対パスとるほうが簡単だと思うんだけど・・・?
Excel使うの前提のようなので、こういうのはどうかな。

*******************************************************
Option Explicit

Dim strFilePath

strFilePath = GetFilePathDialog()
msgbox strFilePath

'--------------------------------
' 選択したファイルのパスを取得
'--------------------------------
Function GetFilePathDialog()
Dim objExcel
Dim strFile
Set objExcel = CreateObject("Excel.Application")

strFile = objExcel.GetSaveAsFilename("", "CSV(カンマ区切り) (*.csv),*.csv")
If strFile = False Then Exit Function
GetFilePathDialog = strFile

Set objExcel = Nothing
End Function
*******************************************************
01271222008/04/09(水) 13:06:21
>>126

必ず相対パスでないとだめってわけではないのだけど。
クライアントで取り込んだCSVを編集する為なのね。
まあ、やり方で回避できるのだけど。。。

このコードも活用させていただきますです。
ありがとう。
0128デフォルトの名無しさん2008/04/10(木) 01:19:36
>>122
パスがわからないのならドラッグ&ドロップすればいいじゃない、牛丼がないのなら豚丼をたべればいいじゃない。

>>126
そのファンクションいただき。でもエクセルObjectがないと使えないのかー。
0129デフォルトの名無しさん2008/04/10(木) 02:21:36
GetOpenFileNameとGetSaveFileNameでぐぐれば、タブンさんぷるでてくるぞ。
APIだからエクセルいらない。
0130デフォルトの名無しさん2008/04/10(木) 16:40:35
>>128
通常Webから配布しているCSVを加工する為に、VBSを
クライアント配布で色々考えてた。
>>126氏の指摘通りエクセル操作が前提で。

>パスがわからないのならドラッグ&ドロップすればいいじゃない、
それも、そうだと思った強風、豪雨の午後でした orz

>牛丼がないのなら豚丼をたべればいいじゃない。
メタボはいかん。
0131デフォルトの名無しさん2008/04/20(日) 22:38:51
こんにちは。メッセージボックスの[OK]ボタンが押されるのを待たずに次の処理を
実行させたいときはどうするのでしょうか?

[OK]ボタンが押されなくても複数のメッセージボックス(?)を表示させたいのですが …
0132デフォルトの名無しさん2008/04/20(日) 23:39:08
>>131
2箇所に同じ質問書くと嫌われるよ。マナー違反。今後気をつけな。
0136デフォルトの名無しさん2008/05/01(木) 22:03:51
初心者なんですけどいいですか?
VBSで二進法の数を十進法にして表示させるプログラムを教えてください。

0137デフォルトの名無しさん2008/05/01(木) 23:48:07
2進数の仕組みがわかってりゃ簡単だよ。
手計算するのと同じことをVBにやらせればいいだけ。
頭から1文字ずつ取り出して、×2していくだけだろ。

msgbox unko("10101101")

Function unko(ByVal str)
   ret = 0
   For i = 1 To Len(str)
     ret = ret * 2 + CInt(Mid(str, i, 1))
   Next
   unko = ret
End Function
0141デフォルトの名無しさん2008/05/03(土) 11:12:12
なんかClntの所でエラー表示が出るんですが(^^;
0143たわし2008/05/03(土) 13:27:56
発投稿っす。どうぞよろしく。
二進法の数を十進法にして表示させるプログラムもう少し簡単にできませんか
0145たわし2008/05/03(土) 13:36:42
そこを何とかお願いいたします
0147デフォルトの名無しさん2008/05/03(土) 21:46:23
142>ありがとうございます
しかしValでも型が一致しませんとでるんですが
0148デフォルトの名無しさん2008/05/03(土) 22:43:18
>>147
お前さんがとてつもない馬鹿で何一つ知らない情報弱者だから
こちらは超能力者にならざるを得ないのをとりあえず理解してくれ。

それを前提とした上で「パソコンでマウスを動かそうとした」とこから
「Valでも型が一致しませんとでる」までの経緯を
お前さんが認識してる「馬鹿」に分からせるように説明しろ。
0149デフォルトの名無しさん2008/05/04(日) 01:47:23
パソコン上でマウスを動かそうとし、動かしメモ帳を起動して137のプログラムをまずメモ帳に入力し、Clntをそれ以外いじらずValに変更した後、.vbsで保存して、実行しようとするとエラー表示されます
0151デフォルトの名無しさん2008/05/04(日) 06:09:59
>>149
ValをCIntに戻して再実行してみろ。
CIntに戻したときのエラー表示の中で「文字が正しくありません。」
という文言があるのなら、全角スペースが原因。
行の先頭のスペースを全部削除してから再実行してみろ。動くはず。

>>142
CIntをValに直してもよけいに動かなくなるだけ。
VBでは動いても、VBSでは動かん。

>>150
1行目の10101101を文字列ではなく数値で渡しているって想定か?
別に数値で渡しても、勝手に型変換されて動くよ。
0153デフォルトの名無しさん2008/05/04(日) 12:33:44
やっぱりうまくいきません
型が一致しません"Clnt"とでます
パソコンが2000だからとかそういうわけでしょうか
あと素人丸だしですみませんが、一行目の10101101ってどういう意味ですか?
0155デフォルトの名無しさん2008/05/04(日) 16:39:54

そもそも「二進法」の意味がわかっとらんだろ?
0156デフォルトの名無しさん2008/05/04(日) 17:22:21
ところが2歩進んだと思ってたのに気が付いたら下がっていたという。
0157デフォルトの名無しさん2008/05/04(日) 19:25:19
2進数はわかってますが
0158デフォルトの名無しさん2008/05/04(日) 22:40:33
>>152
すまんが、前提として10101101をそのままとしていた。
確かに桁が増えたらエラーになる。
16桁か17桁くらいが区切りのはず。
ちなみに浮動少数表現ではなく、対数表現な。

>>153
指摘が間違ってた。
いいか、Clntが間違いだ。CIntだ。
2文字目は小文字のL(エル)ではなく、大文字のI(アイ)だ。

ついでにいうと、二進法で表現した数値を二進数と言うんだ。
0159デフォルトの名無しさん2008/05/05(月) 03:45:40
この会話・・・ぜったい2進数がわかってないな。
0161デフォルトの名無しさん2008/05/05(月) 17:06:00
すいませんXPでやったらできました
そこで入力した二進数を十進数に変えるプログラムはどうやるんですか?
01631362008/05/05(月) 17:27:22
なんか変な流れ作っちゃってすまん

というか>>161なぜそこに戻る?
0164デフォルトの名無しさん2008/05/05(月) 17:39:30
inputboxをどこにいれりゃいいのかわかりませn
0165デフォルトの名無しさん2008/05/06(火) 12:29:27
おまい、ぜったいぜったい、ぜぇ〜〜ったい2進数がわかってないだろ。
0167デフォルトの名無しさん2008/05/06(火) 15:42:50
vbsで16進数を表示。たとえば
msgbox &hFE

とすると、結果は 254 と表示されます。
ほんとは FE のはずです。
こういうバグがあるから気をつけたほうがいいよ。
0170デフォルトの名無しさん2008/05/06(火) 17:59:41
意味わからん
FEって表示したいのなら
msgbox "FE"
って書きゃいいじゃん。
自分で &h つけておいて、何言ってんだろ?
msgbox hex(&hfe)
でもいいけど
0171デフォルトの名無しさん2008/05/06(火) 18:31:12
数値の&HFE と 文字列の"FE" の違いすらわからんヤツがおるのか。
0173デフォルトの名無しさん 2008/05/11(日) 04:40:36

●6月にマネージャパン、月刊アスキー、週刊アスキーの3誌が賞金総額2000万円の「シストレFXグランプリ」を開催
http://system-trading.jp/news/index.php?cID=3
[シストレFXグランプリとは]
クリック証券が提供するFXのデモ取引環境を利用して、システムトレードにチャレンジできるFX取引のグランプリです。
お客様ご自身で作成したシステムトレードの機能を評価する「シストレソフト部門」とトレード収益を競う「トレード部門」の2部門構成となっております。

●5月22日より登録受付開始、6月2日よりグランプリ開始の予定。賞金総額2000万円。
  デモトレードの優勝者には賞金三百万円がプレゼントされます。

▼トレード部門
初期資産500万円で、デモ取引のトレード収益を競っていただきます。
http://www.fx-gp.com/about/

▼賞金総額
■社長特別賞(シストレソフト買取価格) 10,000,000円
●シストレソフト部門賞 1位300万円 2位100万円 3位50万円
●トレード部門賞 1位300万円 2位100万円 3位50万円
●前期MVP賞 50万円
●後期MVP賞 50万円
0175デフォルトの名無しさん2008/06/17(火) 04:14:05
InputBox関数使って、入力値を得たいんですが、
255バイト以上の入力値って無視されるのでしょうか?

解決策があれば教えてください。。


InputText = InputBox("文字列を入力してください")

Dim Fs
Set Fs=CreateObject("Scripting.FileSystemObject")
Set newFile = Fs.CreateTextFile("0000test0000.txt",True)
newFile.WriteLine(InputText)

0177デフォルトの名無しさん2008/06/17(火) 22:19:12
VBScriptを使って、HTTPステータスコードを取得する方法を探しています。
ある任意のWeb画面に対してスクリプトでリクエストを行い、HTTPステータスコード(200 ok 等)を
取得する方法はありますでしょうか。
どなたかご存知の方がいらっしゃいましたら、ご教授下さい。
0178>>1772008/06/17(火) 22:24:08
すいません。スレ違いだった為、WSHのスレに移します。
0179デフォルトの名無しさん2008/06/19(木) 14:20:45
vbsで、フロッピーのフォーマットを確認なしで実行
する命令ありますか?A:\固定で。
0185デフォルトの名無しさん2008/07/27(日) 01:18:22
とりあえずExcelAddinをインスコするコードとかlnk右クリックでリンク先ディレクトリ表示とか
あるけど需要あるか?
0186デフォルトの名無しさん2008/07/30(水) 21:22:27
test1.bin
test2.bin
test3.bin

これらファイルを選択状態にして、VBSファイルにD&Dすると、
ファイル名順にソートして、1つのファイルに結合するには、どうしたら良いのでしょうか?

1つのファイルを、指定サイズに自動分割するVBSはできたのですが、
その逆のことができるVBSファイルを作りたい。。。

ADODB.Recordset
ADODB.stream あたりを使えば可能?
0189デフォルトの名無しさん2008/08/13(水) 09:09:42
CIM_DataFileクラスを用いて、ファイルの各種情報を取得したいのですが、
「説明」のプロパティを取得するときに指定するプロパティ名が分かりません。

具体的には、例えばソリティア(C:\WINDOWS\system32\sol.exe)を
右クリックして表示されるプロパティの「バージョン情報」タブの2行目に
「説明:Solitaire Game Applet」と表示されますが、この値を取得したいのです。

ファイルバージョンなどは、「Version」プロパティで取得できております。
ご存知の方、ご教示お願い致します。
0190デフォルトの名無しさん2008/08/13(水) 18:30:02
189です。
カキコするところ間違えたみたいなので、移動します。スミマセン。
0191デフォルトの名無しさん2008/08/17(日) 21:29:36
>>186-187
作ってみた。

sdir = "C:\temp\" '出力先フォルダ
soutfb = "output.bin" '出力ファイル名
set osh = createobject("wscript.shell") 'シェルオブジェクト
set ofs = createobject("scripting.filesystemobject") 'ファイルオブジェクト
set oarg = wscript.arguments '引数オブジェクト
stmpf1 = "temp1.txt" '一時ファイル
stmpf2 = "temp2.txt" '一時ファイル

'ドラッグ&ドロップしたファイル名を一時ファイルに格納
set out = ofs.createtextfile(sdir & stmpf1, true)
for each s in oarg
  out.writeline s
next
out.close
0192デフォルトの名無しさん2008/08/17(日) 21:31:54
(つづき)

'ファイル名のリストをソートして一時ファイルに格納
osh.run "cmd /c sort " & (sdir & stmpf1) & " > " & (sdir & stmpf2), 0, true
set oin = ofs.opentextfile(sdir & stmpf2)
s = oin.readline

'バイナリファイルのコピー
ofs.copyfile s, (sdir & soutfb)
do until oin.atendofstream
  s = oin.readline
  osh.run "cmd /c copy /b " & (sdir & soutfb) & "+" & s & " " & (sdir & soutfb), 0, true
loop
oin.close

'一時ファイルの消去
ofs.deletefile sdir & stmpf1
ofs.deletefile sdir & stmpf2

msgbox "OK"

↑以上、実行時は行頭の空白を半角に。
0194デフォルトの名無しさん2008/08/21(木) 21:13:21
VBSにて、SNMP情報の取得を考えてるんですが、
wsnmp32.dll を利用することはできないんでしょうか?

dynwrap.dll というラッパー?も使えないのでしょうか
0195デフォルトの名無しさん2008/08/31(日) 18:59:35
set shell32 = createobject("shell.application")
set fso = createobject("scripting.filesystemobject")
function recyclebin(pathname)
> path = fso.getparentfoldername(pathname)
set there = shell32.namespace(path)
set submenus = there.items.item(fso.getfilename(pathname)).verbs
I = 0
for each method in submenus
if strcomp(method, "削除(&D)") = 0 then
submenus.item(I).doit()
end if
I = I + 1
next
end function
recyclebin wscript.arguments(0)

ファイルやフォルダをドラッグアンドドロップすると、
ごみ箱に移すスクリプト。deletefile とかは
永遠に消えちゃうので不安だ...。
0198デフォルトの名無しさん2008/08/31(日) 21:32:26
ファイルをドラッグアンドドロップていうのは
サンプル動作のためで、
関数をスクリプト内で
deletefile の代わりに使います。
0199デフォルトの名無しさん2008/09/16(火) 20:29:18
hail2u.net - Weblog - VBScriptでMSN Messengerの表示アイコンを変更する
http://hail2u.net/blog/coding/change-msn-messenger-display-picture-by-vbscript.html
このMessenger.UIAutomation.1を使って他にも色々出来ないかな、と思って
ドキュメントを探したんですが、どうにも見つからず…。
どなたか詳細ご存じの方いらっしゃいませんか?

Samurizeと組み合わせて、デスクトップから一発で名前とかステータス変えられたら…
0200デフォルトの名無しさん2008/10/05(日) 15:56:24
VBScriptとかJScriptで地味にWSHのプログラム書いてきたのに・・

IronPtythonなんてどうでもいい。

ていうことでVBScriptやJScriptを開発する統合環境みたいなツールってないの?
秀丸で書いてるんだけど、文法チェックや小文字大文字変換で不便でしょうがないんだけど。
0202デフォルトの名無しさん2008/10/05(日) 18:25:17
うん。昔からのVBSやJSユーザを生き伸ばすためにも言語拡張すりゃいいのにとおもって。
0203デフォルトの名無しさん2008/10/05(日) 19:01:39
一応残るだろうけどVBSはもう進化しないでしょ。
同系としてVBAは今のところ代わりが無いから多少変わるかもしれんが。

WSHは見捨てられた子・・・
JScriptつーかJavaScriptならEclipseで使えると思うけど、それじゃダメ?だよね(w
0204デフォルトの名無しさん2008/10/05(日) 20:01:20
いや。わては、WSHとして使いたいんや。

でも、VisualWebDeveloperExpressEditionにWSH用のテンプレートがあるみたいだ。
インスコしよっと。
0205デフォルトの名無しさん2008/10/05(日) 21:16:21
俺はサクラエディタでしこしこ書いとるわ。

>でも、VisualWebDeveloperExpressEditionにWSH用のテンプレートがあるみたいだ。

そんなもんがあるんか。そのうち入れてみよっと。
0206デフォルトの名無しさん2008/10/06(月) 05:31:22
WebDevelopper
0207デフォルトの名無しさん2008/10/23(木) 19:41:52
a.vbsで定義したFunctionをb.vbsで使いたいが、
どうやったらいい?
02092082008/10/23(木) 19:58:58
レスしたら>>207の意味判ったw

wsfファイルを作ってvbsファイルをインクルードしたらいいよ。

もしくはスクリプトファイルを読み込んでExecuteGlobalするか。
0210デフォルトの名無しさん2008/12/11(木) 03:39:01
テーブルから14桁で取得した日付(例:20081210140059)に、
+1秒した日付(20081210140100)を取得するにはどうしたらいいですか?

windowsアクセスログの履歴がデータとして格納されているテーブルから最新利用履歴日付を取得し、
そこから1秒後の日付でwindowsアクセスログを再検索したいのです。
0212デフォルトの名無しさん2008/12/12(金) 21:44:05
>>211
レスありがとうございます。
秒計算のできる関数を発見したので、試してみます!
0213デフォルトの名無しさん2008/12/13(土) 22:10:34
VBSのことでお助け願いたいのですが…どなたかお願いします!
0214デフォルトの名無しさん2008/12/13(土) 22:22:50
用件書かないやつなんか知らんわ
0215デフォルトの名無しさん2008/12/15(月) 23:48:05
助けて下さい。
25個のエクスプローラを起動させるようにプログラミングしたものが
あるのですが、3の倍数のエクスプローラーが起動したときのみに
ツールバーを表示させるようにしたいのですが
どのように、命令すればいいのでしょうか・・・。
0216デフォルトの名無しさん2008/12/16(火) 00:32:48
>>215
助けて下さい。
25本のチンポを勃起させるようにプログラミングしたものが
あるのですが、3の倍数のチンポが勃起したときのみに
包茎を表示させるようにしたいのですが
どのように、命令すればいいのでしょうか・・・。

ってくらいいみふ
0218デフォルトの名無しさん2008/12/16(火) 01:35:15
>>215

たとえば 26475
この各桁を足すと 2+6+4+7+5 = 24
さらに各桁を足す 2+4 = 6
この値 6 が 3 の倍数ならば
26475 は 3 で割り切れる。
0219デフォルトの名無しさん2008/12/16(火) 10:08:16
ほほぅ
0220デフォルトの名無しさん2008/12/24(水) 08:41:03
すいません ど素人なんですがよかったら教えてください

CreateObject("WScript.Shell").Run で実行したバッチファイルを停止するスクリプトってどう書くんでしょうか?
0221デフォルトの名無しさん2009/01/09(金) 14:14:10
>>220
ぱっと思いついたのがそのDOS窓掴んで
sendkeyで^C→Yを送るくらい
もっと賢くてスマートなのは他の有識者に任せる
0222デフォルトの名無しさん2009/01/29(木) 14:36:12
Dim fileXML, objXML
Dim node, item, mesg

fileXML = "35640864.xml"

Set objXML = WScript.CreateObject("MSXML.DOMDocument")
objXML.load(fileXML)

For Each node In objXML.getElementsByTagName("Message")

mesg = ""&

id = node.getAttribute("SessionID")


For Each item In node.childNodes

If mesg <> "" Then

mesg = mesg & ","
End If

mesg = mesg & item.nodeName & ":" & item.firstChild.nodeValue

Next

WScript.Echo mesg

Next

XMLの子ノードが;;表示されない・・・
だ・だれか・・・
0223デフォルトの名無しさん2009/01/29(木) 22:07:43
>>220
そのバッチファイルのタイトルをtitleコマンドで適当に一意なものに変更しておいて
一致するプロセス取得してkillすればいいんじゃね?
0224デフォルトの名無しさん2009/01/29(木) 22:32:01
>>222
表示できたかな?
<?xml version="1.0" encoding="UTF-8"?>
<root>
  <Message SessionID="0001">
    <Icon>情報</Icon>
    <Text>情報メッセージ</Text>
  </Message>
  <Message SessionID="0002">
    <Icon>警告</Icon>
    <Text>警告メッセージ</Text>
    <Param>パラ1</Param>
    <Param>パラ2</Param>
  </Message>
</root>
0225デフォルトの名無しさん2009/01/30(金) 10:58:34
どこで質問していいか分からないのでここで質問させて下さい!

vbscriptでmapiを使ってサーバからメールを受信するプログラムを作ってます。
http://72.14.235.132/search?q=cache:iTxznV_noXcJ:msdn.microsoft.com/ja-jp/library/cc421145.aspx+vbscript+MAPI.Session+%E3%83%A1%E3%83%BC%E3%83%AB%E5%8F%97%E4%BF%A1&hl=ja&ct=clnk&cd=5&gl=jp
を見ながら作ってるんですけど、
エラーコード:8004011Dが出て困ってます…

どなたかお知恵を拝借頂けないでしょうか?
basp21は使わない方向でお願いします!
0227デフォルトの名無しさん2009/02/15(日) 12:59:52
IEでリアルタイムにURLを取得するVBSを書いています
流れはIEが起動してないとき実行すると”IEが表示されていません”と
メッセージを出し終了
IEが起動しているとき実行するとバックグラウンドで
10秒ごとのWebページのURLを取得しIEを終了させると今まで取得したURLを
メッセージで表示し終了
こんな感じで書いたんですが "IEを終了させると今まで取得したURLを
メッセージで表示し終了" この部分がうまく書けません。
具体的にはIEが終了するとオブジェクトが空になるはずなのでその辺をついて
わざとエラーを起こしエラー番号を取得しそのエラーだったら終了
させるような感じで書いたんですがちゃんと動作してくれません
ご教授お願いします

0228デフォルトの名無しさん2009/02/15(日) 13:00:58
コードです
Dim object1, object2, objectie, ieurl, loopflag, hako
loopflag = 0
Set object1 =CreateObject("Shell.Application")
set object2 = object1.Windows()
do While loopflag = 0
for each objectie in object2
hako=objectie.LocationURL
ieurl = ieurl & hako & vbCrLf
hako=""
next
wscript.sleep(10000)
on error resume next
if objectie.LocationURL=""
end if
if err.number=424 then
exit do
end if
msgbox ieurl
loop
If hako = "" Then
MsgBox "インターネットエクスプローラーが開いてないか、閉じました。"
If ieurl <> "" Then
MsgBox ieurl
End If
End If
02292272009/02/15(日) 15:22:14
事故解決しました
0230デフォルトの名無しさん2009/02/26(木) 23:01:07
VBscriptでiTunesをアクティブにしたあとCtrl+Alt+5、Ctrl+Fと
入力させフルスクリーンにしたいのですが、アクティブに
なったあとの入力を受け付けないようなのです。

なぜきちんと動かないのかお分かりになるかたいらっしゃいませんか?

以下スクリプトです。

dim objShell
Set objShell = WScript.CreateObject("WScript.Shell")
objShell.Run "iTunes.exe"
WScript.Sleep 10000
objShell.AppActivate "iTunes"
WScript.Sleep 1000
objShell.SendKeys "^(%5)"
WScript.Sleep 1000
objShell.SendKeys "^f"
0231教えてくんに2009/04/30(木) 22:38:51
EXCEL VBA みたいにステップインできるソフトってない?
0232デフォルトの名無しさん2009/05/04(月) 01:07:57
コントロールパネル→ネットワーク接続の「ワイヤレスネットワーク接続」を右クリックして「修復」
これをVBSで実行できますか?
0234デフォルトの名無しさん2009/05/05(火) 19:33:28
>>230
私もこのような現象がありました。
VBScriptでキーを送るのと、
物理キーボードでキーを送るのは、
別物として扱われる事があるのでしょうか?
0235デフォルトの名無しさん2009/05/12(火) 22:25:37
vbsの管理者実行ってできるんかな?

インスコフォルダ削除のスクリプトとかをVistaで実行すると、

アクセス拒否されるじゃん?

あぁゅぅのって、管理者実行でアクセス出来ると思うんだけど・・・

分かるヤツいない?
0236デフォルトの名無しさん2009/05/13(水) 00:50:00
Vista の UAC の話なら

set Shell = CreateObject("Shell.Application")
Shell.ShellExecute WScript.FullName, "MyScript.vbs", null, "RunAs"

のように ShellExecute に RunAS パラメタを付ければ管理者権限で実行できるらしい

上の例は一般権限のスクリプトから外部の別のスクリプトを管理者権限で呼び出す例だが
WTL のセットアップスクリプトに、フラグ制御で自分自身のスクリプトを再度管理者権限で呼び出したり、
UACの判定とかのやり方が入ってるから詳しくはそちらを見てくれ
0237デフォルトの名無しさん2009/05/13(水) 19:52:57
おぉw

レスサンクス!(・∀・)

でも、またエラーでたな・・・
二個くらい出てきて、一個目がコレ↓↓
━━━━━━━━━━━━━━━━━━━━━━━━
スクリプト:  C\Users\*****\Desktop\\TEST.vbs
行:    14
文字:   1
エラー:  書き込みできません。
コード: 800A0046
ソース:  Microsoft VBScript 実行時エラー
━━━━━━━━━━━━━━━━━━━━━━━━
二個目が↓↓
━━━━━━━━━━━━━━━━━━━━━━━━
スクリプト ファイル"C\Windows\system32\My Script.vbs"
が見つかりません。
━━━━━━━━━━━━━━━━━━━━━━━━
実行環境はWindowsVista HomePremium
テストでiTunesのフォルダを指定してやってみたが何故かエラー
レス↓ソースでし
ソースに問題があったら指摘してくれ
0238デフォルトの名無しさん2009/05/13(水) 19:53:38
以下ソース↓↓
━━━━━━━━━━━━━━━━━━━━━━━━

set Shell = CreateObject("Shell.Application")
Shell.ShellExecute WScript.FullName, "MyScript.vbs", null, "RunAs"

Dim objFileSys
Dim strDeletePath

Set objFileSys = CreateObject("Scripting.FileSystemObject")

strDeletePath = "C:\Program Files\iTunes"

objFileSys.DeleteFolder strDeletePath

set objFileSys = Nothing
━━━━━━━━━━━━━━━━━━━━━━━━━

長文失礼..........。
0239デフォルトの名無しさん2009/05/13(水) 21:44:14
えー、MyScript.vbsは単なる例なので当然実行はできない
あえて全部書くなら適当だけどこんな感じ

Dim bElevated
bElevated = False
If WScript.Arguments.length >= 1 Then
If WScript.Arguments.Item(0) = "/elevated" Then
bElevated = true
End If
End If
set Shell = CreateObject("Shell.Application")
If Not bElevated And Shell.IsRestricted("System", "EnableLUA") Then
Shell.ShellExecute WScript.FullName, """" + WScript.ScriptFullName + """" + " /elevated", null, "RunAs"
WScript.Quit(0)
End If

Dim objFileSys
Dim strDeletePath
Set objFileSys = CreateObject("Scripting.FileSystemObject")
strDeletePath = "C:\Program Files\iTunes"
objFileSys.DeleteFolder strDeletePath
set objFileSys = Nothing
0240デフォルトの名無しさん2009/05/13(水) 21:53:41
age
0241デフォルトの名無しさん2009/05/13(水) 22:07:38
お、一個エラー消えたヽ(・∀・ )ノ

まだ
━━━━━━━━━━━━━━━━━━━━━━━━
スクリプト:  C\Users\*****\Desktop\\TEST.vbs
行:    18
文字:   1
エラー:  書き込みできません。
コード: 800A0046
ソース:  Microsoft VBScript 実行時エラー
━━━━━━━━━━━━━━━━━━━━━━━━
のエラーが残ってまうな・・・;;

んー、このソースに使ってるスクリプトとかってどこで勉強できる?
URLor本トヵあったらそっちも覗いててみたいんだけど・・

ご指摘感謝感謝(´;ω;`人)
0242デフォルトの名無しさん2009/05/13(水) 22:34:44
800A0046 ってのはアクセス権限のエラーなので、既にスクリプトの問題では
ないような気がする
最初、アンインストール時に残ったゴミでも削除するのかと思ったんだけど
まさかアンイントールせずにフォルダをいきなり削除しようとしてるわけではないよね

C:\Program Files\iTunes
にサービスなどのプログラムがあってまだ使われているなら権限の問題とは
関係なくフォルダの削除は無理だと思うけど
0244デフォルトの名無しさん2009/05/13(水) 23:06:26
ダメというか無理やりのファイル削除は、レジストリや作業ファイルのゴミが
残る可能性が高い
レジストリや作業ファイルのゴミがあると同じアプリを二度とインストールできなくなったり
最悪OSが不安定になったりするの普通やるものではない

そもそも何故正式な方法でアンインストールしないの?
0245デフォルトの名無しさん2009/05/13(水) 23:40:01
やっぱそうかー;;
OS犠牲にしてまではしたくないな・・・

デスクトップにダイアログ常時表示させといて、選択した必要ないファイル・ソフトの削除を
チャチャッ♪っと済ませられるようにしたいなぁとか、他にも活用できそうだしねー・w・

http://www.whitire.com/vbs/tips0113.html
一応、知恵の糧になるようなものをうpってみる
レジストリのゴミ削除できるかなぁーって(ノ∀`*)
0246デフォルトの名無しさん2009/05/17(日) 09:32:28
2つのフォルダを比較して
差分ファイルを指定フォルダにコピーすることはvbsで可能?
0247デフォルトの名無しさん2009/05/17(日) 10:20:08
>>246
vbs自体にハッシュ比較の機能がないから無理
同じ名前、サイズ、タイムスタンプくらいの判定でいいなら当然可能
0248デフォルトの名無しさん2009/05/17(日) 10:43:25
>>247
さすがにスクリプトでハッシュ比較すると
処理遅いだろうからそれで十分です
ありがとう、今から作ってみます
0249デフォルトの名無しさん2009/05/17(日) 10:50:01
一度は全部読まんとハッシュも出ないから、全比較でいいんじゃね?
比較するにしてもfcとか使ったほうが早いけど。
0250デフォルトの名無しさん2009/05/17(日) 13:19:10
VBSからIEを起動して、VBSでIE内のボタン押下処理した後、

「セキュリティで保護されていない接続へリダイレクトされようとしています。
現在のサイトへ送信中の情報は、セキュリティ保護されていないサイトへ再送信される可能性があります。続行しますか?」

っていうダイアログが表示されるのですが、このダイアログの「はい」のボタンを押下するには、VBSではどのようにすればいいのでしょうか?
0251デフォルトの名無しさん2009/05/18(月) 08:45:15
処理に時間がかかる場合で
プログレスバー表示的なことが出来ればいいのだけど
みんなはどうしてる?
IEを使う方法はわかりにくいし
0255デフォルトの名無しさん2009/06/24(水) 00:20:51
   。
   ||
ヾ(o゚ω゚o)ノ゙ プニプニ!プニプニ!
   ||
ヾ(o゚ω゚o)ノ゙ 他板から乱入だ!プニプニ!
   ||
ヾ(o゚ω゚o)ノ゙ プニプニ!プニプニ!
   ||
   O
0256デフォルトの名無しさん2009/09/21(月) 08:47:26
>>250
キー送信でAltとかTabとかSpaceとか送信して押せないかね。

>>251
HTAでプログレスバー作るのは?
IE(HTML)でやるよりソレっぽく仕上がるけど。
0257デフォルトの名無しさん2009/10/03(土) 01:28:39
なんか完全に過疎っているな。

最近、業務での単純作業をvbsで作りこんでみて、使い勝手いいと気づいたんだが。

てか、いつもメモ帳で作っているだが、補完機能とかある軽量の開発環境ツールあったら教えて。
0258デフォルトの名無しさん2009/10/03(土) 09:02:10
補完機能なんて使うほどのものじゃないからなぁ。
VisualStudioが一応対応してるんじゃあないか?
基本的にはVBAやVisualBasicに近いものだし。

TeraPadで色付けワードにVBScript関係のモノと
WSH関係のモノ追加したのでいつも書いてる。
0260デフォルトの名無しさん2009/10/05(月) 20:34:03
IEの操作について質問です。
下記のように和英辞書サイトで『空港』という単語を検索するようにしたいのですが、
なぜかテキストボックスに文字が入力されません。
どうしたらいいか教えてください。

Option Explicit
On Error Resume Next

Dim strUrl
Dim objIE

strUrl = "http://dictionary.goo.ne.jp/je/"
Set objIE = WScript.CreateObject("InternetExplorer.Application")
If Err.Number = 0 Then
objIE.Navigate strUrl
objIE.Visible = True
Else
WScript.Echo "エラー:" & Err.Description
End If
Set objIE = Nothing

objIE.document.all("MT").value = "空港"

02632602009/10/06(火) 17:10:24
>>261-262
回答ありがとうございます。
http://www2s.biglobe.ne.jp/~iryo/vba/IE/index00.html
のサイトを見てフォームの指定をやってみたのですがvbaとはまた違うのですかね?
vbsのIE操作のやり方が載っているサイトなどありましたら教えてください。
0264デフォルトの名無しさん2009/10/06(火) 17:49:49
>>263
基本は一緒でHTMLの知識
最初の>>260で動作しない理由は document.all("MT") では単独のコントロールを指定しないため
よって>>262ではフォーム名を入れて document.dict.MT で指定している

スレチだよな・・・
0265デフォルトの名無しさん2009/12/23(水) 20:50:33
ワード、エクセル、画像、HTMLファイルなどを指定した順番に印刷し、
各ページにページ番号をつけることってvbsで作成可能ですか?
可能だったらどのように作成するかヒント教えてください。
0266デフォルトの名無しさん2010/01/02(土) 21:28:53
ワードとエクセルならそういうフリーソフトがすでにあるけどな
ページ番号がついたかどうかは知らんが
0267デフォルトの名無しさん2010/01/05(火) 23:43:38
>>265
VBSでそういう横断的でかつ細部に至る要求なんて書けたかなってかんじ
ユーザインタフェースへの入力を自動化するのならuwscとかあるんだけど
0268デフォルトの名無しさん2010/02/15(月) 21:42:27
文字列連結.vbs

Function J(arrArg)
J = Join(arrArg, "")
End Function

Wscript.Echo J(Array(1, 2, 3, 4, 5, "A", "B", "C"))

&記号に疲れたひと用
0269デフォルトの名無しさん2010/02/16(火) 23:08:22
どこで聞いたらいいのかわからないので、スレ違いを承知でお聞きしたいのですが、
現在Windows 2003 Serverメインの環境でActive Directoryの運用中です。

ユーザアカウントの新規作成は全て手動で行っているのですが、何とかWSHやADSIを使って
CSVファイルから一括で登録処理を行えるようにしたいと思っています。

しかし、プログラムはおろかコードやスクリプトなど今まで全くさわったことが無いので
ネット上で公開されているサンプルなどを見ても、何を意味しているのかがほとんどわかりません。
勉強するに当たって、参考になる書籍やサイト、別スレなどがあればアドバイスをお願いします。
02712692010/02/17(水) 00:37:23
>>270
ありがとう。
そこも見たんだけど、そもそも一つ一つのメソッドがどういうオブジェクトを生成してるのかや、
何故それをしなければならないのか、っていうところからわからなくて困ってる。

Set objCommand = CreateObject("ADODB.Command")
なんかはドメコンに接続するときにおまじないのように書かれてるけど、これに限らず何をするためのものかわからないレベル。
例えば上記の構文だと、objCommandって変数にどういうオブジェクトが当て込まれてるのかや、
その内容を確認する方法すらわからなくて、ただただ途方に暮れてる。

Scripting guysなんかも読んでるけど、突然理解が追いつかなくなるんだ…
才能無いから諦めた方がいいのかと悩んでしまう
0272デフォルトの名無しさん2010/02/17(水) 00:50:43
>>271
あきらめるの早すぎ。
ADOは一度使い方を覚えれば使いまわせるよ。

VBSでWSHやる前に、
ExcelのVBE環境で色々試してみてはどうか?
ADOもADSIも使えるよ。
デバッガで変数の中身を確認できるので、イメージが膨らむはず。
0273デフォルトの名無しさん2010/02/17(水) 01:06:45
>Set objCommand = CreateObject("ADODB.Command")
>なんかはドメコンに接続するときにおまじないのように書かれてるけど、これに限らず何をするためのものかわからないレベル。
>例えば上記の構文だと、objCommandって変数にどういうオブジェクトが当て込まれてるのかや、
>その内容を確認する方法すらわからなくて、ただただ途方に暮れてる。

気にすんな
ほとんどの自称プログラマはそこらへんのサンプルコピペして
意味も判らず使ってるだけのレベル
わからんでもこねくりまわしてるうちにとりあえず動く

全部判って書いてる香具師の方が少数だから安心汁
02742692010/02/17(水) 01:23:56
>>272>>273
アドバイスサンクス。
3ヶ月程悩み続けてたんだが、プログラムとスクリプトの違いすらわからないくらいに初心者なもんで、
参考になる本も探してみたけど、どれも求めているものとは違うから挫けかけてた。

ExcelとかAccessのVBAだと、変数の宣言とかコマンドのプロパティが若干違ってくるから
あえて敬遠してたけど、そっちでも色々試してみる。
もっとも、WSHだと変数はWScript.Echoで確認できるけど、生成したオブジェクトの確認方法が不明だったから
コピペしてきたサンプルが何のために何をしてるのかわからなくて、
その度に途方に暮れてたけど、ちょっと頑張れそうな気がしてきた。

また分からなかったら初心者丸出しの質問をするかもしれないけど、
とりあえず明日から改めて出直してくる。

本当にありがとう!!
0277デフォルトの名無しさん2010/02/21(日) 17:29:45
文字列の一部をコメントアウトする.vbs

Wscript.Echo "" _
& "aaa" _
& "bbb" _
& C("" & "ccc" _
) & "ddd" _
& ""

Function C(strArg)
C = ""
End Function

rem とかじゃだめなのさ
0278デフォルトの名無しさん2010/02/28(日) 16:55:49
文字列の一部をコメントアウト2.vbs

Set objDic = CreateObject("Scripting.Dictionary")
i = 0
i = i + 1 : objDic.Add i, "cmd.exe /c"
i = i + 1 : objDic.Add i, "("
i = i + 1 : objDic.Add i, "dir /w"
rem i = i + 1 : objDic.Add i, "|"
rem i = i + 1 : objDic.Add i, "sort /r"
i = i + 1 : objDic.Add i, "|| (pause & exit)"
i = i + 1 : objDic.Add i, ")"
i = i + 1 : objDic.Add i, "&& (echo well done. & pause)"
strCommandLine = Join(objDic.items, " ")
CreateObject("Wscript.Shell").Run strCommandLine
0280デフォルトの名無しさん2010/04/21(水) 06:59:22
wordの.docファイルに埋め込まれた画像をbmpで取り出すプログラムを書いています
Office2003以降のwordがインストールされているPCからだとうまく取れたのですが
OfficeXP以前のwordがインストールされているPCだとうまく動きません
どちらもword2000形式で保存されているファイルに対して操作しています
OfficeXP以前のwordがインストールされているPCでも動くように書くにはどうすればよいですか
0282質問なんすが2010/06/09(水) 01:05:23
vistaでファイルを選択するためのダイアログ ボックスを表示するには?
Hey, Scripting Guy! にあった

Set objDialog = CreateObject("UserAccounts.CommonDialog")
objDialog.Filter = "All Files|*.*"
objDialog.InitialDir = "C:\"
intResult = objDialog.ShowOpen
If intResult = 0 Then
Wscript.Quit
Else
Wscript.Echo objDialog.FileName
End If


では1行目でエラー
ActivXコントローラはObjectを作成できないそうです
0285デフォルトの名無しさん2010/07/05(月) 11:44:59
VBSって何?
0289デフォルトの名無しさん2010/07/06(火) 09:19:02
Visual Browsing System
0290デフォルトの名無しさん2010/07/24(土) 17:30:04
数万件のデータをテキストへの書き出す方法で、軽くて早くしたいわけだが
書き出し方法としては

・データごとに直接書き込み
・変数に格納してから一括書き込み
・クリップボードに格納してから一括書き込み

の他になにかある?
配列に格納してエクセルシート経由くらいしか思い付かない
0292デフォルトの名無しさん2010/07/26(月) 13:40:13
複数箇所のフォルダ管理だからDB化は難しいかな

そして変数もクリップボードも足りなくて使えないや
数万件ファイル名に各々文字列連結して全部つぎ込むとかムリゲ
txtに書き出すなら配列に格納する意味無さそうだしなあ
0293デフォルトの名無しさん2010/07/26(月) 14:02:03
クリップボード出来ないことはないが、テキストに書き出す20倍くらい時間かかってる
IEクリップボードのせいか?
VBなら早いのに

バックグラウンド処理するのにこんなに時間も負荷もかかるなら、クリップボードは使えないな
0295デフォルトの名無しさん2010/07/26(月) 18:37:47
IE使うのが一般的かな
上がクリップボードから読み出し
下がクリップボードへ書き出し
書き出すときはクリップボードをクリアしてから格納すること
Microsoft Forms 2.0設定できればクリップボードも早くなるかもしらんが

objIE.document.parentWindow.clipboardData.GetData( "Text" )
Document.parentWindow.clipboardData.setData "text",""
0297デフォルトの名無しさん2010/07/26(月) 19:17:44
何を聞きたいのかよくわからんが・・・
objOutFile.WriteLine strDate で書き込めるだろ
改行したいならクリップボードに格納するときに VBCRLFでつなげればテキストには反映される
0299デフォルトの名無しさん2010/07/26(月) 20:30:10
そういうことか

前エクセルVBA使ってたときは、クリップボード経由のデータ貼り付けってかなり早かった気がする。
とはいえエクセルだと配列→セルが強力すぎるからあんまり使わないんだけれども。
0300デフォルトの名無しさん2010/09/30(木) 20:04:17
Set objFSO = CreateObject("Scripting.FileSystemObject")

set objOpenFile=objFSO.OpenTextFile("C:\hoge.txt",1,false)

msgbox "ロックちゅ〜"



なんかもんだいありまっか?
0302デフォルトの名無しさん2010/10/22(金) 12:09:59
WshShell.Environment("USER").Item("UNKO") = "うんこ"
Wscript.Echo WshShell.ExpandEnvironmentStrings("%UNKO%")

結果:%UNKO%

値を「うんこ」に設定できません。自分で自分の環境変数は変えられないのですか?
03033022010/10/22(金) 12:35:04
自己解決しますた
0304デフォルトの名無しさん2010/10/25(月) 20:30:58
以前、自動生成するファイルの拡張子に
.unk ってのを使ってたら(内容不明の場合に作るファイル)
「別に拡張子はナニつかってもいいけどさぁ
 "うんこ"ってのは、ちょっとどうなのよ」
て先輩に言われたことがあったのを思い出した。
0305デフォルトの名無しさん2010/10/26(火) 01:31:14
shine.unko
こんな感じですか?わかりません。
0308デフォルトの名無しさん2010/10/29(金) 23:53:34
>>304
Lotus Notesなんかも添付ファイルが理解できない時に吐くみたいだね>unk
個人的には3文字中「un」で2文字使うのはどうかと思うので
「UKN」の方が好きだけど(天気図等で使うが少数派…)

いっそのこと3文字にこだわらずに拡張子を「.unknown」にしちゃえば?
(dir /xなど)8.3文字表示で見ると、ちゃんと「.unk」になるし
0309デフォルトの名無しさん2010/10/30(土) 03:10:54
>>308
なるほど、 .ukn か。

.unknownでもまぁ問題は無い気がするが
.unk でも十分伝わると思うんだ。
うんこって読む奴がうんこ。
0310デフォルトの名無しさん2010/10/30(土) 09:52:51
むしろunkでうんこって読める先輩って
kwsk、ktkr、wktk、ksk、gkbrみたいなアブジャド系表記に慣れてる2chねらなんじゃないのかw
0311デフォルトの名無しさん2010/10/31(日) 22:53:19
他コンピューターのパスを返す時に、ネットワークドライブ(\A〜Z)ではなく、
\\サーバー名\フォルダ〜というようにする方法はありますか?
0317デフォルトの名無しさん2011/01/02(日) 00:13:10
MsgBox "Hello World!!"
0319デフォルトの名無しさん2011/01/02(日) 00:23:59
ゴサっ

--------------------
dim i
dim j

for i=1 to 1000

j=j+0.1

next

MsgBox j
0320デフォルトの名無しさん2011/01/04(火) 13:34:29
TEXTファイルから
特定の文字や特定の行を抜き出す
スクリプトってない?
三次元測定機からCADに
XYZ手動で打ち込むのもういやになった。
0321デフォルトの名無しさん2011/01/04(火) 15:12:23
>>320
ある。というか簡単だよ
テキストファイルを開いて1行ずつ読みながら正規表現等でチェックしていくだけ
2行以上に渡るデータだと少し面倒だけど大した手間ではない

でも仕様によってはわざわざ作らずに
SakuraエディタなどのテキストエディタのGrep機能で充分だったりするけど
0322デフォルトの名無しさん2011/01/04(火) 17:00:53
textファイルをドラッグアンドドロップで

DIM LOC1= LOCATION OF CIRCLE CIR1 UNITS=MM ,$
GRAPH=OFF TEXT=OFF MULT=10.00 OUTPUT=BOTH HALF ANGLE=NO
AX NOMINAL +TOL -TOL MEAS DEV OUTTOL
X 469.343 0.050 -0.050 469.343 0.000 0.000 ---#----
Y 2.106 0.050 -0.050 2.106 0.000 0.000 ---#----
Z 412.000 0.050 -0.050 412.000 0.000 0.000 ---#----
D 53.996 0.050 -0.050 53.996 0.000 0.000 ---#----
DIM LOC4= LOCATION OF CIRCLE CIR4 UNITS=MM ,$
GRAPH=OFF TEXT=OFF MULT=10.00 OUTPUT=BOTH HALF ANGLE=NO
AX NOMINAL +TOL -TOL MEAS DEV OUTTOL
X 386.074 0.050 -0.050 386.074 0.000 0.000 ---#----
Y 2.461 0.050 -0.050 2.461 0.000 0.000 ---#----
Z 577.913 0.050 -0.050 577.913 0.000 0.000 ---#----
D 44.971 0.050 -0.050 44.971 0.000 0.000 ---#----
     ↑こんな感じの中身を
     こんな風に↓
/469.343/2.106/412.000
/386.074/2.461/577.913

XYZを/に置き換えて
さらにXYZのNOMINALの数字だけを残して
さらにデスクトップにtextで保存されるようなやつです
難しいですね、すいません
0323その12011/01/04(火) 22:51:41
>>322
とりあえず作ってみた

' [仕様]
' NOMINALの位置は固定(XYZの直後)
' X,Y,Zはこの順番で必ず出現
' 数値間はスペース区切り
' 出力ファイルはデスクトップに元ファイル名(拡張しなし)_XYZ.txtというファイル名で出力
Dim fso,wshShell,regXYZ
Dim inFilePath,outFilePath,inFile,outFile,sDeskTopPath,sLine,retMatches
Dim X,Y,Z,isOutput
Const REG_XYZ_NOMINAL = "^([XYZ]) +([^ ]+) " ' 先頭XYZ の後空白があり次に空白が来るまでの値
Const OUT_FILE_TAIL = "_XYZ.txt" ' 出力ファイル末尾
Set wshShell = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set regXYZ = New RegExp
With regXYZ
.IgnoreCase = False ' 大文字小文字区別する
.Global = False ' 先頭の一致のみ
.Pattern = REG_XYZ_NOMINAL
End With
sDesktopPath = wshShell.SpecialFolders("Desktop") ' デスクトップの取得
inFilePath = WScript.Arguments(0) ' 入力ファイル
If Not fso.FileExists(inFilePath) Then MsgBox(inFilePath & "が存在しません"):WScript.Quit
outFilePath = fso.BuildPath(sDesktopPath, fso.GetBaseName(inFilePath) & OUT_FILE_TAIL)

If fso.FileExists(outFilePath) Then
If MsgBox(outFilePath & "ファイルが存在します。上書きしますか?", vbYesNo ) = vbNo Then Msgbox "処理を中止しました":WScript.Quit
End If
0324その22011/01/04(火) 22:52:49
Set outFile = fso.CreateTextFile(outFilePath, True)
Set inFile = fso.OpenTextFile(inFilePath, 1, False)
X="":Y="":Z="":isOutput = True
Do While ( Not inFile.AtEndOfStream )
sLine = inFile.ReadLine
Set retMatches = regXYZ.Execute(sLine)
If ( retMatches.Count > 0 ) Then
Select Case retMatches(0).Submatches(0)
Case "X"
X = retMatches(0).SubMatches(1):isOutput = False
Case "Y"
Y = retMatches(0).SubMatches(1):isOutput = False
Case "Z"
Z = retMatches(0).SubMatches(1)
outFile.WriteLine("/" & X & "/" & Y & "/" & Z)
X = "":Y="":Z="":isOutput = True
Case Else
End Select
End If
Loop
if ( Not isOutput ) Then outFile.WriteLine("/" & X & "/" & Y & "/" & Z)
inFile.Close:outFile.Close
set inFile = Nothing:set outFile = Nothing:set WshShell = Nothing
set fso = Nothing:set regXYZ = nothing
MsgBox "完了"
' その1とその2の内容を一つのテキストファイルに貼り付け XYZ.vbs 等のファイル名で保存してください
03253232011/01/04(火) 23:46:30
追記
ソースを短くするために複数ファイルのドラッグ&ドロップには対応していません
# 複数の関数に分かれていたのを1つにまとめたりしたので

↓辺りを参考にすれば変更は容易です
ttp://msdn.microsoft.com/ja-jp/library/cc364473.aspx
0327デフォルトの名無しさん2011/01/07(金) 15:49:03
どなたかリムーバブルメディアを取り出すvbs作ってください
お願いします
ジャンクのスロットローディング式のドライブ買ったらボタンがありませんでした
0328デフォルトの名無しさん2011/01/07(金) 16:53:37
011100111111011111
011110000111101111
001111100011110110
111010101101011101
100011101010101010
0329デフォルトの名無しさん2011/01/08(土) 08:04:12
>>327
ちょっと検索すれば出てくる。少しは自力で探そう

VBSにこだわらないのなら
Vectorで「トレイ 開閉」とかで検索すればフリーソフトがいくらでもあるし

と言ってるうちに見つけた。1行で書けるのが面白かったので個人的にメモ

' 光学ドライブが1台の場合
CreateObject("WMPlayer.OCX").cdromcollection.item(0).eject()

' 光学ドライブが複数ある場合などドライブ指定が必要な時(例は Q: ドライブ)
CreateObject("WMPlayer.OCX").cdromcollection.getByDriveSpecifier("Q:").eject()
0331デフォルトの名無しさん2011/01/08(土) 21:00:10
>>329
もうCで作っちゃったけど
1行で済むんですね
ありがとうございました!
0332こいぴ2011/01/09(日) 21:54:03
業務で、VBSにデジタル署名をする必要が出ました。
各種調査しましたが、どうしても方法が解りません。
どのたか、ご教示願います。
0333デフォルトの名無しさん2011/01/09(日) 23:18:39
>>332
ここが色々手順を説明しているので分かりやすいと思う
ttp://msdn.microsoft.com/ja-jp/library/ms974604.aspx
0334デフォルトの名無しさん2011/01/10(月) 21:05:09
無料RPG製作ツール「ロープレジェネレーター」

 直感的操作で簡単なゲームが作れます。 簡単に配布可能な状態に出力することができます。
(HSP製のソースコード付きで、スクリプトの知識があれば自由度の非常に高いカスタマイズ
ができます)
他にも仲間預かり機能(100人も)や、仲間の状態/状態異常を細かく設定できたり、
乗り物が作れたりゲーム中に画像を差し込んだり、回転やフラッシュなどのエフェクト
なんかも簡単に作れる様です。戦闘はデフォだとドラクエ系。
移動は矢印キーの他に、キャラがマウスを追っかけたりするとのこと。
 他にはオートアクションというのがあってオリジナルシステムの製作に役に立つかも
しれない機能です。これは、マップエディタで設定することで、「マップに入った時・
出た時・一歩歩いた時・戦闘開始前」に自動的に実行されるアクションを設定できる
機能です。
■分からないことや要望は掲示板へどうぞ。他にもいろいろ進化中みたい。
0335デフォルトの名無しさん2011/01/28(金) 13:34:09
デスクトップ上に任意の文字だけを表示するVBSを作るのはむずかしいでしょうか?
0336デフォルトの名無しさん2011/01/28(金) 14:47:38
>>335
目的がよくわからないけど
スクリーンセーバーでテキスを表示しておけばいいんじゃない?
0337デフォルトの名無しさん2011/01/28(金) 14:52:47
>>336
目的はホットキーに埋め込まれたマクロの実行をする際に

その実行するモードがいま何になっているかをキーを押した時に数秒デスクトップ上に表示させるためです。

0339デフォルトの名無しさん2011/01/29(土) 01:00:36
何か文字列を数秒間デスクトップ上に表示させるってだけなら、
もし俺ならVBSではなく以下のバッチファイルで手っ取り早く済ませるんだが…

@ECHO OFF
ECHO 表示したい文字列
PING 0 > NUL
PING 0 > NUL
EXIT
0340デフォルトの名無しさん2011/01/29(土) 07:18:06
それ、"デスクトップ上に"ではなく"ウィンドウ内に"だろ

それで良いならわざわざバッチファイル使わずWScript.ShellのPopupで良いはず
0341デフォルトの名無しさん2011/01/29(土) 08:29:29
>>338-340
具体的なイメージで言うと
透明ウィンドウにテキストのみ表示するかバルーンメッセージ的なものを考えていたのですが
VBSで透明ウィンドウはできないっぽいのであきらめようと思います
0342デフォルトの名無しさん2011/01/29(土) 09:14:11
まあ外部COM使えばどうにでもなる話ではあるが、
それ言うと他も全て「COM使え」で終わってしまう。
0343デフォルトの名無しさん2011/01/30(日) 22:09:09
しまうね
0344デフォルトの名無しさん2011/02/01(火) 21:14:34

       +           +
         +      +
    +     シマウネ━━━━━━━!!!!  +
          /・/\__       +
     +    丶'\||||||||||)〜  +
             << ̄>/    
      _|\∧∧∧MMMM∧∧∧/|_
     >                  <
  ─ / ──┐  /_   /_ヽ|  |ヽ  ム ヒ | |
 ─ /    / / ̄ /   ̄/  | ̄| ̄ 月 ヒ | |
 __ノ   \    _ノ   //\ / | ノ \ ノ L_い o o
0346デフォルトの名無しさん2011/02/08(火) 22:16:59
VBスクリプトで起動時にリモートデスクトップをマルチセッションで同時起動するスクリプトを書きましたよ

ttp://xbmc.inpane.com/main/omake/windows.php#rdp
0347デフォルトの名無しさん2011/02/09(水) 18:09:40
質問です。

フルパスファイル名が書かれているテキストファイルを参照し、ファイル有無をチェックするやり方を教えてください。また、テキストファイルに記述されていないファイルが存在する場合もNGとしたいです。
0348デフォルトの名無しさん2011/02/09(水) 19:43:41
>>347
詰まる部分があるとは思えない初歩的なプログラムな気がするんだが。
とりあえず書いた所までどこかにアップしてみてよ。
0349デフォルトの名無しさん2011/02/09(水) 20:24:29
どこかにアップっていうか、ここに貼ればいいんじゃね?
そんな長いコードにはならんだろ
0350デフォルトの名無しさん2011/02/09(水) 21:15:33
いや、かなり長いコードになるかもよ。
前半の
>フルパスファイル名が書かれているテキストファイルを参照し、ファイル有無をチェックする
コレは簡単だよな。悩むこたぁない。

問題は後半のコレ
>テキストファイルに記述されていないファイルが存在する場合もNG
やっかいだぜ?

考え方としては、前半の処理と、後半の処理は完全に分けて
2本の別のプログラムを書くような気持ちでコーディングすればいいんじゃないかな。
0351デフォルトの名無しさん2011/02/09(水) 21:36:33
何処が厄介?

テキストに書かれたパスを連想配列に入れて
対象フォルダ内のファイルをループ回しながらExistsでチェックするだけだろ
03543472011/02/10(木) 08:01:03
皆さんありがとうございます。

前半部分は大体イメージをつかめているのですが、後半部分でつまってます…
0355デフォルトの名無しさん2011/02/10(木) 08:06:41
とにかく自分で出来る部分まで書いて貼るなりどこかにアップするなりしろ

話はそれからだ
0358デフォルトの名無しさん2011/02/10(木) 13:09:11
>>357
どうしてそう言い切れる。
本人はフルパスファイル名、つまり絶対パスを指定しているんだぞ
特定フォルダでいいなら相対にするだろ常識的に考えて
0359デフォルトの名無しさん2011/02/10(木) 13:17:09
昨今、相対パスが使われるのは相対パスでなければ困る場合のみで
どちらでも構わない場合は絶対パスを使うことの方が多い件について。
0361デフォルトの名無しさん2011/02/10(木) 20:22:36
>>359
zipとかの書庫ファイルはなんで相対パスで格納してるか理解できる?
何のためにカレントディレクトリって概念があると思う?
何でわざわざ%SystemRoot%とか環境変数を定義してるのか疑問に思わない?
0362デフォルトの名無しさん2011/02/10(木) 20:26:38
相対パスが絶対的に必要ではない場合はって話をしてるのに
全く的はずれな例を持ってきたな

そういうことは相対パスそのものが無意味とか宣ってる奴に言ってやれ
0365デフォルトの名無しさん2011/02/10(木) 22:58:35
>>361
質問者はzipファイルの中身まで調べるなんて設問はして無いだろ。
なんでオマエは論点をずらそうと必死なんだ?
0366デフォルトの名無しさん2011/02/12(土) 11:50:55
vbscriptでmicrosoft bluetooth stackの接続情報を得ることはできませんか?
0367デフォルトの名無しさん2011/02/13(日) 08:23:52
"E:\hogehoge\hoge"
というフォルダが存在した場合、そのフォルダを削除。
存在しなければそのまま終了。

という簡単なスクリプトを教えていただけませんでしょうか?
0368デフォルトの名無しさん2011/02/13(日) 08:51:10
いいよ。

で、どこを教えて欲しいの?
まさか1から10まで丸投げで全部書いてとは言わないよね?
しかも質問スレではなく、自分の書いたものを晒すスレで。
0370デフォルトの名無しさん2011/02/13(日) 14:18:16
>367
VBSじゃないが、これで事足りないか?
if exist "E:\hogehoge\hoge\." rd/s/q "E:\hogehoge\hoge"
03713672011/02/13(日) 14:31:51
なんだか趣旨がよくわからないスレでしたが、どこへ質問すれば良いのかわからず、とりあえず書き込んでしまいました。
申し訳ありません。

>>370 さんのバッチファイルで満足な結果が得られました。
まさか1行で済むとは思いもしませんでした。

ありがとうございました。
0372デフォルトの名無しさん2011/02/13(日) 14:32:35
hoge\. だとhogeってファイルがあった時も反応するんだよな。
hoge\nul だとディレクトリしか反応しない。
0373デフォルトの名無しさん2011/02/14(月) 23:17:24
質問スレがみつからなかったので、こちらで質問させて頂きます。
Set objShell = WScript.CreateObject("WScript.Shell")
Set objExec = objShell.Exec("ipconfig.exe")
って実行した時に、標準出力に結果を出さないようにする方法ってありますか?
ipconfig 1 > nul
みたいな感じで、エラー発生時以外はすべて返ってくる結果を捨てたいのです。
そのまま書いてもうまく動かないです。
0375デフォルトの名無しさん2011/02/15(火) 00:17:00
>374
トラップされるって事は、読み出さない限り無視されるって事ですか?
0376デフォルトの名無しさん2011/02/15(火) 00:19:20
> 標準出力に結果を出さない
はipconfig.exeが対応してなきゃ出来ないよ

WSH(EXEC)が受け取った標準出力を
「コンソールウィンドウに表示しない」
ならどうにでもなるけど
0377デフォルトの名無しさん2011/02/15(火) 00:36:44
>376
コンソールウィンドウに表示しないと、1 > nul って同じ扱いですか?
質問ばかりで申し訳ない。
0378デフォルトの名無しさん2011/02/16(水) 00:51:30
ipconfigはネットワーク設定を確認する為のプログラムなんだから
エラーになるのはexeが見つからない時ぐらいじゃねーの。
ネットワーク設定されて無い時は"設定無し"って正常終了するんだし
0380デフォルトの名無しさん2011/02/16(水) 09:26:36
pingで表示したくなくて、WMI使ったな

こんな感じだったと思う。
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")

Set colItems = objWMIService.ExecQuery _
("Select * from Win32_PingStatus " & _
"Where Address = '" & hoge & "'")
0386デフォルトの名無しさん2011/02/20(日) 20:13:23.14
ほるだー内にあるoutlook6のメッセージファイル.emlを検索して、エクスプローラにリンク表示するプログラムを作ってます
が、.emlが開けない
アウトルックを軌道してクリックしたメッセージを表示したいのですが、どう書けばいいのでしょう。
wshshell.runでは出来ませんでした……
0387デフォルトの名無しさん2011/02/21(月) 01:17:30.92
ISPの切断>接続をしてくれるPGをどなたかキボン!
telnetでルータ(Aterm)に入って、PPPoEを再接続してくれる物です。
0388デフォルトの名無しさん2011/02/21(月) 07:28:22.68
だからここは自分で作って晒すスレで
質問スレや制作依頼所じゃないと何度言えば…
0390デフォルトの名無しさん2011/02/21(月) 21:02:49.69
丸投げされるのはムカつくけど多少の質問ならいいんじゃね?

>>387
telnetで入れるならTeraTerm等でマクロ作ったほうが簡単。
もっとも擬似GUIだとお手上げだが。
0392デフォルトの名無しさん2011/04/09(土) 21:38:36.77
こんな感じでマイドキュメントをコピーしてバックアップを
取ろうとしてるんですが、Windows 7だとエラーが返ってきて、
コピーできません。
Set objFS = CreateObject("Scripting.FileSystemObject")
objFS.CopyFolder "C:\Users\Admin","C:\test"
AdministratorでもコピーできないのってUACの仕様ですか?
0396デフォルトの名無しさん2011/04/10(日) 06:02:52.24
>>392
UACというかVistaからの仕様です
例え管理者といえど他人の敷地には許可無く進入は出来ません。
今までのウィルスならこれで全て無力化される、そんぐらい厳しい仕様。
因みにAdminとAdministratorは別物だよ。
XPまでのユーザー管理とは似た非なるものと認識しておこう。
ポリシーいじれば同じ感じに出来るけどめんどい。
03973922011/04/10(日) 19:18:31.68
>>393
>>394
質問スレじゃないの理解してませんでした。申し訳ない。

>>395
フォローありがとうございます。

>>396
かなりめんどくさそうですね。手作業でやった方が速いのかも…
アクセスフォルダに所有権とかつけてみて、もうちょっとやってみます。
ありがとうございます。
0398デフォルトの名無しさん2011/04/23(土) 17:43:43.24
唐突ですがウサギ型ロボットをR2D2にするためのVBSを公開しましたよ
ttp://xbmc.inpane.com/sub/nabaztag/
0399デフォルトの名無しさん2011/04/23(土) 23:30:59.78
会社の共有PCの管理のため、Windowsのログオンスクリプトにかまして、
とあるプロセスを監視しています。
なので基本的にユーザーがログイン中は常にWscript.exeが動いているのですが、
↓のような無限ループでもいいんですかね?
なんとなく無理やりな感じがして、もっとスマートなやり方があるでしょうか?



Call プロセス監視処理

@
Sub プロセス監視処理
Do
'WMIからプロセス取得して、目標のプロセスがでたらループ抜け
Wscript.Sleep 1000
Until
Call やりたい処理
End Sub

A
SUb やりたい処理
'やりたい処理がおわったらまた、プロセス監視処理をCall
End Sub
0400デフォルトの名無しさん2011/04/27(水) 22:03:44.07
おまえら>>399これくらいも答えられないのかよ
死ねっ!能無しども
会社でもろくな仕事してないんだろうなぁ・・
0401デフォルトの名無しさん2011/04/27(水) 22:11:12.36
>>400
あんまし読んでないしてきとーだけど再帰処理っぽいなと思った。
見つかるまで自分自身を呼び続けたらいいべさ
0403デフォルトの名無しさん2011/05/20(金) 13:19:16.79
ここで聞いていいのか分かりませんが、分かる方いたら教えてください。
コマンドラインでフォルダを圧縮するためにZIP.VBSというのを使っているのですが、
MakeZIP.VBSでフォルダを圧縮する際、zipファイルにフォルダ名が格納されてしまいます。

photo
 ├aa.jpg
 └bb.jpg

上記のような場合に、zipファイルにphotoフォルダも格納されます。
これをphotoフォルダを格納せず、ファイルのみ格納するにはどこを修正すればよいのでしょうか。
よろしくお願いします。
0404デフォルトの名無しさん2011/05/20(金) 14:38:03.93
そもそもスレ違いだが、それ解らないレベルならZIP.VBSなんか使わずに
コマンドライン型のアーカイバツール使えよ。
GUIで予め設定しておけば渡したフォルダの中身だけ圧縮してくれるものなんて
いくらでもあるから。
0406デフォルトの名無しさん2011/06/05(日) 10:08:34.52
ブ・・・vbs・・・
わしは・・ワシは今までこんな素晴らしい言語があるなんて知らなかった・・・!
APIなんかいらないじゃん!
0407デフォルトの名無しさん2011/06/05(日) 11:18:49.84
VBSにD&Dしたものを他のソフトのウィンドウへD&Dとして受け渡すことは可能ですか?
0408デフォルトの名無しさん2011/06/05(日) 18:56:55.67
ファイルへのD&Dなら可能
これは単なるコマンドライン実行なので

ウィンドウへのD&Dならデフォでは不可
専用のCOMでも作るか探すかすれば出来ないことはないだろうけど
0409デフォルトの名無しさん2011/06/06(月) 00:45:23.45
サンプルをいじることしか出来ない私には手に負えないですね…
諦めで別な方法を模索してみます
0410デフォルトの名無しさん2011/06/14(火) 02:40:29.91
2chのhtmlを取得して、vbsで正規表現による抽出と置換をしてhtmlを整形してログを管理するプログラムに読ませたい。

抽出までは上手くいきました。
しかし、正規表現による置換ができません
例えばこのスレのhtml内のコメ409を抜粋するとこうです
<dt>409 :<a href="mailto:sage">
<b>デフォルトの名無しさん</b></a>:2011/06/06(月) 00:45:23.45 <dd> サンプルをいじることしか出来ない私には手に負えないですね… <br> 諦めで別な方法を模索してみます <br><br>

ここから
409 :2011/06/06(月) 00:45:23.45 <dd> サンプルをいじることしか出来ない私には手に負えないですね…
<br> 諦めで別な方法を模索してみます<br><br>

にするには\<a.+/a>|(</a>:)|\</?.+?\> で置換して余計なものを取り除けばできました。
しかし、<dd>や<br>などの改行にあたる部分も別途置換しないといけないのでここで詰まってます。
片方づつなら出来るのですが同時に1スクリプト内
でやろうとするにはどうすればいいのでしょうか?


0411デフォルトの名無しさん2011/06/14(火) 02:45:14.28
\<a.+/a>|(</a>:)|\</?.+?\> の部分を空白に置換するvbsです
Dim objFile ' 対象ファイル
Dim oldText ' 置換前テキスト
Dim newText ' 置換後テキスト
Dim objFSO ' ファイルシステムオブジェクト
Dim objRep ' 正規表現オブジェクト
Dim repText ' 置換対象文字列
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("読む込むテキストファイル")

' テキストデータ読込
oldText = objFile.ReadAll

' 置換対象文字列
repText = ""

Set objRep = New RegExp

objRep.Multiline = True
' 正規表現パターンを指定する
objRep.Pattern = "\<a.+/a>|(</a>:)|\</?.+?\>"
objRep.IgnoreCase = True
objRep.Global = True
' テキスト変換
newText = objRep.replace(oldText, repText)
objFile.Close
' 書き込み
Set objFile = objFSO.CreateTextFile("書き出すテキストファイル")
objFile.WriteLine (newText)
objFile.Close
0412デフォルトの名無しさん2011/06/14(火) 02:45:45.67
' 書き込みの前から' 正規表現パターンを指定するへループして繰り返せればなと考えているのですが上手く思いつきません。
もし、わかるかたがいらっしゃれば教えてください。よろしくお願いします。
0413デフォルトの名無しさん2011/06/14(火) 04:43:26.73
やりたい事がいまいちわからないが、
複数回やりたいんであれば、
正規表現パターンを配列に入れて、ループするだけじゃないかな〜
0416デフォルトの名無しさん2011/06/15(水) 11:59:02.32
ちょっと見てみた、確かにhtmlよりdatのほうが容量4割減でおいしいんだけどタイトル取得できないのとコメ番号ないから置換するときどうやって割り当てようか思いつかない
0418デフォルトの名無しさん2011/06/15(水) 19:08:23.10
デスクトップから2ch検索するvbs作ってるんだけど、
変数の件でわからないところがある。
Dim 変数 で宣言する
このとき変数が、例えば2churlとかだと識別子がありません。とエラーがでる

churlなら問題ない、どうして先頭に数字がくるといけないんですか?
識別子がありません。
0419デフォルトの名無しさん2011/06/15(水) 19:30:46.07
先頭に数字が来ることを許すと
Dim 2
とか
Dim 123
という変数が出来てしまう

これってどうやって変数の2や123と、数値の2や123を識別するの?
ってことになるので、必ず英字を入れなければならないというルールが必要になるわけで
1文字の変数がある以上、その英字が入る位置は1文字目、つまり先頭になり
1文字目が英字でなければいけない=先頭が数字ではいけない
ってことになるわけだ

1文字目が英字でさえあれば、1文字変数でも、2文字目以降が数字でも
確実に変数と数値を識別できる
0420デフォルトの名無しさん2011/06/17(金) 20:55:49.75
vbsでpingを打って、通るまで処理を繰り返すスクリプトを
作成しているのだが、どうもうまくいきません。

IF文で分岐をさせるのはうまくいくのですが、以下のスクリプトで
192.168.0.3に対して通るようになった時点でスクリプトを終了
させたいんですが、どこが悪いんでしょうか?

dim strIP
dim timeOut
'タイムアウト設定(ミリ秒)
timeOut = "10"
strIP = "192.168.0.3"
Set objWMIService = GetObject("winmgmts:\\.")
Set colItems = objWMIService.ExecQuery _
("Select * from Win32_PingStatus " & _
"Where Timeout = " & timeOut & " AND Address = '" & strIP & "'")

For Each objItem in colItems
do while objItem.StatusCode <> 0
Wscript.echo "NG"
Set objWMIService = GetObject("winmgmts:\\.")
Set colItems = objWMIService.ExecQuery _
("Select * from Win32_PingStatus " & _
"Where Timeout = " & timeOut & " AND Address = '" & strIP & "'")

loop
Next
0422デフォルトの名無しさん2011/06/19(日) 02:28:19.04
VBSで選択プルダウンボックス使ってるけど、何か?

VBSというかWSHは、COM、OCXで拡張してナンボなんだから
欲しいけど言語に備わってない機能は、外部で補えば良いだけだ
0424デフォルトの名無しさん2011/06/19(日) 07:17:25.40
超えられるけど、何か?
USBメモリで持ち歩いて使ってる
COMのレジストリ登録を自動化してるとかではなく未登録で
0426デフォルトの名無しさん2011/06/19(日) 08:09:56.20
自信満々に言った「comはインストールの壁が越えられない(キリッ」
を否定されて悔しかったの?
0428デフォルトの名無しさん2011/06/19(日) 08:29:07.02
USB股間に忍ばせて持ち歩く男の人って・・・///
きみの端子にプラグ★イン!
0429≠4232011/06/19(日) 10:02:11.33
>>426
あのね、ある程度の会社ならね、勝手にツール類をインストールする事ができないのね。

USBメモリも、使用禁止、あるいは相当制限されているのが一般的なのよ。
0430デフォルトの名無しさん2011/06/19(日) 12:12:42.62
なんか勘違いしてる子が出てきたなw

あのね、comにインストールの壁なんて無いって話であって
USBメモリなんて、全く関係ない話なのよ

それと、『ある程度』レベルの会社だと、勝手にツール類をインストールする事ができないところが多いけど
『ある程度』を超えたまともな会社だと、勝手にツール類をインストールする事が出来るところも多い
セキュリティーが確立している上に、VBAやWSHなどの元から入ってる言語でいろいろ作れる奴が多いから
外部からのツールのインストールを制限しても、元から入ってる言語でツールが作れちゃうから意味無いw
逆にまともな会社だでツールのインストールを制限している場合は、WSHもVBAも制限してる
0432デフォルトの名無しさん2011/06/19(日) 21:27:41.80
「勝手に出来る」って方がおかしいだろ
今の時代どこもピリピリしてるってのに。
単におまえさん自身か会社がその客に信用されてるってだけじゃねーの?
でも普通は申請式だと思うけど。他人の会社で勝手にてのはどうかと思う。
0433デフォルトの名無しさん2011/06/20(月) 00:02:07.13
勝手にしてよいと許されていることを勝手にやる上で、何の咎があると?
なにか勘違いしてやいないか?
0437デフォルトの名無しさん2011/06/20(月) 17:46:53.34
<a href="http://upload.jpn.ph/500/bin/やきそば.zip">こちら</a>
という内容のテキストファイルからURLの部分を抽出して
変数に入れるっていう目的でvbs作ったんですが上手く変数に入りません

Dim objFile ' 対象ファイル
Dim oldText ' 置換前テキスト
Dim newText ' 置換後テキスト
Dim objFSO ' ファイルシステムオブジェクト
Dim objRep ' 正規表現オブジェクト
Dim repText ' 置換対象文字列
var1 = "解析.txt" '保存する名前
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(var1, 1, false, 0)
' テキストデータ読込
oldText = objFile.ReadAll

patrn="(http:\/\/[^\x22 ]+)" '検索する文字列を入力して下さい。
repText = "$2"

Set objRep = New RegExp
objRep.Multiline = True
' 正規表現パターンを指定する
objRep.Pattern = patrn
oldText = objRep.replace(oldText, repText)

WScript.Echo $2
objFile.Close

どうすればいいのでしょうか、もしわかるかた入れば教えてください。
自分では後方参照とかExecuteやマッチとかが関係ありそうで
調べて試したんですが思うようにいきませんでした。
0439デフォルトの名無しさん2011/06/23(木) 15:44:28.14
正規表現の構文がデタラメ。
パターンがデタラメだし後方参照の仕方もデタラメ。

ヘルプもろくに見てないだろ。
0445デフォルトの名無しさん2011/06/24(金) 14:11:47.65
突っ込む所はそこじゃないと思うがw

Echoのとことか、パターン自体に突っ込めよ
0447デフォルトの名無しさん2011/06/24(金) 19:23:21.29
>>437
ドリルの刑
ttp://www.amazon.co.jp/dp/4774145092

姉妹編と違って表紙にドリルが載っていないのがイマイチだけど
0450天使 ◆KOAgYBL/Xg 2011/06/29(水) 17:41:46.87
さすが VBSなんていう時代遅れツール使ってるスレはレベルが低い
0456デフォルトの名無しさん2011/11/20(日) 14:29:12.95
(・∀・)
0457デフォルトの名無しさん2011/11/20(日) 15:33:06.16
VBScriptって、1ヶ月もあれば極められるよね

あとはCOMを何処まで使いこなせるかだけ
04614592012/02/10(金) 22:23:36.81
>460
分かりました。ありがとう

ところで、Option Explicitを書くとshellが宣言されてないと起こられますが
この場合、shellの型は何ですか?
あるいは、Option Explicitを書くべきじゃない?
0462デフォルトの名無しさん2012/02/10(金) 22:46:07.22
>>461
Object 型
VBScript では VB や VBA と違い、宣言で型を記述しないのであまり意識はしないが、
Object 型だけは代入時に Set を必要とするので認識は必要
あと、Option Explicit は書いた方がよい

Option Explicit
Dim shell
Set shell = CreateObject("WScript.Shell")
shell.Run "notepad"
04634592012/02/11(土) 07:35:54.95
>462
ありがとうございました
0464デフォルトの名無しさん2012/02/12(日) 01:57:20.27
Option Explicitはtypo無くしてくれるからな
昔のソース改修でstrPrinterとstrPrnterで1週間ぐらいハマった記憶
今なら真っ先に疑うけど当時はまだ慣れてなくて泣いたなぁ
0465デフォルトの名無しさん2012/03/10(土) 23:34:01.81
>>462
CreateObject()の戻り値がObject型ってだけで変数に型は無いよ
Object型を変数に代入するのに、Setが必要なだけ

その証拠に、
Set shell = CreateObject("WScript.Shell")
shell = 1 '変数に型は無いので、この代入は有効
shell.Run "notepad" '変数には数値型のデータが入っているので、ここでエラーが発生

細かい事だけど、知っているのと知らないのでは大違い

>>464
typoを無くす為にOption Explicitを宣言してはいけない
Option Explicitの宣言は、ローカル変数とグローバル変数の区別を明確にするために宣言すべき
0466デフォルトの名無しさん2012/03/11(日) 04:51:38.09
> 変数に型は無いよ
ちょっとハズレ

正しくはVBSの変数の型は、無いのではなくValiant型のみというだけ
で、Valiant型は内部型が固定されていないのでどんな型の値をも代入することが可能だが
値が代入されている状態では、内部に歴とした型という概念が存在する

細かい事だけど、内部文字列型と内部数値型では、外がValiant型でも扱いが異なるので、
知っているのと知らないのでは大違い

> Option Explicitの宣言は、ローカル変数とグローバル変数の区別を明確にするために宣言すべき
それ、VBやVBAの場合ね
それらの場合はグローバル変数(全モジュール共通変数)とモジュール内変数の区別に役立つ
でもVBSの変数スコープには、グローバル変数、プロシージャ内変数、クラス内変数の3つがあるが
Option Explicitはこれらの区別を明確にする役目は果たさない
0467デフォルトの名無しさん2012/03/11(日) 09:35:32.83
>>466
だから、違うって
全ての変数は型が無いことを保障されてるの、これをValiant型と言います
そして、型を持っているのは、データ側であって変数ではありません
変数に型がある場合は、オブジェクト型の変数に整数を代入する事は絶対に出来ません

次に、Option Explicitは、全てのスコープにDim文を強制します
VBScriptの仕様では、Dimで宣言された変数は該当スコープでのローカル変数として確実に扱われるが、Dimで宣言されない変数は、同名のグローバル変数がある場合、グローバル変数として扱われます
ようは、使うべきでないグローバル変数を誤って使う事をしない為に使われるのであって、typo問題の為に使われているのではない
考えるまでもなく、typoによって引き起こされる問題よりも、グローバル変数への不用意なアクセスによる影響の方がはるかに大きく深刻です
0470デフォルトの名無しさん2012/03/11(日) 11:14:12.71
>>469
そう、>>466のように変数に型があると勘違いしていると、SubやFunction、Propertyに入力されるデータの型を勝手に期待して自爆する事になるよね
特にVBScriptのClass周りには、変数に型が無い事による罠が散りばめられてるからねぇ
0472デフォルトの名無しさん2012/03/11(日) 13:38:11.81
>>471
そう、>>466は理解の薄い痛い子だね
無型の変数に内部型があると信じている辺りが痛すぎる
型を持っているのは、変数ではなく値なのにね

たぶん、VBScript以外のプログラミング言語を使った事が無いんだろうね
0473デフォルトの名無しさん2012/03/11(日) 18:41:00.25
>>467
横レスだけど
ローカルとグローバルでの変数名は、設計レベルで対応すべき話では?
実際の製造(プログラミング)時はtypo対策の方が重要では

そもそも、グローバルとプロシージャレベルで同名変数使うって
どれだけ可読性の低いプログラムを書くつもりかと。
普通コーディングルールで禁止されていると思うし、自分なら禁止する

個人レベルならともかく企業でもVB系言語を使う以上、Option Explicitは
BASICを、普通の(変数宣言を強制する)プログラミング言語と
同レベルに引き上げるものだと思ってるけど

とMSX-BASIC1から入って業務でVBは2(Win版。流石にDOS版は触って無い)から
使っている年寄りとしては思う
0475デフォルトの名無しさん2012/03/11(日) 19:15:38.79
>>473
だから、Option Explicitをつければ、コードの再利用に際して変数名に関する問題は起こらなくなるの
0478デフォルトの名無しさん2012/03/11(日) 22:27:49.57
>>477
は?
typoしないんなら必要ないだろ?

ローカルでDimし忘れたらグローバルでDimしてる変数が使われちゃうぞ
0479デフォルトの名無しさん2012/03/11(日) 23:22:53.96
>>478
お前、馬鹿だろw
Option Explicitが書いてあれば、ローカルでDim宣言されている証明になるが
Option Explicitが書いてあっても、typoしていない証明にはならない
0480デフォルトの名無しさん2012/03/12(月) 06:39:57.23
なんか、自分自身が勘違いしていて痛い奴だってことに気付いてない
蘊蓄野郎が一人でずっと頑張ってるなぁ
0482デフォルトの名無しさん2012/03/12(月) 19:53:12.43
普通に考えて、変数名をコピペしてたらtypoなんて起きないだろ...
つーかtypoが問題になるって何十年前の開発環境だよ...
0483デフォルトの名無しさん2012/03/12(月) 20:26:55.78
入力補完じゃなくてコピペって・・・・・
それこそ何十年前だよって話だなw

程度が知れてきたぜ
0484デフォルトの名無しさん2012/03/12(月) 20:44:07.58
うはっ、入力補完機能のあるエディタ使ってて、変数名のtypoがプログラム制作上の重要課題ってw
あれだな、うちのメモ帳の方が、あんたの開発環境よりも上って事だなw
この10数年の間、変数名のtypoなんて起きた事ねぇもんw
0485デフォルトの名無しさん2012/03/12(月) 20:56:31.62
この子、相手が一人だと思ってるのかな?
俺は変数名のtypoがプログラム制作上の重要課題なんて一言も言ってないんだが
必死になりすぎて周りの現実が見えてないんだね

大勢に嘲笑されているという現実が・・・・・
0486デフォルトの名無しさん2012/03/12(月) 21:10:17.75
うはっw
とうとう、「俺はtypoなんて言ってねぇ」とか言い出しちゃいましたよ
このお方w
0488デフォルトの名無しさん2012/03/12(月) 21:20:02.41
そもそもプロシージャとグローバルで名前重複なんて、可読性が低くて
絶対保守したくない類のソース。機械が読めても人が読みにくい。
Option Explicit以前にその時点で根本的に間違っていると思う。

それ以前に最近は「グローバル変数自体原則禁止、明示的に引数で渡すべき」
とか言われる事も多くて、高度情報処理試験の午前問題にもあったり。
ま、あくまで「原則」なんでグローバル変数を使わざるを得ない場合もあるが
独立性が低下するので再利用性が低下するのは避けられない。

つまりはスコープの違いをOption Explicitでどうこうして再利用性を上げようとする
のは方針自体が間違っている。

引数のオーバーヘッドに関しても昔はともかく今はPCの性能が十分高いので
高速策よりも安全策というか保守性を取る方が多いし。

VBSの場合は短い事もあり汎用的に使うfsoとかはグローバルな事も多いけど。
0489デフォルトの名無しさん2012/03/12(月) 22:18:26.28
>>488
馬鹿か
なんの為のスコープ分けだ
もう一度、構造化プログラムについて習いなおせ

互いのスコープが引数と戻り値のみでのみデータの受け渡しをする限り、互いの内部の処理は気にする必要は無いの

そして、VBScriptの場合は、グローバルスコープへ直接コーディングをする可能性があるから、Option Explicitによるコードの再利用性の保障が必要なんだっつうの
0492デフォルトの名無しさん2012/03/13(火) 09:37:52.97
>>491
まず共通部分
<job id="main">
<script language="VBScript" src="test.vbs" />
<script language="VBScript">
fso = "Hello"
MsgBox Test() & vbCrlf & fso
</script>
</job>
0493デフォルトの名無しさん2012/03/13(火) 09:39:40.86
次に、test.vbs部分Option Explicit無しバージョン
Function Test()
Set fso = CreateObject("Scripting.FileSystemObject")
Set File = fso.OpenTextFile("test.vbs")
Test = File.ReadAll
Set fso = Nothing
End Function
0494デフォルトの名無しさん2012/03/13(火) 09:43:32.86
こいつも、test.vbsでOption Explicit有りバージョン
Option Explicit
Function Test()
Dim fso, File
Set fso = CreateObject("Scripting.FileSystemObject")
Set File = fso.OpenTextFile("test.vbs")
Test = File.ReadAll
Set fso = Nothing
End Function
0498デフォルトの名無しさん2012/03/13(火) 22:25:08.04
>>493
>Option Explicit無しバージョン
Option ExplicitよりもローカルのDimが無い事の方が影響大でしょ

> ローカルDim無しバージョン
とした方がよいのでは?

別にOption Explicitによりローカル宣言とグローバル宣言の優先度が
変わったとかじゃないし

「Option Explicit」の有無「だけ」による挙動の違いを説明できないと
0499デフォルトの名無しさん2012/03/13(火) 22:29:53.10
Option Explicit
Function Test()
Dim File
Set fso = CreateObject("Scripting.FileSystemObject")
Set File = fso.OpenTextFile("test.vbs")
Test = File.ReadAll
Set fso = Nothing
End Function

そんだけ言うなら、このパターンでも試してみたらw
0500デフォルトの名無しさん2012/03/14(水) 19:42:16.87
やれやれ、「Option Explicit」の使い方をようやく理解したか?
まあ、なんで、そのエラーが出るのか理解出来て無いってほうが濃厚だなw
なんせ、VBScriptの変数に内部型があるとか言っちゃうぐらいだからなぁw
0501デフォルトの名無しさん2012/03/14(水) 19:45:33.07
自身が勘違いしていた事には気付いたが、
最初に強気で蘊蓄かましてしまった手前、
引くに引けなくなって強がりを続ける465萌え
0502デフォルトの名無しさん2012/03/14(水) 20:28:49.55
>>501
ぷぷぷっ
もう、技術的な話を出来ずに口先だけかよw
「俺は、MSX-BASIC1からBASICを使ってるんだ」って言う割には大した事は無いなぁ

間違っているなら指摘しなw
0503デフォルトの名無しさん2012/03/14(水) 20:47:40.14
ところで、既に>>499を提示してからでも丸一日が過ぎようとしているのに、今更、ファイルをクローズしてないとか言わないよねw
0504デフォルトの名無しさん2012/03/14(水) 21:55:18.55
おーい、沢山いるはずの>>501よーい
技術的な指摘まだかーい
最低限、>>498みたいな、間抜けな指摘はすんなよーw
0505デフォルトの名無しさん2012/03/14(水) 23:04:31.90
もうそろそろ飽きてきた...
MSDNからのコピペ
−−−
Option Explicit ステートメント
スクリプト内のすべての変数に対して、明示的な宣言を強制します。

解説
Option Explicit ステートメントを使用する場合は、スクリプト内の他のステートメントより前に記述する必要があります。
Option Explicit ステートメントを記述した場合、変数は、Dim、Private、Public、ReDim などの各ステートメントで明示的に宣言する必要があります。宣言されていない変数名を使うと、エラーが発生します。
−−−
以上

ソースコードに、Option Explicitが記述されていると、変数の宣言は明示的に行わなければならない
つまり、>>493は、>>494に変更しなければエラーが出て実行できない

では、>>499で、変数fsoは明示的に宣言されていないのになぜOption Explicitはエラーを出さないのか
それは、グローバル変数としてOption Explicitの効果範囲外で暗黙的に宣言されているから
つまり、ローカル変数とグローバル変数が交じり合い、スコープが明確ではなくなって全ての変数が宣言済みなのでOption Explicitはエラーを出せなかった

この結果の意味するところは、Option Explicitは、スコープがあやふやな場合には、typoを検出する事は出来ない(>>499)
逆に、Option Explicitを宣言した状態で、スコープを明確にしデバッグすれば、プロシージャの独立性を保障する事ができる(>>494)

あれだ、>>498は目の付け所は良かったが、リファレンスぐらいは読んだほうが良いってこった
0508デフォルトの名無しさん2012/03/17(土) 10:04:12.29
>>462
変数shellがObject型w
間違いを指摘されたら、>>466で内部文字型と内部数値型では扱いが違うとかw

つまりあれかw
MsgBox "123"+4+"5"
はエラーなんだw
なんかカッケーなw
0509デフォルトの名無しさん2012/03/17(土) 14:33:29.53
こんなとこまで来ちゃうお前らの為じゃねーよ
適当にやったけど動いたからいーや的思考な
困ったくんや困ったチャンの為に書いてんだよOption Explicit
詳しい人が必ずメンテするとは限らないのがVB系の怖いとこで
0511デフォルトの名無しさん2012/06/10(日) 17:05:31.39
0512デフォルトの名無しさん2012/07/16(月) 00:40:56.77
今までUWSC(フリーソフト)を使っていましたが、最近、VBScriptを知り、同じような処理ができることを知りました。

VBScriptを勉強中です。
分からないことがあればよろしくね。
0513デフォルトの名無しさん2012/07/16(月) 01:26:02.69
だれか3000円上げるから
24平均律の鍵盤プログラム作ってくれ〜(T_T)
0515デフォルトの名無しさん2012/07/16(月) 09:32:19.09
コンパイルしたプログラムなら3'000円でいいけど
ソース(ソース丸見えのVBS…というか鍵盤必要ならHTA)で欲しいなら150'000円
0517デフォルトの名無しさん2012/07/16(月) 10:50:19.70
白鍵とか黒鍵は
ないようなもんなんで
ボタンがズラリと並んでるだけでOKです
Eの位置だけボタンにEって書いてくれたらOKです
0519デフォルトの名無しさん2012/07/16(月) 19:47:57.27
リアルタイムで音を確認しないと何かね……確信持てないっていうか
シーケンスでやってその日は納得いっても
次の日に聞いたらアレ?って事ばかりなんで
0521デフォルトの名無しさん2012/08/27(月) 21:54:39.96
知恵袋にも登録したのですが、どうしても知りたいのでご教示お願い致します。
マクロを実行して、他のファイルのマクロまで編集できますか。
いろいろグーグルで調べたのですが、どうもヒットせず実行できそうにありません。
作成したいファイルは追記します。
1.エクセルファイル内にボタンフォームを作り(このファイルを便宜上、ファイル@とする)、ボタンフォームを押すと新しいエクセルファイルが作成される(このファイルを便宜上、ファイルAとする)。
2.次にファイル@から1.とは別のボタンフォームを押すと、「挿入>図>ファイルから」と同じ要領で画像を選択でき、Aファイル内のSheet1・セルA1に画像が貼り付けられる。
3.最後にファイル@に設置した1.と2.とは別のボタンフォームを押すと、ファイルAのVBScriptにスクリプトが書き込まれる(出来ればVBScriptをパスワード保護出来れば幸いです)。
という流れをファイル@のVBScriptなり、モジュール等を使って行いたいのです。
3にあるマクロは、上書き保存ができなくなるマクロのため、1の段階で保存ができると幸いです。
また、複数ファイルを処理する必要が有るため、同一ファイル名で保存しない仕様を求めています。
0522デフォルトの名無しさん2012/08/27(月) 22:31:18.85
全部出来ますよ
但し、マルチな上にスレ違いなので、具体的な説明は伏せますが
0523デフォルトの名無しさん2012/08/29(水) 19:05:51.32
VB・・・・・Sなのか?
0524デフォルトの名無しさん2012/08/30(木) 22:38:44.70
ExcelでVBS……

ワークシートにボタンに見せかけたオブジェクトを貼り、
押すとハイパーリンクで外部のVBScriptを実行する
とかならやった事がある
0525デフォルトの名無しさん2012/08/30(木) 23:09:40.69
ExcelからVBSを呼ぶだけのパターンか

俺は逆にVBSからExcel.Applicationを使って
Excelブックを操作するってことを結構やるな

「ExcelでVBS」ではなく、「Excel"を"VBSで操作」ってこった

ExcelからVBSを呼ぶくらいなら、そのVBSを標準モジュールなどに取り込んで
わざわざ外部のVBS呼ばずに内部実行するし
0526デフォルトの名無しさん2012/08/31(金) 10:20:07.61
ってか、VBSならふつうそうでしょ
0528デフォルトの名無しさん2012/09/01(土) 22:37:19.11
一応、マクロを無効にしたExcelからでも実行できるというメリットはあるけど
0529デフォルトの名無しさん2012/09/02(日) 18:43:55.29
officeのマクロはjsに移行するよ
おまえらの書いたVBSなんて保守したくないし、頼むからせめてjsで書いてくれ
0530デフォルトの名無しさん2012/09/02(日) 19:19:43.98
webで使う場合はjsに軍配挙がるけど
wshやテキストエディタのマクロとかはvbsがいいな

つーかvbsの前に、jsしか使えないバカを淘汰して欲しい
vbsしか使えないバカも同じくね
0532デフォルトの名無しさん2012/09/03(月) 19:06:20.84
VBSにはプログラム言語としての長所は微塵もないよ
既に言語からもユーザーからも加齢臭とか腐敗臭とか漂わせている
0533デフォルトの名無しさん2012/09/03(月) 19:20:10.07
>>532
Win32 APIの呼び出しができればいんだけどね
もう絶望的かな
0535デフォルトの名無しさん2012/09/23(日) 11:02:10.28
SFC miniかExcel経由で行けるけどキモいよな
しかし生のVBSからwin32api呼べたら怖くてエロサイト行けなくなる
0536デフォルトの名無しさん2012/10/13(土) 09:50:15.66
いまメモ帳で頑張ってるんだけど、
("text").Value = rnd
このtextに乱数の直前に文章を入れたいんだけどどうすればいい?
必要なら全文載せる
0538デフォルトの名無しさん2012/10/13(土) 10:43:46.18
乱数の直前に文章を入れる?

単純に & で連結したらいいと思うが…

msgbox "文章" & rnd
05395372012/10/13(土) 10:55:59.62
>このtextに乱数の直前に文章を入れたいんだけどどうすればいい?
乱数の直前に、このtextに文章を入れたいんだけどどうすればいい?
0540デフォルトの名無しさん2012/10/13(土) 11:01:38.99
ありがとうございます
0541デフォルトの名無しさん2012/10/21(日) 07:59:37.35
CreateObjectのIEでブラウザの操作を自動化するスクリプト作っててサイトへのログインは自動化できたんだけど、
その後のページにあるボタンを押す動作ができなくて行き詰まってる…

流れとしては
1. ID、PWを入力してログインボタンを押す
2. TABキー15回+ENTERでボタンを押す
   (ページが切り替わる)
3. TABキー15回+ENTERでボタンを押す ←ここからうんともすんとも言わない

1、2は処理に成功してるんだけど、3が何も起こらない(エラーも表示されない)
3が動作しない原因はなんなんだぜ?
0543デフォルトの名無しさん2012/10/21(日) 09:09:12.73
'1.ログイン
.document.all.Item("userId").Value = MemID
.document.all.Item("passWd").Value = UsrPass
.document.all.Item("btnLogin").Click
While .Busy Or .ReadyState <> 4
Wend
'2.切断
WshShell.SendKeys("{TAB 15}")
WshShell.SendKeys("{ENTER}")
While .Busy Or .ReadyState <> 4
Wend
'3.接続
WshShell.SendKeys("{TAB 15}")
WshShell.SendKeys("{ENTER}")
While .Busy Or .ReadyState <> 4
Wend

>>542
これでいいかな?
なぜか「3.接続」を実行できないんよ(´・ω・`)
0545デフォルトの名無しさん2012/10/21(日) 10:04:09.14
>>544
ありがとう!できたよ!
↓ReadyStateを3とSleep 1000を組み合わせたらなぜかいけたww

'ログイン
.document.all.Item("userId").Value = MemID
.document.all.Item("passWd").Value = UsrPass
.document.all.Item("btnLogin").Click
While .Busy Or .ReadyState <> 4
Wend
'切断
WshShell.SendKeys("{TAB 15}")
WshShell.SendKeys("{ENTER}")
While .Busy Or .ReadyState <> 3
Wend
'接続
WScript.Sleep 1000
WshShell.SendKeys("{TAB 15}")
WshShell.SendKeys("{ENTER}")
While .Busy Or .ReadyState <> 3
Wend
0546デフォルトの名無しさん2013/01/05(土) 10:19:06.02
Explorerを起動して任意のフォルダ(ドライブ)を指定で起動する。
その際、n階層下のフォルダまで自動的に展開した状態で開いて欲しい。

通常    → これを →  1階層指定で展開済み起動
d:[+]フォルダA       d:[-]フォルダA
 [+]フォルダB         [+]子フォルダ1    ←孫フォルダ(2階層下は存在してても展開しない)
 [+]フォルダC           子フォルダ1
    :            [-]フォルダB
                    :

ドライブルートから1階層下までの固定展開する機能は必須です。
可能ならば起点がドライブルート固定では無くて、パス指定で起点となるフォルダの指定と
自動展開する階層数が1階層で無くソースで指定する箇所があれば出来れば最高に嬉しいです。
0547デフォルトの名無しさん2013/01/05(土) 11:27:15.02
ここは作ってくれって頼む場ではなく
こんな便利なの作ったけどどうよ?って作ったモノを晒す場だぞ

まあ>>546程度のことは多機能ファイラならコマンドやマクロで出来るので
完成したとしても晒してくれなくて結構だがな
0548デフォルトの名無しさん2013/05/04(土) 00:22:48.17
>>547 は?スレタイ読め
0549デフォルトの名無しさん2013/05/06(月) 18:32:10.90
アンカーがズレてるぞ

それともスレの趣旨を理解してないおバカさんかな?
0550デフォルトの名無しさん2013/05/31(金) 02:33:30.04
>>547
エクスプローラでやるから意義があるんだろ
ってか4ヶ月もたつのに反応してくんなや
正確悪すぎてきもい
0551デフォルトの名無しさん2013/05/31(金) 19:26:22.45
えっ?ってなったった
0552デフォルトの名無しさん2013/06/14(金) 11:40:12.42
> 4ヶ月もたつのに反応して
るのは>>548だなw
0553桃白白 ◆9Jro6YFwm650 2013/06/23(日) 00:49:56.40
    |┃三     ∩___∩
    |┃      | ノ      ヽ
    |┃ ≡   /  ●   ● |  <あどうも、こんばんわー!
____.|ミ\___|    ( _●_)  ミ
    |┃=___    |∪|   \
    |┃ ≡   )   ヽノ   人 \ ガラッ
0554デフォルトの名無しさん2013/06/23(日) 10:09:22.10
会社で入力するのめんどいからいろいろVBSで自動化してる。
会社の規則的にやばいので、今はやってないけど自動的にWindowsにログインするようにしてた。
0556デフォルトの名無しさん2013/06/26(水) 21:08:23.54
CSVファイルをドラッグ&ドロップで読み込んで、
2行目の先頭3文字を抽出してください
0558デフォルトの名無しさん2013/07/02(火) NY:AN:NY.AN
COM使わなきゃ大したことは出来ないが
COM使えば大抵のことは何でも出来る

まあ組み込みCOMだけじゃまだ貧弱だが
COMは優秀なものが腐るほどあるし、自分で作ることも出来る
COM使えばGUIだって作れるし、
WinAPIだってNET Frameworkの全てだって使える
0560デフォルトの名無しさん2013/07/04(木) NY:AN:NY.AN
書籍なんか無くても、ネット上の情報だけで事足りるけどな

余程頭が悪くなければ・・・
0561デフォルトの名無しさん2013/07/05(金) NY:AN:NY.AN
暇がある人は時間かけてネットの情報探せばいいさ
その暇を惜しむから、まとめて書籍にしてくれと思うわけで
0562デフォルトの名無しさん2013/07/05(金) NY:AN:NY.AN
暇ってw
まとめてWMIの情報載ってるページに行き着くのに10秒とかからんだろ?
あとはサイト内検索とページ内検索を駆使すれば、書籍の目次からページを辿るより早いし

それすらも出来ないようなレベルだと、WMIを使いこなすのは無理じゃね?
0563デフォルトの名無しさん2013/07/05(金) NY:AN:NY.AN
まとめてって言葉の真意が伝わってないな
情報を集める事だけがまとめる事じゃないぞ
0565桃白白 ◆9Jro6YFwm650 2013/07/05(金) NY:AN:NY.AN
戦士は胸に一つのバブルソートを抱く
桃白白ブレイブストーリーである。

順番を維持したまま、重複行を除去しちゃう。
https://friendpaste.com/4hvzoL2l8p8kQjoyQiUpUt
0566デフォルトの名無しさん2013/07/06(土) NY:AN:NY.AN
>>565
このサイトのセキュリティ証明書には問題がありますww
って表示されるの。白桃おじさん、他のサイトがいいよ。
0567桃白白 ◆9Jro6YFwm650 2013/07/06(土) NY:AN:NY.AN
>>566
friendpasteを例外に追加しちゃったらいいよ。たぶんブラウザの設定で
できるはずだから。見た?桃白白ブレイブストーリーのコード見た?
感想とかある?とてもすてきなコードですねとかそういう感想ある?
あとこれ桃白白。
http://livedoor.blogimg.jp/robosoku/imgs/d/f/df309cbc.jpg
0570デフォルトの名無しさん2013/07/06(土) NY:AN:NY.AN
>>565と、Scripting.Dictionaryを使った方法(コードは十数行)で
10万行の重複削除の処理時間を比べてみた

>>565         1905.686秒
Scripting.Dictionary    0.178秒

これが、初期状態では入ってないCOMを使った方法と比べて遅いってだけなら
いくら遅くても「新たにCOMをインストールせずに実行できる」って点がメリットになるけど
初期状態で入っていて「新たにCOMをインストールせずに実行できる」Scripting.Dictionaryを
使った方法より遅いのでは、何のメリットも無い

Cとかのまともな言語なら、ライブラリやコンポーネントを使った方法より劣っていても、アルゴリズムの
勉強や研究用として多少は価値あるかもだが、VBSではそういう方向の価値も無いし、完全にゴミ

VBS覚えたてでコード書くのが楽しくて仕方ない時期の初心者さんに言っても無駄かもだが
もう少し適材適所ってものを考えられるようになった方がいいかもな
0571桃白白 ◆9Jro6YFwm650 2013/07/06(土) NY:AN:NY.AN
>>570

            ,、-'" ,、-';;;;;;;;;;;;;;;;;;;;;;;`''‐-、       ゙、、
          ,、-' ,、-'";;;;;;;;;ノ;;;;''-、;;;;;;;;;;;;;;;;;;;`''‐-、__ノ;;;\
        / ,、-'"::;;;;;;,、-'";;;;;;;;;;;;;;;`''- 、_;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;/ヽ;;;;\
.        f_/;;;;;;;、-ニ';;;;;;、-‐ ''''""""''''‐-二、''‐-、___,ノ、 \;;;ヽ
.        |;;;;;;;;,、ニ'";;、-'"           `"ニ、;;;;;;;;;;;;;;\/;\;;',
.        |,-,ニ '::/, -─          .,、-─-゙、-'、;;;;;;;;;;;、-、ノ;;;;)!    ええっ!?
.        Y::::::::/ .,、 -─- 、      ///:::::::::\ ';;;;;;/;;;;;;;;ヽノ
        |::::::;' /://::::::::::ヽ '"""'' .、|:::l /::::::::::::::::ト|;;;;|;;;;;;;O;;;;';ヽ
        ヽ:::|. |::l l::::::::::/,,   .,-、.\:::::::::::::::::::ノ |;;;|;;;;;;;;;;;;;;;;';;;|
         |::::| ̄ヾ;;;;;;;;;;;;/ /_|   ヽJ  ゙、── '"  |;;;|;;;;;;;;;;;;;/;;;;;フ__
        /|::::/.   ,、_,、ヽ,   ___ノ~"ヽ'l    |:;;゙;;;;;0;;;:';;- '-"
        | |::;'.    l;;;;;;;;;;;-'""~__,,,`ヽ;;;;;;ノ    |::;;;;;ヾ=;/''"
        V:::|      ,、-,'二──---、)      ./:;;;;;;;;;;;;/-────
        `|:|!     ,、'ヽ'"   _          _/:;;;;;;;;;;;;/   ____
        |:|;',     `"    ::::::       ,、-'"/:;;;;;;;;;/-─ '"
        |:|;;\              ,、-'"  /二フ
         |:|;;;;;;;`' .、        _,、-‐'"-'",、-'" ̄
      .  |:|;;;;;;;;;;;;/ >.、  ,、-‐'",、-‐'" /_,,,、---──-- 、,,__
        |:|;;;;;;;;;;/ /  -`'" ,、-'   ./-'"            `"'-、
        ||;;;;;;;;;/ .ヽ 、__,、-‐'" ,  _,、-'"
0573桃白白 ◆9Jro6YFwm650 2013/07/06(土) NY:AN:NY.AN
>>570
     ____
    / ⌒  ⌒  \
  ./( ―) ( ●)  \
  /::⌒(_人_)⌒:::::  |
  |    ー       .|
  \          /
0575デフォルトの名無しさん2013/07/07(日) NY:AN:NY.AN
>>569
丁寧にありがとう!
直接ではなくわざわざインデックスを用いるメリットがわからないや!
0578デフォルトの名無しさん2013/07/14(日) NY:AN:NY.AN
WMIってADの鯖側で動かさないと他のクライアントの情報って取って来れないよね?
0581デフォルトの名無しさん2013/10/04(金) 01:20:43.19
テキストファイルから最終行を読み出して表示したら文字化けしてやがる
ADODB.Streamなんて使ったことねーよ…
このページの最後のやつと
http://netlog.jpn.org/r271-635/2010/06/vbscript_csv_lastline.html
この文字コード変換
http://blog.goo.ne.jp/fukuriko/e/a40eb03d587d572f1389b24d17c60526
これくっつければできるんだろうけど、もうわかんねぇ…久々にやろうとすると無理だ
0582桃白白 ◆9Jro6YFwm650 2013/12/04(水) 19:18:04.29
      /゙ミヽ、,,___,,/゙ヽ
      i ノ   川 `ヽ'
      / ` ・  . ・ i、
     彡,   ミ(_,人_)彡ミ   にゃーん
 ∩,  / ヽ、,      ノ
 丶ニ|    '"''''''''"´ ノ
    ∪⌒∪" ̄ ̄∪
0588デフォルトの名無しさん2013/12/28(土) 15:44:49.45
どっかから集めたコードを切り貼りして大文字化しただけのものなんて
価値無しなので貼らなくていいよ
0589デフォルトの名無しさん2013/12/28(土) 20:15:22.96
'# Baidu IMEがインストールされているかチェックして、インストールされていれば、アンインストーラーを起動するバッチを作ったよ
'# メモ帳に以下の内容を貼り付けて「baidu_check.vbs」というファイル名で保存。
'# 「baidu_check.vbs」をダブルクリックして【Baidu IME】がインストールされているかチェック
0590デフォルトの名無しさん2013/12/28(土) 20:16:46.43
Option Explicit
'#--------------------------------------
' 管理者になーる
Dim WMI, OS, Value, Shell
do while WScript.Arguments.Count = 0 and WScript.Version >= 5.7
Set WMI = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")
Set OS = WMI.ExecQuery("SELECT *FROM Win32_OperatingSystem")
For Each Value in OS
if left(Value.Version, 3) < 6.0 then exit do
Next

Set Shell = CreateObject("Shell.Application")
Shell.ShellExecute "wscript.exe", """" & WScript.ScriptFullName & """ uac", "", "runas"
WScript.Quit
loop
'#--------------------------------------
Dim objShell, ret
Set objShell = CreateObject("Wscript.shell")
Dim winName: winName = "【Baidu IME】インストールチェック"
On Error Resume Next
If IsNull(objShell.RegRead("HKEY_CURRENT_USER\SOFTWARE\Baidu\")) Then
ret = objShell.Popup("このパソコンには【Baidu IME】はインストールされていません。", , winName, vbOKOnly Or vbSystemModal)
Else
On Error GoTo 0
ret = objShell.Popup("このパソコンには【Baidu IME】がインストールされています。" & vbCrLf & _
"【Baidu IME】をアンインストールしますか?" & vbCrLf & _
"(【猫耳】に泣きつかれても断固アンインストール!!)", , winName, vbYesNo Or vbSystemModal)
Select Case ret
case 6 objShell.Exec(objShell.RegRead("HKLM\Software\Microsoft\Windows\CurrentVersion\Uninstall\Baidu IME\UninstallString"))
case else WScript.Quit
End Select
End If
0591デフォルトの名無しさん2013/12/30(月) 10:44:04.20
>>589
>>590

Baidu IMEが「入力情報送信しない」でもサーバーに情報を集めていた件の対応か。
すばらしい。
あれって、アン・インストールが普通の手順ではできないって聞いたが。
0593桃白白 ◆9Jro6YFwm650 2013/12/30(月) 19:16:53.07
  ∠Y"´゙フ
  ;' ゝ‘,,ェ) あけおめー
 ; '(,,゚∀゚)
 ゙;(ノ   ';)
 ヾ,;'   ';
  ''∪''∪
0595デフォルトの名無しさん2014/02/07(金) 16:22:51.04
このスレも桃白白の遊び場みたいだから有効利用しようね
0596デフォルトの名無しさん2014/02/08(土) 19:19:41.23
このスレも桃白白の遊び場みたいだから有効利用しようね
0597デフォルトの名無しさん2014/02/09(日) 02:22:56.15
でも桃白白は有効なコード書けないけどね

オナニーで自分ではスゴいつもりらしいコードは何度も晒してるけど
バグだらけか、皆当たり前に使ってる手法かのどちらかで
有効利用できるようなものを書いた試しがない

まあ超初心者の質問に対しては、有効な回答をしたこともあったけど
ちょっと質問のレベルが上がると、まったく答えられないし
0598デフォルトの名無しさん2014/03/08(土) 17:13:17.17
どんだけ桃白白に劣等感感じてんだよwさらしあげw
0599デフォルトの名無しさん2014/03/08(土) 17:23:56.33
NAOの気まぐれ独り言:他人を下げる
http://adviser70.ti-da.net/e3259555.html

世の中には、自分の自信やプライド、存在価値や存在意義を保つために“他人を下げる”ことをする人がいます。
(他人を下げるとは、他人をバカにしたり、見下したり、軽視することです。)
コレが良い悪いという話は置いといて、この“他人を下げる”行為について今日は考えてみました。
僕は“他人を下げる”ことは、人間の“自己防衛本能”の一種だと思っています。
人間はとても繊細な生き物ですからね。
特に、自信やプライドは傷つきやすく壊れやすいものですから、皆、それを必死に守ろうとします。
(ただし、本物の自信やプライドは簡単には傷つきませんし、壊れません。)
また、存在価値や存在意義は人によって違い、何が正解という明確な“答え”がなく、自分を保つのには自分自身の強い意志や独自の価値観が必要となります。
でも、強い意志や独自の価値観なんて、そう簡単に得れるものではありません。
だから、“他人を下げる”んです。
だから、自分が傷つかないように、また自分を保つために“他人を下げる”んですよ。
0600デフォルトの名無しさん2014/03/08(土) 17:28:12.18
Twitter / jack69xz: 他人を下げることしか自分を上げれないならもう同列以下でいいじ ...
https://twitter.com/jack69xz/status/296338741096747008

他人を下げることしか自分を上げれないならもう同列以下でいいじゃん〜つまんねえ奴だな〜
0601デフォルトの名無しさん2014/03/08(土) 17:31:52.18
否定しない生き方 - 院長ブログ「幸せってなぁに?」
http://blog.goo.ne.jp/minamiaoyama_dental/e/64aaa4363fd92fb87726a6e508ec3b4e

人と比べる生き方をすれば、自分が上がるか、相手が下がるかのどちらかになります。

自分が上がるのは大変ですが、他人を下げる事は簡単です。

こういう心理が働いて、無意識で相手の足を引っ張ったり、相手を否定する発言をしてしまうのではないでしょうか?

長い時間かけて身についた悪い癖は、同じぐらいそれを取り除くのに時間がかかります。
0602デフォルトの名無しさん2014/05/24(土) 23:31:01.94ID:uhxr0PPh
拾いモノ。通常はSendToフォルダ経由またはD&Dでファイルを指定する

Option Explicit
Dim WS,FSO,ie,Ags,Ag0,I
Set WS = CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set ie = CreateObject("InternetExplorer.Application")
Set Ags = WScript.Arguments
Ag0 = ""
If Ags.Count > 0 Then
For I = 0 to Ags.Count - 1
Ag0 = Ag0 & Chr(34) & FSO.GetAbsolutePathName(Ags(I)) & Chr(34) & vbCrLf
Next
Else
Ag0 = Chr(34) & FSO.GetAbsolutePathName(".") & Chr(34) & vbCrLf
End If
ie.Navigate "about:blank"
Do Until (ie.Busy = False) or (ie.Document.ReadyState = "complete")
WScript.Sleep 10
Loop
ie.Document.ParentWindow.ClipboardData.ClearData
ie.Document.ParentWindow.ClipboardData.SetData "text", Ag0
WScript.Echo(Ag0 & vbCrLf & "以上の文字列をクリップボードへ格納しました。")
Set Ags = Nothing
Set ie = Nothing
Set FSO = Nothing
Set WS = Nothing
WScript.Quit()
0603デフォルトの名無しさん2014/06/14(土) 10:19:12.75ID:3GqQ9q9L
>>602
> 拾いモノ。通常はSendToフォルダ経由またはD&Dでファイルを指定する

しばらく、VBSコードから遠ざかっていたけど、

これって、単に、SendToやDDで指定したファイルの.GetAbsolutePathName()
をクリップボードに格納するだけ???

単にそれだけ???
それだけで、こんなに長く直感的でないコードとなるのが VBS なのか?
0604デフォルトの名無しさん2014/06/14(土) 11:23:29.55ID:0SKI+ryl
もともとVBSにはクリップボード操作機能は無いからね

たかが
> それだけで、こんなに長く直感的でないコードとなるのが VBS
なのではなく、
どんな言語でもサポートされていないことをなんとかして実現しようとすれば
直感的とは言えないコードになるのは仕方のないこと

逆に言えば、コードが長く複雑になることを許容すれば
サポート外の機能さえ実現方法があるのがVBS

まぁ、直感的に使える機能だけを使ったコードしか書いたことの無い人には
理解できない世界かも知れないが
0605デフォルトの名無しさん2014/06/14(土) 13:36:12.22ID:1ymPxb6J
うろ覚えだが>>602は昔のWindows95やWindowsNT4.0でも正常に動く命令しか使われてなかった気がする
(少なくとも俺のWindows7+IE11では正常に動いたし、//uオプション付で起動すればUnicodeファイル名も問題なく扱える)
それ以外の方法(例えば ttp://www.vector.co.jp/soft/win95/util/se098868.html のようなフリーソフト)で
同じ事をやろうとすると、どうしてもOS毎の互換性をもっと気にする必要があるから心情的に手を出しづらいかも知れない
0606Westrip ◆cFyu7DKD9w 2014/11/25(火) 15:39:40.09ID:+Ehd3ZDh
「コンピュータ連続運用時間計測」
(常駐型ではない。ローカルグループポリシーエディターおよびイベントビューアを使えるPC環境でないと無意味)
以下のテキストファイルを適当な名前で保存し、拡張子を.txt→.vbsに変えると使える
使い方や注意点などはテキスト内に書いてあるので、必ず読む事
ttp://alp.jpn.org/up/s/21848.txt (このアップローダは1年4〜5ヶ月くらい持つようだ)
0607デフォルトの名無しさん2014/12/19(金) 12:40:35.66ID:dKKXcASW
Explzh(フリーのアーカイバ)とExplzh用FTPクライアントアドオンの両方をインストール済の環境において
FTP接続ダイアログ表示を自動化するスクリプト
元々どっかのブログで拾ったものに手を加えて、Explzhのインストール先をレジストリから取得する方式に変えた
そのためインストール先に関係なく、そのまま使える

Dim WS,strPath,strExe
Set WS=WScript.CreateObject("WScript.Shell")
strPath = WS.RegRead("HKEY_CURRENT_USER\Software\Pon\Explzh\Folders\ExplzhDir")
strExe = "EXPLZH.EXE"
WS.Run Chr(34) & strPath & strExe & Chr(34)
WScript.Sleep 500
WS.AppActivate strExe
WScript.Sleep 500
WS.SendKeys "^l"
Set WS=Nothing
WScript.Quit()
0609デフォルトの名無しさん2014/12/20(土) 09:05:52.58ID:m+ssCFWe
>>608
このスレに来てまでExplzhの作者をからかうとは何て奴だ
0610デフォルトの名無しさん2014/12/25(木) 03:24:30.28ID:lscuhgwk
' 0.1秒単位で好きな時間ウェイトをかけるスクリプト
Option Explicit
Dim WshShell, lngSec, corAg
Set WshShell = CreateObject("WScript.Shell")
Set corAg = WScript.Arguments
'
lngSec = 10 ' 引数省略時は待ち時間を1秒(=10×100ミリ秒)とする
If corAg.Count > 0 Then lngSec = corAg(0)
lngSec = CLng(Trim(lngSec)) * 100
WScript.Sleep lngSec
'
Set WshShell = Nothing
Set corAg = Nothing
WScript.Quit()
0612デフォルトの名無しさん2015/01/04(日) 15:44:01.03ID:k/mKj4Vo
DOSコマンドで実行できるんでしょ
普通は1秒単位でしかできないから
0613デフォルトの名無しさん2015/01/05(月) 10:54:40.07ID:Ez8c83Yt
sleep.exeは同名フリーソフトまたは別売りリソースキット内の物を使うしかない
timeoutコマンドはVista以降のWindowsにしか搭載されてない上に、1秒単位でしか待ち時間を指定できない
>610なら古いWindows95などでも(WSHがあればの話だが)そのまま実行できたはず
0614デフォルトの名無しさん2015/01/06(火) 00:12:40.29ID:kEk+oN5g
まんどくさいなぁ・・・オレならこうする
echo wscript.sleep 3000 >temp.vbs & cscript temp.vbs

あと、1秒単位のラフなsleepなら、pingを流用するのが定石じゃなかろうか
0615デフォルトの名無しさん2015/01/19(月) 22:34:01.04ID:XQ8dBSiC
ブロックスコープをやりたいのだが
Rem Blockscope.vbs
Option Explicit
Sample
Function Sample()
Dim I
I = 10
I = Used
Msgbox Typename(I) 'Variant()
Rem I = 20 'Error at Erase I
Rem Set I = Nothing 'Error at Erase I
Erase I
End Function
Function Used()
Dim J()
Used = J
End Function

人力でErase I てのがバカっぽい
なんとかなりませんか
0616マッハ五等2015/02/26(木) 00:43:19.72ID:DaJNGHwl
【カワイイ】海外メディアが報じた美人過ぎる議員候補者 美しい国ニッポン!なぜこんなに議員候補者が可愛いのか?と話題に【KWAII】


ttps://www.youtube.com/watch?v=uI59ogPcazE
0618ピラフ2015/04/25(土) 17:57:16.27ID:KZvIujNC
>>615
ローカル変数宣言したら負けただと思うよ

Option Explicit

Sample ""

Function Sample(I)
 I = Used
 Msgbox Typename(I)
End Function

Function Used()
 Used = Array()
End Function
0619デフォルトの名無しさん2015/05/14(木) 08:23:07.90ID:TbUpA8Wq
システムの起動が、通常起動なのか、再起動なのかの識別する方法を考えています。

今のところ、ログオフからログオンまでの時間の違いにより識別する方法しか発想できませんです。
しかしこの方法は、100%確実でないので、他の方法があればヒントをお願いします。
0621デフォルトの名無しさん2015/05/18(月) 08:04:34.63ID:O0NInJV+
>>620
PCの主電源は、再起動の時、切るタイプと切らないタイプがあるようです。
なので、その判別方法は、使えないと思います。

ところで、主電源のON-OFF判別はどのような方法でしょうか?
0623デフォルトの名無しさん2015/07/25(土) 19:16:04.23ID:Q3QGe3XY
>>617
下のMsgBoxを広告の上においてみなよ
文字を増やすと、ウインドウが大きくなって、効果てきめん

MsgBox "広告バスター 広告バスター 広告バスター"
0625デフォルトの名無しさん2016/03/29(火) 08:45:45.83ID:/c8bAcK4
サッカーブッシュ日本代表日程ぷあたん(しゅっちょうまいくろ教育長交代)春文執行40代売上差額シュガーチョコ
https://www.youtube.com/watch?v=NDq1QoJY0nY宇ドナルドアナリストパワーストーンコーチングとしまえん
サッカーブッシュ日本代表日程古本屋よしたけしゅっちょうちょこしゅがー
ディーラー税務署天才開発者死亡詰みヨミドクターマイクロサービス不足
サッカーブッシュ日本代表日程ぷあたんシフト光金さかい強制バイト人権侵害問題
春分資源執行ニューヨーク低原価ぼったステーキソルトレイク福岡横浜新橋奴隷課金パチシフト強制バイト問題新潟米センター生残
コスメ24チャリティー隠れ40代生活保護プレイボーイバイトレードいたりあん接待問題
マスコミKARDローンケーオーサービス不足婚活パーティー寄付金執行原発ビジネス
FBIチャイニーズタイホテル売上事務所ガチャ決算ガチャキャンペーン(販売報道陣過激派組織向携帯最新情報提供終了
校長発言細心注意ノートン産廃エラー(著作権クレーム中国反応融資高額教育費)(中国捕鯨団体40代社員サッカーコメント
高額入学金ヤフウ新橋大学ヤフウ新橋理事長FX経費 おじや50代資産ガリバズフィード40代エリート
0626ピラフ2016/06/09(木) 22:54:40.95ID:pXMVc1f3
なんか作りたい!でも思いつかない!!
0627デフォルトの名無しさん2016/06/10(金) 14:24:55.00ID:YAUUTr4W
赤ちゃん!
0629デフォルトの名無しさん2017/07/23(日) 14:14:08.03ID:7erAQfie
'// テキストファイル名の配列を受け取って、結合した内容をクリップボードにコピーするスクリプト

Option Explicit
Dim txtArry
With CreateObject("Excel.Application")
  .DefaultFilePath = "C:\"
  txtArry = .GetOpenFilename("テキストファイル,*.txt;*.csv",,,,True)
  If IsArray(txtArry) Then
    If Ubound(txtArry) > 0 Then Call TextCopy(txtArry)
    .Quit
  Else
    WScript.Echo "キャンセルされました。"
    .Quit
  End If
End With

Sub TextCopy(txtArry)
  Dim i
  Dim txtStr
  With CreateObject("Scripting.FileSystemObject")
    For i = 1 To UBound(txtArry)
      With .OpenTextFile(txtArry(i))
        txtStr = txtStr & .ReadAll & vbCrLf
        .Close
      End With
    Next
  End With
  CreateObject("WScript.Shell").Exec("clip").StdIn.Write(txtStr)
  WScript.Echo "クリップボードにコピーしました。"
End Sub
0630デフォルトの名無しさん2017/07/23(日) 21:44:37.72ID:7erAQfie
'// .vbsファイルのアイコンにドラッグした複数ファイルのフルパスリストをクリップボードにコピーするスクリプト

Option Explicit
Dim i
Dim fileNames
With WScript
  For i = 0 to .Arguments.Count - 2
     fileNames = fileNames & .Arguments(i) & vbcrlf
  next
  fileNames = fileNames & .Arguments(i)
  CreateObject("WScript.Shell").Exec("clip").StdIn.Write(fileNames)
  .Echo "ファイルリストをコピーしました。"
End With
0631デフォルトの名無しさん2018/05/23(水) 22:04:08.08ID:Au5e7VGg
僕の知り合いの知り合いができたパソコン一台でお金持ちになれるやり方
役に立つかもしれません
グーグルで検索するといいかも『ネットで稼ぐ方法 モニアレフヌノ』

XDVRR
0632デフォルトの名無しさん2018/07/04(水) 23:59:09.15ID:gFgZc5FG
TO3
0633デフォルトの名無しさん2018/08/21(火) 12:58:35.50ID:2l7tVH8h
ショートカットを『スタートにピン留め』

フォルダを『クイック アクセスにピン留め』
Windows10なのでよろしく。
0635ピラフ ◆9Jro6YFwm650 2018/09/02(日) 16:00:04.92ID:uO0ayeCX
ピラフの環境だと
Verb.DoItを2回呼ばないと反映されなかったんだよね
なんなんだろこれ
0636デフォルトの名無しさん2018/09/05(水) 20:51:41.21ID:223DM7Lb
>>635
どうせどっかのコピペだろ。
お前のコードはいちいちスタイルが違い過ぎる。

氏ね。
0637ピラフ ◆9Jro6YFwm650 2018/09/05(水) 22:59:35.09ID:BuNkH2Jq
>>636
形に拘ってるようじゃピラフには一生勝てないよ
0638ピラフ ◆9Jro6YFwm650 2018/09/05(水) 23:11:54.62ID:BuNkH2Jq
見せてやるよ、形式に囚われないピラフの究極奥義

SUB SWAP(A, B, C)
 C = A
 A = B
 B = C
END SUB

SUB SORT(A, I, J)
 FOR I = 1 TO UBOUND(A)
  FOR J = 1 TO UBOUND(A)
   IF A(J - 1) > A(J) THEN SWAP A(J - 1), A(J), EMPTY
  NEXT
 NEXT
END SUB

SUB MAIN(A)
 A = ARRAY(5,4,3,2,1)
 SORT A, EMPTY, EMPTY
 WSCRIPT.STDOUT.WRITELINE JOIN(A, ",")
END SUB

MAIN EMPTY
0639ピラフ ◆9Jro6YFwm650 2018/09/05(水) 23:14:07.11ID:BuNkH2Jq
ローカル変数を最小にすることによってバグを最小化できる
これこそがVBScriptプログラミングの真髄
0641ピラフ ◆9Jro6YFwm650 2018/09/06(木) 07:32:32.39ID:ndioKak8
>>640
奥義についての感想をいただけたら
0642デフォルトの名無しさん2018/09/06(木) 07:36:00.23ID:ezd+bzmC
競技プログラミングですでにやってるわ
そんなのアスぺ自慢にもならない
0643ピラフ ◆9Jro6YFwm650 2018/09/06(木) 07:43:37.26ID:ndioKak8
ちょっと何言ってんのかよくわからない
0644デフォルトの名無しさん2018/09/06(木) 17:19:09.87ID:ezd+bzmC
そりゃお前だからだろ
スレの趣旨も理解できてなさそうだし

そろそろ出てきても大丈夫とか思っちゃったんだろうか
0645ピラフ ◆9Jro6YFwm650 2018/09/06(木) 22:09:39.70ID:VSCSfufl
クソレスすんなゴミ
0646デフォルトの名無しさん2018/09/06(木) 23:45:24.23ID:ezd+bzmC
お前が来なければ何の問題もないんだよ
バブルソートも満足に組めないゴミのくせにww
0647デフォルトの名無しさん2018/09/07(金) 01:27:31.43ID:mHXQx/fB
>>7-8
うまく動かないのは、
> PASS_WRD = PASS_WRD + "2 3 4 5 6 7 8 9 2 3 4 5 6 7 8 9 2 3 4 5 6 7 8 9 "

> MOJISYU_C = MsgBox("記号を使いますか?",vbYesNo)
の間に
End If
が抜けているからだ。
11年半待たせたな。
0648ピラフ ◆9Jro6YFwm650 2018/09/10(月) 22:04:51.82ID:EFF3DhTd
>>646
>>638で完全な実装を我は示した、それでも満足できぬと申すか?
どうなんだ? おん?
0649デフォルトの名無しさん2018/09/10(月) 22:10:48.32ID:ioZkQTlp
>>648
スレ違いだバカ
0650ピラフ ◆9Jro6YFwm650 2018/09/10(月) 22:16:42.81ID:EFF3DhTd
>>649
うるせーバカ
0651ピラフ ◆9Jro6YFwm650 2018/09/10(月) 22:17:47.07ID:EFF3DhTd
ピラフのバブルソートに満足できないなら何が不満かを言いなさいよ
0652デフォルトの名無しさん2018/09/10(月) 22:21:13.47ID:ioZkQTlp
こいつバカだから聞き出そうとしてんだろ
テメーの教育スレじゃねえよ
0653ピラフ ◆9Jro6YFwm650 2018/09/10(月) 22:29:04.16ID:EFF3DhTd
>>652
バブルソートも満足に組めないと言ったから
どこが不満なのかお聞きしたのに答えられないって
なんなのそれ、パーフェクトバブルソートってことでいいね?
0654ピラフ ◆9Jro6YFwm650 2018/09/10(月) 22:31:31.94ID:EFF3DhTd
言っとくけどピラフの奥義はバブルソートだけじゃないから
君たちがのんべんだらりと怠惰な生活を送ってる間に
ピラフは厳しい修行を積んで圧倒的成長を遂げたから
0655デフォルトの名無しさん2018/09/10(月) 22:33:49.16ID:ioZkQTlp
>>653-654
だからスレ違いだって言ってんだよバカ
0656ピラフ ◆9Jro6YFwm650 2018/09/10(月) 22:35:08.44ID:EFF3DhTd
>>655
だからうるせーバカ
0657デフォルトの名無しさん2018/09/10(月) 22:40:37.66ID:ioZkQTlp
>>656
てめーに来る権利なんかないんだよ
スレ違いだって言ってんだバカ
0658ピラフ ◆9Jro6YFwm650 2018/09/10(月) 22:41:27.56ID:EFF3DhTd
>>657
静かにしろよ、子どもが起きるでしょうが!!
0659ピラフ ◆9Jro6YFwm650 2018/09/10(月) 22:41:50.85ID:EFF3DhTd
子どものことを考えて欲しい
0660デフォルトの名無しさん2018/09/10(月) 22:46:49.70ID:ioZkQTlp
>>658-659
微妙に方向を変えてレスされないよう工夫してるつもりのバカ
0661ピラフ ◆9Jro6YFwm650 2018/09/10(月) 22:48:21.82ID:EFF3DhTd
>>660
子どもには寝る権利がある、君は優しい人だから子どもには手を出せない
君の負けだよ、子どもがどうなっても良いのか!
0662ピラフ ◆9Jro6YFwm650 2018/09/10(月) 22:49:32.47ID:EFF3DhTd
ところでさ黄金のハンマーがあったら何でもかんでも叩きたくなるっていう
プログラミング業界で広く知られた寓話があるけれども
ピラフは厳しい修行を積んで習得した奥義を披露したくて仕方がないよ
実験台になってくれる?
0663デフォルトの名無しさん2018/09/10(月) 22:50:39.35ID:ioZkQTlp
昔から嫌われてるようだけどこの態度を見れば当然だよな
0664ピラフ ◆9Jro6YFwm650 2018/09/10(月) 22:55:31.48ID:EFF3DhTd
>>663
でも君はボッチじゃん
ピラフもボッチじゃん
これからもボッチコンビとしてやっていこうよ
君はピラフのこと嫌いじゃないでしょ? それで十分だよ
0665デフォルトの名無しさん2018/09/10(月) 22:57:11.75ID:ioZkQTlp
>>664
てめーの雑談スレじゃねえんだよ
0666ピラフ ◆9Jro6YFwm650 2018/09/10(月) 22:59:33.34ID:EFF3DhTd
>>665
いいじゃん、どうせ誰も書き込まないし
スレが埋まったらまたスレ建てればいいし
何を気にすることがあろうか
いまどきVBScriptの話する人なんて
ピラフと変態の君くらいだよ
0667デフォルトの名無しさん2018/09/10(月) 23:01:24.61ID:ioZkQTlp
まあどうせ自分のレスを最後にして終わりにしたいだけだろ
こいつバカだから
0668ピラフ ◆9Jro6YFwm650 2018/09/10(月) 23:01:29.79ID:EFF3DhTd
ちなみにピラフの奥義は配列に関するものです
Array(Array(Array("a"), "b"), "c")
こういう入れ子になった配列を
Array("a", "b", "c")
というように平坦化します
名付けてフラッテンです
0669ピラフ ◆9Jro6YFwm650 2018/09/10(月) 23:02:34.99ID:EFF3DhTd
>>667
あまり変な綾つけてるとフラッテンを発動せざるを得ないが?
0670デフォルトの名無しさん2018/09/10(月) 23:03:11.10ID:ioZkQTlp
悔しさに耐えきれず出てきてしまったバカ>>648
0671ピラフ ◆9Jro6YFwm650 2018/09/10(月) 23:04:13.53ID:EFF3DhTd
>>670
クソレスすんなクズ
0672ピラフ ◆9Jro6YFwm650 2018/09/10(月) 23:04:30.71ID:EFF3DhTd
はい勝利
0673デフォルトの名無しさん2018/09/10(月) 23:05:44.11ID:ioZkQTlp
嫌がらせをするために生まれてきたとしか思えないようなクズだよな
0674デフォルトの名無しさん2018/09/10(月) 23:09:43.33ID:ioZkQTlp
>>634-635
汚名返上大失敗
0675ピラフ ◆9Jro6YFwm650 2018/09/11(火) 22:25:27.29ID:sKts/OLx
>>673
秘奥義フラッテンを伝授してやっても良いけど?
0676ピラフ ◆9Jro6YFwm650 2018/09/11(火) 22:25:46.20ID:sKts/OLx
教えようか? しょうがないなあもう!
0677ピラフ ◆9Jro6YFwm650 2018/09/11(火) 22:29:50.82ID:sKts/OLx
フラッテンというのはArray(Array("a"))このように
入れ子になった配列をArray("a")このように平坦化するメソッドです

VBScriptは配列を中心にプログラムを組み立てる
Array Orietedな言語と言っても過言ではありません
それくらいVBScriptにとって配列は重要なデータ構造であり
いかに配列とうまく付き合うかがプログラムの出来を大きく左右します

フラッテンを知ることでVBScriptで信頼性の高いプログラムを
作ることができるようになります
0678ピラフ ◆9Jro6YFwm650 2018/09/11(火) 22:33:42.97ID:sKts/OLx
まず、フラッテンによってどのようにデータが変換されるのかを学びましょう

Array("a") => Array("a")
もともと平坦な配列はそのままです

Array(Array("a")) => Array("a")
入れ子になった配列は平坦化されます

Array(Array(Array("a"))) => Array("a")
入れ子が入れ子になっていても平坦化されます

Array("a", Array("b", Array("c"))) => Array("a", "b", "c")
値と配列が混在して格納されていても平坦化されます

どうです? フラッテンの威力はすごいでしょう?
0680ピラフ ◆9Jro6YFwm650 2018/09/11(火) 23:13:01.51ID:sKts/OLx
>>679
フランケンは人造人間を作った博士のこと
フラッテンはピラフが厳しい修行の末に身に着けた奥義
フリテンはちんちん丸出しのこと
0681ピラフ ◆9Jro6YFwm650 2018/09/11(火) 23:14:54.59ID:sKts/OLx
おちんちん
0682デフォルトの名無しさん2018/09/11(火) 23:40:56.45ID:hTiklz9U
すごいでしょ?と言われたってなぁ…
明日検証してみるけど、もし正しいとして、これが役に立つ場面より役に立たない場面の方が多い。

配列が重要なデータ構造?
馬鹿じゃないのか?

配列はどうしようもなく仕方なく使うという以外に使ってはいけない過去のもの。
0683デフォルトの名無しさん2018/09/12(水) 17:20:41.01ID:7YUXioF8
相変わらずスレの私物化が甚だしいな
伝授とかいってるけど覚えたことを逐一報告したいだけだろwww
0687ピラフ ◆9Jro6YFwm650 2018/09/12(水) 22:28:29.59ID:+TYzcb05
>>685
アリさんはホント物知りですね
0688ピラフ ◆9Jro6YFwm650 2018/09/12(水) 22:29:24.88ID:+TYzcb05
>>683
じゃー君はピラフから教わらずに実装できるのかい?
できないだろう、自信がないだろう、じゃー素直に教わったら良いよ
0689ピラフ ◆9Jro6YFwm650 2018/09/12(水) 22:29:42.76ID:+TYzcb05
>>682
おいフラッテン、実装はまだか?
0690ピラフ ◆9Jro6YFwm650 2018/09/12(水) 22:30:49.46ID:+TYzcb05
ピラフが上流工程担当で仕様と設計を担当します
>>682は詳細設計から先をお願いします
0691デフォルトの名無しさん2018/09/12(水) 22:44:30.25ID:7YUXioF8
>>688
連投するほど動揺するくらいなら大人しく引っ込んでろよw
0692ピラフ ◆9Jro6YFwm650 2018/09/12(水) 22:50:23.36ID:+TYzcb05
>>691
クソリプすんなゴミ
0694ピラフ ◆9Jro6YFwm650 2018/09/13(木) 22:21:35.80ID:DSrr8M1w
はいみなさんこんばんわ
フラッテンプロジェクトの進捗報告会を始めます
0695ピラフ ◆9Jro6YFwm650 2018/09/13(木) 22:23:30.41ID:DSrr8M1w
仕様と設計は先日終わりました
詳細設計と実装はいま何%くらいでしょうか?
>>693ご担当の方からご説明頂いてもよろしいでしょうか?
0696ピラフ ◆9Jro6YFwm650 2018/09/13(木) 23:12:27.84ID:DSrr8M1w
うー
0698デフォルトの名無しさん2018/09/14(金) 00:46:53.14ID:XI/3JNqP
       ::                .|ミ|
       ::                .|ミ|
        ::               .|ミ|           ::::::::
         :::::     ____ |ミ|          ::::
           :: ,. -'"´      `¨ー 、       ::
   ::        /   ,,.-'"      ヽ  ヽ、    ::
   ::     ,,.-'"_  r‐'"     ,,.-'"`     ヽ、 ::
   ::   /    ヾ (    _,,.-='==-、ヽ         ヽ、
   ::   i へ___ ヽゝ=-'"/    _,,>         ヽ 
   ::   ./ /  > ='''"  ̄ ̄ ̄               ヽ 
  ::   / .<_ ノ''"       ヽ               i
  ::   /    i   人_   ノ              .l
  ::  ,'     ' ,_,,ノエエエェェ了               /
    i       じエ='='='" ',              / ::
    ',       (___,,..----U             / ::
     ヽ、         __,,.. --------------i-'"  ::
      ヽ、_   __ -_'"--''"ニニニニニニニニヽ   ::
         `¨i三彡--''"´              ヽ  ::  
          /                      ヽ ::              ┼ヽ  -|r‐、. レ |
         /                     ヽ::            d⌒) ./| _ノ  __ノ
0699ピラフ ◆9Jro6YFwm650 2018/09/14(金) 06:33:19.85ID:8u/1qVBS
クソレス君さえいなければ
0700デフォルトの名無しさん2018/09/14(金) 07:48:23.54ID:zTYotrd2
都合の悪い事には一切触れないのはいつものこととしても、
自分の立てた糞スレはもう無かったことになってんのかよww
これもしかしてVBSに限定しないでなるべく人を集めたかったのかな?
実質誰にも相手にされてないからってこっちくんなよガイジ
https://mevius.5ch.net/test/read.cgi/tech/1536155434/
0701ピラフ ◆9Jro6YFwm650 2018/09/14(金) 22:11:43.07ID:HVqp1HzB
クソレスすんなバーカ
0702デフォルトの名無しさん2018/09/14(金) 23:47:35.98ID:zTYotrd2
手抜きレスでだいぶ面倒くさそうだけどだったら引っ込んでろよガイジ
この糞スレ見れば分かるようにお前なんか誰からも必要とされていない
https://mevius.5ch.net/test/read.cgi/tech/1536155434/
0703ピラフ ◆9Jro6YFwm650 2018/09/15(土) 00:10:34.95ID:Abot0dLt
やだ!
ピラフ他人の指図受けたくない!
ピラフ自由にやりたいだけ!
お前らがどうなろうと知った事ない
0704ピラフ ◆9Jro6YFwm650 2018/09/15(土) 00:13:02.93ID:Abot0dLt
      ._
       \ヽ, ,、
        `''|/ノ
         .|
     _   |
     \`ヽ、|
      \, V
         `L,,_
         |ヽ、)  ,、
        /    ヽYノ
       /    r''ヽ、.|
      |     `ー-ヽ|ヮ
      |       `|
      |.        |
      ヽ、      |
        ヽ____ノ      
        /_ノ ' ヽ_\
      /(≡)   (≡)\
     /::::::⌒(__人__)⌒::::: \      
     |     |r┬-|     |      
     \      `ー'´     /
     /          \
     (  |          |  )
     \|    э    |/
       (    ,,,,    ,ノ
       \  、(U)ノ ノ
         \/  /            ┼ヽ  -|r‐、. レ |
         /  /\            d⌒) ./| _ノ  __ノ 
      ⊂⌒__)__)
0705デフォルトの名無しさん2018/09/15(土) 00:39:59.44ID:ffOGYC3P
>>704
すごいどうやったの?
ちんちんの話じゃなくてトリップどうやったの?
ハッシュ値を総当たり? 辞書を片っ端から調べた?
文字種が英数字58文字、文字列長が12だとして70ビットくらいでしょ
ハッシュ値の総当たりでやったとしたらすごい
できるもんなんだね

ちなみにピラフのトリップはこれ
Rembrandt Harmensz. van Rijn
レンブラント・ファン・レイン、画家の名前、すごくおしゃれ
0706ピラフ ◆9Jro6YFwm650 2018/09/15(土) 00:48:24.81ID:Abot0dLt
ピラフって可愛くて天才で皆から慕われる人気者でしょ
だから妬みたくなるのは至極当然なの
といってもピラフを騙るなんて恐れ多い真似は普通はしないでしょ
あまりにショックだからピラフ死のうと思うの
でもピラフが死んだらみんな悲しむよね
だから死なない
0707デフォルトの名無しさん2018/09/15(土) 01:00:36.26ID:ffOGYC3P
君はピラフに成りたかったんだね
良いよ、君が今日からピラフだ
0708ピラフ ◆9Jro6YFwm650 2018/09/15(土) 01:08:51.59ID:Abot0dLt
>>705
トリップキーなんか数年前に流出してるのに何がしたいんだオメーわ
QZもそうだけどそんなの知ってて使い続けてるんだってば
お前はそうやってピラフの背中を追い続けてるといいよ
ピラフを追い越すことなんか一生できないから
0709デフォルトの名無しさん2018/09/15(土) 01:11:03.66ID:ffOGYC3P
>>708
ピラフの大事なトリップが流出してただと・・・なんだと・・・
じゃあいままでピラフと名乗ってたのは全部・・・
0710デフォルトの名無しさん2018/09/15(土) 01:12:16.38ID:ffOGYC3P
おらーピラフさっさとフラッテンの授業進めろよ
0711ピラフ ◆9Jro6YFwm650 2018/09/15(土) 01:24:05.26ID:Abot0dLt
       ____
     /⌒  ⌒\
   /( ●)  (●)\   フリチン?なにそれ
  /::::::⌒(__人__)⌒::::: \  ピラフ超絶美少女だから無理
  |     |r┬-|     |
  \      `ー'´     /
0712デフォルトの名無しさん2018/09/15(土) 01:40:47.98ID:ffOGYC3P
差し支えなければおパンツの色を教えてもらっても良いでしょうか?
0714デフォルトの名無しさん2018/09/15(土) 07:02:45.41ID:8rxpHkWL
ピラフのパンツ祭りと聞いて
0715デフォルトの名無しさん2018/09/15(土) 08:44:28.77ID:grwiTkg6
ピラフの自演と聞いて
0716デフォルトの名無しさん2018/09/15(土) 12:04:01.66ID:OIBexEj7
基地外が居ると聞いて
0717ピラフ ◆9Jro6YFwm650 2018/09/15(土) 12:27:29.09ID:WPyz+R4a
>>714->>716

   ∩∩∩         ∩∩∩
  .∩_:||_:|_:|        |_:||_:|_:∩
  │ ___  つ      ⊂  ___ │
   ヽ   ノ  ___   ヽ  ノ
  / /  /_ノ  ヽ、_\   ヽ \
  (  く   o゚((●)) ((●))゚o   > )  クソレスすんなバーカ
  \ `/::::::⌒(__人__)⌒::::\' /
    ヽ|     |r┬-|     |/
.      \     | |  |     /
          | |  |
           `ー'´
0718さまよえる蟻人間 ◆T6xkBnTXz7B0 2018/09/17(月) 21:19:36.46ID:yTXbMS5S
それじゃあ出題するね。

あるフォルダの中にある、ファイル名とファイルの中身を一気に置き換えるプログラムを作れ。

できるかな〜?
0720デフォルトの名無しさん2018/09/17(月) 23:32:06.06ID:27GPeyCI
何に置き換えればいいん?
サンプル書いてもらえると助かる
0722さまよえる蟻人間 ◆T6xkBnTXz7B0 2018/09/17(月) 23:49:20.44ID:yTXbMS5S
ファイルの中身に「{{痴漢前}}」があれば、すべて「{{痴漢後})」に置換。
ファイル名もしくはフォルダ名に「{{痴漢前}}」があれば、「{{痴漢後}}」に置換する。
0723デフォルトの名無しさん2018/09/18(火) 05:08:54.69ID:1YKGz9xx
Ruby で作った。
あるフォルダ内のすべての、*.txt ファイルを置換する

1か所も置換されなかった場合でも、File.write で上書きされるので、
置換されない場合は、next ですぐさま、次の繰り返しへ進む

re = /before/

# . で始まる、directory, file を除く
Dir.glob( 'C:/Users/Owner/Documents/Ruby/test/test43/*.txt' ) do |file|
text = File.read file # すべて読み込む

next unless text.match( re ) # マッチしない

text.gsub!( re, "after" ) # すべてを置換

File.write file, text # 上書き
end
0724デフォルトの名無しさん2018/09/18(火) 07:47:05.14ID:/fJcssx/
Sub ReplaceFile(folderPath, srcString, destString)
 Call ReplaceName(folderPath, srcString, destString)
 Call ReplaceContent(folderPath, srcString, destString)
End Sub

Sub ReplaceName(folderPath, srcString, destString)
 Dim fileSystem
 Set fileSystem = CreateObject("Scripting.FileSystemObject")

 Dim folder
 Set folder = fileSystem.GetFolder(folderPath)

 Dim file
 For Each file In folder.Files
  Dim destFile
  destFile = folder.Path & "\" & Replace(file.Name, srcString, destString)

  Call file.Move(destFile)
 Next

 Dim subFolder
 For Each subFolder In folder.SubFolders
  Dim destFolder
  destFolder = folder.Path & "\" & Replace(subFolder.Name, srcString, destString)

  Call subFolder.Move(destFolder)
 Next
End Sub
0725デフォルトの名無しさん2018/09/18(火) 07:47:21.61ID:/fJcssx/
Sub ReplaceContent(folderPath, srcString, destString)
 Dim fileSystem
 Set fileSystem = CreateObject("Scripting.FileSystemObject")

 Dim folder
 Set folder = fileSystem.GetFolder(folderPath)

 Dim file
 For Each file In folder.Files
  Dim text

  Dim inStream
  Set inStream = file.OpenAsTextStream(1)
  text = inStream.ReadAll()
  Call inStream.Close()

  text = Replace(text, srcString, destString)

  Dim outStream
  Set outStream = file.OpenAsTextStream(2)
  Call outStream.Write(text)
  Call outStream.Close()
 Next
End Sub
0726さまよえる蟻人間 ◆T6xkBnTXz7B0 2018/09/18(火) 11:59:05.99ID:Iapv2hUP
>>724-725
フォルダの入れ子が処理できてない点を除けば、上手く書けている。
フォルダの入れ子を処理する簡単な方法は、再帰を使うことだ。
0727デフォルトの名無しさん2018/09/18(火) 14:13:59.07ID:/fJcssx/
フォルダの中にフォルダが存在すると
Call subFolder.Move(destFolder) <-ここでエラーになる
Microsoft VBScript 実行時エラー: 書き込みできません。
0728デフォルトの名無しさん2018/09/18(火) 14:14:44.96ID:/fJcssx/
そんな面倒な仕様だったかな
0729デフォルトの名無しさん2018/09/18(火) 14:18:56.53ID:/fJcssx/
んん?あれ?できた、気の所為だったみたい
0730デフォルトの名無しさん2018/09/18(火) 15:32:52.88ID:/fJcssx/
>>726
フォルダたどるときに再帰呼び出しすればいいですね、ご査収ください
https://gist.github.com/sleeping-marple/512b86feb470296c5a48e00365dd3418

再帰の話が出ました、今度は私からアリさんそしてルビーさんに再帰に関する問題を出します
ちょっと待っててください、問題作るので
0731デフォルトの名無しさん2018/09/18(火) 16:50:37.02ID:/fJcssx/
準備できました、それでは問題を出します
一次元の配列を元に罫線素片を使用してトーナメント表を出力してください

Array("A","B","C","D","E","F","G","H","I","J")
↑の配列を元に↓の出力を得る
https://light.dotup.org/uploda/light.dotup.org548029.png
0732デフォルトの名無しさん2018/09/18(火) 17:15:01.90ID:ddthAX4P
       ::                .|ミ|
       ::                .|ミ|
        ::               .|ミ|           ::::::::
         :::::     ____ |ミ|          ::::
           :: ,. -'"´      `¨ー 、       ::
   ::        /   ,,.-'"      ヽ  ヽ、    ::
   ::     ,,.-'"_  r‐'"     ,,.-'"`     ヽ、 ::
   ::   /    ヾ (    _,,.-='==-、ヽ         ヽ、
   ::   i へ___ ヽゝ=-'"/    _,,>         ヽ     それでは・・・問題を・・
   ::   ./ /  > ='''"  ̄ ̄ ̄               ヽ 
  ::   / .<_ ノ''"       ヽ               i
  ::   /    i   人_   ノ              .l
  ::  ,'     ' ,_,,ノエエエェェ了               /
    i       じエ='='='" ',              / ::
    ',       (___,,..----U             / ::
     ヽ、         __,,.. --------------i-'"  ::
      ヽ、_   __ -_'"--''"ニニニニニニニニヽ   ::
         `¨i三彡--''"´              ヽ  ::  
          /                      ヽ ::              ┼ヽ  -|r‐、. レ |
         /                     ヽ::            d⌒) ./| _ノ  __ノ
0733デフォルトの名無しさん2018/09/18(火) 23:19:00.93ID:iB13sfY6
>>730
相変わらず中学生レベルの下手くそだな。
新人に「これ、駄目な例ね」って出せるからどんどん書いてよ。下手くそコードを。
0734デフォルトの名無しさん2018/09/18(火) 23:45:48.24ID:iB13sfY6
後学のために3回読んだ。
進歩の無さに感心する。
あらゆる「駄目」が詰まってる。

ある意味凄い。
07367232018/09/20(木) 00:37:18.38ID:OZxd0eW0
>>723
を修正。Ruby で作った

1か所も置換されなかった場合でも、File.write で上書きされるので、
置換されなかった場合は、next ですぐさま、次のファイルへ進む

re = /before/

# . で始まる、directory, file を除く
Dir.glob( 'C:/Users/Owner/Documents/Ruby/*.txt' ) do |file|
text = File.read file # すべて読み込む

updated = false # 未更新

text.gsub!( re ) { |matched| updated = true; "after" } # 置換
next unless updated # 未更新なら

File.write file, text # 上書き
end
0738デフォルトの名無しさん2018/09/20(木) 07:28:15.20ID:jzY4tGG3
Rubyジジイはガチアスペだからね
会話も噛みあわないから始末が悪い
0740デフォルトの名無しさん2018/09/20(木) 20:23:41.31ID:qGj9TL9d
>>739
クラスを作ろうとしって何かしようとした時点で >>731 より少しマシなレベルかもだが、
分不相応なことをやろうとしたせいで圧倒的にクソ。
下から上に書くとか馬鹿じゃね?てか馬鹿だろ。

トーナメント表を横に出力するように仕様変更が入ったら全滅。いちから書き直し。
データ構造構築と表示を分けてないからそうなるんだよボケが。

クラス名とかファンクション名とか変数名の付け方とか、
「第三者が読むこと」
を意識して書いたことあんのかお前?

センス無いからもう書くな。片山無職MZよ。
0748デフォルトの名無しさん2018/09/20(木) 22:30:48.62ID:jzY4tGG3
片山は煽りには乗らないと思ってたけどそうでもなかったん?
まあピラフ扱いされたらこうなるのも仕方ないと思う
0749デフォルトの名無しさん2018/09/20(木) 22:51:01.73ID:qGj9TL9d
>>741
とりあえず、模範解答とすれば、>>731 の出題条件を満たしつつ最も簡単書けるのが模範だな。
Option Explicit

Dim Teams
Teams = Array("A","B","C","D","E","F","G","H","I","J")

Call WScript.Echo(" ┌───┴─────┐ ")
Call WScript.Echo(" ┌─┴─┐ ┌─┴─┐ ")
Call WScript.Echo(" ┌─┴┐ ┌┴┐ ┌─┴┐ ┌┴┐")
Call WScript.Echo("┌┴┐ " & Teams(2) & " " & Teams(3) & " " & Teams(4) & " ┌┴┐ " & Teams(7) & " " & Teams(8) & " " & Teams(9))
Call WScript.Echo(Teams(0) & " " & Teams(1) & " " & Teams(5) & " " & Teams(6) & " ")
シードの既定も明示されてないのにマジで作る方がアホ。

ていうかあんたのコード、Win10環境だとテキストファイルに落とさないと崩れるんだけど?

> ' Usage: cscript TreeRecurse.vbs > Output.txt
ファイルに落とすの前提なら //nologo が抜けてる。

「トーナメント表を作る」は割と面白げなお題だから書いてみようと思うが、まずは既定から調べんとな。
0750デフォルトの名無しさん2018/09/20(木) 22:55:22.59ID:qGj9TL9d
ちなみに片山のコードは読めない。
斜め読みでなんとなくは分かるが自己中心的な汚さでムンムンなので読む気がしない。
ちょっと真面目に読もうとしたら気分が悪くなる。
0751デフォルトの名無しさん2018/09/21(金) 07:37:04.81ID:tJDcdJp6
>>739
アリさんおはようございます
すごい!完璧です、さすがです

一応出題者として回答例と解説も用意していましたが
必要なかったですね、私の想像を超える形で解決されてます
議論するのは良いですね、思考が広がります

惜しむらくはアリさんとルビーさんと私の3人だけで議論できるといんですけどね
招待された人しか参加できないような議論の場があるといんですけど

最近荒らしがひどくて落ち着いて議論できないんですよね
偽物のピラフも出没します
どれが本物のピラフかはアリさんだったらわかってくださるかと

文面は誤魔化せませんからね、その知性は隠しきれないですからね
0752デフォルトの名無しさん2018/09/21(金) 09:38:11.24ID:m8DL5ZJ4
ああ、蟻人間は、片山先生か。
ピラフは、偽者が登場してるのかw

トリップが解読されたのか?
5ch は、桁数が少ないのを使っているのかな?
SHA256 じゃないのか?
0753さまよえる蟻人間 ◆T6xkBnTXz7B0 2018/09/21(金) 14:45:41.92ID:H0GdxW4o
解説しよう。
https://gist.github.com/katahiromz/57e2b01e15497af96e9b59921bfa9ff0

8行目。Sliceという配列の切り出し(スライス)をする関数を定義している。
引数のendingがEmptyならばstart以降を切り出す。
JavaScriptには同様の関数があるが、VBScriptでは用意されていないので定義した。
23行目。仮想画面という考え方でテキスト処理を行うTextAreaクラスを定義している。
メンバーのTextsが文字列の動的配列を、NumLinesが行数を、NumColumnsが桁数を表す。
26行目。Resetサブルーチンは、TextAreaにサイズを指定して初期化する。
36行目。GetText関数は、仮想画面を表すテキストを構築する。
44行目。Outputサブルーチンは、GetTextの戻り値をそのまま出力する。
48行目。SetCharサブルーチンは、指定した位置に1文字をセットする。
仮想画面の範囲外のときは、セットしないで無視する。
0754さまよえる蟻人間 ◆T6xkBnTXz7B0 2018/09/21(金) 14:46:08.96ID:H0GdxW4o
58行目。PasteTextサブルーチンはSetCharを使って文字列を仮想画面の指定された位置に貼り付ける。
65行目。PasteTAサブルーチンは、SetCharを使って別の仮想画面の内容を指定された位置に貼り付ける。
84行目。実際にツリーのテキストを作成するMakeTree関数。この関数が再帰を行う。
引数のRootPosは参照渡し(ByRef)で値を返すことができる。
RootPosは、根元の水平位置を表す。標準のUBound関数は、配列の添え字上限を返す。
87行目。配列の添え字上限がゼロならば、一文字を表す仮想画面を返す。
93行目。ゼロでなければ、配列を半分に分割し、Ary1とAry2に代入する。
97行目。実際に再帰を指示する。
101行目。根元の位置は、左仮想画面の桁数+1である。
103行目。再帰で得られた子の根元の位置をもとに、枝分かれのテキストを構築する。
106行目。TA1.NumLinesとTA2.NumLinesの最大値をCYに代入する。
113行目。再帰した結果を用いて新しい仮想画面を構築する。
0755デフォルトの名無しさん2018/09/21(金) 16:41:50.49ID:v8oybxLb
>>751
お前がキチガイの限りを尽くして荒らしてくれてたからコテを取り上げてやったんだよ
キチガイの割にメンタルは弱いからよくコテと名無しを使い分けて自演してたけど、バカすぎてバレバレだったよな
0758デフォルトの名無しさん2018/09/21(金) 20:03:46.12ID:MNb63QGQ
WScript.Echo("(*∩ω∩)<こんにちわ〜")
0761デフォルトの名無しさん2018/09/21(金) 20:50:57.78ID:v8oybxLb
       ::                .|ミ|
       ::                .|ミ|
        ::               .|ミ|           ::::::::
         :::::     ____ |ミ|          ::::
           :: ,. -'"´      `¨ー 、       ::
   ::        /   ,,.-'"      ヽ  ヽ、    ::
   ::     ,,.-'"_  r‐'"     ,,.-'"`     ヽ、 ::
   ::   /    ヾ (    _,,.-='==-、ヽ         ヽ、
   ::   i へ___ ヽゝ=-'"/    _,,>         ヽ     WScript・・・Echo・・
   ::   ./ /  > ='''"  ̄ ̄ ̄               ヽ 
  ::   / .<_ ノ''"       ヽ               i
  ::   /    i   人_   ノ              .l
  ::  ,'     ' ,_,,ノエエエェェ了               /
    i       じエ='='='" ',              / ::
    ',       (___,,..----U             / ::
     ヽ、         __,,.. --------------i-'"  ::
      ヽ、_   __ -_'"--''"ニニニニニニニニヽ   ::
         `¨i三彡--''"´              ヽ  ::  
          /                      ヽ ::              ┼ヽ  -|r‐、. レ |
         /                     ヽ::            d⌒) ./| _ノ  __ノ
0762デフォルトの名無しさん2018/09/21(金) 21:24:40.21ID:KLg7gSKx
片山無職MZの図
       ::                .|ミ|
       ::                .|ミ|
        ::               .|ミ|           ::::::::
         :::::     ____ |ミ|          ::::
           :: ,. -'"´      `¨ー 、       ::
   ::        /   ,,.-'"      ヽ  ヽ、    ::
   ::     ,,.-'"_  r‐'"     ,,.-'"`     ヽ、 ::
   ::   /    ヾ (    _,,.-='==-、ヽ         ヽ、
   ::   i へ___ ヽゝ=-'"/    _,,>         ヽ     グ。。。グギギ。。。
   ::   ./ /  > ='''"  ̄ ̄ ̄               ヽ 
  ::   / .<_ ノ''"       ヽ               i
  ::   /    i   人_   ノ              .l
  ::  ,'     ' ,_,,ノエエエェェ了               /
    i       じエ='='='" ',              / ::
    ',       (___,,..----U             / ::
     ヽ、         __,,.. --------------i-'"  ::
      ヽ、_   __ -_'"--''"ニニニニニニニニヽ   ::
         `¨i三彡--''"´              ヽ  ::  
          /                      ヽ ::              ┼ヽ  -|r‐、. レ |
         /                     ヽ::            d⌒) ./| _ノ  __ノ

片山先生の新作が読めるのはあの世だけ!!
0766さまよえる蟻人間 ◆T6xkBnTXz7B0 2018/09/21(金) 22:09:10.13ID:S9dnQgvE
>>762
貴様は身の程知らずかも知れないが、センスが無い訳では無いかも知れない。
君の自宅にうちわがあるだろう? あれも一種のセンスだ。君もセンスを持っている。
0768デフォルトの名無しさん2018/09/21(金) 22:33:49.82ID:tJDcdJp6
     _∬_
  (⌒⌒)\≠/
  L_亅∩ ̄  チリンチリン
  (ω・ )ノ ≡=―
  /ヽ: \  _ __ (⌒
 0┬>  )= ≡=(⌒∴
  (*)//(*) (⌒(∴
 ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
0769デフォルトの名無しさん2018/09/21(金) 22:49:00.01ID:v8oybxLb
     /⌒  ⌒\   ング ング
   / (●)  (●)\
  /::::::⌒(__人__)⌒:::: \  チュパチュパ
  |     (   \    |
  \_   ヽυ  ::\ /
         \  .:::\



       ____
     /⌒  ⌒\
   / (●)  (●)\    /⌒\
  /::::::⌒(__人__)⌒::::: \ (    )  チンチンだお!
  |     |r┬-|     |  |   υ|
  \    υー'´     /  |    |
                 |υ  |
0771デフォルトの名無しさん2018/09/21(金) 23:09:45.05ID:v8oybxLb
片山はやはりピラフを格下に見てるよね
0772さまよえる蟻人間 ◆T6xkBnTXz7B0 2018/09/21(金) 23:22:18.85ID:S9dnQgvE
般  羯  多  呪  多  得  想  掛  所  亦  無  耳  不  是  異  蘊  観  仏
若  諦  呪  能  是  阿  究  礙  得  無  意  鼻  増  舎  色  皆  自  説
心  羯  即  除  大  耨  竟  ,r'""´`゙゙''、,  識  舌  不  利  色  空  在  摩
経  諦  説  一  神  多  涅  /       l,  界  身  減  子  即  度  菩  訶
        呪  切  呪  羅  槃 rヽ  .,‐- ,- |. 無  意  是  是  是  一  薩  般
    波  曰  苦  是  三  三 ヾ   `゙" ,l ゙´|  無  無  故  諸  空  切  行  若
    羅      真  大  藐  世 . _>    -=='./  明  色  空  法  空  苦  深  波
    羯      実  明  三  _/|, `゙ヽー--ノヽ、,_.   聲  中  空  即  厄  般  羅
    提      不  呪  rー'""l,  'l,     / .| ||/`>、、  無  相  是  舎  若  蜜
            虚  是  /    |   'l,    /  .|./》/ ∧   色  不  色  利  波  多
    波      故  無 /  , | ヽ   ヽ,、/.@ / 《l,l / ヽ 無  生  受  子  羅  心
    羅      説  上 /  、,ヽ|/ ヾ。ツ`' 「ゞ / /《ヾ  /゙ヽ    不  想  色  蜜  経
    僧      般   ./  ///l`゙'゙ー-'"  / // ノ// //`l、   滅  行  不  多
    羯      若  ,|.  /// |  |___,,,ノ≡≡ツノ//_,,-‐'"".l,   不  識  異  時
    諦    =@ 波  | ///=@/|    /二=‐'"´´/ /`゙゙'ー-、,_.l    垢  亦  空  照
            羅  |/// / |   /|三="´  / //"´´゙'ー、|    不  復  空  見
    菩      蜜  ///ノ   ノ ノ ノ‐-二‐'"´ ノ/r=、,_ー-、_|    浄  如  不  五
0773さまよえる蟻人間 ◆T6xkBnTXz7B0 2018/09/21(金) 23:25:15.49ID:S9dnQgvE
  ノ凸\―――――イ\
  Eノ金ゝヨ三三三三三Eフ
  /ΛΛ/ |鬩鬩鬩鬩鬩
  /(Д゚/_|卅丗卅丗卅
/ ̄ ̄/ロ |ニニニニニニニニニ]
[O王O]_r=ュ|___r=ュ]
ヽニノ ヽニノヽニノヽニノ
0774さまよえる蟻人間 ◆T6xkBnTXz7B0 2018/09/21(金) 23:26:46.14ID:S9dnQgvE
 . +  .:. . .
+   :.  .  +.
 .  : .  + . .
. :.     .
 .  +  Π
      ||
     (二X二O
       || .+ .
   ∧∧ ||
   /⌒ヽ)_||_
_〜(  );;;;::\
" "" """""""" ""/;
 ""   """ ""/:;
0776デフォルトの名無しさん2018/09/22(土) 13:15:47.81ID:J+cgHaTV
>>749さんも挑戦するみたいですね
私やアリさんとは異なるコードを期待したいです
0777デフォルトの名無しさん2018/09/22(土) 13:23:25.51ID:iTh672kF
    γ ⌒ ⌒ `ヘ
   イ ""  ⌒  ヾ ヾ
 / (   ⌒    ヽ  )ヽ
 (      、 ,     ヾ )
  ゞ (.    .  ノ. .ノ .ノ
   ゝ、、ゝ.....|  |..., , ノソ
   _....,,. .-ー;''!  i;;;〜−ヽ_
  γ ,〜ー'''l ! |'''ーヾ  ヾ
  ( (    |l  |    )  )
  ヾ、 ⌒〜"""''''''⌒〜'"´ ノ
    ""'''ー-┬ーr--〜''""
          |   |
       ノ 从 ゝ
      ,r´⌒ヽ,⌒ヽ,ヽ
    (⌒)、   .人  λ\、 ._____
     \. \    、 ヽ./ ー  ー\
      |\ \    ヽ./ ( ●) ( ●)
      |  \  \ /     (__人__) \  期待したいです
      |.   \   |       ` ⌒´   |
   .   |.   |.\_ノ\            /
   .   |.   |   |   \______/
   .   |   )  .|     . . ̄ ̄
   .   |   |  .|
      |   |.|  .|
   .   |  | .| .|
      /  / / ヽ,
     (__ノ  ヽ、__つ
0778デフォルトの名無しさん2018/09/22(土) 13:54:16.73ID:iTh672kF
      アリさんおはようございます
      すごい!完璧です、さすがです
    ⌒|/⌒ヽ、_ノ⌒ヽ、_ノ⌒ヽ、_ノ⌒
      ヽ   ____
        /  |::⌒\
      /  _ノ|::(●)\
表   /  o゚⌒ |ヽ__)⌒::::\   裏
     |::.    (__ノ|r-|:::::::::::::::::::|
     \::.   ´ |ー´::::::::::::::/
               ∧
  / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄   ̄ ̄ ̄ ̄ ̄\
  ピラフを舐めやがって糞コード晒すなや
  でも片山とまで対立したら孤立しかねないから
  今は穏便に振る舞っておくお
0779デフォルトの名無しさん2018/09/22(土) 16:33:29.40ID:J+cgHaTV
>>756
パンクハザードでルフィの仲間たちがローの能力で中身を入れ替えられたことあったじゃん
面白かったよねあれ、というわけで下記の文字列について

Dim s
s = "" _
& "ナミは監禁されて非情な実験台にされている子どもたちを放って置けず" _
& "助けようとし、チョッパーは子どもたちが違法な薬物を投与されて" _
& "いることに気づきナミと共に子どもたちのもとに向かいます。" _
& "サンジはナミを襲おうとする敵を蹴散らし、フランキーはチョッパーが" _
& "止めるにもかかわらず大暴れするのでした"

次のように文字列を置換してください
サンジ → ナミ
チョッパー → サンジ
ナミ → フランキー
フランキー → チョッパー
0780デフォルトの名無しさん2018/09/22(土) 18:15:24.03ID:iTh672kF
     片山の野郎、さっさと出てきて擁護しろや
      ピラフに恥をかかすんじゃねえお
    ⌒|/⌒ヽ、_ノ⌒ヽ、_ノ⌒ヽ、_ノ⌒
      ヽ   ____
        /  |::⌒\
      /  _ノ|::(●)\
裏   /  o゚⌒ |ヽ__)⌒::::\   表
     |::.    (__ノ|r-|:::::::::::::::::::|
     \::.   ´ |ー´::::::::::::::/
               ∧
  / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄   ̄ ̄ ̄ ̄ ̄\
  あったじゃん
  面白かったよねあれ
0782さまよえる蟻人間 ◆T6xkBnTXz7B0 2018/09/22(土) 19:50:24.79ID:UJtJ/FuZ
解説しよう。

DELという特殊文字が使われていないことを仮定し、ターゲットの文字列をいったんDELと数字がくっついた文字列に変換する。さらに
DELと数字がくっついた文字列を置換先文字列に変換する。
これで一度に置き換えした文字列操作と同じ効果になる。
0783さまよえる蟻人間 ◆T6xkBnTXz7B0 2018/09/22(土) 19:55:29.50ID:UJtJ/FuZ
DELがすでに使われている場合は、エスケープシーケンスと同様に、DELを二重化しといて、後で元に戻すとよい。
0784デフォルトの名無しさん2018/09/22(土) 23:27:42.35ID:DCTpeoPT
>>775
漏れ以外に、Rubyist がいたのか?

君は誰? まさか、ピラフが進化した??
ちょっと見ない間に、漏れを軽々と抜き去っていったか!w
0785デフォルトの名無しさん2018/09/22(土) 23:44:53.15ID:iTh672kF
           _,,  ---一 ー- ,,,_
 、  _,,,, _,, -.'"           ` 、
 ミ三ミ三ミ三ミミ                ヽ_,
-==三ミ彡三ミミ     ,,=-==     ==、 iミ=-、_
_,,ンミミ三ミ三ミミ]  -彡-一 ー-、 r一 ーミ、|ミミ三ミ=-'
_, -==彡ミ彡ミミミ|  ン| ,=て)> (|ー| ,て)>、 ||三ミ彡==-'
 ,彡彡三ミ三ミミiレ'~ .|. '     |  ヽ   `  |ミ三彡三=-
(_彡三ミ彡ミミミ'   ヽ、    ノ   \__ノiミ彡ミ三=ー
ー-=二三ンーミミミ     `ー /(_r-、r-_)   .|彡ミ三=-、
)(_ミ彡ミ| i' ヽヽミ       | : : : __ : :__: :i   .|彡ミ三=-、 
と彡ミ彡ミヽヽ<ヽミミ      |: ン=-ニ-ヽ、   .|彡ミ三==-  漏れ以外に、Rubyist がいたのか?
 彡ミ彡ミミヽ  ) `    、 .' <=ェェェェェン |    |彡ン=-=    漏れを軽々と抜き去っていったか!
-==彡三ミi `ーヽ : : : : : :i: :  `ー--一''  : : ノミ三==''
'' てノこミ彡三ミ`i : : : : : :ヽ: : : .      .:, :/ミ三=-、
  '' 三ミ=三三ミ|ヾ、: : : : :ヽ: : : : : : : : :_ノ:./三=-'
   -=='' ̄ .        : ̄ ̄ ̄    彡 `
0786デフォルトの名無しさん2018/09/23(日) 14:46:24.38ID:w68x2Egu
>>781
ありがとうございます!
0787デフォルトの名無しさん2018/09/23(日) 14:50:05.92ID:w68x2Egu
>>784
ふふふ、門前の小僧習わぬ経を読むで
ルビーさんのコードの見てるうちにルビーが少し書けるようになりました

JRubyとEclipse使って書いたんですけどコード補完が行われなくて
苦労しましたよ、おすすめの開発環境教えてください
ルビーは機能が豊富でプログラムは簡単に書けそうですが
言語はいろんな書き方ができて割合複雑ですね
0788デフォルトの名無しさん2018/09/23(日) 15:00:02.44ID:QvSGI7/K
>>787
スレ違いだバカ
0789デフォルトの名無しさん2018/09/23(日) 16:38:03.40ID:QvSGI7/K
   DELを二重化って・・お前が実装しろよ
  ピラフの出題だからって舐めてんのか糞片山
 ルビー爺が戦力になればお前なんか直ちにポイだお
    ⌒|/⌒ヽ、_ノ⌒ヽ、_ノ⌒ヽ、_ノ⌒
      ヽ   ____
        /  |::⌒\
      /  _ノ|::(●)\
裏   /  o゚⌒ |ヽ__)⌒::::\   表
     |::.    (__ノ|r-|:::::::::::::::::::|
     \::.   ´ |ー´::::::::::::::/
               ∧
  / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄   ̄ ̄ ̄ ̄ ̄\
    ありがとうございます
0791さまよえる蟻人間 ◆T6xkBnTXz7B0 2018/09/23(日) 19:44:34.23ID:wgh+bXd/
ごめん、DELを二重化ではなくて、
DELをDEL & "9"に置換するといいんだった。
置換前: s = Replace(s, DEL, DEL & "9")
置換後: s = Replace(s, DEL & "9", DEL)
0793さまよえる蟻人間 ◆T6xkBnTXz7B0 2018/09/23(日) 20:12:42.88ID:wgh+bXd/
技術力がある人なら、声を変えることもできるだろう。
匿名で動画配信やメッセージを送りたい人が使うとよい。
0794デフォルトの名無しさん2018/09/23(日) 20:41:00.21ID:QvSGI7/K
     _. -─‐-
   /      ⌒ \        
  /  ⌒   (● ) \     DEL&"9"?
 /  ( ● )  、_)   ヽ    ピラフ渾身の出題だったのにウンコこねくりまわしてんのか?
 |      (__ノ /     |   それ以前にネタに乗っかって来いお使えねぇな
 ヽ       ̄    _ノ     
  >      ̄    \
0797さまよえる蟻人間 ◆T6xkBnTXz7B0 2018/09/23(日) 21:20:37.08ID:wgh+bXd/
コードとデータの分離。
データの再利用。

という話になる。ひらがなをプログラムに埋め込んでもいいが、テキストファイルを使った方が再利用性が高い。
九九にはおそらく著作権はない。「九九」をテキトーにウェブ検索して、参考にする。
九九のひらがなのテキストデータを構築してそのデータを読み込む仕組みを作ればいい。
0798さまよえる蟻人間 ◆T6xkBnTXz7B0 2018/09/23(日) 21:33:52.54ID:wgh+bXd/
訂正。
(誤) 九九にはおそらく著作権がない
(正) 九九のテキストにはおそらく著作権がない
0801デフォルトの名無しさん2018/09/23(日) 22:05:45.55ID:w68x2Egu
>>800
常識にとらわれずに何回も聞いてたら慣れてくる
さざんになるのは20世紀まで、21世紀からは九九さえも
コンピューティングにノーマライズされるのがリテラシー
0802デフォルトの名無しさん2018/09/23(日) 22:07:06.10ID:QvSGI7/K
               ∩_
              〈〈〈 ヽ
      ____   〈⊃  }
     /⌒  ⌒\   |   |
   /( ●)  (●)\  !   !
  / :::::⌒(__人__)⌒:::::\|   l
  |     |r┬-|       |  / <こいつ最高にアホ
  \     ` ー'´     //
  / __        /
  (___)      /
0803デフォルトの名無しさん2018/09/23(日) 22:10:20.22ID:QvSGI7/K
   ピラフ掛け算九九よく知らないんだお
  恥をかかせないよう先に言っておけよクソ片山
    ⌒|/⌒ヽ、_ノ⌒ヽ、_ノ⌒ヽ、_ノ⌒
      ヽ   ____
        /  |::⌒\
      /  _ノ|::(●)\
裏   /  o゚⌒ |ヽ__)⌒::::\   表
     |::.    (__ノ|r-|:::::::::::::::::::|
     \::.   ´ |ー´::::::::::::::/
               ∧
  / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄   ̄ ̄ ̄ ̄ ̄\
    慣れろ、バカ
0804デフォルトの名無しさん2018/09/23(日) 22:13:01.65ID:w68x2Egu
>>800
もとい!やっぱ書き直すからちょっと待って
0805デフォルトの名無しさん2018/09/23(日) 22:13:29.98ID:w68x2Egu
ぎゃふんと言わせてやるから
0806デフォルトの名無しさん2018/09/23(日) 22:20:40.83ID:QvSGI7/K
   今対立したら本当に孤立してしまうお
    今回はクソ片山を立ててやるか
    ⌒|/⌒ヽ、_ノ⌒ヽ、_ノ⌒ヽ、_ノ⌒
      ヽ   ____
        /  |::⌒\
      /  _ノ|::(●)\
裏   /  o゚⌒ |ヽ__)⌒::::\   表
     |::.    (__ノ|r-|:::::::::::::::::::|
     \::.   ´ |ー´::::::::::::::/
               ∧
  / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄   ̄ ̄ ̄ ̄ ̄\
    ぎゃふん
0807さまよえる蟻人間 ◆T6xkBnTXz7B0 2018/09/23(日) 22:41:40.43ID:wgh+bXd/
プログラマーを目指すなら、タイピングができないと、時間を無限に消費してしまうぜ。
0808さまよえる蟻人間 ◆T6xkBnTXz7B0 2018/09/23(日) 22:44:55.24ID:wgh+bXd/
タイピングにも方法論があって、ホームポジションとかブラインドタッチとか覚えておけば、早く入力できるぞ。
タイピングを練習するゲームソフトもGood!
0811デフォルトの名無しさん2018/09/23(日) 23:39:07.01ID:QvSGI7/K
    _|\∧∧∧MMMM∧∧∧/|_
    >                  <
 ──┐ /─┐  ヽ /  ヽ|  |ヽ  ム ヒ | |
  | /    /   ×    | ̄| ̄ 月 ヒ | |
  /     /   / ヽ  ./ | ノ \ ノ L_い o o
    `――――――○――――――’

゚ | ・  | .+o   ____* o。 |。|   *。 |
゚ |i    | +   /_ノ ' ヽ_\   | |!    |
o。!    |! ゚o /(≡)   (≡)\   | * ゚ |
  。*゚  l ・/::::::⌒(__人__)⌒:::::\ |o  ゚。・
 *o゚ |! |     |r┬-|     |  + *|   片山にぎゃふんと言わせたお
| ・    o \      `ー'U     / *゚・ +||
 |o   |・゚  >         |  *。*   |
* ゚  l|  /           |    | +|
 |l + ゚o  /           | *゚・ ||  ・ |o
 o○ |   | 丶    ヽ  /  | *o|  *。
・| + ゚ o /| /   っ | /   |  O *。|
 O。 | ( ∪  /(;;_;;)\∪  ノ。* 。   |
 o+ |!* \  /     |  ノ   |  *o|
 |・   | ゚・  )ノ     \ | o○ |!
0812デフォルトの名無しさん2018/09/23(日) 23:39:33.51ID:w68x2Egu
>>810

三栖井済友グループでは
メールを送るときに偉い順に
名前を羅列し、立場が同じ時は辞書順に
並べなければいけない

次の名簿の全員宛にメールを送るとき
どのような順番で名前を書けばよいか
調べるプログラムを書いてください

[名前],[上司]
徳川,日比谷
鹿島,地井
マイケル,日比谷
宮島,夢野
相田,佐藤
地井,高山
寺井,夢野
菊川,地井
横下,相田
日比谷,佐藤
村山,相田
夢野,高山
08137842018/09/23(日) 23:40:42.94ID:03hgUEHk
>>787
漏れはWindows10・Ruby で、VSCode を使っている。
ただし、Devkit・MSYS2 のコンパイル環境なしでやってるので、
Rubyの拡張機能は動かないし、デバッグ・入力補完もできない。
Visual Studio とか、コンパイル環境は数GB もあるから

あちこちに、p, pp, tap, puts, print などを入れて確認している

Visual Studio Code / VSCode Part4
https://mevius.5ch.net/test/read.cgi/tech/1529679715/454-467

おすすめ拡張機能は、上を参照。
特に、Code Runner, Bracket Pair Colorizer, Indent-Rainbow の3つは、Rubyでも使える

おすすめ本は、以下の順番で読んで。
逆引き本も、改訂されました

たのしいRuby 第5版、2016

Effective Ruby、2015
バグが起きにくい、安全で効率的なコーディングと、間違いやすいポイントを解説

改訂2版 Ruby逆引きハンドブック、2018/8/28
0814デフォルトの名無しさん2018/09/23(日) 23:44:03.94ID:QvSGI7/K
    _|\∧∧∧MMMM∧∧∧/|_
    >                  <
 ──┐ /─┐  ヽ /  ヽ|  |ヽ  ム ヒ | |
  | /    /   ×    | ̄| ̄ 月 ヒ | |
  /     /   / ヽ  ./ | ノ \ ノ L_い o o
    `――――――○――――――’

゚ | ・  | .+o   ____* o。 |。|   *。 |
゚ |i    | +   /_ノ ' ヽ_\   | |!    |
o。!    |! ゚o /(≡)   (≡)\   | * ゚ |
  。*゚  l ・/::::::⌒(__人__)⌒:::::\ |o  ゚。・
 *o゚ |! |     |r┬-|     |  + *|   立場が同じ時は辞書順に並べなければいけない
| ・    o \      `ー'U     / *゚・ +||
 |o   |・゚  >         |  *。*   |
* ゚  l|  /           |    | +|
 |l + ゚o  /           | *゚・ ||  ・ |o
 o○ |   | 丶    ヽ  /  | *o|  *。
・| + ゚ o /| /   っ | /   |  O *。|
 O。 | ( ∪  /(;;_;;)\∪  ノ。* 。   |
 o+ |!* \  /     |  ノ   |  *o|
 |・   | ゚・  )ノ     \ | o○ |!
0815デフォルトの名無しさん2018/09/23(日) 23:46:06.90ID:w68x2Egu
>>813
ありがとうございます!
0817デフォルトの名無しさん2018/09/23(日) 23:48:05.70ID:QvSGI7/K
   ルビー爺の野郎、このタイミングで出てくるなお
    間がわりーな
    ⌒|/⌒ヽ、_ノ⌒ヽ、_ノ⌒ヽ、_ノ⌒
      ヽ   ____
        /  |::⌒\
      /  _ノ|::(●)\
裏   /  o゚⌒ |ヽ__)⌒::::\   表
     |::.    (__ノ|r-|:::::::::::::::::::|
     \::.   ´ |ー´::::::::::::::/
               ∧
  / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄   ̄ ̄ ̄ ̄ ̄\
    あざっす
0818デフォルトの名無しさん2018/09/23(日) 23:49:49.03ID:w68x2Egu
>>816
抜けてましたね、どうしよう
送らないってことでお願いします
名前欄にある人のみということで
0819デフォルトの名無しさん2018/09/23(日) 23:53:22.89ID:QvSGI7/K
   片山のくせにピラフに意見するな
    問題の不備ぐらいどうにかしておけだお
    ⌒|/⌒ヽ、_ノ⌒ヽ、_ノ⌒ヽ、_ノ⌒
      ヽ   ____
        /  |::⌒\
      /  _ノ|::(●)\
裏   /  o゚⌒ |ヽ__)⌒::::\   表
     |::.    (__ノ|r-|:::::::::::::::::::|
     \::.   ´ |ー´::::::::::::::/
               ∧
  / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄   ̄ ̄ ̄ ̄ ̄\
    勝手に送るな、バカ
0820さまよえる蟻人間 ◆T6xkBnTXz7B0 2018/09/24(月) 00:01:32.63ID:EXhnDw2F
このお題は、本質的には大学数学で学ぶ集合の順序関係、もしくはグラフ理論の話だよね。数学が不自由な方、置いてけぼり。
0821デフォルトの名無しさん2018/09/24(月) 00:05:16.04ID:ALfUmL1k
     ____  
   /      \
  /  ─    ─\ 
/    (●)  (●) \ お題?何言ってんだこのバカ
|       (__人__)    |  
/     ∩ノ ⊃  /
(  \ / _ノ |  |
.\ “  /__|  |  
  \ /___ /  
0822デフォルトの名無しさん2018/09/24(月) 00:05:46.24ID:4/1O82Xw
>>820
本当はトロピカルなソートを使う問題を出したかったんだけど
無理だったから木構造でお茶を濁した、数学がわからなくても
木構造を知ってる人なら解けるかと
0824デフォルトの名無しさん2018/09/24(月) 00:13:01.45ID:4/1O82Xw
>>823
Σd(°∀°d)Yes!
0826デフォルトの名無しさん2018/09/24(月) 00:17:21.09ID:4/1O82Xw
>>825
Σd(°∀°d)Yes!
0827デフォルトの名無しさん2018/09/24(月) 00:17:22.18ID:ALfUmL1k
           ____ 
         / _ ノ(_\;
       ;/ _    _.\;
     ;/ノ(( 。 )三( ゚ )∪\; 
    ;.| ⌒  (__人__) ノ(  |.; 
    ..;\ u. . |++++|  ⌒ /;  トロピカル
     .;ノ   ⌒⌒    .\;
0828デフォルトの名無しさん2018/09/24(月) 00:19:14.86ID:ALfUmL1k
             @@
 _,,..i'"':,       @@@@ @    @    @
|\`、: i'、     @@@a@*@         @  @@ @
.\\`_',..-i    |\@@@/|          @ @@  @
  .\|_,..-┘    |   ̄ ̄  |         @@ @@@ @@
           | ゴミ箱  |         @@@@
           | ..     |  @
            \__/ @

      / ̄ ̄ ̄\
    / ─    ─ \
   /  (●)  (●)  \          ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
   |  \ (__人__) /  |      ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
   \_ | ` ⌒´ | _/    :::::::::::::::                        :::::::::::::::
    /        |    :::::::::::::::本当はトロピカルなソートを使う問題を出したかったんだけど:::::::::::::::
   (_)| ・    ・ ||      ::::::::::::::: ザーメン出したお             :::::::::::::::
   l⌒ヽΞ   Ξ/| |         ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
   | |\_(;;U;;;)_ ̄))           ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  (_)      //
         ( _)
0830デフォルトの名無しさん2018/09/24(月) 00:30:10.47ID:4/1O82Xw
  ∧∧
 (・ω・)っ
 (っ / どどどど…
  Lノ┘

  ∧_∧
⊂(´・ω・)
 ヽ ⊂ )
  (⌒) | どどどど…
  三`J


  ∧∧
  (*・ω・) おやすみ
 _| ⊃/(___
/ ヽ_(____/
 ̄ ̄ ̄ ̄ ̄ ̄ ̄

 <⌒/ヽー、__
/<_/____/
 ̄ ̄ ̄ ̄ ̄ ̄ ̄
0831デフォルトの名無しさん2018/09/24(月) 00:37:17.45ID:ALfUmL1k
   ピラフに恥をかかせたまま逃げやがって
    片山のくせにスカしてんじゃねーお
    ⌒|/⌒ヽ、_ノ⌒ヽ、_ノ⌒ヽ、_ノ⌒
      ヽ   ____
        /  |::⌒\
      /  _ノ|::(●)\
裏   /  o゚⌒ |ヽ__)⌒::::\   表
     |::.    (__ノ|r-|:::::::::::::::::::|
     \::.   ´ |ー´::::::::::::::/
               ∧
  / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄   ̄ ̄ ̄ ̄ ̄\
    勝手に寝ろよバカ
0832さまよえる蟻人間 ◆T6xkBnTXz7B0 2018/09/24(月) 21:02:23.47ID:EXhnDw2F
炭鉱から戻った。

上下関係にループがあるなら、不正なので、エラーメッセージ。さもなければ、上下関係からヒープを作成し、名前フィールドの名前をヒープソート。でいいのかな?
順序集合の互いに素な、いくつかのグループがある場合、順序は一意に定まらないから、この場合もエラーか。
ということは、ヒープ木構造は複数考える必要があるのかな。ここまで来るなら、グラフ理論は必須だね。
0834デフォルトの名無しさん2018/09/24(月) 21:14:50.65ID:ALfUmL1k
>>832-833
スレ違い
scでやれ
0837デフォルトの名無しさん2018/09/24(月) 21:24:02.41ID:ALfUmL1k
ピラフをscにでも置いてきてくれればそれでいいよ
0838デフォルトの名無しさん2018/09/25(火) 00:48:40.25ID:i2UBaUuH
>>779
Ruby で作った

# 改行を削除する
text = <<"EOT".delete( "\n" )
ナミは監禁されて非情な実験台にされている子どもたちを放って置けず
助けようとし、チョッパーは子どもたちが違法な薬物を投与されて
いることに気づきナミと共に子どもたちのもとに向かいます。
サンジはナミを襲おうとする敵を蹴散らし、フランキーはチョッパーが
止めるにもかかわらず大暴れするのでした
EOT

re = /サンジ|チョッパー|ナミ|フランキー/

text.gsub!( re ) do |matched| # 置換
case matched
when "サンジ" then "ナミ"
when "チョッパー" then "サンジ"
when "ナミ" then "フランキー"
else # フランキー
"チョッパー"
end
end

puts text
0839デフォルトの名無しさん2018/09/25(火) 07:04:58.36ID:Ptw5+S5v
>>838
Rubyすごいです!
0840デフォルトの名無しさん2018/09/25(火) 07:22:45.37ID:B+XUIpeE
       ::                .|ミ|
       ::                .|ミ|
        ::               .|ミ|           ::::::::
         :::::     ____ |ミ|          ::::
           :: ,. -'"´      `¨ー 、       ::
   ::        /   ,,.-'"      ヽ  ヽ、    ::
   ::     ,,.-'"_  r‐'"     ,,.-'"`     ヽ、 ::
   ::   /    ヾ (    _,,.-='==-、ヽ         ヽ、
   ::   i へ___ ヽゝ=-'"/    _,,>         ヽ     Rubyすごいです・・・
   ::   ./ /  > ='''"  ̄ ̄ ̄               ヽ 
  ::   / .<_ ノ''"       ヽ               i
  ::   /    i   人_   ノ              .l
  ::  ,'     ' ,_,,ノエエエェェ了               /
    i       じエ='='='" ',              / ::
    ',       (___,,..----U             / ::
     ヽ、         __,,.. --------------i-'"  ::
      ヽ、_   __ -_'"--''"ニニニニニニニニヽ   ::
         `¨i三彡--''"´              ヽ  ::  
          /                      ヽ ::              ┼ヽ  -|r‐、. レ |
         /                     ヽ::            d⌒) ./| _ノ  __ノ
08418382018/09/25(火) 23:54:21.89ID:i2UBaUuH
Dim s
s = "" _
& "ナミは監禁されて非情な実験台にされている子どもたちを放って置けず" _
& "助けようとし、チョッパーは子どもたちが違法な薬物を投与されて" _
& "いることに気づきナミと共に子どもたちのもとに向かいます。" _
& "サンジはナミを襲おうとする敵を蹴散らし、フランキーはチョッパーが" _
& "止めるにもかかわらず大暴れするのでした"

これは文章を変更するときに、地獄!
Ruby で書くと、ヒアドキュメントで「" " & _ 」などが無くなるから、変更の負担が少ない
0844デフォルトの名無しさん2018/09/26(水) 07:40:39.50ID:GISes5RG
             O 「「「l
              o \. V7
             ○`) |  |         r‐、
               (⌒) o |  |         >、,>      Rubyすごいです〜
        ____`o ○ |  |.       | |
      //      |O。゚-ト、. |      | |
   .//| /(・) ∩ |o.  | | |  /\ | |
    |//|       |   | | | /   | | ̄`l     /\
    |//|   (・)   \_| |─/    /く  |   /  r、/`ーっ
    |//  \           | /   /  |  \/\/  `ー'"
    |/  ヽ__       //  /   |     /        ┼ヽ  -|r‐、. レ |
   mn____|___r──l__/    |    /         d⌒) ./| _ノ  __ノ
   ヽ_______|__ノ────' ──''"
0847デフォルトの名無しさん2018/09/26(水) 21:24:44.16ID:GISes5RG
>>845
自分で便利と言い張っているに過ぎないのでスレ違い
お題スレもしくはscでやれ
0849さまよえる蟻人間 ◆T6xkBnTXz7B0 2018/09/26(水) 22:01:54.59ID:NuaJwewi
もしかすると、日本人の生産性が低いのはビジネスメールマナーのせいかも知れないね。
0850デフォルトの名無しさん2018/09/26(水) 22:14:25.32ID:GISes5RG
ピラフと乳繰ってるだけだろ
やっぱりお題スレでやられても迷惑だろうからscでやれ
0851デフォルトの名無しさん2018/09/26(水) 22:56:43.64ID:1VTArmcy
>>849
>ビジネスメールマナー
業務でメールを使っていますが、これといったマナーを思いつきません
ビジネスメールマナーってなんですか?
08527502018/09/26(水) 23:16:05.96ID:9p8s5vui
>>753-754
あぁそうなの?下手くそだな。
08537502018/09/26(水) 23:20:22.11ID:9p8s5vui
片山って、仕事でコードを書いたことねーのかなぁ…。
コード貼れるサイト教えたら貼ってやるわ。
08547502018/09/26(水) 23:46:19.40ID:9p8s5vui
適当に見つけて置いた。
https://ideone.com/VGfEYW
片山、てめーはマジで下手くそ&センスゼロ。

クソコードを見てカチンと来た俺がアホだった。
トーナメントの規則をあれこれ調べて(これが意外と正確な資料が出なかった)アルゴリズムを考えるのに2時間。全部書くのに1時間。
グジャグジャ書くような代物でもなんでもなかった。

皆でNG入れとくべし。
08557502018/09/26(水) 23:56:42.47ID:9p8s5vui
お前の貼ったコード、改めて見たら引数で参加数も表示方向も変えられねーじゃん。
馬鹿だろ。

ムカつくのでもう一回言っとく。
片山、てめーはクソみたいに下手くそ。
0856デフォルトの名無しさん2018/09/27(木) 07:11:08.93ID:ntbS2mcc
>>845
ありがとうございます!超便利!

メール面倒ですよね、名前の順番だけじゃなくて

何々様

お疲れ様です、拝承。
ところで拝承、〜〜の件について〜〜をお願いしたく。

以上、よろしく拝承。

とかやってますもんね
0857デフォルトの名無しさん2018/09/27(木) 07:31:44.68ID:PQIg/Ql/
>>856
お前のせいで片山が散々なのにバカじゃねーの
0859デフォルトの名無しさん2018/09/27(木) 17:39:51.99ID:PQIg/Ql/
さすがの片山も流れを変えないと自我を保てないか
0860デフォルトの名無しさん2018/09/27(木) 21:36:40.57ID:1yIn4Anb
>>854
拝承
0861デフォルトの名無しさん2018/09/27(木) 21:39:36.47ID:1yIn4Anb
>>858
拝承アドイン作って買い取ってもらうか
でも合理主義の日立株式会社ゼネコン様なら
とっくに作ってそうだけどね

拝承と合理的に短縮しておきながらそれを
書かなきゃいけないなんてそれじゃあ日立さんアレじゃないですか
0862デフォルトの名無しさん2018/09/27(木) 21:41:41.69ID:1yIn4Anb
>>859
君もコテハン付けたらいんじゃない?
拝承ってコテハンはどうだろ?

アリさんと私と君の3バカトリオ、一生友だちだよね
0863デフォルトの名無しさん2018/09/27(木) 21:43:01.97ID:1yIn4Anb
私もさーピラフの名前を譲っちゃったから新しい名前を名乗ろうかと
思ってるんだけど良いの思いつかなくて
0864デフォルトの名無しさん2018/09/27(木) 22:19:39.81ID:PQIg/Ql/
>>860-863
また連投かよw
ルビージジイを含めた3人でscに行って乳繰り合ってろ
バーーカ
0865デフォルトの名無しさん2018/09/27(木) 22:39:34.35ID:1yIn4Anb
>>858
お題
文字列を指定した回数繰り返すメソッドを作ってください
繰り返す回数が多くても高速に動作するようにしてください
しかも再帰を使ってください
0866デフォルトの名無しさん2018/09/27(木) 22:47:10.08ID:PQIg/Ql/
>>865
スレ違い
誰にも邪魔されたくないんだろ?
scでやってろキチガイ
http://toro.2ch. sc/tech/
08677502018/09/27(木) 22:49:23.49ID:4Bnvzobq
>>858
おい、お前なんかよりずっとシンプルかつオプション付きの模範解答に対して何か言えよ。
ド下手くそ。
0868デフォルトの名無しさん2018/09/27(木) 23:09:37.75ID:1yIn4Anb
要件満たしてないものは模範にはならないっしょ
引数とかそういういらないから出力例の通りにやってよ
ユーザの受け入れテスト通らないよ
0869デフォルトの名無しさん2018/09/27(木) 23:14:43.53ID:PQIg/Ql/
>>868
スレ違いのくせに他人様に意見してるんじゃねえよ
0870デフォルトの名無しさん2018/09/27(木) 23:18:14.67ID:1yIn4Anb
仕様満たしたうえで機能を追加しました
処理を高速化しました、コードをきれいにしましたって
いうのならわかるんだけど、仕様満たさずにそれを
やるのは本末転倒でしょ、優先度を間違えてると思うの
だって正しく動かないんだもの
0871デフォルトの名無しさん2018/09/27(木) 23:19:49.72ID:1yIn4Anb
自分なりのトーナメント表作ったぜというのならわかるんだけど
それならそれで私のアリさんの悪口言うのはやめて欲しい
0872デフォルトの名無しさん2018/09/27(木) 23:20:12.14ID:1yIn4Anb
私不愉快です
08737502018/09/27(木) 23:20:24.63ID:4Bnvzobq
>>868
馬鹿だろお前。てか馬鹿。

> 731 デフォルトの名無しさん ▼ 2018/09/18(火) 16:50:37.02 ID:/fJcssx/ [7回目]
> 準備できました、それでは問題を出します
> 一次元の配列を元に罫線素片を使用してトーナメント表を出力してください
>
> Array("A","B","C","D","E","F","G","H","I","J")
> ↑の配列を元に↓の出力を得る
> https://light.dotup.org/uploda/light.dotup.org548029.png

俺は >>749 で明快に要件を満たすコードを出してるんだが?

はい反論どうぞwwww
0874デフォルトの名無しさん2018/09/27(木) 23:24:40.71ID:1yIn4Anb
>>873
出題者としてはそういうのは期待してない
君がやってるのは詭弁じゃん
0875デフォルトの名無しさん2018/09/27(木) 23:24:55.67ID:1yIn4Anb
幼稚だよ
0876デフォルトの名無しさん2018/09/27(木) 23:25:04.05ID:PQIg/Ql/
>>871
自分が元凶のくせにまるで他人事のような言い方だな
一回死ね
08777502018/09/27(木) 23:39:23.98ID:4Bnvzobq
>>873
じゃあ何を期待してんのwwww
仕様があやふやなのにそれを不問にしてコードが書けるかボケナス!!
ド素人だろ、てめー。

まぁ、片山=ピラフは同一人物なので、仕様を勝手に解釈して作ったようだが、見逃せないほど下手だったので俺は文句つけた。
それでもウンコだったので頭に来て、俺は標準的なアルゴリズムを参考にしてシンプルさと拡張性を重んじて作ってみた。
もちっと改良の余地あるけどね。

た だ そ れ だ け

お前のお題に答えた気は一切無いね。つけあがるんじゃねぇよ。てめー何様だ?
0878デフォルトの名無しさん2018/09/27(木) 23:43:55.20ID:1yIn4Anb
>>877
再帰を使った問題だと言ってるんだから
ハードコーディングはありえないっしょ

仕様は示したでしょ
この配列からこの出力が得られるようにって
画像で明確に示しましたよ

アリさんはそれを読解して仕様を満たす
コードを提示されました

君はハードコーディングで誤魔化して
マジメに実装したものは仕様を満たしてませんでした
できなかった言い訳は一生懸命
0879デフォルトの名無しさん2018/09/27(木) 23:44:45.72ID:1yIn4Anb
努力は認めるけど、結果は出せてないっすよ
0880デフォルトの名無しさん2018/09/27(木) 23:54:11.17ID:1yIn4Anb
//nologo が抜けてるとか変数名がとか
他人には厳しいのに自分は仕様を満たしてないことを言い訳ならべたてて
正当化してるじゃないっすか、それってダサいですよ

シンプルさも拡張性も大事だけど、それは正しく動いた上でのことだよ
いま君はすごくダサい
0881デフォルトの名無しさん2018/09/27(木) 23:58:02.71ID:PQIg/Ql/
スレ違いの上に錯乱して連投してるピラフの完敗ということで。
0882デフォルトの名無しさん2018/09/28(金) 00:12:11.98ID:3rxsu7Y7
https://ideone.com/VGfEYW

コメントがダサいよね
作るまでもないとか
コメントに書くことじゃないよ

oArgsとかGoDownとかクソダサいし
ひっくり返して表示とかダサすぎるよ

IsVerticalをあっちこっちで判定してるのもダサいし
抽象化が不十分な汚いコードだよ

もうほんとダサい
08837502018/09/28(金) 00:13:17.38ID:pMcYji9z
>>880
はいはい片山ピラフ乙。
何度も言うけど、俺はお題はどうでもいい。
シードの割り振りが不明瞭で時点で出題者をそもそも相手にしてない。
ハードコーディングは紛れもなくアホな出題者に対する嫌味。

さて、俺はネットで調べた標準的なシード割り振りに従って作ってみた。
偉そうなくせにコードが下手くそなオッサン(=片山ピラフ)の「コードの」下手さに苦言を呈するためにね。。

で、表示上の話をグダグダ言いたいならさぁ…。
俺のコードは処理と表示を割と切り離し気味にしているから、ほんの少しいじるだけであれこれできるんだけどね。
仮想画面だのなんだのって面倒な仕組みなんかないんで。

あー、読めませんか?こんなシンプルなコードが?
0884デフォルトの名無しさん2018/09/28(金) 00:18:08.09ID:3rxsu7Y7
>>883
シードの割り振りが不明瞭っていうのはほんとなの?
単純に二分割してるだけだよ、規則性がわからなかったの?

嫌味だってのはわかってるよ、反論どうぞとまで言ってたよね
幼稚だねで終わったけど
0885デフォルトの名無しさん2018/09/28(金) 00:27:56.79ID:pMcYji9z
根幹はきっちり作って後でどうとでも変わるようなところは力を抜いて作るって知らないのかこいつ…。
シードの割り振りは右「だよね?」という程度の画像で空気読めとかっていう馬鹿だし。

アホらしい。
0886デフォルトの名無しさん2018/09/28(金) 00:28:09.58ID:Cw7Yklq5
お前の出題なんだから不備があってもおかしくないだろ
0887デフォルトの名無しさん2018/09/28(金) 00:31:43.81ID:3rxsu7Y7
>>885
>力を抜いて作るって知らないのか

おめーほんとダセーなw
0888デフォルトの名無しさん2018/09/28(金) 00:33:10.88ID:3rxsu7Y7
>>886
σ・ω・)σそれはそうやな
0889デフォルトの名無しさん2018/09/28(金) 00:43:59.08ID:3rxsu7Y7
はっきり言うけどコードはまったくわからない
解説をお願いしたいマジで
0890デフォルトの名無しさん2018/09/28(金) 00:45:49.28ID:3rxsu7Y7
>>885
解説、お願いできますか?
0891デフォルトの名無しさん2018/09/28(金) 00:47:10.17ID:3rxsu7Y7
いろいろあったけどノーサイドってことで
仲良くやっていきたいし解説して欲しい
0892デフォルトの名無しさん2018/09/28(金) 00:48:08.57ID:Cw7Yklq5
まだ気が済まないのかよ
こんなん絶対健常者じゃないだろ
08937502018/09/28(金) 00:49:04.49ID:pMcYji9z
…。
0894デフォルトの名無しさん2018/09/28(金) 00:49:46.18ID:3rxsu7Y7
>>892
お前からも解説をお願いして欲しい
力を貸してくれたまには
0895デフォルトの名無しさん2018/09/28(金) 00:50:34.73ID:3rxsu7Y7
>>893
あの・・・この度は、解説をお願いできますでしょうか?
0896デフォルトの名無しさん2018/09/28(金) 00:51:04.42ID:Cw7Yklq5
ハードコーディングであしらうくらいで丁度いいんだよな
0897デフォルトの名無しさん2018/09/28(金) 00:51:19.52ID:3rxsu7Y7
お前ら正座して聞けよバカ野郎どもが!
0898デフォルトの名無しさん2018/09/28(金) 00:52:29.72ID:Cw7Yklq5
       ::                .|ミ|
       ::                .|ミ|
        ::               .|ミ|           ::::::::
         :::::     ____ |ミ|          ::::
           :: ,. -'"´      `¨ー 、       ::
   ::        /   ,,.-'"      ヽ  ヽ、    ::
   ::     ,,.-'"_  r‐'"     ,,.-'"`     ヽ、 ::
   ::   /    ヾ (    _,,.-='==-、ヽ         ヽ、
   ::   i へ___ ヽゝ=-'"/    _,,>         ヽ     解説、お願いできますか・・・
   ::   ./ /  > ='''"  ̄ ̄ ̄               ヽ 
  ::   / .<_ ノ''"       ヽ               i
  ::   /    i   人_   ノ              .l
  ::  ,'     ' ,_,,ノエエエェェ了               /
    i       じエ='='='" ',              / ::
    ',       (___,,..----U             / ::
     ヽ、         __,,.. --------------i-'"  ::
      ヽ、_   __ -_'"--''"ニニニニニニニニヽ   ::
         `¨i三彡--''"´              ヽ  ::  
          /                      ヽ ::              ┼ヽ  -|r‐、. レ |
         /                     ヽ::            d⌒) ./| _ノ  __ノ
0899デフォルトの名無しさん2018/09/28(金) 00:54:39.49ID:3rxsu7Y7
私、解説してもらえるまで起きてます
0900デフォルトの名無しさん2018/09/28(金) 00:59:27.24ID:Cw7Yklq5
あっそ
しつこく食い下がって相手を呆れさせるのがお前のいつもの手口だもんな
0901デフォルトの名無しさん2018/09/28(金) 01:03:54.95ID:3rxsu7Y7
>>900
でも今回ばかりは助けて欲しい
読めばわかるだろうと思ったんだけど全然わからない

私がお願いしてもダメかもしれないから
君からお願いしてみて欲しい
僕が何をしたら解説してくれるんですかって君からお願いして欲しい
0902デフォルトの名無しさん2018/09/28(金) 01:08:01.94ID:Cw7Yklq5
>>901
普段から他人を舐め腐った態度だからまるで誠意が見られない
冗談抜きで控えた方がいい
0903デフォルトの名無しさん2018/09/28(金) 01:08:52.49ID:3rxsu7Y7
>>902
ちっ役立たずが
0904デフォルトの名無しさん2018/09/28(金) 01:10:05.15ID:Cw7Yklq5
>>903
見え透いてんだよバーカw
0905デフォルトの名無しさん2018/09/28(金) 01:15:21.17ID:3rxsu7Y7
よく見たら>>750ってカッコよくない?
0906デフォルトの名無しさん2018/09/28(金) 01:15:41.39ID:3rxsu7Y7
>>904
告っちゃいなよ
0907デフォルトの名無しさん2018/09/28(金) 01:30:31.15ID:Cw7Yklq5
>>905-906
おめーほんとダセーなw
09087502018/09/28(金) 01:30:42.12ID:pMcYji9z
再帰を問題に出すくらいだから解説なくても分かるでしょ?
09097502018/09/28(金) 01:34:41.62ID:pMcYji9z
ByRef まみれの片山ゲロコードとは違い、ByVal オンリーの分かりやすいコードだし。
こんなに分かりやすいのに何が分からないのさ?

…と聞いておこう。
0910デフォルトの名無しさん2018/09/28(金) 01:39:48.69ID:3rxsu7Y7
>>907
ダサくて何が悪いんだ
地べた這いつくばっても泥水すすっても生きてくんだバカ野郎が
0911デフォルトの名無しさん2018/09/28(金) 01:51:07.16ID:3rxsu7Y7
>>908
それがわからないんです
百獣の王者ライオンも生まれたてのときは子猫と変わらないです
私をライオンの赤ちゃんだと思って教えて欲しいです

イメージができないんですよね
どういうふうに木が作られていくのか
図があると助かります
0912デフォルトの名無しさん2018/09/28(金) 02:15:19.27ID:Cw7Yklq5
      :/    _,. - 、\:    _:
      :/     / M ヽ_,. -‐''¨ ̄ ¨\:
     :/      |  _, -'´ _,. -――   |:
     :/       >‐´ _,-'´  _     ノ:
    :|      /  ∠ -‐''''彡≡ヽ  /:
    :|      / r≡ミヽ   リィ,.-−、'´:
    :|     /  |リ ̄~''   'ィt或アチl__:
    :|    /  / リ, -−-_,,  ` ‐''"´¨   \:
    :|    /__/ 、,ィ或tュ、  /        |__:
   :ノ   |    `ヽ 二ノ            |;;;;|:  
  :/    |- ,,__  __              /;;r'!:
  :!  __ |:::::::::::::|  |;;ヽ__lヽ、_    _,,/;;;;;|:
   :Y´  `'‐ ,:::::::::) └-i;;;;;;;;;;;;;;;;;;;:`¨'''¨´;;;;;;/ ̄|:   図があると助かります
   :|  -‐-、   ̄    ヽ____/ ̄''''´  /:
   :|     ̄)          トェェェェェェイ   /:
   :\              |  `'''''''/  /:
     :\___,-、_        ヾ'zェェッ'  /:
           :`''――'''''-、_∪    /:
                 :`''――'''
           /  ̄ ¨丶ヾ`ーs一'´__ ¨ ´ ̄`ヽ、
          /       ` 〃 '´        ヽ
         ,′        / l!            ;
          |  j       |D|!                !
         !  /      |S|!.        、/   |
         l  ! :2:.     └ '      .:c::   !    |
            l//"                "    }    !
0913デフォルトの名無しさん2018/09/28(金) 10:31:40.49ID:gCOipXQi
元々、この板では、片山先生・ピラフ・QZ は、有名なコテハン。
片山先生は、同姓同名の人がたくさんいるから、コテハンを変えた

ソースコードを読めば、別人だとわかるだろ。
個々人で、全然違うのだから
09147502018/09/28(金) 23:31:48.92ID:pMcYji9z
>>911
> 私をライオンの赤ちゃんだと思って教えて欲しいです

ライオンは子を先人の谷に落とすという。
這い上がれねば死ね。
0915デフォルトの名無しさん2018/09/29(土) 00:19:09.84ID:2Z6ASySQ
>>914
           ,,、,,ト、 ,,ィ ,ィ
          ,r'__" ゛" ゛" "''イ、
         ,r'( rノ,;゛゛゛゛''''""ヽ ミ
         ,r''  i  _   ー|゛';,   あー昔はそうやってたけどねー
         r,  イ  ( ・ヽ 〈・フ| "';,   でもそれだと実際育たないから
        ,i゛  イ     ▼  | ゛';,
       / リ   ヽ   __人__/ ミ
      /  ´リ    ヽ ⌒⌒i  ミ´
     /    ´リ、   ´""'''゙´ ミ´\
    /    /  "ル,     ゾ   \
   /    /     'リザゾル' ト、   \
― |      ̄ ̄ ̄ ̄ ̄ `ヽ―┴―――――――
  `ー――― --- 、__)))
0916デフォルトの名無しさん2018/09/29(土) 00:26:22.51ID:2Z6ASySQ
       ,;:'':,       ,,:'':,
      ,:':::: ':,,.,.,.,.,.,.,.,,:'::  ':,,
     ,:´::           ':,
♪    ;'::::                ':,
     ;::::              ';
     ';::::  ●      ●   ;'  教えてほしいんよ
      ';二二  (__人__)  二二;'
     '':、::::..          ,.,::'
       `;''  、,.,.,.,.,.,   ''::,,    ♪
    ((  ;::      ゙';    '':,,
       '::;: 、,.,.,.,.,.,.,::'',:'     , '::,,
        ':;;::   ,,-''    ,,:'   '':,
   ♪     ':;::  ';::   ,,::''    ;'  ))
         ,,:''::  "'''''''"      ,:'
        ,,:''::     ,:;:;:''     ;'
       ;'::::   ,,::'"  ';::::    ';
       '::;;:;:;:;:;::''     ':;:;:;:;:;:;::''
0917デフォルトの名無しさん2018/09/29(土) 00:28:21.96ID:opB5dsoR
       ::                .|ミ|
       ::                .|ミ|
        ::               .|ミ|           ::::::::
         :::::     ____ |ミ|          ::::
           :: ,. -'"´      `¨ー 、       ::
   ::        /   ,,.-'"      ヽ  ヽ、    ::
   ::     ,,.-'"_  r‐'"     ,,.-'"`     ヽ、 ::
   ::   /    ヾ (    _,,.-='==-、ヽ         ヽ、
   ::   i へ___ ヽゝ=-'"/    _,,>         ヽ     泥水すすっても生きてくんだ・・・
   ::   ./ /  > ='''"  ̄ ̄ ̄               ヽ 
  ::   / .<_ ノ''"       ヽ               i
  ::   /    i   人_   ノ              .l
  ::  ,'     ' ,_,,ノエエエェェ了               /
    i       じエ='='='" ',              / ::
    ',       (___,,..----U             / ::
     ヽ、         __,,.. --------------i-'"  ::
      ヽ、_   __ -_'"--''"ニニニニニニニニヽ   ::
         `¨i三彡--''"´              ヽ  ::  
          /                      ヽ ::              ┼ヽ  -|r‐、. レ |
         /                     ヽ::            d⌒) ./| _ノ  __ノ
0918デフォルトの名無しさん2018/09/29(土) 00:34:04.42ID:2Z6ASySQ
>>917
AA貼って荒らす暇あるなら読み解く努力しなよ
0919デフォルトの名無しさん2018/09/29(土) 00:37:27.26ID:opB5dsoR
   |     | ____    \
   |  _ /      \  __\
   |/ <_  ─    ─\__> `ヽ
   | ヽ__[ )●)  (●(コ__/ |   AA貼って荒らす暇あるなら・・
    | ヽ___[ ) (__人__)(コ___/ |
   ヽ ヽ__[ ) ` ⌒´  (コ__/ /
      `ー―'       ./`ー―'
.        ̄ ̄l  l ̄ ̄ ̄
          丿 !


        ____
       /      \ _   /  三 ニ =―
    /)─   ―___> `ヽ/      三 ニ =―
    (])(●)  ( (コ__〉__> ヽ   /三 ニ =―
   (])  (__人__)(コ__〉__>  〉/   ニ =―
    (])   ` ⌒´ (コ__〉__> ,.'  三 ニ =―
     \      `――'―'"      三 ニ =―
        ̄>ニ/ ̄ ̄ ゴキッ!             ┼ヽ  -|r‐、. レ |
          丿 ! `☆                   d⌒) ./| _ノ  __ノ
0920デフォルトの名無しさん2018/09/29(土) 00:39:37.14ID:2Z6ASySQ
おもしろいw
0921デフォルトの名無しさん2018/09/29(土) 00:44:42.92ID:opB5dsoR
          ____
       / \  /\  キリッ
.     / (ー)  (ー)\
    /   ⌒(__人__)⌒ \
    |      |r┬-|    |   おもしろい
     \     `ー'´   /
    ノ            \
  /´               ヽ
09227502018/09/29(土) 01:16:37.21ID:jsbUCzmB
片山ぁ?実名で出てこいや?

悪いけど、俺は
「VBScript縛り」で
「Projecto Euler」に参加した
「日本初」の人なんだけど?

…とか言ってみようか。
胸糞悪いが。

ていうか何を教えて欲しいのかイラつくんだけど?
他の言語にいくらでも移植できるものについて「教えて」と言われても「死ね」としか答えようがないし…
回答は「死ね」である。
0923デフォルトの名無しさん2018/09/29(土) 11:59:57.38ID:JVLIweBX
>>922
すごーい
0924デフォルトの名無しさん2018/09/29(土) 14:41:33.71ID:opB5dsoR
        ヽ:: / o
      O  )/
       __,ハ__゚
     /   Y   \
   /  _ノ  ヽ、_  \
  / o((゚●))  ((●))゚o\
  |     (__人__)    |  すごーい
  \     ` ⌒´     /
   `=============’
    i          |
    |          |
    |    ノ (   :|
   |    ⌒    |
    |          |
    |          |
0925デフォルトの名無しさん2018/09/29(土) 17:40:21.18ID:JVLIweBX
小学校4年の問題(算数だけで解くこと)

3つの正方形を並べて図のような形を作りました。
この図の面積は何平方cmですか。
http://image.itmedia.co.jp/nl/articles/1408/28/ah_san1.jpg
0926デフォルトの名無しさん2018/09/29(土) 17:51:02.77ID:opB5dsoR
           ____ 
         / _ ノ(_\;
       ;/ _    _.\;
     ;/ノ(( 。 )三( ゚ )∪\; 
    ;.| ⌒  (__人__) ノ(  |.; 
    ..;\ u. . |++++|  ⌒ /;  算数だけで解くこと
     .;ノ   ⌒⌒    .\;
0927デフォルトの名無しさん2018/09/29(土) 18:03:14.71ID:opB5dsoR
\               U         /
  \            ____      /
             /⌒  ⌒\
           /( ●)  (●)\       / _/\/\/\/|___
   \    ノ///::::::⌒(__人__)⌒:::::\ミヽ    /  \            /
    \ / く |     |r┬-|     |ゝ \    < 小学校4年の問題 >
     / /⌒ \      `ー'´    / ⌒\ \ /            \
    (   ̄ ̄⌒            ⌒ ̄ _)  ̄|/\/\/\/\/ ̄
      ` ̄ ̄`ヽ            /´ ̄    
           |             |  
  −−− ‐   ノ            |
          /             ノ
         /            ∠_
  −−   |    f\       ノ     ̄`丶.
        |    |  ヽ___ノー─-- 、_   )    − _
.        |  |             /  /
         | |           ,'  /
    /  /  ノ            |   ,'    \
      /   /              |  /      \
 /  _ノ /               ,ノ 〈           \
    (  〈               ヽ.__ \        \
     ヽ._>               \__)
0929デフォルトの名無しさん2018/09/29(土) 18:43:50.73ID:opB5dsoR
         ____      
       /      \    
      /  rデミ    \   算数だけで解くことこの図の面積は何平方cmですか補助線を引くだけ241
    /     `ー′ /でン \ 
    |     、   .ゝ    | 
     \     ヾニァ'   /  
    ノ           \ 
  /´               ヽ
 |    l
0930デフォルトの名無しさん2018/10/04(木) 20:29:05.43ID:xXONYs0H
>>682
>配列が重要なデータ構造?
>馬鹿じゃないのか?
>
>配列はどうしようもなく仕方なく使うという以外に使ってはいけない過去のもの。

配列はすごくこれから人間を救っていく
スタックを使いたいときSystem.Collections.StackをCreateObjectする方法が
あるけれども、配列を使ってスタックを実装するとそれの200倍早く処理できる

お試しください
https://gist.github.com/sleeping-marple/260bda15855e93af3fcea0266b61d3fe
0932デフォルトの名無しさん2018/10/04(木) 21:11:07.32ID:CGYEwMK9
         ____         
       /   u \  
      /  \    /\    配列はすごくこれから人間を救っていく・・・・・・・・・
    /  し (>)  (<)\  
    | ∪    (__人__)  J | 
     \  u   `⌒´   /  
    ノ           \ 
  /´               ヽ
 |    l              



         ____      
       /      \    
      /  rデミ    \   お試しください
    /     `ー′ /でン \ 
    |     、   .ゝ    | 
     \     ヾニァ'   /  
    ノ           \ 
  /´               ヽ
 |    l
0933デフォルトの名無しさん2018/10/04(木) 21:12:39.93ID:CGYEwMK9
       ____
     /⌒  ⌒\ ホジホジ
   /( ●)  (●)\
  /::::::⌒(__人__)⌒::::: \  <参考までに10進数を2進数に変換するのはこう書けます
  |    mj |ー'´      |
  \  〈__ノ       /
    ノ  ノ
0934デフォルトの名無しさん2018/10/04(木) 21:13:21.83ID:xXONYs0H
>>933
どう? 率直にどう?
0935デフォルトの名無しさん2018/10/04(木) 21:13:53.91ID:vhCji18k
今全人類に本当に必要とされてるのはピラフのパンツやろが
0936デフォルトの名無しさん2018/10/04(木) 21:14:31.31ID:xXONYs0H
ただの布じゃん
0937デフォルトの名無しさん2018/10/04(木) 21:15:09.52ID:xXONYs0H
>>932
試した? どうだった? どう?
0939デフォルトの名無しさん2018/10/04(木) 21:18:20.90ID:vhCji18k
スゥィートでくっさいくっさい布やけどね
0940デフォルトの名無しさん2018/10/04(木) 21:20:45.54ID:xXONYs0H
焼き芋みたい
0941デフォルトの名無しさん2018/10/04(木) 21:23:13.49ID:CGYEwMK9
                      ______
______________∧______ ∧_______________| ̄|‖α‖|
回■回■回■回■回■回■回 《α〕大小耳飯店〔α》 回■回■回■回■回■回■回■| ̄|  ̄ ̄ |
 ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄∨ ̄ ̄ ̄ ̄ ̄ ̄ ∨ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄|    ̄ ̄ ̄
.                ┌───┐  ̄ ̄ ̄ ̄ ̄ ̄                        .|
 ┏━┳━━┓      │は  ピ│ .| ̄ ̄ ̄| ̄ ̄ ̄|     ┏┳━━━┓┏━━━┳┓  |
 ┃┏┻┓  ┃      │じ  ラ │ .|      |      |    ┃┣━┓┏┫┃  ┏━┫┃  |
 ┃┃α┃┏┫      │め フ │ .|      |      |    ┃┃  ┣┛┃┣━┫α┃┃  |
 ┃┣━┻┻┫      │ま が.│ .|回回回|回回回|.   .┃┗┳┻━┫┃  ┗━╋┫  |
 ┗┻━━━┛      │し  発│ .|    []|[]    |    ┗━┻━━┛┗━━━┻┛  |
                   │た 狂.│ .|回回回|回回回|                              |
                   └───'  .|      |      |                       |
                       |      |      |                      _|
 ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄           ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
0942デフォルトの名無しさん2018/10/04(木) 21:24:33.05ID:CGYEwMK9
       ______
      /   u/,三.\\
    / u ノ( ( 。 )三( ゚ )\    <どう? 率直にどう?
    |    ⌒  (__人__)   | ________
     \      |++++|  / | |          |
     ノ      ⌒⌒   \| |          |
  /´                 .| |          |
 |    l       カタカタ u  ..| |          |
 ヽ u  -一ー_;、⌒)^),-、   ...| |________|
  ヽ ____,ノγ⌒ヽ)ニニ-___| |  |____
0943デフォルトの名無しさん2018/10/04(木) 21:25:21.18ID:xXONYs0H
   _(・)>]      いしや〜きいも〜 〜♪
  [焼き芋]□     おいも〜 〜♪
  / ̄ ̄ /7|~~~~~~~~~’|
 /∧,,∧ //:||△┓ζζ|
「/(・ω・`/卩||..[]┃┳┳|
|L ̄ ̄」| ̄ ̄|三三三三]
[O≡O]||..r-、_|____r-、l
~ヽニノ ̄ヽニノ ̄ヽニノヽニノ。。。
0944デフォルトの名無しさん2018/10/04(木) 21:26:16.21ID:CGYEwMK9
>>934-940
                      ______
______________∧______ ∧_______________| ̄|‖α‖|
回■回■回■回■回■回■回 《α〕大小耳飯店〔α》 回■回■回■回■回■回■回■| ̄|  ̄ ̄ |
 ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄∨ ̄ ̄ ̄ ̄ ̄ ̄ ∨ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄|    ̄ ̄ ̄
.                ┌───┐  ̄ ̄ ̄ ̄ ̄ ̄                        .|
 ┏━┳━━┓      │は  ピ│ .| ̄ ̄ ̄| ̄ ̄ ̄|     ┏┳━━━┓┏━━━┳┓  |
 ┃┏┻┓  ┃      │じ  ラ │ .|      |      |    ┃┣━┓┏┫┃  ┏━┫┃  |
 ┃┃α┃┏┫      │め フ │ .|      |      |    ┃┃  ┣┛┃┣━┫α┃┃  |
 ┃┣━┻┻┫      │ま が.│ .|回回回|回回回|.   .┃┗┳┻━┫┃  ┗━╋┫  |
 ┗┻━━━┛      │し  自│ .|    []|[]    |    ┗━┻━━┛┗━━━┻┛  |
                   │た 演.│ .|回回回|回回回|                              |
                   └───'  .|      |      |                       |
                       |      |      |                      _|
 ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄           ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
0946デフォルトの名無しさん2018/10/04(木) 21:47:33.62ID:CGYEwMK9
       ::                .|ミ|
       ::                .|ミ|
        ::               .|ミ|           ::::::::
         :::::     ____ |ミ|          ::::
           :: ,. -'"´      `¨ー 、       ::
   ::        /   ,,.-'"      ヽ  ヽ、    ::
   ::     ,,.-'"_  r‐'"     ,,.-'"`     ヽ、 ::
   ::   /    ヾ (    _,,.-='==-、ヽ         ヽ、
   ::   i へ___ ヽゝ=-'"/    _,,>         ヽ     https://gist.github.com/・・・
   ::   ./ /  > ='''"  ̄ ̄ ̄               ヽ 
  ::   / .<_ ノ''"       ヽ               i
  ::   /    i   人_   ノ              .l
  ::  ,'     ' ,_,,ノエエエェェ了               /
    i       じエ='='='" ',              / ::
    ',       (___,,..----U             / ::
     ヽ、         __,,.. --------------i-'"  ::
      ヽ、_   __ -_'"--''"ニニニニニニニニヽ   ::
         `¨i三彡--''"´              ヽ  ::  
          /                      ヽ ::              ┼ヽ  -|r‐、. レ |
         /                     ヽ::            d⌒) ./| _ノ  __ノ
0948デフォルトの名無しさん2018/10/04(木) 23:40:57.41ID:CGYEwMK9
       ____
     /⌒  ⌒\ ホジホジ
   /( ●)  (●)\
  /::::::⌒(__人__)⌒::::: \  <ピラフの活躍は1スレでは収まらないお
  |    mj |ー'´      |
  \  〈__ノ       /
    ノ  ノ
0950デフォルトの名無しさん2018/10/05(金) 12:54:59.89ID:Ea0Ig1Ue
>>949
まだ早すぎるだろ。次スレは>>990あたりが建てるほうがいい。
テンプレは以下のような感じでどうだ?


スレタイ「VBSで便利なプログラムを作れスレ 2」

素人丸出しお粗末で遅くてもいいので
いますぐ使えるちょっぴり便利プログラムを作れ
(例○○を自動処理してくれるプログラム)

前スレ
VBSで便利なプログラムを作れスレ
https://mevius.5ch.net/test/read.cgi/tech/1170492587/
0953デフォルトの名無しさん2018/10/05(金) 17:41:56.92ID:SRT2sDHv
       ____
     /⌒  ⌒\ ホジホジ
   /( ●)  (●)\
  /::::::⌒(__人__)⌒::::: \   ピラフが立てた超優良スレがあるお
  |    mj |ー'´      |   Windows Script Host
  \  〈__ノ       /    https://mevius.5ch.net/test/read.cgi/tech/1536155434/
    ノ  ノ
0954デフォルトの名無しさん2018/10/05(金) 19:40:09.26ID:SRT2sDHv
       ____
     /⌒  ⌒\ ホジホジ
   /( ●)  (●)\     >>950
  /::::::⌒(__人__)⌒::::: \   おい片山、さっさとピラフが立てたスレに来いよ
  |    mj |ー'´      |   Windows Script Host
  \  〈__ノ       /    https://mevius.5ch.net/test/read.cgi/tech/1536155434/
    ノ  ノ
0955デフォルトの名無しさん2018/10/05(金) 19:41:40.08ID:SRT2sDHv
       ::                .|ミ|
       ::                .|ミ|
        ::               .|ミ|           ::::::::
         :::::     ____ |ミ|          ::::
           :: ,. -'"´      `¨ー 、       ::
   ::        /   ,,.-'"      ヽ  ヽ、    ::
   ::     ,,.-'"_  r‐'"     ,,.-'"`     ヽ、 ::
   ::   /    ヾ (    _,,.-='==-、ヽ         ヽ、
   ::   i へ___ ヽゝ=-'"/    _,,>         ヽ     おいピラフ・・次スレ建てろよ・・・
   ::   ./ /  > ='''"  ̄ ̄ ̄               ヽ 
  ::   / .<_ ノ''"       ヽ               i
  ::   /    i   人_   ノ              .l
  ::  ,'     ' ,_,,ノエエエェェ了               /
    i       じエ='='='" ',              / ::
    ',       (___,,..----U             / ::
     ヽ、         __,,.. --------------i-'"  ::
      ヽ、_   __ -_'"--''"ニニニニニニニニヽ   ::
         `¨i三彡--''"´              ヽ  ::  
          /                      ヽ ::              ┼ヽ  -|r‐、. レ |
         /                     ヽ::            d⌒) ./| _ノ  __ノ
0957デフォルトの名無しさん2018/10/05(金) 20:30:03.95ID:KYi5h4An
私もピラフ嫌い、AA貼って荒らすことしかできない無能に成り下がったよね
0958デフォルトの名無しさん2018/10/05(金) 20:49:29.50ID:Ea0Ig1Ue
>>953
それならそっちを実質上の次スレにするという事でいいんじゃないか?
0959デフォルトの名無しさん2018/10/05(金) 20:57:39.61ID:SRT2sDHv
                ___
               /     \
             / ─    ─ \
            /  (●)  (●) \
              |     (__人__)     |  こいよオラ!!オラ!!
           ,.゙-‐- 、  `⌒´   ,/  https://gist.github.com/kingpilaf/
        ┌、. /     ヽ ー‐  <.
         ヽ.X、- 、   ,ノi      ハ
      ⊂>'">┐ヽノ〃     / ヘ
       入 ´// ノ        } ,..,.._',.-ァ
      /   `ー''"´      ,'  c〈〈〈っ<
     /          __,,..ノ ,ノヽー'"ノ
      {          ´    /  ``¨´
    /´¨`'''‐、._        ,'\
     ∨´     `ヽ、     ノ   ゙ヽ
      ∨      ヽ _,,..-'"    `ヽ
     ∨       〈-=、.__       }
      ヽ、     }   ``7‐-.  /
          ヽ     リ    /′  ノ
          /′  , {     /   /
        {     !   ,ノ  ,/′
          !    /  /   `‐-、
        !   ,/   ゙ー''' ー---'
          ',  /
        {   }
           ゙Y `ヽ、
            ゙ー--‐'
0960デフォルトの名無しさん2018/10/05(金) 21:10:46.86ID:SRT2sDHv
                        ____
                      /⌒  ⌒\
            ___   /( ●)  (●)\   ___
          /⌒  ⌒\/::::::⌒(__人__)⌒:::::ヽ/⌒  ⌒\
        /( ●)  (●)\     |r┬-|   /( ●)  (●)\
       /:::::::⌒(__人__)⌒:::: \   `ー'´  /:::::::⌒(__人__)⌒:::: \
       |     |r┬-|     | ̄ ̄ ̄ ̄ |      |r┬-|     |
      ___   `ー'´    /       \      `ー'´  ____
    /⌒  ⌒\  ̄ ̄ ̄ ̄           ̄ ̄ ̄ ̄ ̄/⌒  ⌒\
   /( ●)  (●)\       _|_ヽ       |       /( ●)  (●)\
 /::::::⌒(__人__)⌒::::: \        _」   _   |   /::::::⌒(__人__)⌒::::: \
 |     |r┬-|     |     (_厂 )  _)  o     |     |r┬-|     |
 \      `ー'´  https://gist.github.com/sleeping-marple/__ `ー'´    /
    ̄ ̄ ̄ ̄ ̄/⌒  ⌒\                   /⌒  ⌒\ ̄ ̄ ̄
        /( ●)  (●)\                /( ●)  (●)\
       /::::::⌒(__人__)⌒::::: \   ____  /:::::⌒(__人__)⌒::::: \
       |     |r┬-|     | /⌒  ⌒\      |r┬-|     |
       \    `ー'´     /( ●)  (●) \    `ー'´     /
           ̄ ̄ ̄ ̄ ̄ ̄ ̄ /::::::⌒(__人__)⌒::::: \  ̄ ̄ ̄ ̄ ̄
                   |     |r┬-|     |
                   \      `ー'´     /
0964デフォルトの名無しさん2018/10/05(金) 21:40:52.82ID:SRT2sDHv
       ::                .|ミ|
       ::                .|ミ|
        ::               .|ミ|           ::::::::
         :::::     ____ |ミ|          ::::
           :: ,. -'"´      `¨ー 、       ::
   ::        /   ,,.-'"      ヽ  ヽ、    ::
   ::     ,,.-'"_  r‐'"     ,,.-'"`     ヽ、 ::
   ::   /    ヾ (    _,,.-='==-、ヽ         ヽ、
   ::   i へ___ ヽゝ=-'"/    _,,>         ヽ     .NETのStackのPopがすごく時間かかる・・・
   ::   ./ /  > ='''"  ̄ ̄ ̄               ヽ 
  ::   / .<_ ノ''"       ヽ               i
  ::   /    i   人_   ノ              .l
  ::  ,'     ' ,_,,ノエエエェェ了               /
    i       じエ='='='" ',              / ::
    ',       (___,,..----U             / ::
     ヽ、         __,,.. --------------i-'"  ::
      ヽ、_   __ -_'"--''"ニニニニニニニニヽ   ::
         `¨i三彡--''"´              ヽ  ::  
          /                      ヽ ::              ┼ヽ  -|r‐、. レ |
         /                     ヽ::            d⌒) ./| _ノ  __ノ
0965デフォルトの名無しさん2018/10/05(金) 21:43:05.16ID:KYi5h4An
>>964
君目障りだな、面白くないし
0966デフォルトの名無しさん2018/10/05(金) 21:45:45.27ID:KYi5h4An
>>962
あたしゃ首吊りAAなんて貼ってないよ、冗談じゃないよ
なんか良い問題ないかね? 不変オブジェクトの線形リストをソートするってのはどうだろ?
0967デフォルトの名無しさん2018/10/05(金) 21:46:30.48ID:SRT2sDHv
>>965
私もピラフ嫌い、AA貼って荒らすことしかできない無能に成り下がったよね


これコテを外す前のお前の事だよな
0969さまよえる蟻人間 ◆T6xkBnTXz7B0 2018/10/05(金) 21:55:22.17ID:H5kETuoP
登場人物を確認しておこう。

俺が蟻人間で、
ID:KYi5h4Anがマープルおばさんで、
ID:SRT2sDHvがピラフになりすますAA荒らし。
本物のピラフは生死不明。
0970デフォルトの名無しさん2018/10/05(金) 21:58:37.59ID:KYi5h4An
>>969
Σd(°∀°d) Yes!
0971デフォルトの名無しさん2018/10/05(金) 22:01:10.97ID:SRT2sDHv
>>969
もしかしてピラフ本人だと思ってたのか?
なりすましてたわけじゃなく、コイツの悪態を晒してただけなんだけど
やっぱりピラフはキチガイと認識されてたかwwww
0972デフォルトの名無しさん2018/10/05(金) 22:04:51.37ID:SRT2sDHv
       ::                .|ミ|
       ::                .|ミ|
        ::               .|ミ|           ::::::::
         :::::     ____ |ミ|          ::::
           :: ,. -'"´      `¨ー 、       ::
   ::        /   ,,.-'"      ヽ  ヽ、    ::
   ::     ,,.-'"_  r‐'"     ,,.-'"`     ヽ、 ::
   ::   /    ヾ (    _,,.-='==-、ヽ         ヽ、
   ::   i へ___ ヽゝ=-'"/    _,,>         ヽ     あたしゃ首吊りAAなんて貼ってないよ・・・
   ::   ./ /  > ='''"  ̄ ̄ ̄               ヽ 
  ::   / .<_ ノ''"       ヽ               i
  ::   /    i   人_   ノ              .l
  ::  ,'     ' ,_,,ノエエエェェ了               /
    i       じエ='='='" ',              / ::
    ',       (___,,..----U             / ::
     ヽ、         __,,.. --------------i-'"  ::
      ヽ、_   __ -_'"--''"ニニニニニニニニヽ   ::
         `¨i三彡--''"´              ヽ  ::  
          /                      ヽ ::              ┼ヽ  -|r‐、. レ |
         /                     ヽ::            d⌒) ./| _ノ  __ノ
0974デフォルトの名無しさん2018/10/05(金) 22:31:57.58ID:SRT2sDHv
           _,,  ---一 ー- ,,,_
 、  _,,,, _,, -.'"           ` 、
 ミ三ミ三ミ三ミミ                ヽ_,
-==三ミ彡三ミミ     ,,=-==     ==、 iミ=-、_
_,,ンミミ三ミ三ミミ]  -彡-一 ー-、 r一 ーミ、|ミミ三ミ=-'
_, -==彡ミ彡ミミミ|  ン| ,=て)> (|ー| ,て)>、 ||三ミ彡==-'
 ,彡彡三ミ三ミミiレ'~ .|. '     |  ヽ   `  |ミ三彡三=-
(_彡三ミ彡ミミミ'   ヽ、    ノ   \__ノiミ彡ミ三=ー
ー-=二三ンーミミミ     `ー /(_r-、r-_)   .|彡ミ三=-、
)(_ミ彡ミ| i' ヽヽミ       | : : : __ : :__: :i   .|彡ミ三=-、 
と彡ミ彡ミヽヽ<ヽミミ      |: ン=-ニ-ヽ、   .|彡ミ三==-タブ区切りテキストをCSVに変換するプログラムを作ろう。
 彡ミ彡ミミヽ  ) `    、 .' <=ェェェェェン |    |彡ン=-=
-==彡三ミi `ーヽ : : : : : :i: :  `ー--一''  : : ノミ三==''
'' てノこミ彡三ミ`i : : : : : :ヽ: : : .      .:, :/ミ三=-、
  '' 三ミ=三三ミ|ヾ、: : : : :ヽ: : : : : : : : :_ノ:./三=-'
   -=='' ̄ .        : ̄ ̄ ̄    彡 `
0975デフォルトの名無しさん2018/10/05(金) 22:32:57.88ID:KYi5h4An
>>973
いいっすね
0976デフォルトの名無しさん2018/10/05(金) 22:34:45.75ID:SRT2sDHv
     |  |   |   |
     _||_||__||  ||
    (__/   `ー――
   (___/  r
    (_レノ)\   ___
    (__/__/

       ____
     /⌒  ⌒\
   /( ●)  (●)\
  /::::::⌒(__人__)⌒::::: \
  |     |r┬-|     |
  \      `ー'´     /



     //ノ ̄ ̄`ヽ、// // ////
     / ´`ヽ _  // // //
     (--/ ̄ ,    ` ̄ ̄ ̄///
     (  ...|  /!
     (`ー‐し'ゝL _
   /(--‐‐'´}    ;ー------
  :● ))`ヾ:::-‐'ーr‐'" ((●   いいっすね
   \ `ー'  |r┬-| `ー'  /  
         `ー'┃        
0979デフォルトの名無しさん2018/10/05(金) 22:44:58.40ID:SRT2sDHv
                / ̄ ̄\  タブ区切りテキストをCSVに変換するプログラムを作ろう。
            アッ… /‐' ヽ_   \
              ( ー)( ー)  |     ____
              (__人__)///   |     /      \
        γ⌒ヽノ l` ⌒´      |  / ─''  `ー  \ んッ… いいっすね
        (  ⌒ )  {        |/  (ー)  ( ー)   \   γY⌒ヽ
        ゝ_ イ   {        / |   ///(__人__)///   | ー (   ノ )
               ヽ     ノ、 \    ` ⌒´      ,/   ゝ、_ノ
            / ̄/ ` ー ─ '/><  ` ー─ '   ―-、
           /        ̄    /              ヽ
            |    、.   r‐x‐、,'    ,.‐x‐、   . /   /
           \.   \  ! (__) ヽ、. / (__) 〉_,./   /
                \    ミ、_,.   ̄ ̄ ̄      /
               `ー-------‐`ー―------―一'
0980さまよえる蟻人間 ◆T6xkBnTXz7B0 2018/10/05(金) 22:48:38.66ID:H5kETuoP
こいつはピラフじゃなくて、メープルおばさん。役に立つプログラムを作ろうとしてるんだから、スレ違いではない。
荒らしが消えても名無しは葬式に行かないもん。
0981さまよえる蟻人間 ◆T6xkBnTXz7B0 2018/10/05(金) 22:53:55.72ID:H5kETuoP
荒らしは知らないかも知れないけど、ソフトをインストールしちゃダメっつー、特殊な環境が
あって、そこでWSHがよく使われているらしいぜ。
0982さまよえる蟻人間 ◆T6xkBnTXz7B0 2018/10/05(金) 22:57:59.89ID:H5kETuoP
VBSが役に立つ、役に立たないを判断するのは利用者であって、お前ではない。
勝手な思い込みでスレを攻撃してはならない。
0983デフォルトの名無しさん2018/10/05(金) 23:21:59.07ID:SRT2sDHv
VBSに限らず好き勝手やってるピラフに餌やってるんだからお前も荒らし
便利だと言い張って居座ろうとしているだけ

そうでないならこっちでやらない理由はないよな
Windows Script Host
https://mevius.5ch.net/test/read.cgi/tech/1536155434/
0984デフォルトの名無しさん2018/10/06(土) 00:00:17.57ID:Vub0ibUO
コードの下手くそさ加減から言って
片山=ピラフ

乙。

次スレいらん。
0991デフォルトの名無しさん2018/10/06(土) 22:55:52.05ID:3jx2Sr2A
認められないんだろうな
プライドだけは高いから自分と向き合えない
0993デフォルトの名無しさん2018/10/06(土) 22:58:41.21ID:3jx2Sr2A
ゲームをぶち壊しにしてしまえば運動音痴なことを隠せると思ってるんだろ
10011001Over 1000Thread
このスレッドは1000を超えました。
新しいスレッドを立ててください。
life time: 4263日 5時間 12分 59秒
10021002Over 1000Thread
5ちゃんねるの運営はプレミアム会員の皆さまに支えられています。
運営にご協力お願いいたします。


───────────────────
《プレミアム会員の主な特典》
★ 5ちゃんねる専用ブラウザからの広告除去
★ 5ちゃんねるの過去ログを取得
★ 書き込み規制の緩和
───────────────────

会員登録には個人情報は一切必要ありません。
月300円から匿名でご購入いただけます。

▼ プレミアム会員登録はこちら ▼
https://premium.5ch.net/

▼ 浪人ログインはこちら ▼
https://login.5ch.net/login.php
レス数が1000を超えています。これ以上書き込みはできません。

ニューススポーツなんでも実況