使用VBScript读取CSV文件

Question

我有一个包含4个字段的文件。

A,B,C,D

我只想提取第四个字段并将其更改为“ E”

反正有做到这一点吗？

Answer 1

假定值不包含逗号，请使用FileSystemObject（FSO）读入文件，然后在逗号上分割每一行。根据需要更改4个值的结果数组，然后再次将其作为逗号分隔的字符串连接在一起。完成所有更改后，使用FSO将数据写回到文件中。

所以像这样：

Set outputFile = fso.OpenTextFile(FileName1, ForWriting, True)
Set inputFile = fso.OpenTextFile(FileName2, ForReading)
Do While inputFile.AtEndOfStream <> True
    arr = Split(inputFile.ReadLine, ",")
    arr(3) = "E"
    outputString = Join(arr, ",")
    outputFile.WriteLine outputString
Loop

请注意，该代码完全未经测试，并且大部分是从内存编写的，因此几乎可以肯定这是不正确的，只是给您一个想法。