[已解决]如何用VBA代码整理特定数据??

1234vba

附件下载: 0318.rar (39.51 KB, 下载次数: 8)

2014-3-18 21:20 上传

点击文件名下载附件

如何用VBA代码整理特定数据??


如图所示:


代码实现的要求就是:::

让代码处理test.txt 里的内容...


只要=号右边的不是0-0
那么就整行保留.
0-0的就删除.

结果写入 结果.txt

最佳答案

月排行榜 / 总排行榜

dsmch

2014-3-18 22:01

1. Sub Macro1()
   
2. Open ThisWorkbook.Path & "\test.txt" For Input As #1
   
3.     w = Split(StrConv(InputB(LOF(1), #1), vbUnicode), vbCrLf)
   
4. Close #1
   
5. Open ThisWorkbook.Path & "\结果.txt" For Output As #1
   
6. For i = 0 To UBound(w)
   
7.    If Right$(w(i), 3) <> "0-0" Then Print #1, w(i)
   
8. Next
   
9. Close #1
   
10. End Sub
    

复制代码

跳转到最佳答案楼层

云影

0318.rar (47.04 KB, 下载次数: 7)

2014-3-18 22:04 上传

点击文件名下载附件

刚才有错误{:031:}，已修改

dsmch

1. Sub Macro1()
   
2. Open ThisWorkbook.Path & "\test.txt" For Input As #1
   
3.     w = Split(StrConv(InputB(LOF(1), #1), vbUnicode), vbCrLf)
   
4. Close #1
   
5. Open ThisWorkbook.Path & "\结果.txt" For Output As #1
   
6. For i = 0 To UBound(w)
   
7.    If Right$(w(i), 3) <> "0-0" Then Print #1, w(i)
   
8. Next
   
9. Close #1
   
10. End Sub
    

复制代码

dsmch

………………

1234vba

谢谢两位老师...