텍스트 파일에서 줄 바꿈을 제거하는 방법

Question

수많은 CSV 파일이 있는데 Excel로 제대로 가져 오지 못합니다. im은 VBScript를 사용하여 strLine의 끝에 줄 바꿈을 제거하는 방법이 있습니까?

Answer 1

예, CSV에서 줄 바꿈을 제거 할 수 있습니다. ReadLine 자동으로 줄 끝에서 줄 바꿈을 제거합니다 :

Set fso = CreateObject("Scripting.FileSystemObject") 

filename = "C:\path\to\your.csv" 

f1 = fso.OpenTextFile(filename) 
f2 = fso.OpenTextFile(filename & ".tmp", 2, True) 
Do Until f1.AtEndOfStream 
    f2.Write f1.ReadLine 
Loop 
f1.Close 
f2.Close 

또는 당신이 전체 파일을 읽고 선을 대체 할 수있는 것은 나누기 : 그러나

Set fso = CreateObject("Scripting.FileSystemObject") 

filename = "C:\path\to\your.csv" 

text = fso.OpenTextFile(filename).ReadAll 
fso.OpenTextFile(filename, 2).Write Replace(text, vbNewLine, ",") 

, 즉보다는 증상을 해결 될 수있다 그 원인. 나 두 번째 Ekkehard.Horner의 의견 : 더 나은 대답을 위해 입력 파일과 가져 오기가 실패하는 방식에 대한 자세한 내용을 분명히 제공해야합니다.