VBA/VB6无法识别VbCrLf问题求助

Hey there! Let's break down why your processed HTML file shows CRLF endings in Notepad++ but gets read as a single line when using Open MyFile for Input as #1. Here are some actionable directions to fix this:

1. Clean Up Your Line Ending Replacement Code #

First, double-check the cr and lf variables in your code—VBA doesn’t have built-in constants for these, so if they’re uninitialized, those Replace calls do nothing. Let’s streamline and fix the code to ensure consistent CRLF conversion:

' Standardize all line endings to CRLF
strStringToClean = Replace(strStringToClean, vbLf, vbCrLf)
' Replace any leftover lone CRs (less common in your case, but safe to handle)
strStringToClean = Replace(strStringToClean, vbCr, vbCrLf)
' Remove duplicate CRLFs if needed (optional cleanup)
strStringToClean = Replace(strStringToClean, vbCrLf & vbCrLf, vbCrLf)
' Fix the nested quote issue
strStringToClean = Replace(strStringToClean, """""", """")

2. Adjust How You Read the File #

The Input statement in VBA doesn’t always split lines correctly on CRLF when reading the entire file at once. Try one of these more reliable methods:

Option A: Read Line-by-Line with Line Input #

This method explicitly recognizes CRLF as a line delimiter and reads content one line at a time:

Dim lineContent As String
Open MyFile For Input As #1
Do Until EOF(1)
    Line Input #1, lineContent
    ' Process each line here (parse, modify, etc.)
    Debug.Print lineContent ' Example: output to the Immediate Window
Loop
Close #1

Option B: Read Full Content and Split Manually #

If you need the entire file first, read it all at once then split using vbCrLf:

Dim fullContent As String
Dim lines() As String

Open MyFile For Input As #1
fullContent = Input$(LOF(1), #1) ' Read the entire file into a string
Close #1

' Split the content into an array of lines
lines = Split(fullContent, vbCrLf)

' Iterate through the lines to process them
Dim i As Integer
For i = LBound(lines) To UBound(lines)
    If lines(i) <> "" Then ' Skip empty lines if desired
        ' Process each non-empty line
        Debug.Print lines(i)
    End If
Next i

3. Verify Your File Saving Method #

If you saved the modified strStringToClean incorrectly, it might be messing up line endings. Use one of these safe save approaches:

• Use Output mode with Print (add a semicolon to avoid extra trailing newlines):

  Open MyFile For Output As #1
  Print #1, strStringToClean; ' Semicolon prevents adding an extra CRLF at the end
  Close #1
  

• Or use Binary mode to write the string exactly as-is:

  Open MyFile For Binary As #1
  Put #1, , strStringToClean
  Close #1
  

These steps should get your file reading line-by-line as expected. Let me know if you run into any hiccups!

内容的提问来源于stack exchange，提问作者Trip Ives