Vytisknout stránku | Zavřít okno

import z csv

Vytištěno z: CAD Fórum
Kategorie: Autodesk - stavebnictví, strojírenství, CAD/GIS
Název fóra: iLogic a ETO
Popis fóra: Funkce a makra iLogic, Inventor Engineering to Order (ETO), automatizace a konfigurace výrobků
URL: https://www.cadforum.cz/forum/forum_posts.asp?TID=23444
Datum vytištění: 06.kvě.2026 v 23:21


Téma: import z csv
Odeslal: shogun6666
Předmět: import z csv
Datum odeslání: 01.lis.2016 v 13:03
Dobrý den
Mám dotaz, je možné importovat ivlastnosti ze souboru .csv tak jako z EXCELU (pravidlo pro excel: SyntaxEditor Code Snippet
iProperties.Value(doc, "Custom", "12 Skl. p.  polotovaru") = GoExcel.CellValue("E" &MyRow)
Nyní když ze souboru kopíruji tak se mi ivlastnosti, které jsou v souboru rozděleny v buňkách spojí a nakopíruji se do jedné vlastnosti.
děkuji za odpověď


Odpovědi:
Odeslal: Navara
Datum odeslání: 01.lis.2016 v 13:50
Určitě to jde. Záleží na struktuře csv souboru. Pokud mi sem dáte vzorek, tak vám můžu s tím kódem pomoci.

Odeslal: shogun6666
Datum odeslání: 02.lis.2016 v 09:00
Dobrý den
V příloze zasílám soubor CSV soubor ipt kam vlastnosti kopíruji a v txt kod který používám pro export vlastností z excelu.
 
Děkuji za pomoc.
 
uploads/31987/export.zip" rel="nofollow - uploads/31987/export.zip

Odeslal: Navara
Datum odeslání: 02.lis.2016 v 09:25
Ten CSV soubor není příliš vhodně formátován, ale to záleží na tom, odkud se bere. Vhodnější struktura je dvousloupcový soubor ve formátu
NázevVlastnosti;Hodnota
 
Ale tady je kód, pro načtení iVlastností z tohohle CSV
 
Imports System.Text
 
'Load CSV
Dim fileName = "D:\Dokumenty\Zakaznici\__HELPDESK__\HD_20161102\export\polozky_import.csv"
Dim win1250  = Encoding.GetEncoding(1250)
Dim lines As String() = System.IO.File.ReadAllLines(fileName, win1250)
If (lines.Length < 2) Then
    MsgBox("Invalid CSV file")
    Return
End If
Dim data = lines(1).Split(";")
'Set iProperties
Try
    iProperties.Value("Custom", "12 Skl. p.  polotovaru") = data(1)
Catch
    'catch error when cell is blank
End Try
Try
    iProperties.Value("Custom", "08 Norma polotovaru") = data(4)
Catch
    'catch error when cell is blank
End Try
Try
    iProperties.Value("Custom", "09 TDP") = data(5)
Catch
    'catch error when cell is blank
End Try
Try
    iProperties.Value("Custom", "06 Polotovar 1") = data(2)
Catch
    'catch error when cell is blank
End Try
Try
    iProperties.Value("Custom", "04 Materiál konečný") = data(3)
Catch
    'catch error when cell is blank
End Try
Try
    iProperties.Value("Custom", "09 Atest") = data(6)
Catch
    'catch error when cell is blank
End Try
 

Odeslal: shogun6666
Datum odeslání: 02.lis.2016 v 09:56
Dobrý den
Data přenášíme do csv z podnikového informačního programu. Každý konstruktér má svůj řádek do toho se to zkopíruje z (orakissu) a do inventoru to pak importujeme z tohoto souboru. Myslím si, že import z csv pro více uživatelů bude problém. Zkusím prověřit zda jdou data importovat do excelu.
 
Za odpověď děkuji.

Odeslal: Navara
Datum odeslání: 02.lis.2016 v 10:22

To asi nebude nutné, osobně dávám přednost CSV před Excelem, protože spolupráce s ním je komplikovaná a pomalá.

Pokud budete potřebovat pomoc se složitějším importem, tak se obraťte na Hepdesk, kde to můžeme dotáhnout i pro CSV s více uživateli a trochu optimalizovat ten kód. (Takhle na první pohled jde zkrátit tak asi na 1/4)
 

Odeslal: shogun6666
Datum odeslání: 02.lis.2016 v 12:01
Ok zkusím to. Obrátím se a helpdesk.


Vytisknout stránku | Zavřít okno