Только часть строки записывается в файл, используя WriteLine - PullRequest
Новая
       21

Только часть строки записывается в файл, используя WriteLine

1 голос
/ 08 октября 2019

У меня есть следующий скрипт: 

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" , "Кастыvoor stoffen - gesloten "," 0 "," Dag "," SASK "," PBM03-PBM05-PBM07 "," 2015 "

Моя проблема заключается в том, что только первые 2 строки написаны натекстовый файл:

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", "Руд", "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-P2660-P264-P264-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 для выполнения этих команд

1 Ответ

1 голос
/ 08 октября 2019

Решил мою проблему, отформатировав результат перед тем, как поместить его в мой текстовый файл: 

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