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

我有以下脚本：

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”、“aanmaakdatam”、“Stofnaam”、“Samenstelling”、“Kleurcode”、“象形文字”、“signaalwood”、“Hnummers”、“Pnummers”、“op渣”、“AantalTHT”、“THTCode”、“eignaar”、“pbmpicogramen”、“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”、“氢氧化铝”、“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-P314-P405-P501-P321-P363”、“卡斯特·沃夫-格斯洛滕”、“0”、“达格”、“萨斯克”、“PBM03-PBM05-PBM07”、“2015” "

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

Id，“aanmaakdatam”、“Stofnaam”、“Samenstelling”、“Kleurcode”、“象形文字”、“signaalwood”、“Hnummers”、“Pnummers”、“op渣”、“AantalTHT”、“THTCode”、“eignaar”、“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”、“aanmaakdatam”、“Stofnaam”、“Samenstelling”、“Kleurcode”、“象形文字”、“signaalwood”、“Hnummers”、“Pnummers”、“op渣”、“AantalTHT”、“THTCode”、“eignaar”、“pbmpicogramen”、“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”、“氢氧化铝”、“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-P314-P405-P501-P321-P363”、“卡斯特·沃夫-格斯洛滕”、“0”、“达格”、“萨斯克”、“PBM03-PBM05-PBM07”、“2015
"

---

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

解决了我的问题，在将结果放入文本文件之前将其格式化如下：

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

a=Replace（[SQLtoCSV]，“”，“”）
b=拆分（a，vbCrLf）
[SQLtoCSV]=“”
对于b中的每个x
如果x为“”，则
[SQLtoCSV]=[SQLtoCSV]&x&vbCrLf
如果结束
下一个

使用

Write（）

而不是

WriteLine（）

结果不同吗？我复制了你说的是

SQLtoCSV

的值，并将其粘贴到一个空文件中，使用

objFSO.OpenTextFile

读取该文件的内容，然后我运行了你的代码，无法重现你的问题。请向我们展示你如何获得

SQLtoCSV

及其实际值。换句话说ords，请提供一个。该变量的类型是什么，您是如何填充它的？我用查询结果的正确语法编辑了我的帖子。它应该是一个string@AhmedAbdelhameed我用精确的语法编辑了我的文章。看起来它在一行遇到双引号时停止了。