Deleting carriage return

• • Reply

  13 years ago

  by azizrasul

  Aziz

  , United Kingdom

  Joined 13 years ago
  I have the following code to amalgamate data from 3 text files into 1. How do I delete the carriage return at the end of the file using VBA?

   

  Public Sub CreateInternetFile(strFileCount, strFileInternetExportRanging, strFileInternetExportProducts)
  
  Dim intChannel As Integer
  
  For intChannel = 1 To 511
  Close #intChannel
  Next intChannel
  
  Open strFileCount For Append As #1
  Open strFileInternetExportRanging For Input As #2
  Open strFileInternetExportProducts For Input As #3
  
  While Not EOF(2)
  Line Input #2, InputString
  Print #1, InputString
  Wend
  
  While Not EOF(3)
  Line Input #3, InputString
  Print #1, InputString
  Wend
  
  Close #1
  Close #2
  Close #3
  
  End Sub
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  Report abuse
• • Reply

  13 years ago

  by konikula

  Matej Kasper

  Trutnov, Czech Republic

  Joined 15 years ago
  Shared Function ReadFile$(path$) ...
  ...
  Dim f1$ = ReadFile(path1).TrimEnd(vbCr, vbLf)
  ...
  WriteFile(f1 & f2 & f3)
  
  
  
  
  
  
  Report abuse
• • Reply

  13 years ago

  by azizrasul

  Aziz

  , United Kingdom

  Joined 13 years ago

  MS Access doesn't recognise TrimEnd as a function!

  Report abuse
• • Reply

  13 years ago

  by konikula

  Matej Kasper

  Trutnov, Czech Republic

  Joined 15 years ago
  So you can maybe use this:?
  
  Function rlCrLfs$(strng$)
 If Len(strng) < 2 Then
  rlCrLfs = strng
 Else
  Dim ret$ = strng
  Dim crlf$ =




Chr(13) & Chr(10)
  While Right(ret,2) = crlf
   ret = Left(ret, Len(ret) - 2)
  WEnd
 


rlCrLfs = ret
 End If
End Function


  
  
  
  
  
  Report abuse