閱讀cfd /文件和刪除空行

Question

嗨我想創建一個函數在VB6.0從cfd文件中讀取行，然後從該文件中刪除空行？任何人都可以幫助我嗎？

我想說的是。

/The file is already read through a ReadStream 
/Once its read I would like to identify the blank rows 
/delete them.take the blank rows 

我想在這裏一堆不同的方法是最後一個：

Do Until Len(msLineRecord) = ReadStream.AtEndOfStream 
    msLineRecord = Replace(msLineRecord, vbNewLine & vbNewLine, vbNewLine) 
    msLineRecord = Len(msLineRecord) 
Loop 

而且

Do Until ReadStream.AtEndOfStream 
    If LenB(Trim$(strLine)) = 0 Then 
     If Not bFoundBlankLine Then 
      Print #2, strLine bFoundBlankLine = True 
     End If 
    Else 
     Print #2, strLine 
    End If 
Loop 
Close ff1 
Close ff2 
Kill "C:\temp\blank lines.txt" 
Name "C:\temp\MyTemp.tmp" As "C:\temp\blank lines.txt" 

Answer 1

看來你正在使用的FileSystemObject的打開，並通過閱讀你的文件，所以我將假定cfd文件是純文本文件。我不包括錯誤處理。你應該可以做到這一點。

Dim fso As New FileSystemObject 
Dim fsoSourceStream As TextStream 
Dim fsoTempStream As TextStream 
Dim fsoFile As File 
Dim strLine As String 

' Create a temporary text file, and return a reference to a TextStream 
Set fsoTempStream = fso.CreateTextFile("some_path\temporary.txt", True) ' the True parameter overwrites the file if it already exists 

' Open the source file for reading and return a reference to the TextStream 
Set fsoFile = fso.GetFile("some_path\my_file.cfd") 
Set fsoSourceStream = fsoFile.OpenAsTextStream(ForReading) 

' Loop through the lines writing the lines that are not blank to the temp file 
Do While Not fsoSourceStream.AtEndOfStream 
    strLine = fsoSourceStream.ReadLine 
    If Len(strLine) > 0 Then 
     fsoTempStream.WriteLine strLine 
    End If 
Loop 

fsoSourceStream.Close 
fsoTempStream.Close 

fso.DeleteFile("some_path\my_file.cfd") ' Delete the source file 
' Rename the temporary file to the source file name 
Set fsoFile = fso.GetFile("some_path\temporary.txt") 
fsoFile.Name = "some_path\my_file.cfd" 

' Clean up 
Set fso = Nothing 
Set fsoFile = Nothing 
Set fsoSourceStream = Nothing 
Set fsoTempStream = Nothing