Bosna i Hercegovina



#1 08.02.2018-11:24
Gjoreski Offline
Super Moderator
Registrovan/a od: 02.02.2009-22:24
Komentari: 1,509


Subject: Iscitavajne iz CSV
Kako iscitati Odredeni celije iz neki CSV fajl.
Da recimo: Treba iscitati celije od 4 i 5 red od klona Q do AF
i celije od red 6 do 15 i koloni od A do AI.
↑  ↓

#2 09.02.2018-08:52
Avko Offline
Administrator
Registrovan/a od: 28.05.2014-09:21
Komentari: 3,182


Subject: Re: Iscitavajne iz CSV
trebas uvesti podatke iz csv fajla u access?
Život je moja domovina.
↑  ↓

#3 09.02.2018-14:30
Gjoreski Offline
Super Moderator
Registrovan/a od: 02.02.2009-22:24
Komentari: 1,509


Subject: Re: Iscitavajne iz CSV
Da treba uvesti podatke iz CSV u Access tabeli
↑  ↓

#4 09.02.2018-19:00
dex Offline
Super Moderator
Registrovan/a od: 23.02.2012-19:59
Komentari: 602


Subject: Re: Iscitavajne iz CSV
Verovatno bi jadnostavnije bilo iz excela prvo "poravnati" csv, odnosno namestiti ga za uvoz u access, samo je potrebno poznavati strukturu csv, i po kom kriteriju idu podaci
↑  ↓

#5 10.02.2018-12:49
Gjoreski Offline
Super Moderator
Registrovan/a od: 02.02.2009-22:24
Komentari: 1,509


Subject: Re: Iscitavajne iz CSV
Najbolje je iz CSV , jer CSV mozer iscitati i ako nema instaliran EXCEL na racunaru.
Naveo sam kriterija u postu #1.
Iscitavajne RED 4 i RED 5 od Colona Q do Colona AF.
Iscitavajne od RED 6 Colona A pa do Colona AI pa sve do zadni unjeti podatak odnosno dok ne naidzemo na przan red.
↑  ↓

#6 10.02.2018-19:54
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,737


Subject: Re: Iscitavajne iz CSV
Ovak kod ide u neki modul.
Pokrece se pozivom procedure importcsv a ulazni parametar je ime csv fajla.
Fajl se mora nalaziti u dir mdb baze.

