scripting - 使用 VBScript 读取 CSV 文件

Question

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

A,B,C,D

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

有没有办法做到这一点？

Answer 1

假设值不包含逗号，使用 FileSystemObject 读入文件(FSO)，然后 Split逗号上的每一行。根据需要更改结果数组的 4 个值，然后是 join再次将其作为逗号分隔的字符串组合在一起。完成所有更改后，使用 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

请注意，代码完全未经测试，主要是根据内存编写的，因此几乎可以肯定是不正确的，但只是为了给您一个想法。