写入文本问题

soutyc · 发表于 2010-9-27 10:14:50

[e]
版本 2
.程序集窗口程序集1
.程序集变量分割后文本, 文本型, , "0"
.程序集变量程序集_文件1, 文本型
.子程序 _按钮1_被单击
程序集_文件1 ＝到文本 (读入文件 (通用对话框1.文件名))
分割后文本＝分割文本 (程序集_文件1, “,”, )
写到文件 (“相同文本.txt”, 到字节集 (到文本 (分割后文本 [1])))
写到文件 (“相同文本1.txt”, 到字节集 (到文本 (编辑框1.内容)))
.如果真 (取数组成员数 (分割后文本) ≥ 1)
信息框 (“分割文本成功”, 0, “恭喜”)

[/e]
为什么分割后文本不能全部写出来啊？我写一个可以，全部的话就是空的。

exit11 · 发表于 2010-9-27 10:14:51

程序集_文件1 ＝到文本 (读入文件 (通用对话框1.文件名))
程序集_文件1 = 子文本替换（程序集_文件1 ，“,", #换行符）
写到文件（到字节集（程序集_文件1 ））

exit11 · 发表于 2010-9-27 10:30:00

.版本 2
.计次循环首 (取数组成员数 (分割后文本), x)
临时文本＝临时文本＋分割后文本 [x] ＋ #换行符
.计次循环尾 ()
写到文件 (“相同文本.txt”, 到字节集 (临时文本))

复制代码

将分割后的文本依次读出，再写入就可以

soutyc · 发表于 2010-9-27 11:38:23

谢谢楼上的exit11 ，不过这样循环写入的话很慢啊，50万的数据,还有没有好的办法啊

exit11 · 发表于 2010-9-27 20:46:28

我看不明白你要达到什么目的“
1个文件被读出来，然后被分割，然后再写到文件

exit11 · 发表于 2010-9-27 20:48:49

如果只是想换行的话，可以用子文本替换（），将，替换为#换行符

soutyc · 发表于 2010-9-27 22:12:33

那子文本替换的话是直接在文件里修改吗？还是分割文本不用，改子文本替换后，是不是还要循环写入数组在写到文件啊？

soutyc · 发表于 2010-9-28 10:35:25

正在编译...
错误(10048): “写到文件”库命令的参数“欲写入文件的数据”不能接受空数据。

改后报这个错，数据是空的！

exit11 · 发表于 2010-9-28 11:15:02

.....
写到文件（文件路径,到字节集（程序集_文件1 ））

soutyc · 发表于 2010-9-28 11:26:13

好了，3Q exit11 ，你是我偶像！
.版本 2

程序集_文件1 ＝到文本 (读入文件 (通用对话框1.文件名))
程序集_文件1 ＝子文本替换 (程序集_文件1, “,”, #换行符, , , 真)
' 写到文件 (到字节集 (程序集_文件1), )
写到文件 (“替换后文本.txt”, 到字节集 (到文本 (程序集_文件1)))
信息框 (“分割文本成功”, 0, “恭喜”)

		自动登录	找回密码
密码			注册

[已解决] 写入文本问题

最佳答案