再度質問：リネーム処理がうまくいきません
皆様のアドバイスを受けながら、サンプルをつなぎあわせて
どうにか形になったのですがうまくいきません。
１）フォルダ内の画像ファイル一覧を取得しリストボックスに表示
２）D&Dで順番を変えてリネームしたいのですが
やりたいこと↓
リストボックス
★001.JPG サムネイル=>★□▲
□002.JPG
▲003.JPG
リストボックスのファイルをD&Dで順番を入れ替える
リストボックス
□002.JPG サムネイル=>□▲★
▲003.JPG ※実はサムネイルはまだ動かない
★001.JPG
ボタンを押すと並び替えた順番にリネーム
サムネイル書き直し
リストボックス
□001.JPG サムネイル=>□▲★
▲002.JPG
★003.JPG
なんとなく動き出したのですが、
肝心のリネーム部分がうまくいきません。。。
長いですが、リストを載せますのでどうかアドバイスを頂けませんでしょうか？
どうぞよろしくお願いいたします。
//#include "scr.hsp" #include "shell32.as" #define WM_DROPFILES 0x0233 #uselib "msvcrt" #func rename "rename" str, str //#include "user32.as" #include "hspcv.as" //画像縮小用 //-------- ; Win32API関数 #uselib "user32" #cfunc RegisterWindowMessage "RegisterWindowMessageA" str #uselib "comctl32" #func MakeDragList "MakeDragList" int #cfunc LBItemFromPt "LBItemFromPt" int, int, int, int #func DrawInsert "DrawInsert" int, int, int ; マクロ #define DRAGLISTMSGSTRING "commctrl_draglistmsg" #define DL_BEGINDRAG $485 #define DL_DRAGGING $486 #define DL_DROPPED $487 #define DL_CANCELDRAG $488 #define DL_CURSORSET 0 #define DL_STOPCURSOR 1 #define DL_COPYCURSOR 2 #define DL_MOVECURSOR 3 *start //----▼D&D処理 ; WM_DROPFILES メッセージハンドラを設定 oncmd gosub *OnDropFiles, WM_DROPFILES sdim file,260 if dir_cmdline!="" { mes dir_cmdline } DragAcceptFiles hwnd, 1 stop *OnDropFiles hdrop = wParam ; ドロップファイル情報のハンドル DragQueryFile hdrop, -1, 0, 0 ndrop = stat ; ファイルの数 repeat ndrop DragQueryFile hdrop, cnt, varptr(file), 260 //-----▲D&D処理 fileにフルパスを代入 フォルダ = file *メイン oncmd gosub, *draglistmsg, RegisterWindowMessage (DRAGLISTMSGSTRING) ; 項目文字列取得用変数 sdim listbox_text sdim file, 64 sdim filelist, 64 // フォルダ = "R:\\TEST\\" chdir フォルダ // フォルダ内のJPGファイルリスト作成 dirlist filelist, "*.JPG":TotalShowImg=stat // ファイル数を調べる notesel filelist sdim data,256 repeat TotalShowImg noteget data,cnt //mes data FileName.cnt=data // ファイル名 Order.cnt = cnt // 表示順序 loop objsize 100,300 pos 20, 20 listbox a, , filelist ; ドラッグリストボックス化 MakeDragList objinfo (stat, 2) objsize 100 pos 150, 20 button "保存", *save stop loop ; DRAGLISTMSGSTRING *draglistmsg SDIM listbox_text ; DRAGLISTINFO構造体 ; DRAGLISTINFO.0 = 通知メッセージ ; DRAGLISTINFO.1 = リストボックスのハンドル ; DRAGLISTINFO.2 ＆ .3 = カーソル位置 dupptr DRAGLISTINFO, lparam, 16 ; ドラッグ開始時 if DRAGLISTINFO.0 = DL_BEGINDRAG { ; ドラッグする項目インデックス取得 dragindex = LBItemFromPt (DRAGLISTINFO.1, DRAGLISTINFO.2, DRAGLISTINFO.3, ) return 1 } ; ドラッグ中 if DRAGLISTINFO.0 = DL_DRAGGING { ; ドラッグ途中の項目インデックス取得 newindex = LBItemFromPt (DRAGLISTINFO.1, DRAGLISTINFO.2, DRAGLISTINFO.3, 1) if newindex = -1 : return DL_STOPCURSOR ; ドラッグ目印表示 DrawInsert hwnd, DRAGLISTINFO.1, newindex return DL_MOVECURSOR } ; ドロップ後 (ドラッグ終了) if DRAGLISTINFO.0 = DL_DROPPED { ; 新たな位置となる項目インデックス取得 newindex = LBItemFromPt (DRAGLISTINFO.1, DRAGLISTINFO.2, DRAGLISTINFO.3, ) if newindex != -1 { ; LB_GETTEXT sendmsg DRAGLISTINFO.1, $189, dragindex, varptr (listbox_text) ; LB_DELETESTRING sendmsg DRAGLISTINFO.1, $182, dragindex ; LB_INSERTSTRING sendmsg DRAGLISTINFO.1, $181, newindex, listbox_text ; LB_SETCURSEL sendmsg DRAGLISTINFO.1, $186, newindex } ; ドラッグ目印消去 DrawInsert hwnd, DRAGLISTINFO.1, -1 return } ; ドラッグキャンセル if DRAGLISTINFO.0 = DL_CANCELDRAG { ; ドラッグ目印消去 DrawInsert hwnd, DRAGLISTINFO.1, -1 return } return //---------ファイルリネーム処理---------- // ここがうまくいかない *save notesel listbox_text repeat TotalShowImg sendmsg objinfo (0, 2), $189, cnt, varptr (listbox_text) mes listbox_text //-----▼ファイル名をリネームするため一旦ダブらない名前に変換 //notesel list//JPEGファイルを一旦格納 B=B+1//乱数の代わり これ重要 mes B I=0//カウント設定ゼロ NAMESET=""+B+""+strf("%04d",I)+".JPG"//ファイル名作成 mes "NAMESET "+NAMESET rename listbox_text,NAMESET//リネーム後のファイル名 noteadd listbox_text.I I=I+1 loop *サムネイル onexit gosub *owari onclick goto *picture_print sdim file, 64 sdim filelist, 64; dirlist filelist, "*.jpg", 0; // フォルダ内のBMPファイルリスト作成 notesel filelist; filenum = noteinfo( 0 ); // ファイル数を調べる lpx = 300; // サムネイル表示位置 lpy = 5; size = 50; // サムネイルサイズ dst = 5; // サムネイル表示間隔 snw = 6; // サムネイル最大表示列数 snh = ( filenum + snw - 1 ) / 6; // ファイル数から行数を算出 bsy = dst * ( snh + 1 ) + size * snh; // サムネイル領域の高さ（余白含む） bsx = 800; // 幅 // サムネイルウィンドウを初期化 if( bsy < 600 ) { // screen 0, bsx, 600, 0; } else { // screen 0, bsx, bsy, 0; } title "サムネイル作成中..."; // ScrollBar; // スクロールバー付加 width 800, 800; // 表示サイズ設定 // 画像読み込み用バッファ作成 buffer 2, , , 0; // サムネイル作成 scnt = 0; // サムネイルを作った回数を計測 repeat snh slpy = lpy + ( size + dst ) * cnt; // Y座標計算 slpx = lpx; // X座標 repeat snw gsel 2; noteget file, scnt; // ファイル名取得 picload file; sx = ginfo_sx; // 画像サイズ取得 sy = ginfo_sy; gsel 0; // サムネイルの外枠 color 128, 128, 128; boxf slpx - 1, slpy - 1, slpx + size, slpy + size; color 255, 255, 255; boxf slpx, slpy, slpx + size - 1, slpy + size - 1; // 縦横比固定でサムネイル作成 if( sx > sy ) { ssy = size * sy / sx; pos slpx, slpy + ( size - ssy ) / 2; gzoom size, ssy, 2, 0, 0, sx, sy; color 155:mes file//ファイル名表示 } else { ssx = size * sx / sy; pos slpx + ( size - ssx ) / 2, slpy; gzoom ssx, size, 2, 0, 0, sx, sy; color 255:mes file//ファイル名表示 } slpx += size + dst; // X座標更新 scnt++; if( scnt == filenum ) { // 全ファイルのサムネイルが完成したらループから抜ける break; } loop loop // タイトル変更 title "サムネイルウィンドウ"; //stop goto *メイン // クリックしたとき *picture_print if( ginfo_act == 0 ) { // サムネイルウィンドウをクリックした場合 // サムネイル範囲内にマウスがあるか確認 if( lpx < mousex && mousex < (bsx - dst) && lpy < mousey && mousey < (bsy - dst) ) { scl_py = ginfo_vy; // スクロールバーの位置記録 // マウスと重なってる可能性のあるサムネイルを算出 ppx = ( mousex - lpx ) / ( size + dst ); ppy = ( mousey + scl_py - lpy ) / ( size + dst ); // サムネイル表示位置計算から流用 slpx = lpx + ( size + dst ) * ppx; slpy = lpy + ( size + dst ) * ppy; // 可能性のあるサムネイルの範囲内と重なっているか判定 if( slpx <= mousex && mousex <= (slpx + size) && slpy <= (mousey + scl_py) && (mousey + scl_py) <= (slpy + size) ) { gsel 2; // サムネイルの画像読み込み noteget file, ppy * 5 + ppx; picload file; // 画像サイズ取得 sx = ginfo_sx; sy = ginfo_sy; // 画像表示ウィンドウ初期化 screen 1, 800, 800, 0; title "画像表示ウィンドウ" // 画像表示 pos 0, 0; gzoom 800, 800, 2, 0, 0, sx, sy; font "ＭＳ Ｐゴシック", 40, 1:mes file//ファイル名表示 gsel 0; // 2回目以降のクリックに反応しないことがあるので描画先をサムネイルウィンドウに戻す } } } stop; *owari if iparam|wparam=0:end wait 20:gsel wparam, -1:gsel 0:return
