文本分割器输出路径

hzc1917

计次循环首 (次数, 计次)
    写出路径 ＝ “C:\Documents and Settings\Administrator\桌面\” ＋ 到文本 (计次) ＋ “.txt”
    写出内容 ＝ 到字节集 (取文本中间 (文本编辑框.内容, 分割开始位置, 分割长度))
    分割开始位置 ＝ 分割开始位置 ＋ 分割长度
    写到文件 (写出路径, 写出内容)
计次循环尾 ()
信息框 (“分割完毕”, 0, )

上面是我写的一段代码，那个写出路径用什么组件给用户选择，如果按我上面代码只能固定输入路径，不好。

白河小鸟

浏览文件夹 (“打开”, )
用这个命令,然后你想干啥就干啥{:3_213:}

a4881669

用“通用对话框”组建
.版本 2

.子程序 _按钮_选择_被单击

.如果真 (通用对话框_选择.打开 ())
    编辑框_路径.内容 ＝ 通用对话框_选择.文件名
   写出路径 = 编辑框_路径.内容

62651345

楼上正解   
通用对话框

hzc1917

回复 2# a4881669


    不对把，我的意图是导入一个大的文本，然后分割成若干个文本在输出。你那个好像打开文本的，这个我会，我要的是用户选择一个目录来存放分割好的文本。

exit11

1. .版本 2
   
2. 
   
3. .计次循环首 (次数, 计次)
   
4. 通用对话框1.类型 ＝ 1     ‘0打开文件 1保存文件
   
5. .如果真 (通用对话框1.打开 ())
   
6. 写出路径 ＝ 通用对话框1.文件名
   
7. .如果真结束
   
8. 写出内容 ＝ 到字节集 (取文本中间 (编辑框1.内容, 分割开始位置, 分割长度))
   
9. 分割开始位置 ＝ 分割开始位置 ＋ 分割长度
   
10. 写到文件 (写出路径, 写出内容)
    
11. .计次循环尾 ()
    
12. 信息框 (“分割完毕”, 0, )
    

复制代码

hzc1917

回复 5# exit11


    貌似不行，如果我要分割成一百个文件，他会弹出一百次对话框让你选择输出路径。
我要的是用户选择一个目录，然后我在这个目录中生成分割好的多个文件。

exit11

1. 
   
2. .版本 2
   
3. 通用对话框1.类型 ＝ 1  ' 0打开文件 1保存文件
   
4. .如果真 (通用对话框1.打开 ())
   
5.     写出路径 ＝ 通用对话框1.文件名
   
6.     a ＝ 倒找文本 (写出路径, “\”, , 假)
   
7.     写出路径 ＝ 取文本左边 (写出路径, a)
   
8. .如果真结束
   
9. .计次循环首 (次数, 计次)
   
10.     写出内容 ＝ 到字节集 (取文本中间 (编辑框1.内容, 分割开始位置, 分割长度))
    
11.     分割开始位置 ＝ 分割开始位置 ＋ 分割长度
    
12.     写到文件 (写出路径 ＋ 到文本 (计次) ＋ “.txt”, 写出内容)
    
13. .计次循环尾 ()
    
14. 
    
15. 
    

复制代码