从文本文件中删除不需要的数据
我有一个大的文本文件从每个行中有三个不需要的零应用程序导出。 该文本文件需要导入到另一个应用程序和零引起一个问题。
基本上每行不需要的三个零需要被删除。 这些零总是在相同的位置（从左边算起的字符数相同），但是位置在中间的某个位置。 我已经尝试了各种各样的东西，如导入文件到Excel中，删除零，然后导出为文本文件，但总是有格式化导出的文本文件的问题。
有人可以提出一个解决scheme，或指出我在正确的方向吗？
像这样的东西？ （很快完成）
Sub replaceInTx() Dim inFile As String, outFile As String Dim curLine As String inFile = "x:\Documents\test.txt" outFile = inFile & ".new.txt" Open inFile For Input As #1 Open outFile For Output As #2 Do Until EOF(1) Line Input #1, curLine Print #2, Replace(curLine, "000", "", 6, 1, vbTextCompare) Loop Close #1 Close #2 End Sub
或者，你可以使用任何允许select块的 文本编辑器 （我喜欢Notepad2，小巧，快速和便携）
我看你用excel很多。 当您将文本文件导入到Excel中时，是否使用导入function，并将数据推送到单独的单元格中？ 如果单元格是数字，您可以执行以下操作：
=LEFT(TEXT(G5,"#"),LEN(TEXT(G5,"#"))-3)
如果单元格是文本：
=LEFT(G5,LEN(G5)-3)
G5将数据行/字段所在的单元格。
curLine = Left(curLine, 104)
这将采取前104个字符