PB 電子会議室

コメント

発言No. 更新日 題名(クリックすると発言内容と関連するコメントが表示されます)
19220 03/04/04 11:03:31 RE(1):getopenfilenameについて(3/3) By Taka
19212 03/04/03 23:20:27 getopenfilenameについて(3/3) By IMA

カテゴリ:PowerBuilderの開発環境
日付:2003年04月03日 23:20 発信者:IMA
題名:getopenfilenameについて(3/3)

// getopenfilename関数の呼び出し
ll_rtn = getopenfilename(l_getopenfilename)

// キャンセルが押されたら戻る
if ll_rtn = 0 then
  return
end if

// 戻り値よりファイル名を配列に設定する
ls_data = trim(l_getopenfilename.lpstrfile)

ll_len = lenb(ls_data)
ll_pos = pos(ls_data,\" \",1)

if ll_pos = 0 then
// ファイルが1つしか選択されなかった場合、戻り値をそのまま配列に設定
li_idx = 1
ls_file[1] = ls_data
else

// ファイルが複数選択された場合のファイル名設定処理
// 戻り値は ディレクトリ△ファイル名△ファイル名 で返される(△はスペース)
ls_dir = left(ls_data,ll_pos - 1)
li_idx = 0
do until ll_pos > ll_len
ll_pos2 = pos(ls_data,\" \",ll_pos + 1)
if ll_pos2 = 0 then
ll_pos2 = ll_len + 1
end if
li_idx++
ls_file[li_idx] = ls_dir + mid(ls_data,ll_pos + 1,ll_pos2 - ll_pos - 1)
ll_pos = ll_pos2
loop
end if

for li_j = 1 to Integer(li_idx)
  messagebox(\"ls_file\",ls_file[li_j]) // ←ここでは選択したファイルが確認できています。
next

?????????????????????????????

以上よろしくお願いします



付加情報:

PowerBuilder Version (記載なし)

Client SoftWare

OS Windows 2000
DBMS (記載なし)
Browser (記載なし)

Server SoftWare

OS Windows 2000
DBMS (記載なし)
WebServer (記載なし)

PowerSpaceの運営は、パワーフューチャー株式会社が行っております。
Copyright © 2013 Power Future Co., Ltd.