Go Premium for a chance to win a PS4. Enter to Win

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 255
  • Last Modified:

VBS Script to remove carriage returns from large file.

a









b
As you can see in this the example above are many carriage returns and I need to remove them all. I have attached the vbs code that I tried with no change to the file.
Remove--returns.vbs
0
dondudley
Asked:
dondudley
  • 4
  • 2
1 Solution
 
käµfm³d 👽Commented:
Are you certain the target file has CRLF as its line endings? Perhaps the file only uses LF, at which point your Replace call would not find anything.
0
 
dondudleyAuthor Commented:
Here is an example of the original code and notice that it only has one extra carriage return.

2.80;176;4.93;01/20/2012
;
00904-5125-59
;


In my file it is all together in a text file and where the 59; is there is actually a carriage return between the 9 and the semicolon but here is shows different but that is what I need to remove.
0
 
käµfm³d 👽Commented:
Try altering line 9 to:

strNewText = Replace(Replace(strText, chr(013), ""), chr(010), "")   ' chr(010) = line feed chr(013) = carriage return 

Open in new window

0
Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
dondudleyAuthor Commented:
Tried it but didn't seem to work. I would like to send the original file to you but it is business confidential. Is there anyway I can get the file to you without anyone seeing it?

Thanks,
Don
0
 
dondudleyAuthor Commented:
I did get it to work, sorry I must have had something wrong but it is working now.

Thank you very much.

Don
0
 
dondudleyAuthor Commented:
It was a great catch in the code and he fixed it first try.

Thanks again,
Don
0

Featured Post

Important Lessons on Recovering from Petya

In their most recent webinar, Skyport Systems explores ways to isolate and protect critical databases to keep the core of your company safe from harm.

  • 4
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now