おい！あふを語ろうぜ！ Ver.35

1 名前：名無しさん＠お腹いっぱい。 [2011/04/18(月) 20:41:39.51 ID:LL1rTaWz0] 超低機能2画面ファイラー「あふ」を語るスレ ■System AKT (あふ公式サイト) www.h5.dion.ne.jp/~akt/ twitter.com/afxw 関連リンクや過去スレは >>2-5 499 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/06/28(火) 00:09:39.00 ID:meD39xYg0] 素繰２追記　　Scribble 2011.06.27 500 名前：名無しさん＠お腹いっぱい。 [2011/06/28(火) 00:29:59.40 ID:3oFADYzP0] これは面白いですね！ //clock_loop.js LANG:javascript while (1){ d = new Date(); Afxw.MesPrint(d.toLocaleString()); Afxw.Sleep(1000); } Afxw.MesOk(); 501 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/06/28(火) 01:01:58.07 ID:DNXCDqFP0] スクリプトを発動させるためのメニューなりキーじゃなくて 設定ファイルに記述してたら自動で動くようなMINTみたいにしてほしい これじゃRecordsとかぶるし、いまいち使いにくい 502 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/06/28(火) 01:02:49.63 ID:DNXCDqFP0] あ、Recordsは常時発動可能だった 503 名前：名無しさん＠お腹いっぱい。 [2011/06/28(火) 03:02:28.86 ID:fm6k+DO60] #!でawk動いてほしいな 504 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/06/28(火) 07:37:42.15 ID:0LcT251i0] >>503 それを言い出すとキリが無い。 shが動いて欲しいなとか、sed動いて欲しいとかgrepはとか。 VBSとJSが動くのはWSH利用してるって事だから、独自エンジン必要なのは面倒なんだと思う。 505 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/06/28(火) 08:17:19.28 ID:9kclOZJ80] JavaScript動くならなんとか… 506 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/06/28(火) 10:07:53.68 ID:0Oh+KgFs0] Afxw.Execって、Afxw.Exec("&SORT E") という使い方じゃダメなのかな？ 幾つかの内部コマンドを試したけど、全部falseが返ってくるだけで何も起こらないんだけど。 あと、スクリプトを強制終了する手段が欲しい 507 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/06/28(火) 12:03:45.76 ID:DNXCDqFP0] マークしたファイルをコピーすると、コピーの終わったフォルダはマークは消えますが 窓の大きさ以上のフォルダ数があると、どこまで終わってるか見えません コピーの終わったフォルダにあわせて、下にスクロールしてくれると助かります 508 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/06/28(火) 12:25:08.63 ID:UfKLX5d/0] batファイル呼び出してperlを呼び出す、ということは前からやってる ファイル名の受け渡しで詰まることが多い 509 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/06/28(火) 13:25:54.76 ID:XF6Hjb4b0] 単独命令ではイマイチ使えなかったあふの変数が活躍することを期待 510 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/06/28(火) 14:46:37.98 ID:2sHPr9AB0] 実行結果をメッセージ窓に表示してみるテスト Dim ao, WSH, wExec, sCmd, Result, aryResult Set WSH = CreateObject("WScript.Shell") Set ao = Createobject("afxw.obj") If WScript.Arguments.Count >= 1 Then sCmd = WScript.Arguments(0) For j = 1 To WScript.Arguments.Count -1 sCmd = sCmd & " " & WScript.Arguments(j) Next 'Set wExec = WSH.Exec(sCmd) Set wExec = WSH.Exec("%ComSpec% /c " & sCmd) ''(3) Do While wExec.Status = 0 Loop Result = wExec.StdOut.ReadAll aryResult = Split(Result, vbCrLf) For cnt = 0 To UBound(aryResult) ao.MesPrint aryResult(cnt) next ao.MesOk End If Set wExec = Nothing Set WSH = Nothing Set ao = Nothing どっかのキーに WSCRIPT.exe "$~\script\cmdline.vbs" $IT"$K $P\$F" $I"コマンドライン" みたいな感じで 511 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/06/28(火) 15:19:16.49 ID:k35h2bXr0] LANG: Python WScript.MesPrint(u'キタ ────(ﾟ∀ﾟ)────!!') WScript.MesOk() #pythonも動いた 512 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/06/28(火) 15:43:14.80 ID:Dp6yY/Tn0] ぐはぁ！久々に来たらすごすぎることになってて嬉死にそぅ 513 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/06/28(火) 15:54:10.31 ID:xDy+jJ7K0] >>503 必要なのはActiveScriptのawkバインディングだ Perl,Ruby,Python,PHPのは存在してるみたいだよ TclやHaskellもあるそうだ 514 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/06/28(火) 15:55:32.41 ID:xDy+jJ7K0] >>511 LANG: RubyScript Afxw.MesPrint 'ActiveScriptRubyも動くよ' Afxw.MesOk #Rubyも動いた 515 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/06/28(火) 16:15:10.84 ID:2aZUiH1f0] あふ最強伝説 516 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/06/28(火) 16:38:55.05 ID:Bz/pX3BR0] スクリプトが分からない自分は眺めるだけ・・・ 517 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/06/28(火) 16:50:01.47 ID:hbtoMFXV0] 覚える良い機会じゃないか そういう自分も今はさっぱりわかりませーん 518 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/06/28(火) 17:00:57.88 ID:Dp6yY/Tn0] 待ってたらきっと神たちが素敵なツールを作ってここに貼ってくれる…はず 519 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/06/28(火) 17:08:37.99 ID:FTNGs9s/0] Perlのサンプルお願いします 520 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/06/28(火) 17:19:17.32 ID:tb0hU2Yb0] afxckwとかって何だろう、と思って後ればせながら軽くググってみたが cygwinのcygterm+bash環境でほぼ満足していて いろんなことを一手にやらせるならafxwよりむしろxyzzyという拙者の場合 afxckwとかはあんまし気にしないでよいですか? 521 名前：名無しさん＠お腹いっぱい。 [2011/06/28(火) 18:34:45.59 ID:svZsM/FA0] jsで動くａｗｋあった。 ttp://awk4j.sourceforge.net/langspec.html 522 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/06/28(火) 20:31:54.67 ID:9kclOZJ80] >>520 なかなかの俺じゃないか 523 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/06/28(火) 21:57:52.93 ID:xDy+jJ7K0] Afxw.Exec がさっぱり動かん MesPrint、MesOk、Extract、SrcWin、DstWin、HisDirCount、HisDirは動くんだけどな WindowsXPにて 524 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/06/28(火) 21:59:41.63 ID:mrnYPCgy0] あふｗ 1.29b3 ttp://www.h5.dion.ne.jp/~akt/ ・スクリプト実装テスト中。 → フォルダ履歴取得関連メソッド追加。 525 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/06/28(火) 22:09:29.73 ID:S8H68tMD0] README 読む限り あふｗ にコマンドを送ってもスクリプトが実行中ということで弾かれてしまうみたいだね スクリプト終了後にファイル窓更新とかしたいんだけど… あとうちでは Python も Ruby も動かない cygwin/bin に path 通して使っているんだけど、やっぱり Windows 用のをインストールしないとダメなのか 526 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/06/28(火) 22:17:45.31 ID:XF6Hjb4b0] 公式のサンプルでも Afxw.Execがどうやっても駄目 64bit環境だからだろうか？ 527 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/06/28(火) 23:32:58.52 ID:xDy+jJ7K0] >>525 Active Script用のが必要 PerlやPythonだと ActiveState社の ActivePerlやActivePython RubyだとActiveScriptRubyを使う ほとんどが素のPerlやPythonやRubyなんだけど ActiveScriptから各言語を利用するためのブリッジが付いてる IISやIEなどActiveScriptに対応しているアプリから各言語が使えるようになるらしいよ そしてもちろんあふからも 528 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/06/28(火) 23:47:35.19 ID:xDy+jJ7K0] そしてあふをオートメーションサーバ登録すると 外部からあふを操れる これは普通のRubyやPerlやPythonから可能 Rubyしか知らないのでRubyの例を require 'win32ole' afxw = WIN32OLE.new('afxw.obj') afxw.MesPrint "外部からあふをキック" afxw.MesOk 529 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/06/28(火) 23:54:56.72 ID:0LcT251i0] >某所（>>525-526）t.co/xySXdVc　弾かれるのは &SENDKEY（且つ内部命令 &SCRIPT から呼び出した場合）の話ネ。この命令は PostMessage() で更に遠回りするのでｗ　 開発・確認環境は x64 っす。#AFXW >あ、&MENU 系から呼ぶとダメかも？ ＜ Afxw.Exec()　#AFXW との事。 530 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/06/29(水) 00:09:46.80 ID:N/tFrNIE0] Perlでどうやるか調べてみたらこんな感じだった use Win32::OLE; my $afxw = Win32::OLE->new('afxw.obj'); $afxw->MesPrint("Perlからあふをキック"); $afxw->MesOk(); 531 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/06/29(水) 00:31:55.24 ID:N/tFrNIE0] ファンクションキーに &script "$P\$F" を割り当てて Afxw.MesPrint Afxw.Exec( "&MARK *.TXT" ) と書いただけのファイルを起動しても何もマークされず、戻り値もFalseなんですよ でもRubyから require 'win32ole' afxw = WIN32OLE.new('afxw.obj') afxw.MesPrint afxw.Exec( "&MARK *.TXT" ) するとちゃんと動いて、戻り値もTrue WindowsXPにて 532 名前：525 mailto:sage [2011/06/29(水) 00:55:20.98 ID:jx06B7w00] >>527-528 ありがとうございます。あやうく本家Python をインストールしてしまうところでした とりあえずオートメーションサーバ経由で色々試してみて、必要になりそうなものだけインストールしてみます >>529 AFXW.KEY, 設定のキー定義, メニューと試してみたけどダメでした 内容は Afxw.Exec( "&RELOAD LR" ) で、vbs と ruby のオートメーションサーバからならちゃんと動いてくれます 同じく WindowsXP sp3 533 名前：名無しさん＠お腹いっぱい。 [2011/06/29(水) 01:29:47.55 ID:8jxdRzM20] カレント以下を検索後、即仮想フォルダに入ろうと思ったがダメだった／(＾o＾)＼ // find.vbs LANG: VBScript Option Explicit Dim wsh,input,cmdline,findexe,flag findexe = "C:\cygwin\bin\find.exe" Set wsh=Wscript.CreateObject("Wscript.Shell") input = InputBox("カレント以降で検索したいファイル名を入力してください。(正規表現可)","find","*") If input<>"" Then cmdline = Afxw.Extract(findexe + " $P -iname '" + input + "' -fprintf find.sz7 '%p\r\n'") flag = wsh.Run(cmdline,,True) afxw.Exec("&EXCD -Pfind.sz7") afxw.Exec("&S_ARC axpathlist.spi") Else afxw.MesPrint("検索文字列がありません。") End If afxw.MesOk() 534 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/06/29(水) 09:07:52.06 ID:CyyReSt40] 現状だとExecはオートメーションサーバーを使わないと動かないみたいだな &SCRIPTから呼び出すと失敗する@XP2 SP2 535 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/06/29(水) 09:31:27.58 ID:yms2HvRB0] オートメーションサーバー用のスクリプトを書いて&execか&openを使えば動くから &SCRIPTを使った時とほとんど変わらない使い方はできるね 536 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/06/29(水) 11:46:11.69 ID:D2SfS8ND0] &SCRIPTの方はあふが部分的にマルチスレッドに対応すれば回避できたりするのかな？ いよいよか・・・ゴクリ 537 名前：名無しさん＠お腹いっぱい。 [2011/06/29(水) 17:25:51.57 ID:kOf4yTOg0] あふみんとになるの？ 538 名前：名無しさん＠お腹いっぱい。 [2011/06/29(水) 19:52:34.75 ID:8jxdRzM20] あふw v1.29b4 ttp://www.h5.dion.ne.jp/~akt/ ・スクリプト実装テスト中。 → 排他処理を修正。 うぉぉぉ >>533 がちゃんと動きましたよ！修正多謝！！ 539 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/06/29(水) 20:07:25.48 ID:D2SfS8ND0] >>538 Afxw.Execが動いたぞー 作者さんGJ 540 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/06/29(水) 21:25:13.85 ID:xSGWOGRk0] 無印にはないのか…… 541 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/06/29(水) 22:31:45.72 ID:N/tFrNIE0] いやっほー！Execが動きましたよ！ これで念願の 外部で何かさせてからマークに反映させる動作が可能に！ 例：ファイルサイズ1kb未満のファイルをマークするRubyScript LANG:RubyScript path = Afxw.Extract('$P').gsub(/\\/,'/') filelist = Dir.glob(path + '/*') mfiles = filelist.select{|file| test(?f,file) && test(?s,file) < 1024}.map{|e| File.basename(e)} Afxw.Exec("&mark -F " + mfiles.join(' ')) 542 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/06/29(水) 23:23:32.46 ID:N/tFrNIE0] 今のうちに要望書いておこう ・スクリプトに任意の引数を渡せる 何かと使いやすくなるとおもわれます &Script foobar.vbs ほげほげ ・言語名の指定で行頭数文字を無視できるようにする あふ内での実行と、外部での実行の両対応スクリプトが書けると思われます たとえば Perl、Ruby、Pythonはコメント開始が#なので #LANG:RubyScript JavaScriptは// //LANG:JScript 行頭の数文字は無視して LANG:〜のみを認識するようにするということです 543 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/06/29(水) 23:26:45.07 ID:N/tFrNIE0] '両対応スクリプトの例 'VBScriptは思いっきり初心者なのであってるのか？ 'いちおう動くみたいだけど isScript = False If TypeName(Afxw) <> "Obj" Then isScript = True Set Afxw = CreateObject("afxw.obj") End If Afxw.MesPrint "あふぅ" Afxw.MesOk If isScript Then Set Afxw = Nothing End If 544 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/06/30(木) 00:14:14.07 ID:fVE6fQRN0] いや、その前にコピーや書庫展開のマルチタスク(非同期っていうの？)導入だろ 545 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/06/30(木) 00:40:04.06 ID:8uMGFlEH0] そんなものはActiveScriptが導入された今となっては ユーザー側でどうとでもできるのですよ ってか、コピーや書庫展開程度なら 今まででも外部に丸投げすれば 非同期にできたんですけど…… 546 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/06/30(木) 00:50:58.85 ID:VQKjgUS70] たふみたいな擬似マルチタスクをやろうと思ったけど $Fだと片側しか読めないので$FL $FRみたいな両窓のカーソル位置に相当する置換文字がほしい 547 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/06/30(木) 01:38:02.64 ID:fVE6fQRN0] >>545 ファイラの基本をなんだと思ってる 548 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/06/30(木) 01:52:50.37 ID:IV6W0hSm0] スクリプトテスト用に $~\script\ を検索して $~\script.mnu に書き出すスクリプトを書いてみた vbsはよくわからないので一応動くレベル。バッチで書いた方がはやかった Set fso = WScript.CreateObject("Scripting.FileSystemObject") scriptDIR = Afxw.Extract("$~\script\") scriptMENU = Afxw.Extract("$~\script.mnu") Set newMenu = fso.OpenTextFile(scriptMENU, 2, true, 0) newMenu.WriteLine("afx Scripts") Set dir = fso.GetFolder(scriptDIR) For Each file In dir.Files menuLine = """" + file.Name + """ &SCRIPT """ + scriptDIR + file.Name + """" newMenu.WriteLine(menuLine) Next Set fso = Nothing Set newMenu = Nothing Set dir = Nothing Afxw.Exec("&RELOAD LR") Afxw.Exec("&MENU " + scriptMENU) 549 名前：名無しさん＠お腹いっぱい。 [2011/06/30(木) 14:30:52.42 ID:YW+tlZiK0] まどかと言えば毎度お騒がせします 550 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/06/30(木) 14:42:27.01 ID:YW+tlZiK0] のどかだった orz 551 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/06/30(木) 16:51:45.18 ID:rmLFNac/0] 'マスクの反転 Mask = Afxw.Extract("$*P") aryMask = Split(Mask, " ") For i = 0 To UBound(aryMask) Select Case Left(aryMask(i), 1) Case ":" aryMask(i) = Mid(aryMask(i), 2) Case "" Case Else aryMask(i) = ":" & aryMask(i) End Select Next InvMask = Join(aryMask) Afxw.Exec("&MASK " & InvMask) 552 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/06/30(木) 18:56:22.83 ID:8uMGFlEH0] あまりActiveScriptに詳しくないのでよくわからんのですけど マルチバイトの扱いはどうなってるんでしょうか？ VBScriptはよくしらないので RubyScriptで試してるのですが Afxw.Extract('$MS') がSJISの文字列を返してくるし Afxw.ExecでもSJISで渡すと通るので どうもユニコードファイル名が扱えないようなんですが そもそもVBScriptはSJISで書くものなのでしょうか？ 553 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/06/30(木) 20:07:59.46 ID:zM8EBI7j0] スクリプト用スレたててやらないか？ 554 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/06/30(木) 20:14:25.97 ID:FmN+tG710] 現行スレが終わるぐらいの段階で判断しても遅くはなかろ 555 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/06/30(木) 20:16:59.68 ID:Dw2PvQ9z0] //LANG:JScript // Uキー(&EXTRACT)で書庫の展開をするとマークが解除されてしまうので解除されないようにする // 複数のアーカイブファイルを展開した直後に削除する時に便利 // カレント窓にマークが1個でもあれば真 function ismark(){ a.exec("&tow"); var m = a.extract("$mO"); a.exec("&tow"); return "" != m; } var a = Afxw; var mark = a.extract("$MS"); var mflag = ismark(); a.exec("&extract"); if(mflag) a.exec("&mark " + mark); 556 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/06/30(木) 20:19:11.14 ID:FmN+tG710] あふで001から100までの100個のフォルダを作るとしたら１番楽な方法ってどんなの？ 557 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/06/30(木) 20:31:08.04 ID:vO21+rSd0] それこそ、あふではなくスクリプトでも書いた方が…… 558 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/06/30(木) 20:59:18.58 ID:zhZ5zWPT0] 外部スクリプトエンジンのキックもいいけど 内部にforthエンジンあたり実装しないかな>あふ 559 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/06/30(木) 21:27:44.42 ID:uDGeTbkU0] >>556 mkdir 001 mkdir 002 mkdir 003 ... mkdir 100 というバッチを書く 560 名前：名無しさん＠お腹いっぱい。 [2011/06/30(木) 21:32:09.89 ID:D29kWctC0] >>556 LANG: VBScript Set fso = WScript.CreateObject("Scripting.FileSystemObject") i=1 Do Until i>100 str = Right("000" & i, 3) afxw.MesPrint("mkdir : " + str) fso.CreateFolder(str) i=i+1 Loop Afxw.Exec("&RELOAD LR") 100ぐらいまでだったらバッチの方が楽かなｗ 561 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/06/30(木) 21:38:25.87 ID:tEu8Vaq20] 対応言語大杉 XBASICを基本にしてくれ 562 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/06/30(木) 21:43:04.76 ID:v7O26xvK0] >>556 for /L %%N in (1,1,100) do ( if %%N leq 9 (mkdir 00%%N) else if %%N leq 99 (mkdir 0%%N) else (mkdir %%N) ) >>560 確かにバッチの方が楽。 563 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/06/30(木) 22:38:43.10 ID:zhZ5zWPT0] perlだと… perl -e 'for(1..100){mkdir sprintf "%03d",$_}' とかだな 564 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/06/30(木) 23:09:47.84 ID:8uMGFlEH0] >Let's try at current version. (*^ーﾟ)b すでにそのような仕様になっていたのですね さすがです Ruby内部外部両対応スクリプト #LANG:RubyScript unless defined? Afxw require 'win32ole' Afxw = WIN32OLE.new('afxw.obj') end Afxw.MesPrint 'あふぅ' Afxw.MesOk 565 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/06/30(木) 23:40:00.91 ID:zoS0wCbB0] >>556 powershell -C "1..100 | foreach {ni (\"{0:000}\" -f $_) -i d}" 566 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/06/30(木) 23:54:57.81 ID:8uMGFlEH0] >>558 ActiveScriptで十分だと思いますけどねぇ 理想は設定ファイル等に直接スクリプトが書けることですか 前からちょっと欲しかった あふの内部コマンドが使えるコマンド入力ダイアログVBScript Afxw.Exec(Afxw.Extract("$I4""コマンドの実行""")) Rubyでディレクトリ100個作る ruby -e "('001'..'100').each{|x|Dir.mkdir x}" ワンライナーに強いPerl perl -e "mkdir $_ for('001'..'100')" 567 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/07/01(金) 00:22:19.99 ID:6DwCiycf0] うざいよ、スクリプト専用スレたてれ 568 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/07/01(金) 00:28:02.72 ID:6DwCiycf0] コピーまたは移動先ドライブがいっぱいの場合 ・・・失敗 ＊＊作業は中止されました ではなく ・・・空き容量がありません ＊＊作業は中止されました にできませんか？ 569 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/07/01(金) 00:30:30.04 ID:HCrnkcM+0] うざいよメッセージ変えたいスレたてれ 570 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/07/01(金) 00:31:35.73 ID:YOL1PLs90] 実装テスト中の新機能でしかも追加案は緩募中とされているんだからしばらくはここでやって良いだろう どうしてもうざいというのなら >>554 の言うように新スレたてる頃にルール作っても遅くはない 571 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/07/01(金) 00:33:36.98 ID:6DwCiycf0] >>569 プログラムって何か知ってる？ 572 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/07/01(金) 00:42:46.55 ID:HCrnkcM+0] >>571 マシン言語 ここでいわず無理やりバイナリいじるなり、 ツイッター上の作者にツイッター言えばいいじゃん 俺の気に入る文言に書き換変えて欲しいはうざいよ 573 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/07/01(金) 00:52:09.93 ID:E0zGE0n40] 空き容量を警告するスクリプト書けばいいじゃん 574 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/07/01(金) 01:02:20.57 ID:9jCmgIHm0] #LANG:PerlScript use Win32::OLE; my $afxw = Win32::OLE->new('afxw.obj'); $afxw->MesPrint(sprintf("%d fullpath=%s", $afxw->SrcWin(), $afxw->Extract('$P / $F'))); $afxw->Exec('&TOW'); $afxw->MesPrint(sprintf("%d fullpath=%s", $afxw->SrcWin(), $afxw->Extract('$P / $F'))); &TOW 後の $F が当たらずも近からずなファイル名になるのはなんでなんだぜ。ActivePerl Xp@SP3 575 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/07/01(金) 01:11:31.19 ID:6DwCiycf0] >>572 ERROR LEVEL返るようにそれぞれ作られてないと無理 全部同じエラーならプログラム上でエラーレベル用意されてないと改造無理 わかったかい？童貞君 576 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/07/01(金) 01:17:35.09 ID:E0zGE0n40] ID:6DwCiycf0 577 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/07/01(金) 01:18:18.92 ID:6DwCiycf0] >>573 適当な数のファイルを移動ってやって スクリプトで「空き容量が足りません」って表示させて 途中の移動すらも認めないのか？＜論外 それとも、途中で終わるようにスクリプト組むのか？ 途中まで移動したマークファイルの数や扱いとか考えて組むの？ 578 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/07/01(金) 01:18:57.49 ID:6DwCiycf0] これだからあふ信者ってw 579 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/07/01(金) 01:20:52.71 ID:E0zGE0n40] >>577 コピー前に容量計算すればいいだろｗ 馬鹿なの？ 580 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/07/01(金) 01:23:43.13 ID:6DwCiycf0] >>579 >スクリプトで「空き容量が足りません」って表示させて >「途中の移動すらも」認めないのか？＜論外 581 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/07/01(金) 01:34:15.57 ID:6DwCiycf0] [M]を押したら、スクリプトで容量確認->移動を毎回動かすとでも？ あほか それに、開発者にとってもエラーレベルは多いにこしたことはない。エラー報告で役に立つから 移動、コピーミスで、何のエラーかは内部でエラーコードを持っておき、それに対するエラーを表示する方がスマート 582 名前：名無しさん＠お腹いっぱい。 [2011/07/01(金) 01:39:05.64 ID:v6eJNP/k0] ”「途中の移動すらも」認めない”云々ってのは、 容量不足が確定している大量コピー動作中、空き容量を稼ぐだめに 裏でコピー先ドライブのファイルを削除＆移動したりしたいって事なのかな？ 大量コピーはFastCopy等にお任せするのが良いんじゃないかな。 容量不足時の中断再開もできるし、何より高速。 オートメーションサーバ経由で進捗をあふｗのMes窓に 表示出来たりすると面白いかなとは思う。 583 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/07/01(金) 01:42:12.24 ID:6DwCiycf0] 外部コピーはファイル名が長すぎるとエラー出るんだよね・・・・ ファイル文字数の制限外してくれないから＞FFC うちはバックアップはULT3使ってBACKUPEXEC使ってるからファイル名の制限は基本的にないので 584 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/07/01(金) 01:46:29.91 ID:6DwCiycf0] >>582 >裏でコピー先ドライブのファイルを削除＆移動したりしたいって事なのかな？ それもあり得ますが、最初に容量計算してサイズ足りない＞ダメっていうスクリプトだと 最初から移動処理自体が動かないってことも含むでしょ？ レスサンクスね 585 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/07/01(金) 01:47:38.89 ID:E0zGE0n40] 光学メディアにちまちまバックアップでも取ってそうだなｗ 586 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/07/01(金) 01:50:25.21 ID:6DwCiycf0] >>585 ULT3にバックアップって書いてあるんだがww おまえが致命的な重症の文盲っていうことだけはわかった 587 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/07/01(金) 01:53:36.10 ID:E0zGE0n40] プログラムって何か知ってる？（ｷﾘｯ 588 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/07/01(金) 01:54:24.52 ID:6DwCiycf0] なんだ厨房か 589 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/07/01(金) 02:22:47.57 ID:atE0ojfP0] 早く寝ろよ、ID:6DwCiycf0 590 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/07/01(金) 06:20:57.90 ID:XY4NXayV0] {001..100}だっけ、zshの連番生成 アレは楽でよさげ 591 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/07/01(金) 07:58:13.40 ID:nAFlic9L0] まだレイアウターのほうが腰が低い分マシだった 592 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/07/01(金) 08:13:15.47 ID:ZbYBNlM00] レイアウターはまだ社会人だったからな 593 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/07/01(金) 09:01:12.12 ID:nAFlic9L0] さすがにそれもネタっぽいが 594 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/07/01(金) 09:27:23.48 ID:ee0vPMci0] >>574 あふが&TOW終わるまで待てばおｋ Afxw.MesPrint Afxw.Extract("$P\$F") Afxw.Exec("&TOW") Do AfxBusy = Afxw.Exec("&NOP") Loop Until AfxBusy Afxw.MesPrint Afxw.Extract("$P\$F") 595 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/07/01(金) 09:40:22.63 ID:eyyp5YuY0] 使い道が無いと思われていたnopにやっと出番が来たな 596 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/07/01(金) 09:58:53.10 ID:C9gMsVB80] マクロでもスクリプトでも プログラミングっぽいことができる機能がつくと プログラマーっぽい人が大暴れするなあ 597 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/07/01(金) 10:03:14.32 ID:kgX0fzQC0] スクリプトキテター X68kのX-BASIC動く？ 598 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/07/01(金) 11:26:51.31 ID:nAFlic9L0] TMNは動かしたい 599 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/07/01(金) 12:28:46.41 ID:ZDuFsspl0] スクリプトに興味ないあふユーザもこれから活躍の場面は絶対あるから大丈夫！ スレの質問への回答が「スクリプトでできる」「スクリプト書け」で埋め尽くされた時、 華麗に現れてあふonly&あふ+外部ツールでの解決法を書いて去っていく漢、 それがお前なんだ！！

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef