已审核词条 未审核词条

子程序名	返回值类型	公开	备 注
对话框_打开文件多选框	文本型		打开多选文件对话框,可单个一个文件,将直接返回文件路径,如果选择多个文件,将以换行符分隔
参数名	类 型	参考	可空	数组	备 注
窗口句柄	整数型				拥有者窗口句柄
窗口标题	文本型				对话框窗口标题
过滤器	文本型				可空，默认为 TXT文档(*.txt)|*.txt|所有文件(*.*)|*.* 过滤器文本由单个或多个成对的文本串组成，每对文本串的第一个描述显示形式，如：“文本文件（*.txt）”；第二个指定实际的过滤匹配符，如：“*.txt”，所有各文本串之间用“|”号隔开
初始目录	文本型				可以为空。如果留空将跳转到当前目录
修改当前目录	逻辑型				可以为空。默认为假，不改变当前目录。真 = 把初始目录改成当前目录。

变量名	类 型	静态	数组	备 注
文件列表	OPENFILENAME
文件名	字节集
文件名数组	文本型		"0"
局_计次	整数型			记录循环的次数
多选文件	文本型
文件缓冲数	整数型			决定可以打开文件的个数，原为8192，可打开80个文件
局_当前目录	文本型

局_当前目录 ＝ 取当前目录 ()
文件缓冲数 ＝ 98192 ' 大小决定打开文件的数量，此可以打开200个文件
文件列表.结构尺寸 ＝ 76 ' 文件列表.lStructSize ＝ 76
文件列表.窗口句柄 ＝ 窗口句柄
文件列表.过滤器 ＝ 子字节集替换 (到字节集 (过滤器), { 124 }, { 0 }, , ) ＋ { 0 } ＋ { 0 }
文件列表.全路径名 ＝ 取空白字节集 (文件缓冲数)
文件列表.全路径名长度 ＝ 文件缓冲数
文件列表.文件名 ＝ 取空白文本 (文件缓冲数)
文件列表.文件名长度 ＝ 文件缓冲数
文件列表.初始目录 ＝ 选择 (是否为空 (初始目录), 局_当前目录, 初始目录)
文件列表.标题 ＝ 窗口标题
文件列表.标志 ＝ 524800
如果 (GetOpenFileNameA (文件列表)) ' 打开文件成功
文件名 ＝ 文件列表.全路径名 ' 文件名 ＝ 文件列表.lpstrFile
文件名 ＝ 取字节集左边 (文件名, 寻找字节集 (文件名, { 0, 0 }, ) － 1)
如果 (寻找字节集 (文件名, { 0 }, ) ≠ -1) ' 是否选择多个文件
文件名数组 ＝ 分割文本 (到文本 (子字节集替换 (文件名, { 0 }, { 124 }, , )), “|”, )
如果真 (取文本右边 (文件名数组 [1], 1) ≠ “\”) ' 选择多个文件时，第一个数组为路径名，后面为不包括路径的文件名
文件名数组 [1] ＝ 文件名数组 [1] ＋ “\”
计次循环首 (取数组成员数 (文件名数组) － 1, 局_计次)
如果 (取数组成员数 (文件名数组) － 1 ≠ 局_计次) ' 最后一个文件名不用加分隔字符“；”
多选文件 ＝ 多选文件 ＋ 文件名数组 [1] ＋ 文件名数组 [局_计次 ＋ 1] ＋ #换行符
多选文件 ＝ 多选文件 ＋ 文件名数组 [1] ＋ 文件名数组 [局_计次 ＋ 1]

计次循环尾 ()
如果真 (修改当前目录 ＝ 假)
改变目录 (局_当前目录)
返回 (多选文件)
如果真 (修改当前目录 ＝ 假)
改变目录 (局_当前目录)
返回 (到文本 (文件名))

返回 (“”)


词条作者信息 使用例程 参与校正错误的易友