Suchergebnisse

Guten Tag, Ich möchte mich erst einmal für die Aufnahme in dieses Forum bedanken! Ich habe schon vieles hier herausgefunden und stecke jetzt aber bei einer Sache total fest. Ich benutze Microsoft Visual Studio 2008 und ich habe eine „CSV“ Exportdatei mit mehreren Artikel und Preise die durch ein Semikolon getrennt sind. Auszug aus CSV: 64735627;JInko Solar Tiger Nero;856,70;19,00;1019,47;Solarmuodul;schwarz Ich möchte dieses Datensatz in seine einzelnen Bestandteile zerlegen. Ich habe es schon m…

Danke erst einmal, ich habe noch MS Ultimate 2013 Visual Studio vorliegen, dass ist meine letzte Version und möchte eigentlich keine neuere Version kaufen da ich nächstes Jahr in Rente gehe. Auch die englischen Links helfen mir als alter Mann nicht weiter da ich in der Schule keinen englisch Unterricht genießen konnte. Vielleicht ist es doch möglich etwas für mich hier unter zu bringen.

Ok gut, ich versuche es mal so, hier mal ein Ausschnitt: Dim sstring As String = „8463578;PV-Module;brZu7;14.11.2022;General_Process_Technologies;(China) Dim testgesplittet() As String = sstring.Split(CChar(";")) MsgBox(testgesplittet(0)) MsgBox(testgesplittet(1)) MsgBox(testgesplittet(2)) MsgBox(testgesplittet(3)) MsgBox(testgesplittet(4)) MsgBox(testgesplittet(5)) MsgBox(testgesplittet(6)) Das funktioniert schon einmal so, ich habe nur das Problem es in eine Variable zu übergeben und nicht in …

@RodFromGermanynullLeider bekomme ich in dieser Zeile einen Fehler: Dim testgesplittet() As String = sstring.Split(";"c) Was möchte ich mit den Splitting erreichen. Ich habe zwei Datensätze unterschiedlicher Länge. Hier nur ein Beispiel: CSV 1 673645;PV-Module;176,50;Hartmann 665533;Halterung;46,55;Schmidt 387262;Schrauben;33,45;Hansen CSV 2 673645;PV-Module;196,50;Hartmann 665533;Halterung;49,55;Schmidt 387262;Schrauben;33,45;Hansen Die Daten in der CSV 1 sollen auf Veränderungen in der CSV 2 g…

@RodFromGermanynull Ja aber auch mit dem ging es nicht, ich habe jetzt nur ein Beispiel der CSV gemacht um es kurz zu halten. Ich glaube nicht das die Länge etwas damit zu tun hat, oder?

@RodFromGermany Danke erst einmal für eure tolle Hilfe. Ich habe ein Problem, mit den Zeilen in der CSV Datei. Das Splitting der einzelnen Zeilen hat jetzt funktioniert , jetzt habe ich das Problem, dass die Sonderzeichen wie € nicht richtig eingelesen werden, da kommen drei kryptische Zeichen bei raus. Was fehlt hier noch, dass Encoding habe ich versucht, weiß aber auch nicht wie das eingebunden wird. Vielleicht bringt mich jemand auf die Sprünge. Mein letztes kleines Rechnungsprogramm hatte ic…

@VaporiZed Danke einmal für deine Zeit und Mühe! Ja da war es für mich einfacher, heute ist es bestimmt besser wenn man damit umgehen kann. Aber mit fast 73 Jahren will der Kopf auch nicht mehr. Aber gut, gehört hier nicht hin. datei1 ist für das öffnen der Datei FileOpen(datei1, "f:\Victron1.csv", OpenMode.Append) 'Pr¸fen ob Datei vorhanden ist! Nun bin ich mit deinen Antworten wirklich überfragt was ich da in meinen VB6 Code ändern muss. Encoding UTF8 wird eingelesen.

@VaporiZed OK, die beiden ersten sind meine gewesen ist OK. Bei dieser weiß ich es. nicht genau. Dim DieDateizeilen = IO.File.ReadAllLines(, DeinEncoding) Dein Text DieDateizeilen was muss da stehen? Ich habe es so: Dim monat = IO.File.ReadAllLines("f:\Victron.csv", UTF8) <<<< Bekomme bei monat einen Fehler

Ich habe mal die Datei angehängt

@ErfinderDesRades Das einlesen der gesamten Datei in die ListBox1 funktioniert schon mal. Dafür schon einmal ein großes Lob an alle hier. In der TextBox1 steht der letzte Datensatz nach durchlauf der Schleife. (Ist nur zur Probe) Ich möchte jetzt die einzelnen Zeilen aus der ListBox1 in die neue Datei Victron1.csv schreiben. Das ist der Punkt wo ich jetzt erst einmal nicht weiter komme. Die CSV Datei hatte ich schon hochgeladen. Was kommt anschließend: Im nächsten Schritt möchte ich die Daten mi…

@RodFromGermany Super DANKE das funktioniert, man muss sich wirklich umstellen und im Alter ist das schwer. Jetzt komme ich erst einmal weiter, kann sein das ich doch noch irgend wo einen Hänger habe und melde mich noch einmal. Also an alle, ein großes Dankeschön.