VBScript ProTool/Pro csv

RyanB

Level-1
Beiträge
11
Reaktionspunkte
0
Zuviel Werbung?
-> Hier kostenlos registrieren
Hi Leute,

ich habe ein Problem beim Einlesen von Daten aus eine csv Datei. Ich versuche aus der csv Datei die erste Spalte einzulesen. Das klappt auch soweit ganz gut. Wenn allerdings in dem Feld ein Komma vorkommt, wird alles was dahinter steht abgeschnitten.

Beispiel
In der csv Datei steht:
Connection, established:

In ProTool/Pro kommt dann nur noch:
Connection

Mein Code sieht so aus:

Set CV_BW = CreateObject("excel.application")

CV_BW.workbooks.open "c:\Temp\test.csv"

CV_Inhalt = CV_BW.cells(1,1).value



Woran kann das liegen ?

Grüße,
Bryan
 
Hallo

Mit der Methode "OpenText" kann man das Trennzeichen beim Import von Textdateien umstellen (die "1" nach den sieben Kommas). Leider scheint Excel die Angabe bei csv-Dateien zu ignorieren. Es funktioniert aber, wenn man die Datei umbenennt oder kopiert:

Set fs = CreateObject("Scripting.FileSystemObject")

fs.CopyFile "c:\Temp\test.csv", "c:\Temp\test.txt", True

Set fs = Nothing

Set CV_BW = CreateObject("excel.application")

CV_BW.workbooks.OpenText "c:\Temp\test.txt", , , , , , , 1

WScript.Echo CV_BW.cells(1,1).value

CV_BW.workbooks.Close

Set CV_BW = Nothing

mfg

Ulf
 
Zuviel Werbung?
-> Hier kostenlos registrieren
Hallo Ulri,

danke für deine Antwort. Ich habe das Problem auf einem ähnlichen Weg jetzt gelöst. Und zwar öffne ich die csv Datei direkt als Textdatei und lese dann die Daten Zeile für Zeile. Das klappt wunderbar.

Für all die, die vieleicht mal das selbe Problem haben hier ein Teil des Quellcodes:

Set CV_BW = CreateObject("scripting.FileSystemObject")
Set CV_BW1 = CV_BW.OpenTextFile("c:\Temp\MELDUNGEN0.csv") '****** Dateiname CSV

Do
'Daten aus CSV Datei lesen
CV_Inhalt = CV_BW1.ReadLine
Loop Until CV_BW1.AtEndOfStream

Grüße,
Bryan
 
Zurück
Oben