[es] - Citanje podataka iz .txt fajla

Sonique
Bugojno

Član broj: 79589
Poruke: 137
109.175.63.*

Profil

^{06.02.2011. u 17:36 - pre 160 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

Re: Citanje podataka iz .txt fajla

^{06.02.2011. u 18:18 - pre 160 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

Re: Citanje podataka iz .txt fajla

^{06.02.2011. u 18:28 - pre 160 meseci}

Imate ovde lep primer... http://www.granite.ab.ca/access/readtextfile.htm

http://zoraneremija.wix.com/eremijacv

Odgovor na temu

Sonique
Bugojno

Član broj: 79589
Poruke: 137
109.175.72.*

Profil

Re: Citanje podataka iz .txt fajla

^{07.02.2011. u 23:19 - pre 160 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: 871
*.dynamic.isp.telekom.rs.

+41 Profil

Re: Citanje podataka iz .txt fajla

^{08.02.2011. u 13:05 - pre 160 meseci}

Na OnClick dugmeta postaviovaj kod

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

Re: Citanje podataka iz .txt fajla

^{08.02.2011. u 16:16 - pre 160 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

Re: Citanje podataka iz .txt fajla

^{25.02.2011. u 10:11 - pre 160 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

Re: Citanje podataka iz .txt fajla

^{25.02.2011. u 11:39 - pre 160 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

Re: Citanje podataka iz .txt fajla

^{25.02.2011. u 11:54 - pre 160 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