| 

.NET C# Java Javascript Exception

1
Hallo versuche csv Datei in Datagrid einzulesen aber die 2. Zeilen werden nicht richtig in das Datagrid geschrieben! Hat einer eine Idee wo der Fheler liegt. Danke

###### csv Ausschnitt #####
id;category;name/code;description;price;enable vat;vat value;weight;options;enable discounts;discounts;availability type;available;pending;images
owhjp9j8;WOMAN;"ACER CB 314 C933T-C8MF Chrome OS Cel.N4100/4GB LPDDR4/64GB eMMC/14""";"Betriebssystem: Google Chrome OS
Gehäuse / Farbe: Aluminium/Schwarz
Serviceklappe: -
Maße (BxTxH): 325,4 x 232 x 19,7 mm
Gewicht: 1,5 kg
Passiv gekühlt: -
Display: 14,0"" (35,56 cm) Acer ComfyView Multi-
Touch HD Display m. LED Backlight matt
1366 x 768, 16:9
Prozessor: Intel Celeron N4100 1,1GHz, 4MB Cache
Chipsatz: Integrated SOC
Arbeitsspeicher: 4 GB LPDDR4 (1x 4GB DDR4 onboard, nicht
austausch- oder aufrüstbar)
Massenspeicher: 64 GB eMMC
Optisches LFW: -
Grafikkarte: Intel UHD Graphics 600
LAN: -
Wireless LAN: Intel Dual Band Wireless-Gigabit-AC,
802.11 ac/a/b/g/n
Wireless WAN/SIM: -/-
Wireless Gigabit: -
Bluetooth: Bluetooth 5.0
NFC: -
WoL (Wake on LAN): -
HDMI: -
VGA: -
Displayport: -
Thunderbolt: -
USB 3.1: 2x (Type-C Gen.1)
USB 3.0: 2x
USB 2.0: -
Ethernet (RJ45): -
Kartenleser: MicroSD Kartenleser
Audio: 1x Lautsprecher/Kopfhörer/Line-Out
(unterstützt Headsets m. integr. Mikro)
Docking Anschlusss: -
Tastatur: Acer FineTip Tastatur
(74-/75-/78-Tasten)
Tastaturlayout: Deutsch (QWERTZ)
Tastatur hintergrundbeleuchtet: -
Touchpad: Multi-Gesture Touchpad
Fingerprintsensor: -
TPM: TPM Modul
Kensington Schloss: Ja
Sicherheitssoftware: -
Audio: High Definition Audio Support
Lautsprecher: Zwei eingebaute Stereo-Lautsprecher
Mikrofon: Eingebautes Mikrofon
Webcam: HD Webcam
Akku: Li-Ion Akku (4-Zellen/3220 mAh/48Wh)
Akkulaufzeit: bis zu 12,5 Stunden
Netzteil: 45W AC-Netzteil
(USB Type C Google PD Adapter)
Akku fest verbaut: Ja
Herstellergarantie: 2 Jahre Einsende-/Rücksendeservice
inkl. 1 Jahr International Travelers
Warranty
NX.HR4EG.002

Die technischen Daten werden uns von dritter Seite zur unverbindlichen Information zur Verfügung gestellt. Wir übernehmen keine Haftung für Fehler dieser Daten.
";399,00;1;19,00;2,00;;0;;Fixed;Lack;;C:\WebSite X5 - Projekte\shop-Daten\03-2021\Angebote\03\350662.JPG
###########################

#### Code ####
If OpenFileDialog.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
Dim dt As DataTable = New DataTable()

Using sr As StreamReader = New StreamReader(OpenFileDialog.FileName, System.Text.Encoding.UTF8)

While Not sr.EndOfStream
Dim currentline As String() = sr.ReadLine().Split(New String() {";"}, StringSplitOptions.None)

If dt.Columns.Count = 0 Then

For i As Integer = 0 To currentline.Length - 1
dt.Columns.Add(currentline(i))
Next
Else
dt.Rows.Add(currentline)
End If
End While

sr.Close()
End Using

DgvGrid.DataSource = dt
End If

##############
24.03.2021
tsmeier 51 1 3
2 Antworten
0
So habe das mal so Probiert:

Problem ist noch das wenn die id (Header) ausgelesen wir vor der id so etwas steht!
!°>>?id Wer hat dazu eine Idee!

###### csv Ausschnitt #####
id;category;name/code;description;price;enable vat;vat value;weight;options;enable discounts;discounts;availability type;available;pending;images

...
###########################
Dim openFileDialog As New OpenFileDialog()
Dim fileLocation As String
openFileDialog.InitialDirectory = "c:\"
openFileDialog.Filter = "txt files (*.csv)|*.csv|All files (*.*)|*.*"
openFileDialog.FilterIndex = 1
openFileDialog.RestoreDirectory = True

If openFileDialog.ShowDialog() = System.Windows.Forms.DialogResult.OK Then

fileLocation = openFileDialog.FileName
fileName = fileLocation
Dim file As String = IO.Path.GetFileName(fileName)
Dim path As String = IO.Directory.GetParent(fileName).FullName
Dim ds As New DataSet

Try

If IO.File.Exists(IO.Path.Combine(path, file)) Then
Dim ConStr As String =
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
path & ";Extended Properties=""Text;HDR=No;FMT=Delimited\"""
Dim conn As New OleDb.OleDbConnection(ConStr)
Dim da As New OleDb.OleDbDataAdapter("Select * from " &
file, conn)
da.Fill(ds, "TextFile")

End If

Catch ex As Exception
MessageBox.Show(ex.ToString)

End Try

DataGridView.DataSource = ds.Tables(0)
End If
26.03.2021
tsmeier 51 1 3
0
Hier mit automatische Zellenanpassung:

Hab immer noch das Problem mit den Umlauten beim Import... System.Text.Encoder.Default wo kann ich das im Code ändern! Hat einer eine Idee! Danke

da.Fill(ds, "costumers")

With DataGridView
.ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
.DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
End With


Gruss TM
29.03.2021
tsmeier 51 1 3

Stelle deine --Frage jetzt!