使用 WriteLine 仅将一部分字符串写入文件

Question

我有以下脚本：

Set objFSO=CreateObject("Scripting.FileSystemObject")
outFile="C:\Temp\export.csv"
Set objFile = objFSO.CreateTextFile(outFile,2,True)
objFile.WriteLine([SQLtoCSV])
objFile.Close
SET WriteStuff = NOTHING
SET objFSO = NOTHING

变量[SQLtoCSV]等于：

"Id","AanmaakDatum","Stofnaam","Samenstelling","Kleurcode","Pictogrammen","Signaalwoord","Hnummers","Pnummers","Opslag","AantalTHT","THTCode","Eigenaar","PBMPictogrammen","MSDS"
"1431","","Koperoxide - CuO","keramiek","Geel","GHS09","WAARSCHUWING","H400","P273-P391-P501","","0","Dag","SASK","PBM01-PBM03-PBM07","2015"
"1432","","Nikkelcarbonaat","keramiek","Rood","GHS07-GHS08-GHS09","GEVAAR","H315-H317-H341-H302-H332-H372-H360D-H350i-H334-H410","P261-P270-P273-P362-P308 + P313","","0","Dag","SASK","PBM01-PBM03-PBM07","2015"
"1433","","Aluminiumhydroxide","keramiek","Groen","","WEINIG GEVAAR","","","gesloten op droge plaats","0","Dag","SASK","PBM01-PBM03","2015"
"1427","","Nikkeloxide","keramiek","Rood","GHS07-GHS08","GEVAAR","H317-H350-H372-H413","P201-P202-P260-P261-P264-P270-P272-P273-P280-P302 + P352-P308 + P313-P333 + P313-P314-P405-P501-P321-P363","kast voor stoffen - gesloten","0","Dag","SASK","PBM03-PBM05-PBM07","2015 "

我的问题是只有前两行写在txt文件上：

Id,"AanmaakDatum","Stofnaam","Samenstelling","Kleurcode","Pictogrammen","Signaalwoord","Hnummers","Pnummers","Opslag","AantalTHT","THTCode","Eigenaar","PBMPictogrammen","MSDS"
1431,"","Koperoxide - CuO","keramiek","Geel","GHS09","WAARSCHUWING","H400","P273-P391-P501","","0","Dag","SASK","PBM01-PBM03-PBM07","2015

我不明白为什么会这样。有人有想法吗？

编辑：

我通过 SQL 命令获取变量：

SELECT * FROM StadRoe_LabelData

结果存储在变量[SQLtoCSV] :

"Id","AanmaakDatum","Stofnaam","Samenstelling","Kleurcode","Pictogrammen","Signaalwoord","Hnummers","Pnummers","Opslag","AantalTHT","THTCode","Eigenaar","PBMPictogrammen","MSDS"
"1431","","Koperoxide - CuO","keramiek","Geel","GHS09","WAARSCHUWING","H400","P273-P391-P501","","0","Dag","SASK","PBM01-PBM03-PBM07","2015
"
"1432","","Nikkelcarbonaat","keramiek","Rood","GHS07-GHS08-GHS09","GEVAAR","H315-H317-H341-H302-H332-H372-H360D-H350i-H334-H410","P261-P270-P273-P362-P308 + P313","","0","Dag","SASK","PBM01-PBM03-PBM07","2015
"
"1433","","Aluminiumhydroxide","keramiek","Groen","","WEINIG GEVAAR","","","gesloten op droge plaats","0","Dag","SASK","PBM01-PBM03","2015
"
"1427","","Nikkeloxide","keramiek","Rood","GHS07-GHS08","GEVAAR","H317-H350-H372-H413","P201-P202-P260-P261-P264-P270-P272-P273-P280-P302 + P352-P308 + P313-P333 + P313-P314-P405-P501-P321-P363","kast voor stoffen - gesloten","0","Dag","SASK","PBM03-PBM05-PBM07","2015
"

我正在使用 NiceLabel 来执行这些命令

Answer 1

通过在将结果放入我的文本文件之前格式化结果解决了我的问题：

a = Replace([SQLtoCSV],"""","")
b = Split(a, vbCrLf)
[SQLtoCSV] = ""
for each x in b
    If x <> "" Then
        [SQLtoCSV] = [SQLtoCSV] & x & vbCrLf
    End If
next

使用 WriteLine 仅将一部分字符串写入文件

Only a portion of string is written to the file using WriteLine

vbscript

text-files

export-to-csv