DownloadIzvorni kod (Visual Basic):
  1. Option Compare Database
  2. Option Explicit
  3. Function KreirajPolje(ImeTabele As String, ImePolja As String, TipPolja As Integer, _
  4. Optional Velicina As Integer, Optional Defolt)
  5. Dim Db As DAO.Database
  6. Dim tdf As DAO.TableDef
  7. Dim fld As DAO.Field
  8. '............................................
  9. 'Tip polja
  10. '1-jes/No
  11. '2-Number(Byte)
  12. '3-Number(Integer)
  13. '4-Number(Long Integer)
  14. '5-Currency
  15. '6-Number(Single)
  16. '7-Number(Double)
  17. '8-Date/Time
  18. '9-Binary
  19. '10-Text
  20. '11-OLE Object
  21. '12-Memo
  22. '.............................................
  23. Set Db = CurrentDb()
  24. Set tdf = Db.TableDefs(ImeTabele)
  25. Set fld = tdf.CreateField(ImePolja, TipPolja, Velicina)
  26. tdf.Fields.Append fld
  27.  
  28. Set tdf = Nothing
  29. Set fld = Nothing
  30. Set Db = Nothing
  31. End Function
  32. Function KreirajTabelu(ImeTabele As String)
  33.  
  34. Dim Db As DAO.Database
  35. Dim fld As DAO.Field
  36. Dim tdf As DAO.TableDef
  37.  
  38. Set Db = CurrentDb
  39. For Each tdf In Db.TableDefs
  40. If tdf.Name = ImeTabele Then
  41. DoCmd.DeleteObject acTable, ImeTabele
  42. End If
  43. Next tdf
  44.  
  45. Set Db = CurrentDb
  46. Set tdf = Db.CreateTableDef(ImeTabele)
  47. Set fld = tdf.CreateField("ID", dbLong)
  48. fld.Attributes = dbAutoIncrField
  49.     With tdf.Fields
  50.         .Append fld
  51.         .Refresh
  52.     End With
  53. Db.TableDefs.Append tdf
  54.     Set fld = Nothing
  55.     Set tdf = Nothing
  56.     Set Db = Nothing
  57. End Function
  58. Function ImportCSV(ImeCsv As String)
  59. Dim Db As DAO.Database
  60. Dim Rs0 As DAO.Recordset, Rs1 As DAO.Recordset
  61. Dim Putanja As String, SQL(1) As String, temp(1) As String, tmp(1) As String, ImePolja() As String
  62. Dim I As Integer, Poz(3) As Integer, Broj As Integer, BrojPolja As Integer
  63.  
  64.  
  65.  Set Db = CurrentDb
  66.  Putanja = Db_Putanja
  67.  KreirajTabelu "Prva"
  68.  KreirajPolje "Prva", "Red4", 3
  69.  KreirajPolje "Prva", "Red5", 3
  70.  KreirajTabelu "Druga"
  71.  SQL(0) = "SELECT * FROM Prva"
  72.  SQL(1) = "SELECT * FROM Druga"
  73.  Close #1
  74.  Open Putanja & ImeCsv For Input As 1
  75. While Not EOF(1)
  76.     If I = 5 Then
  77.     Set Rs1 = Db.OpenRecordset(SQL(1))
  78.     End If
  79.     Poz(1) = 1
  80.     Poz(0) = 1
  81.     Poz(2) = 1
  82.     Poz(3) = 1
  83.     BrojPolja = 0
  84.     I = I + 1
  85.    
  86.  Line Input #1, temp(0)
  87.  temp(0) = temp(0) & ";"
  88.  
  89.     If I = 4 Then
  90.      Set Rs0 = Db.OpenRecordset(SQL(0))
  91.      Line Input #1, temp(1)
  92.      temp(1) = temp(1) & ";"
  93.        Do While Len(temp(0)) <> Poz(1)
  94.        Poz(1) = InStr(Poz(0), temp(0), ";")
  95.        tmp(0) = Mid(temp(0), Poz(0), Poz(1) - Poz(0))
  96.        Poz(3) = InStr(Poz(2), temp(1), ";")
  97.        tmp(1) = Mid(temp(1), Poz(2), Poz(3) - Poz(2))
  98.             If tmp(0) <> "" Then
  99.             Broj = Val(tmp(0))
  100.                  If Broj > 0 Then
  101.                    Rs0.AddNew
  102.                    Rs0.Fields(1) = tmp(0)
  103.                    Rs0.Fields(2) = tmp(1)
  104.                    Rs0.Update
  105.                  End If
  106.             End If
  107.        Poz(0) = Poz(1) + 1
  108.        Poz(2) = Poz(3) + 1
  109.        Loop
  110.        Rs0.Close
  111.     ElseIf I = 5 Then
  112.         Do While Len(temp(0)) <> Poz(1)
  113.         Poz(1) = InStr(Poz(0), temp(0), ";")
  114.         tmp(0) = Mid(temp(0), Poz(0), Poz(1) - Poz(0))
  115.         BrojPolja = BrojPolja + 1
  116.         tmp(0) = tmp(0) & BrojPolja
  117.         ReDim Preserve ImePolja(BrojPolja)
  118.         ImePolja(BrojPolja) = tmp(0)
  119.         KreirajPolje "Druga", tmp(0), 10, 25
  120.         Poz(0) = Poz(1) + 1
  121.         Loop
  122.     ElseIf I > 5 Then
  123.         If Left(temp(0), 30) = String(30, ";") Then GoTo Kraj
  124.         Rs1.AddNew
  125.         Do While Len(temp(0)) <> Poz(1)
  126.         BrojPolja = BrojPolja + 1
  127.         Poz(1) = InStr(Poz(0), temp(0), ";")
  128.         tmp(0) = Mid(temp(0), Poz(0), Poz(1) - Poz(0))
  129.         If tmp(0) <> "" Then
  130.         Rs1(ImePolja(BrojPolja)) = tmp(0)
  131.         End If
  132.         Poz(0) = Poz(1) + 1
  133.         Loop
  134.         Rs1.Update
  135.     End If
  136.    
  137. Wend
  138. Kraj:
  139.  Rs1.Close
  140.  Set Db = Nothing
  141. End Function
  142.  
  143. Function Db_Putanja() As String
  144.  '--------------------------------------------------------------------------------------
  145. 'Ova funkcija pronalazi putanju postojee baze
  146. 'Autor funkcije ZXZ
  147. '__________________________________________________
  148.    Dim Db As Database, Putanja As String
  149.    
  150.     On Error Resume Next                                     'Ako naieš na grešku nastavi
  151.    Set Db = DBEngine(0)(0)                                  'Setovanje baze
  152.    Putanja = Db.Name                                          'Upis putanje baze i njenog imena
  153.    Do Until Right$(Putanja, 1) = "\"                         'Petlja za odvajanje imena baze od putanje baze
  154.        Putanja = Left$(Putanja, Len(Putanja) - 1)
  155.     Loop
  156.  
  157.     Db_Putanja = Putanja                                      'Upis putanje u funkciju
  158. End Function
  159.  
  160.                 Print #2, temp
  161.            End If
  162.          Else
  163.            Print #2, temp
  164.          End If
  165.     Else
  166.      Print #2, temp
  167.     End If
  168. Wend
  169.      Close #1
  170.      Close #2
  171. Set Db = Nothing
  172. End Function

