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 (記載なし)
Copyright © 2013 Power Future Co., Ltd.