仅删除尾部空格和间隔在空字段

Question

我有一个CSV用数据如以下

“01”，“567”，””，‘这是一个消息’

我需要删除空白字段中的尾部空格和空格，同时保留数据之间的空格。

我的代码：

Dim inStream : Set inStream... 

With inStream 

    .open 

    .type = 2 

    .charset = "utf-8" 

    .loadfromfile src 

    Dim outStream : Set outStream... 

    outStream.open 

    outStream.type = 2 

    While Not .EOS 

    arrLine = split(.read, ",") 

    strLine = trim(arrLine(0)) 

    If ubound(arrLine) > 0 Then 
     For intField = 1 To ubound(arrLine) 
     strLine = strLine & "," & trim(arrLine(intField)) 
     Next 
    End If 

    outStream.write(strLine) 
    outStream.savetofile dest, create 
    WEnd 

    outStream.close 

    .close 

End With 

Answer 1

您可以将CSV行分成数组，然后遍历并使用“裁剪”功能，在每个项目上。 在google上有这样令人惊讶的好的vbscript例子。