易语言取指定目录

版本 2

支持库 eWord2000

程序集 窗口程序集_启动窗口

子程序 _按钮1_被单击

局部变量 临时路径, 文本型, , "0"

局部变量 保存路径, 文本型

Word程序1创建 ()

Word文档集1置程序 (Word程序1, 假)

通用对话框1打开 ()

临时路径 ＝ 分割文本 (通用对话框1文件名, “\”, )

保存路径 ＝ 子文本替换 (通用对话框1文件名, 临时路径 [取数组成员数 (临时路径)], “”, , , 真)

写到文件 (保存路径 ＋ “Tempdoc”, 读入文件 (通用对话框1文件名))

子程序 __启动窗口_创建完毕

通用对话框1过滤器 ＝ “WORD文档|DOC”

通用对话框1类型 ＝ 0

版本 2
子程序 _按钮1_被单击
局部变量 游戏路径, 文本型
游戏路径 ＝ 进程_取程序路径 (进程_名取ID (“QQexe”)) ' 根据进程名， 取出进程的所在目录
游戏路径 ＝ 取文本左边 (游戏路径, 倒找文本 (游戏路径, “\”, , 假))
写到文件 (游戏路径 ＋ “/” ＋ “文件名”, 到字节集 (“你要写出的内容”)) ' 写出文件到游戏进程的所在目录

版本 2通用对话框1类型 ＝ 0
通用对话框1标题 ＝ “选择保存位置”
通用对话框1打开 ()
写到文件(通用对话框1文件名,#要写出的文件在资源表里的名称)

---