Új hozzászólás Aktív témák

• #3060 Postas99 senior tag

  Új Válasz 2018-09-28 20:47:43 #3060

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Postas99

  senior tag

  Sziasztok!

  Lenne egy érdekes problémám:

  Using rdr As New System.IO.StreamReader(openFileDialog1.FileName.ToString())


Do While rdr.Peek() >= 0
InputLine = rdr.ReadLine
InputLine = InputLine.Replace("',", Chr(9))
InputLine = InputLine.Replace("'", "")
InputLine = InputLine.Replace(";", Chr(9))
oRow = oRow + 1
szazalek = oRow

System.Windows.Forms.Clipboard.SetDataObject(InputLine, True)

Try
oBook.Worksheets(1).Range("A" + oRow.ToString).Select()
Catch ex As Exception
End Try

Try
oBook.Worksheets(1).Paste()
Catch ex As Exception
End Try

ProgressBar1.Value = szazalek
Loop
rdr.Close()
End Using

  Ami semmi mást nem csinálna ha nem hibázna, hogy beolvas .CSV fájlokat.
  Ez idáig tiszta, de a fájlok más más felépítésűek ezért egy kódban kellene megoldanom a feldolgozást..

  1, CSV
  'Label S.r.l.',
  'Via Don Mazzucotelli, 6/A',
  '24020 Gorle (BG) Italia',
  'Tel. +39-035-302.812 Fax +39-035-302.815',
  '',
  'Dátum: ','06/08/2018 08:24','FOGYASZTÁS RECEPTENKÉNT','Oldal: ','1 - 5',
  '',
  'Dátum: ','2018.08.01. - 2018.08.01.','Recept:',' - ',
  'Kifejezés értékben: ','Nem','Azonosító:',' - ',
  'Tűrés: ','Letiltva','Eszköz:',' - ',
  '',
  'Recept: ','FOGAD4','Leírás: ','',
  '',

  2, CSV
  'Label S.r.l.';
  'Via Don Mazzucotelli, 6/A';
  '24020 Gorle (BG) Italy';
  'Phone +39-035-302.812 Fax +39-035-302.815';
  '';
  'Date: ';'02/08/2018 12:40';'USAGES by RECIPE';'Page: ';'1 - 6';
  '';
  'Date: ';'01/08/18 - 01/08/18';'Scale:';' - ';
  'Valuation: ';'No';'Operator:';' - ';
  'Tolerance: ';'No';'Customer:';' - ';
  'Recipe:';' - ';
  '';

  A kód kiszedi soroknént és értékenként az aposztróf ' jeleket ha vessző követi ','
  SCV2 esetében viszont a ';' értéket kell feldolgozni.
  Az értékek a sztringbe visszairódnak, majd ezek excel meghívásával cellánként bemásolásra kerülnek a csv fájl teljes feldolgozásáig.

  A HIBA
  hogy excelbe való másoláskor, néha téveszt és RANDOM üres sorokat is berak. Oszlopokat nem téveszt.
  Ezt szeretném kiküszöbölni.
  Elakadtam, hogy hol rontottam el a feldolgozást.

  Esetleg valaki tudna segítséget adni?

  Köszönöm

Új hozzászólás Aktív témák