[求助] 把一个txt的数据读到另一个txt 已有1人参与

Dim b, S As String
Open "C:\Users\lenovo\Desktop\新建文件夹\out.txt" For Input As #2
Do Until EOF(2)
   Line Input #2, b
   S = S + b
   If b <> "" And Not EOF(2) Then
   Line Input #2, b
   Exit Do
   End If
Loop
Close #2
CommonDialog1.Filter = "text(*.txt)|*.txt"
CommonDialog1.DialogTitle = "另存为"
CommonDialog1.Flags = cdlOFNLongNames Or cdlOFNOverwritePrompt Or cdlOFNPathMustExist
On Error GoTo errhandler
CommonDialog1.Action = 2
'p$ = CommonDialog1.InitDir
f$ = CommonDialog1.FileName
'pf$ = p$ & f$
If f$ <> "" Then
Open f$ For Output As #3
Write #3, S
Close #3
End If
errhandler:
Exit Sub

txt中的数据是规则的
410.26  58.78481  .5103359
410.2809  133.5603  .2246176
410.2665  52.92071  .5668858
410.1949  20.91697  1.434242

哪里有错误啊，为什么只能读到第一行啊

回复此楼

» 猜你喜欢

为什么资助数各大高校都创新高，自己申请怎么就这么难已经有17人回复
国社科又开始会评了，不知道这次命运如何已经有13人回复
麻烦专家们看看评委们的意见（F口面上）已经有13人回复
售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急已经有4人回复
售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急已经有6人回复
科研人应该花精力去思考如何解决问题，而不是去凝练问题已经有14人回复
要骂人了，新模版改版就是要淡化问题凝练这种虚的东西，结果有个评委还在说凝练得不够已经有17人回复
基金系统什么内容也没有已经有10人回复
学科评审组评审是指会评吗？已经有5人回复
面上函评意见出来了，像什么等级？已经有17人回复

» 本主题相关价值贴推荐，对您同样有帮助:

如何把txt数据加入到jade软件中已经有5人回复
如何将多个txt中相同的一行提取到一个新的txt文档中？已经有9人回复
matlab数据输出到txt 已经有6人回复
进行非稳态计算时，UDF怎样输出数据到txt文件已经有5人回复
如何将txt文件作为初始载荷文件施加到模型上已经有6人回复
关于matlab数据写入txt文件的求助（上次发在计算模拟版，好像发的版不对，重发）已经有5人回复
Matlab读取多个文件中某一列的最大值然后输出到一个txt中已经有8人回复
ansys结果数据导出为txt文件，文件大小有限制吗已经有8人回复
怎么用udf读取dat或txt文件的数据已经有9人回复
求txt中数据重新排序的fortran代码已经有5人回复
VC读写TXT中的数据已经有22人回复
如何用一个批处理程序处理多个txt文件？已经有9人回复
200多个txt文件matlab读取问题已经有18人回复
matlab txt文件数据提取转换已经有10人回复
如何编写UDF来读取txt格式的一组数据？已经有11人回复
怎么把C++处理的数据结果转化到文本txt中？已经有5人回复
AUTOLAB操作txt文件已经有8人回复
如何用matlab读入带逗号的txt文件，文件中含字母已经有6人回复
怎么实现txt文件中的列数转换已经有14人回复
读取多个txt文件已经有18人回复
如何用matlab处理txt文件里的数据已经有7人回复

1楼 2015-06-05 16:59:08

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

jjdg

版主 (知名作家)

程序强帖: 9
应助: 223 (大学生)
贵宾: 3.926
金币: 51009
红花: 239
帖子: 7227
在线: 474.2小时
虫号: 27000
注册: 2003-10-21
专业: 药物代谢与药物动力学
管辖: 程序语言

【答案】应助回帖

感谢参与，应助指数 +1

Private Sub Command1_Click()
Dim b, S As String
Open "C:\out.txt" For Input As #2
S = ""
Do Until EOF(2)
   Line Input #2, b
   S = S & b & Chr(13) & Chr(10)

Loop
Close #2
CommonDialog1.Filter = "text(*.txt)|*.txt"
CommonDialog1.DialogTitle = "另存为"
CommonDialog1.Flags = cdlOFNLongNames Or cdlOFNOverwritePrompt Or cdlOFNPathMustExist
On Error GoTo errhandler
CommonDialog1.Action = 2
'p$ = CommonDialog1.InitDir
f$ = CommonDialog1.FileName
'pf$ = p$ & f$
If f$ <> "" Then
Open f$ For Output As #3
Write #3, S
Close #3
End If
errhandler:
Exit Sub

End Sub

赞一下

回复此楼

努力学习！以正当途径！获得需要的知识！

2楼2015-06-07 02:25:38