| 查看: 492 | 回复: 1 | |||
[求助]
把一个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 哪里有错误啊，为什么只能读到第一行啊 |
回复此楼» 猜你喜欢
求调剂：一志愿：南京大学 专业：0705 总分320 ，本科985，四六级已过
已经有3人回复
-
环境工程 085701，267求调剂
已经有14人回复
-
308求调剂
已经有12人回复
-
求调剂：085600材料与化工，考材科基，总分319
已经有21人回复
-
311求调剂
已经有8人回复
-
294分080500材料科学与工程求调剂
已经有13人回复
-
288求调剂 一志愿哈工大 材料与化工
已经有19人回复
-
288资源与环境专硕求调剂，不限专业，有学上就行
已经有23人回复
-
一志愿085600中科院宁波所276分求调剂
已经有17人回复
-
271求调剂
已经有11人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 如何把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人回复
jjdg
新虫
- 程序强帖: 9
- 应助: 223 (大学生)
- 贵宾: 3.926
- 金币: 51005.2
- 红花: 238
- 帖子: 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
