[RESOLVED] Need to join lines with just LF at the end

[Paulo Lib]

I've a text file where some lines end with vbLf and I need to join them to become one.

I already tried several approaches but none gave the result I need (read a line and writing a new one in a new file replacing the vbLf, loading all the lines to a string and replace the vbLf with "", etc...).

It comes like this


and I need to change to this


CEE;AGO;;DBAGOP1;TBAGOCOB;P;"SELECT B.* LF
FROM DB2PSYS.TBIDRF_MIG A, LF
DB2PSYS.TBAGOCOB B LF
WHERE B.IDRBES = A.IDRBES";;OK;;In;108.509;CRLF

and I need it to be like this

CEE;AGO;;DBAGOP1;TBAGOCOB;P;"SELECT B.* FROM DB2PSYS.TBIDRF_MIG A, DB2PSYS.TBAGOCOB B WHERE B.IDRBES = A.IDRBES";;OK;;In;108.509;CRLF

Thank you in advance.

Cheers

[OptionBase1]

The approaches you tried should work if coded properly. Post the code from those attempts and maybe we can help.

One highly inefficient but simple to implement approach would be:
-Read file contents into one String
-Replace vbLF with empty string
-Replace vbCR with vbCRLF

[PlausiblyDamp]

How big is the file in question? If it is a reasonable size then you could read the contents into a string and use
to find and replaced all LineFeeds.

On my phone so not tested this but something like

 
/(?<!\r)\n

should work at the regular expression...

If it doesn't, could you include an example file (work any confidential data removed) and I can try it out properly later.

[Paulo Lib]

There are two problems identifying that lines end with vbLf or vbCrLf, and the repalce of the vbLf when lines with it only

Line read
sLinha = LineInput(TextFile)

If sLinha.EndsWith(vbCrLf) Then
sLinha = sLinha
Else
sLinha = sLinha.Substring(0, sLinha.Length - vbLf.Length)
End If

Also tried but to no good with

string.Replace(String.Characters({10}), "")
regex to identify the LF
string.Contains

Another approach was read all the file

strText = objFile.ReadAl

strNewText = Replace(strText, vbCrLf, vbCr) Worked
strNewText = Replace(strText, vbLf, "") Didn't work
'strNewText = Replace(strText, vbCr, vbCrLf) Worked

[Paulo Lib]

Sample attached

[PlausiblyDamp]

Try the following to see if it gets the result you need

Dim data = File.ReadAllText("CSV_LOAD.csv")

Dim regex = New Regex("(?<!\r)\n")

Dim cleanData = regex.Replace(data, "")

[Paulo Lib]

It didn't remove the vbLf.
The vbLf were replaced by a vbCrLf so the 3 lines didn't become one.

Attachment 192425

[PlausiblyDamp]

I can't access the attachment, really not sure how they are being replaced with a vbCrLF as nothing in the code is adding any vbCrLf characters. I just updated the code above to write the file out...

Dim data = File.ReadAllText("CSV_LOAD.csv")
Dim regex = New Regex("(?<!\r)\n")
Dim cleanData = regex.Replace(data, "")
File.WriteAllText("CSV_OUT.csv", cleanData)

and the lines certainly aren't looking like they contain any extra vbCrLf, I have attached a screenshot with the original version on the left and the updated version on the right.

i

[Paulo Lib]

I can't access the attachment, really not sure how they are being replaced with a vbCrLF as nothing in the code is adding any vbCrLf characters. I just updated the code above to write the file out...

Dim data = File.ReadAllText("CSV_LOAD.csv")
Dim regex = New Regex("(?<!\r)\n")
Dim cleanData = regex.Replace(data, "")
File.WriteAllText("CSV_OUT.csv", cleanData)

and the lines certainly aren't looking like they contain any extra vbCrLf, I have attached a screenshot with the original version on the left and the updated version on the right.

i

This one worked fine.

Thank you.