■ このスレッドは過去ログ倉庫に格納されています
VBSで便利なプログラムを作れスレ
- 1 :デフォルトの名無しさん:2007/02/03(土) 17:49:47
- 素人丸出しお粗末で遅くてもいいので
いますぐ使えるちょっぴり便利プログラムを作れ
(例○○を自動処理してくれるプログラム)
- 351 :デフォルトの名無しさん:2011/02/09(水) 21:36:33
- 何処が厄介?
テキストに書かれたパスを連想配列に入れて
対象フォルダ内のファイルをループ回しながらExistsでチェックするだけだろ
- 352 :デフォルトの名無しさん:2011/02/09(水) 21:59:35
- ほらね。わかってない。
- 353 :デフォルトの名無しさん:2011/02/10(木) 01:35:05
- 解ってないのは350。恥ずかしい、、、
- 354 :347:2011/02/10(木) 08:01:03
- 皆さんありがとうございます。
前半部分は大体イメージをつかめているのですが、後半部分でつまってます…
- 355 :デフォルトの名無しさん:2011/02/10(木) 08:06:41
- とにかく自分で出来る部分まで書いて貼るなりどこかにアップするなりしろ
話はそれからだ
- 356 :デフォルトの名無しさん:2011/02/10(木) 11:30:54
- つまり全ドライブの全フォルダを検索しなきゃならんな
- 357 :デフォルトの名無しさん:2011/02/10(木) 11:48:49
- 普通に考えれば、対象は一部(特定のフォルダ以下)だろ
- 358 :デフォルトの名無しさん:2011/02/10(木) 13:09:11
- >>357
どうしてそう言い切れる。
本人はフルパスファイル名、つまり絶対パスを指定しているんだぞ
特定フォルダでいいなら相対にするだろ常識的に考えて
- 359 :デフォルトの名無しさん:2011/02/10(木) 13:17:09
- 昨今、相対パスが使われるのは相対パスでなければ困る場合のみで
どちらでも構わない場合は絶対パスを使うことの方が多い件について。
- 360 :デフォルトの名無しさん:2011/02/10(木) 15:02:25
- >>347が情報小出しにするからイカンのだ
こういう質問者って大体足りてないよな色々と
- 361 :デフォルトの名無しさん:2011/02/10(木) 20:22:36
- >>359
zipとかの書庫ファイルはなんで相対パスで格納してるか理解できる?
何のためにカレントディレクトリって概念があると思う?
何でわざわざ%SystemRoot%とか環境変数を定義してるのか疑問に思わない?
- 362 :デフォルトの名無しさん:2011/02/10(木) 20:26:38
- 相対パスが絶対的に必要ではない場合はって話をしてるのに
全く的はずれな例を持ってきたな
そういうことは相対パスそのものが無意味とか宣ってる奴に言ってやれ
- 363 :デフォルトの名無しさん:2011/02/10(木) 21:27:12
- どちらでも構わない場合、ってどういう場合だよ
レスにアンカー付けるときにわざわざ
http://hibari.2ch.net/test/read.cgi/tech/1170492587/362
なんてする奴はいないだろ
逆に「絶対パスが使われるのは絶対パスでなければ困る」時でしかないだろ
- 364 :デフォルトの名無しさん:2011/02/10(木) 21:49:46
- 狭量なやつw
- 365 :デフォルトの名無しさん:2011/02/10(木) 22:58:35
- >>361
質問者はzipファイルの中身まで調べるなんて設問はして無いだろ。
なんでオマエは論点をずらそうと必死なんだ?
- 366 :デフォルトの名無しさん:2011/02/12(土) 11:50:55
- vbscriptでmicrosoft bluetooth stackの接続情報を得ることはできませんか?
- 367 :デフォルトの名無しさん:2011/02/13(日) 08:23:52
- "E:\hogehoge\hoge"
というフォルダが存在した場合、そのフォルダを削除。
存在しなければそのまま終了。
という簡単なスクリプトを教えていただけませんでしょうか?
- 368 :デフォルトの名無しさん:2011/02/13(日) 08:51:10
- いいよ。
で、どこを教えて欲しいの?
まさか1から10まで丸投げで全部書いてとは言わないよね?
しかも質問スレではなく、自分の書いたものを晒すスレで。
- 369 :デフォルトの名無しさん:2011/02/13(日) 14:02:19
- いや○投げスレじゃね?ここ。
- 370 :デフォルトの名無しさん:2011/02/13(日) 14:18:16
- >367
VBSじゃないが、これで事足りないか?
if exist "E:\hogehoge\hoge\." rd/s/q "E:\hogehoge\hoge"
- 371 :367:2011/02/13(日) 14:31:51
- なんだか趣旨がよくわからないスレでしたが、どこへ質問すれば良いのかわからず、とりあえず書き込んでしまいました。
申し訳ありません。
>>370 さんのバッチファイルで満足な結果が得られました。
まさか1行で済むとは思いもしませんでした。
ありがとうございました。
- 372 :デフォルトの名無しさん:2011/02/13(日) 14:32:35
- hoge\. だとhogeってファイルがあった時も反応するんだよな。
hoge\nul だとディレクトリしか反応しない。
- 373 :デフォルトの名無しさん:2011/02/14(月) 23:17:24
- 質問スレがみつからなかったので、こちらで質問させて頂きます。
Set objShell = WScript.CreateObject("WScript.Shell")
Set objExec = objShell.Exec("ipconfig.exe")
って実行した時に、標準出力に結果を出さないようにする方法ってありますか?
ipconfig 1 > nul
みたいな感じで、エラー発生時以外はすべて返ってくる結果を捨てたいのです。
そのまま書いてもうまく動かないです。
- 374 :デフォルトの名無しさん:2011/02/15(火) 00:05:35
- つgoogle [wscript Exec 標準出力]
- 375 :デフォルトの名無しさん:2011/02/15(火) 00:17:00
- >374
トラップされるって事は、読み出さない限り無視されるって事ですか?
- 376 :デフォルトの名無しさん:2011/02/15(火) 00:19:20
- > 標準出力に結果を出さない
はipconfig.exeが対応してなきゃ出来ないよ
WSH(EXEC)が受け取った標準出力を
「コンソールウィンドウに表示しない」
ならどうにでもなるけど
- 377 :デフォルトの名無しさん:2011/02/15(火) 00:36:44
- >376
コンソールウィンドウに表示しないと、1 > nul って同じ扱いですか?
質問ばかりで申し訳ない。
- 378 :デフォルトの名無しさん:2011/02/16(水) 00:51:30
- ipconfigはネットワーク設定を確認する為のプログラムなんだから
エラーになるのはexeが見つからない時ぐらいじゃねーの。
ネットワーク設定されて無い時は"設定無し"って正常終了するんだし
- 379 :デフォルトの名無しさん:2011/02/16(水) 02:01:02
- >>373
ttp://www.atmarkit.co.jp/fwin2k/operation/wsh05/wsh05_03.html
- 380 :デフォルトの名無しさん: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 & "'")
- 381 :デフォルトの名無しさん:2011/02/16(水) 13:03:00
- 何かすげぇな…
CreateObject("SAPI.SpVoice").Speak"Wellcom to VBScript."
- 382 :デフォルトの名無しさん:2011/02/17(木) 05:50:16
- CreateObject("SAPI.SpVoice").Speak"KoNoHaYaSaNaRa. Ieru. Null Po."
- 383 :デフォルトの名無しさん:2011/02/17(木) 12:24:42
- CreateObject("SAPI.SpVoice").Speak"Gutt."
- 384 :デフォルトの名無しさん:2011/02/17(木) 22:51:24
- "null poor" "gad"にしたらそれっぽく聞こえるようになった
- 385 :デフォルトの名無しさん:2011/02/17(木) 23:00:22
- こんな化石ネタに乗ってくる奴が居るとは、、、
- 386 :デフォルトの名無しさん:2011/02/20(日) 20:13:23.14
- ほるだー内にあるoutlook6のメッセージファイル.emlを検索して、エクスプローラにリンク表示するプログラムを作ってます
が、.emlが開けない
アウトルックを軌道してクリックしたメッセージを表示したいのですが、どう書けばいいのでしょう。
wshshell.runでは出来ませんでした……
- 387 :デフォルトの名無しさん:2011/02/21(月) 01:17:30.92
- ISPの切断>接続をしてくれるPGをどなたかキボン!
telnetでルータ(Aterm)に入って、PPPoEを再接続してくれる物です。
- 388 :デフォルトの名無しさん:2011/02/21(月) 07:28:22.68
- だからここは自分で作って晒すスレで
質問スレや制作依頼所じゃないと何度言えば…
- 389 :デフォルトの名無しさん:2011/02/21(月) 09:56:31.24
- ほかにいくか……VBSじゃなくてIEの問題な気がしてきた
- 390 :デフォルトの名無しさん:2011/02/21(月) 21:02:49.69
- 丸投げされるのはムカつくけど多少の質問ならいいんじゃね?
>>387
telnetで入れるならTeraTerm等でマクロ作ったほうが簡単。
もっとも擬似GUIだとお手上げだが。
- 391 :デフォルトの名無しさん:2011/02/26(土) 01:19:27.04
- 昔、telnetをラップするvbs作ったことあったな…
- 392 :デフォルトの名無しさん:2011/04/09(土) 21:38:36.77
- こんな感じでマイドキュメントをコピーしてバックアップを
取ろうとしてるんですが、Windows 7だとエラーが返ってきて、
コピーできません。
Set objFS = CreateObject("Scripting.FileSystemObject")
objFS.CopyFolder "C:\Users\Admin","C:\test"
AdministratorでもコピーできないのってUACの仕様ですか?
- 393 :デフォルトの名無しさん:2011/04/09(土) 21:50:40.23
- >>392
>>388
- 394 :デフォルトの名無しさん:2011/04/10(日) 00:04:08.05
- >>393
>>390
- 395 :デフォルトの名無しさん:2011/04/10(日) 00:16:29.59
- >>390を引き合いに出すなら、それを引き合いに出した>>394自身が答えてやらないとなw
- 396 :デフォルトの名無しさん:2011/04/10(日) 06:02:52.24
- >>392
UACというかVistaからの仕様です
例え管理者といえど他人の敷地には許可無く進入は出来ません。
今までのウィルスならこれで全て無力化される、そんぐらい厳しい仕様。
因みにAdminとAdministratorは別物だよ。
XPまでのユーザー管理とは似た非なるものと認識しておこう。
ポリシーいじれば同じ感じに出来るけどめんどい。
- 397 :392:2011/04/10(日) 19:18:31.68
- >>393
>>394
質問スレじゃないの理解してませんでした。申し訳ない。
>>395
フォローありがとうございます。
>>396
かなりめんどくさそうですね。手作業でやった方が速いのかも…
アクセスフォルダに所有権とかつけてみて、もうちょっとやってみます。
ありがとうございます。
- 398 :デフォルトの名無しさん:2011/04/23(土) 17:43:43.24
- 唐突ですがウサギ型ロボットをR2D2にするためのVBSを公開しましたよ
ttp://xbmc.inpane.com/sub/nabaztag/
- 399 :デフォルトの名無しさん: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
- 400 :デフォルトの名無しさん:2011/04/27(水) 22:03:44.07
- おまえら>>399これくらいも答えられないのかよ
死ねっ!能無しども
会社でもろくな仕事してないんだろうなぁ・・
- 401 :デフォルトの名無しさん:2011/04/27(水) 22:11:12.36
- >>400
あんまし読んでないしてきとーだけど再帰処理っぽいなと思った。
見つかるまで自分自身を呼び続けたらいいべさ
- 402 :デフォルトの名無しさん:2011/04/27(水) 22:38:33.12
- >>825
http://mackerel.axfc.net/uploader/Img/l/7923901924/v/Img_114179.jpg
- 403 :デフォルトの名無しさん:2011/05/20(金) 13:19:16.79
- ここで聞いていいのか分かりませんが、分かる方いたら教えてください。
コマンドラインでフォルダを圧縮するためにZIP.VBSというのを使っているのですが、
MakeZIP.VBSでフォルダを圧縮する際、zipファイルにフォルダ名が格納されてしまいます。
photo
├aa.jpg
└bb.jpg
上記のような場合に、zipファイルにphotoフォルダも格納されます。
これをphotoフォルダを格納せず、ファイルのみ格納するにはどこを修正すればよいのでしょうか。
よろしくお願いします。
- 404 :デフォルトの名無しさん:2011/05/20(金) 14:38:03.93
- そもそもスレ違いだが、それ解らないレベルならZIP.VBSなんか使わずに
コマンドライン型のアーカイバツール使えよ。
GUIで予め設定しておけば渡したフォルダの中身だけ圧縮してくれるものなんて
いくらでもあるから。
- 405 :デフォルトの名無しさん:2011/05/23(月) 11:47:33.82
- 修正も何もコマンドラインをまず書けよ、なっ?
- 406 :デフォルトの名無しさん:2011/06/05(日) 10:08:34.52
- ブ・・・vbs・・・
わしは・・ワシは今までこんな素晴らしい言語があるなんて知らなかった・・・!
APIなんかいらないじゃん!
- 407 :デフォルトの名無しさん:2011/06/05(日) 11:18:49.84
- VBSにD&Dしたものを他のソフトのウィンドウへD&Dとして受け渡すことは可能ですか?
- 408 :デフォルトの名無しさん:2011/06/05(日) 18:56:55.67
- ファイルへのD&Dなら可能
これは単なるコマンドライン実行なので
ウィンドウへのD&Dならデフォでは不可
専用のCOMでも作るか探すかすれば出来ないことはないだろうけど
- 409 :デフォルトの名無しさん:2011/06/06(月) 00:45:23.45
- サンプルをいじることしか出来ない私には手に負えないですね…
諦めで別な方法を模索してみます
- 410 :デフォルトの名無しさん: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スクリプト内
でやろうとするにはどうすればいいのでしょうか?
- 411 :デフォルトの名無しさん: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
- 412 :デフォルトの名無しさん:2011/06/14(火) 02:45:45.67
- ' 書き込みの前から' 正規表現パターンを指定するへループして繰り返せればなと考えているのですが上手く思いつきません。
もし、わかるかたがいらっしゃれば教えてください。よろしくお願いします。
- 413 :デフォルトの名無しさん:2011/06/14(火) 04:43:26.73
- やりたい事がいまいちわからないが、
複数回やりたいんであれば、
正規表現パターンを配列に入れて、ループするだけじゃないかな〜
- 414 :デフォルトの名無しさん:2011/06/14(火) 07:48:13.52
- >>411
objRep.Pattern = "<(""[^""]*""|\'[^\']*\'|[^\'"">])*>"
こういうことじゃなくて?
- 415 :デフォルトの名無しさん:2011/06/14(火) 19:38:12.72
- なんでdat使わないで、
わざわざhtmlなんて難しいものを使う?
- 416 :デフォルトの名無しさん:2011/06/15(水) 11:59:02.32
- ちょっと見てみた、確かにhtmlよりdatのほうが容量4割減でおいしいんだけどタイトル取得できないのとコメ番号ないから置換するときどうやって割り当てようか思いつかない
- 417 :デフォルトの名無しさん:2011/06/15(水) 12:03:32.40
- よくみたら1行目の最後にタイトルあったわ
- 418 :デフォルトの名無しさん:2011/06/15(水) 19:08:23.10
- デスクトップから2ch検索するvbs作ってるんだけど、
変数の件でわからないところがある。
Dim 変数 で宣言する
このとき変数が、例えば2churlとかだと識別子がありません。とエラーがでる
churlなら問題ない、どうして先頭に数字がくるといけないんですか?
識別子がありません。
- 419 :デフォルトの名無しさん:2011/06/15(水) 19:30:46.07
- 先頭に数字が来ることを許すと
Dim 2
とか
Dim 123
という変数が出来てしまう
これってどうやって変数の2や123と、数値の2や123を識別するの?
ってことになるので、必ず英字を入れなければならないというルールが必要になるわけで
1文字の変数がある以上、その英字が入る位置は1文字目、つまり先頭になり
1文字目が英字でなければいけない=先頭が数字ではいけない
ってことになるわけだ
1文字目が英字でさえあれば、1文字変数でも、2文字目以降が数字でも
確実に変数と数値を識別できる
- 420 :デフォルトの名無しさん: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
- 421 :デフォルトの名無しさん:2011/06/19(日) 01:45:19.27
- 選択プルダウンボックスとか作れたら便利になるのになぁ
- 422 :デフォルトの名無しさん:2011/06/19(日) 02:28:19.04
- VBSで選択プルダウンボックス使ってるけど、何か?
VBSというかWSHは、COM、OCXで拡張してナンボなんだから
欲しいけど言語に備わってない機能は、外部で補えば良いだけだ
- 423 :デフォルトの名無しさん:2011/06/19(日) 07:13:15.16
- 自分専用ならそうだろうけど、
comはインストールの壁が越えられない
- 424 :デフォルトの名無しさん:2011/06/19(日) 07:17:25.40
- 超えられるけど、何か?
USBメモリで持ち歩いて使ってる
COMのレジストリ登録を自動化してるとかではなく未登録で
- 425 :デフォルトの名無しさん:2011/06/19(日) 07:43:48.47
- 自信満々で「超えられるけど、何か?(キリッ」だもんなあw
- 426 :デフォルトの名無しさん:2011/06/19(日) 08:09:56.20
- 自信満々に言った「comはインストールの壁が越えられない(キリッ」
を否定されて悔しかったの?
- 427 :デフォルトの名無しさん:2011/06/19(日) 08:19:38.57
- GetObject
- 428 :デフォルトの名無しさん:2011/06/19(日) 08:29:07.02
- USB股間に忍ばせて持ち歩く男の人って・・・///
きみの端子にプラグ★イン!
- 429 :≠423:2011/06/19(日) 10:02:11.33
- >>426
あのね、ある程度の会社ならね、勝手にツール類をインストールする事ができないのね。
USBメモリも、使用禁止、あるいは相当制限されているのが一般的なのよ。
- 430 :デフォルトの名無しさん:2011/06/19(日) 12:12:42.62
- なんか勘違いしてる子が出てきたなw
あのね、comにインストールの壁なんて無いって話であって
USBメモリなんて、全く関係ない話なのよ
それと、『ある程度』レベルの会社だと、勝手にツール類をインストールする事ができないところが多いけど
『ある程度』を超えたまともな会社だと、勝手にツール類をインストールする事が出来るところも多い
セキュリティーが確立している上に、VBAやWSHなどの元から入ってる言語でいろいろ作れる奴が多いから
外部からのツールのインストールを制限しても、元から入ってる言語でツールが作れちゃうから意味無いw
逆にまともな会社だでツールのインストールを制限している場合は、WSHもVBAも制限してる
- 431 :デフォルトの名無しさん:2011/06/19(日) 18:14:48.56
- ≠423とか必死に否定すると、余計に・・・・・( ̄ー ̄)ニヤリッ
- 432 :デフォルトの名無しさん:2011/06/19(日) 21:27:41.80
- 「勝手に出来る」って方がおかしいだろ
今の時代どこもピリピリしてるってのに。
単におまえさん自身か会社がその客に信用されてるってだけじゃねーの?
でも普通は申請式だと思うけど。他人の会社で勝手にてのはどうかと思う。
- 433 :デフォルトの名無しさん:2011/06/20(月) 00:02:07.13
- 勝手にしてよいと許されていることを勝手にやる上で、何の咎があると?
なにか勘違いしてやいないか?
- 434 :デフォルトの名無しさん:2011/06/20(月) 00:33:54.55
- これは突っ込んであげたほうが良いのだろうか?
- 435 :デフォルトの名無しさん:2011/06/20(月) 00:59:30.37
- 生温かい目で見守ってあげるのが良いんじゃないかと
- 436 :デフォルトの名無しさん:2011/06/20(月) 10:20:41.11
- batファイルは止められませんね
じゃぁバッチ最強じゃん
- 437 :デフォルトの名無しさん: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やマッチとかが関係ありそうで
調べて試したんですが思うようにいきませんでした。
- 438 :デフォルトの名無しさん:2011/06/21(火) 21:55:45.73
- まずは基本を学べってレベル
- 439 :デフォルトの名無しさん:2011/06/23(木) 15:44:28.14
- 正規表現の構文がデタラメ。
パターンがデタラメだし後方参照の仕方もデタラメ。
ヘルプもろくに見てないだろ。
- 440 :デフォルトの名無しさん:2011/06/23(木) 22:13:57.11
- 置換という言葉の意味もわからぬまま、これをコピペして値を
置き換えたんだろう。
http://d.hatena.ne.jp/necoyama3/20081202/1228220710
- 441 :デフォルトの名無しさん:2011/06/23(木) 22:32:18.65
- 凄い違和感あったんだけど納得
- 442 :デフォルトの名無しさん:2011/06/23(木) 23:57:00.51
- >>433
やっぱ許可貰ってんじゃん
ま、当たり前だよなびっくりした
- 443 :デフォルトの名無しさん:2011/06/24(金) 07:22:39.31
- 久しぶりに酷い自演をみた
- 444 :デフォルトの名無しさん:2011/06/24(金) 10:19:04.37
- >repText = "$2"
この意味不明っぷりがすごいね
- 445 :デフォルトの名無しさん:2011/06/24(金) 14:11:47.65
- 突っ込む所はそこじゃないと思うがw
Echoのとことか、パターン自体に突っ込めよ
- 446 :デフォルトの名無しさん:2011/06/24(金) 14:15:34.45
- >>440
> objRep.Pattern = "T..t"
感動的なパターンだなw
- 447 :デフォルトの名無しさん:2011/06/24(金) 19:23:21.29
- >>437
ドリルの刑
ttp://www.amazon.co.jp/dp/4774145092
姉妹編と違って表紙にドリルが載っていないのがイマイチだけど
- 448 :デフォルトの名無しさん:2011/06/25(土) 00:10:36.15
- >>437も恥ずかしくて出れこれないんだから、いい加減に許してやれよ
- 449 :デフォルトの名無しさん:2011/06/25(土) 13:11:24.67
- >>443
そんなに悔しかったの?
- 450 :天使 ◆KOAgYBL/Xg :2011/06/29(水) 17:41:46.87
- さすが VBSなんていう時代遅れツール使ってるスレはレベルが低い
- 451 :天使 ◆uL5esZLBSE :2011/07/02(土) 08:25:05.28
-
ゴミみたいな奴だな
125 KB
■ このスレッドは過去ログ倉庫に格納されています
★スマホ版★
掲示板に戻る
全部
前100
次100
最新50
read.cgi ver 05.05 2022/08/31 Walang Kapalit ★
FOX ★