Carriage return causing blanks on import

[Cloonalt]

I have a .txt file I'm importing into Access. When it gets imported it has blanks between each line, which I assume is caused by double carriage returns between every other line. I can delete the blank lines once I get it into Acces, but I wonder if there's some way on the import to strip out extra carriage returns. Can I do it in code, rather than the import routine?

Doesn't seem to be, but I thought I'd ask.

Thanks for any help.

 

[MajP]

Sure you could, but I think it would be a lot easier to use a delete query, which would take about 5 seconds to write.

 

[TheAceMan1]

How are ya Cloonalt . . .

Agree with [blue]MajP[/blue], however I would use the following routine to strip the extra lines completely throughout the file:

[blue]Public Function NoDblLines(Dat As String)
   Dim NL As String, DL As String
   
   NL = vbNewLine
   DL = NL & NL
   
   NoDblLines = Replace(Dat, DL, NL)

End Function[/blue]

See Ya! . . . . . .

 

[Cloonalt]

Hate to ask dumb question, but...

What is data in this scenario?

Thanks for your help.

 

[TheAceMan1]

Cloonalt . . .

Dat is the variable or form control name which holds the file. Say you load the file into a memo field named [blue]MyFile[/blue] on a form. To strip the extra blank lines you'd have:

[blue]   Me!MyFile = NoDblLines(Me!MyFile)[/blue]

See Ya! . . . . . .