Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Citanje podataka iz .txt fajla

[es] :: Access :: Citanje podataka iz .txt fajla

[ Pregleda: 3198 | Odgovora: 8 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Sonique
Bugojno

Član broj: 79589
Poruke: 137
109.175.63.*



Profil

icon Citanje podataka iz .txt fajla06.02.2011. u 17:36 - pre 133 meseci
Pozdrav svima,
zanima me postoji li mogucnost da se 'procitaju' podaci iz .txt fajla u Access bazi ali da se taj .txt fajl ne linkuje vec da li postoji neki drugi nacin?


Unaprijed hvala svima
 
Odgovor na temu

banem
Kikinda

Član broj: 16619
Poruke: 583
*.dynamic.sbb.rs.



+15 Profil

icon Re: Citanje podataka iz .txt fajla06.02.2011. u 18:18 - pre 133 meseci
Postoje razni načini, ali je pitanje - da li je taj TXT fajl kao CSV "tabela" (podaci poređani po kolona, vrednosti odvojene zarezima) ili je to TXT fajl proizvoljnog sadržaja?

PS. Izvinjavam se na dupliranju, ali nije do mene. Meni prikaže grešku, pa refresh, pa ponovo "Pošalji" i onda tek posle dugo vremena, kad se osveži stranica, vidim da je poruka triplirana...

[Ovu poruku je menjao banem dana 06.02.2011. u 22:35 GMT+1]
Pozdrav,
Branislav
 
Odgovor na temu

Zoran.Eremija
Zoran Eremija
SYSTEM ANALYST
Freelancer
Beograd

Član broj: 251342
Poruke: 855
..106.109.adsl.dyn.beotel.net.

Sajt: zoraneremija.wix.com/erem..


+47 Profil

icon Re: Citanje podataka iz .txt fajla06.02.2011. u 18:28 - pre 133 meseci
Imate ovde lep primer... http://www.granite.ab.ca/access/readtextfile.htm

 
Odgovor na temu

Sonique
Bugojno

Član broj: 79589
Poruke: 137
109.175.72.*



Profil

icon Re: Citanje podataka iz .txt fajla07.02.2011. u 23:19 - pre 133 meseci
Fajl bi bio kao CSV tabela.

izonic nemogu nikako da iskoristim ovaj primjer sto ste dali, ako mozete da uradite attach tog fajla na forumu da probam?
 
Odgovor na temu

SLOJ.1973

Član broj: 130198
Poruke: 869
*.dynamic.isp.telekom.rs.



+41 Profil

icon Re: Citanje podataka iz .txt fajla08.02.2011. u 13:05 - pre 133 meseci
Na OnClick dugmeta postaviovaj kod
Code:
Private Sub Command8_Click()

Const ForReading = 1
Const ForWriting = 2

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\artikli.txt", ForReading)

Do Until objFile.AtEndOfStream
  strLine = objFile.ReadLine
  strLine = Replace(strLine, "`", Chr(13) & Chr(10)) & vbCrLf
   strText = strText & strLine
Loop
me.Text1=strText
objFile.Close

Set objFile = objFSO.OpenTextFile("d:\TEST.txt", ForWriting)
objFile.Write strText
objFile.Close
End Sub

Gde je C:\artikli.txt neki text fajl koji treba pročitati,a d:\TEST.txt fajl u kome će se upisati sve iz C:\artikli.txt.,a me.Text1 je polje Text1 na formi u koje upišeš to što si pročitao.Preuzeto iz http://en.allexperts.com/q/Usi.../2008/4/changing-delimiter.htm
Pozdrav
Jednog dana...
 
Odgovor na temu

izonic
ishab zonic
Tuzla

Član broj: 38128
Poruke: 591
*.PPPoE-4461.sa.bih.net.ba.

Sajt: www.icentar.ba


+2 Profil

icon Re: Citanje podataka iz .txt fajla08.02.2011. u 16:16 - pre 133 meseci
Ako se nisi snasao zakaci fajl da vidim kako itgleda.
Prozvao si me moram se javiti hehe. Ja i ne znam o cemu se radi.
zxz
 
Odgovor na temu

ombrs.do
Ristic Aleksandar
Administrator

Član broj: 170168
Poruke: 140
*.teol.net.



Profil

icon Re: Citanje podataka iz .txt fajla25.02.2011. u 10:11 - pre 132 meseci
Zanima me moze li se u kod ubaciti kreitanje novog TXT fajla ,npr Test1,pa test2,...u koji ce se upisivati iscitani fajl a da ne prepisuje stalno jedan te isti.
HVALA
 
Odgovor na temu

banem
Kikinda

Član broj: 16619
Poruke: 583
*.adsl.eunet.rs.



+15 Profil

icon Re: Citanje podataka iz .txt fajla25.02.2011. u 11:39 - pre 132 meseci
Ja nisam siguran da razumem pitanje(?). Ako je pitanje da li se može iskopirati fajl, onda ima druga komanda za to FileCopy source, destination.

Dopisano: možda dodaš i datum/vreme u naziv datoteke? Postoji i komplikovaniji način: pozvati funkciju koja će proveriti redom da li postoji text1.txt, text2.txt... i vratiti naziv sledećeg fajla npr. text3.txt.
Pozdrav,
Branislav
 
Odgovor na temu

banem
Kikinda

Član broj: 16619
Poruke: 583
*.adsl.eunet.rs.



+15 Profil

icon Re: Citanje podataka iz .txt fajla25.02.2011. u 11:54 - pre 132 meseci
Evo ovako, sad sam napravio i čini mi se da radi:

Code:

Private Sub Command8_Click()

Const ForReading = 1
Const ForWriting = 2

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\artikli.txt", ForReading)

Do Until objFile.AtEndOfStream
  strLine = objFile.ReadLine
  strLine = Replace(strLine, "`", Chr(13) & Chr(10)) & vbCrLf
   strText = strText & strLine
Loop
me.Text1=strText
objFile.Close

Set objFile = objFSO.OpenTextFile(fSledeciFajl("d", "TEST"), ForWriting)
objFile.Write strText
objFile.Close
End Sub

'Staviti u Module
Function fSledeciFajl(strPath As String, strFileName As String) As String
    Dim i As Integer
    If Len(Nz(strPath)) = 0 Or Len(Nz(strFileName)) = 0 Then
        fSledeciFajl = "-1"
        Exit Function
    End If
    i = 1
    Do Until IfFileExists(strPath & ":\" & strFileName & i & ".txt") = False
        i = i + 1
    Loop
    fSledeciFajl = strPath & ":\" & strFileName & i & ".txt"
End Function

Function IfFileExists(FileSpec As String) As Boolean
    'Uključiti: Microsoft Scripting Runtime
    Set fs = CreateObject("Scripting.FileSystemObject")
    If fs.FileExists(FileSpec) = True Then
        IfFileExists = True
    Else
        IfFileExists = False
    End If
End Function

Pozdrav,
Branislav
 
Odgovor na temu

[es] :: Access :: Citanje podataka iz .txt fajla

[ Pregleda: 3198 | Odgovora: 8 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.