Pozdrav
↑  ↓

#7 11.02.2018-02:07
Avko Offline
Administrator
Registrovan/a od: 28.05.2014-09:21
Komentari: 3,182


Subject: Re: Iscitavajne iz CSV
Gjoreski, a jesu li u tvojem fajlu podaci razdvojeni zarezom
Život je moja domovina.
↑  ↓

#8 11.02.2018-13:24
Gjoreski Offline
Super Moderator
Registrovan/a od: 02.02.2009-22:24
Komentari: 1,509


Subject: Re: Iscitavajne iz CSV
to je klasicni CSV File ili mozemo reci da je to stari EXCEL odnosno vrzije koi imaju ekstenzija .xls
↑  ↓

#9 11.02.2018-16:36
Avko Offline
Administrator
Registrovan/a od: 28.05.2014-09:21
Komentari: 3,182


Subject: Re: Iscitavajne iz CSV
DownloadIzvorni kod (Visual Basic):
  1. Sub OpenCsvFile()
  2.     Dim FilePath As String
  3.     FilePath = "C:\csvfile.csv"
  4.     Open FilePath For Input As #1
  5.         redBrojac = 0
  6.         Do Until EOF(1)
  7.             Line Input #1, linijaFile
  8.             linijaPodaci = Split(linijaFile, ",")
  9.             If redBrojac > 2 And redBrojac < 6 Then 'ucitaj od 3 do 5 reda
  10.                 'samo 2 i 3 kolonu
  11.                'ActiveCell.Offset(redBrojac, 0).Value = linijaPodaci(2)
  12.                ActiveCell.Offset(redBrojac, 1).Value = linijaPodaci(1)
  13.                 ActiveCell.Offset(redBrojac, 2).Value = linijaPodaci(0)
  14.             End If
  15.             redBrojac = redBrojac + 1
  16.         Loop
  17.     Close #1
  18. End Sub

csvFile.csv
DownloadIzvorni kod (Text):
  1. Voce, Jabuka, 9780349114903
  2. Voce, Kruska, 9780349108858
  3. Voce, Sljiva, 9781841496030
  4. Voce, Tresnja, 9781841497228
  5. Povrce, Kupus, 1841492191
  6. Povrce, Mrkva, 1841492086
  7. Cvijece, Ruza, 9780553818109
  8. Cvijece, Tulipan, 9780553815870

Život je moja domovina.
Ovaj komentar je mijenjan 2 puta. zadnja izmjena 11.02.2018-16:46 od strane Avko. ↑  ↓

#10 12.02.2018-21:45
Gjoreski Offline
Super Moderator
Registrovan/a od: 02.02.2009-22:24
Komentari: 1,509


Subject: Re: Iscitavajne iz CSV
Hvala na na svima za odgovori vreme koe su potrosili za resavajne ovog zadatka.
Iskoristio sam ova kod od @ZXZ koj e temelnije od onaj na @Avko koj isto tka odradi svoj posao.
Kod koj je stavio @ZXZ ima jos par interesanti funkcije kao sto su Putanja do Fajla i Kreirajne Tabeli i polje u tabeli .

Fala jos jedan put.
↑  ↓

Stranice (1): 1

All times are GMT +01:00. Current time: 20.08.2018-17:18.