Citanje podataka iz .txt fajla

Citanje podataka iz .txt fajla 06.02.2011. u 18:36 · pre 191 mesec #1

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

Re: Citanje podataka iz .txt fajla 06.02.2011. u 19:18 · pre 191 mesec #2

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...

Potpis

Pozdrav,
Branislav

Re: Citanje podataka iz .txt fajla 06.02.2011. u 19:28 · pre 191 mesec #3

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

Potpis

http://zoraneremija.wix.com/eremijacv

Re: Citanje podataka iz .txt fajla 08.02.2011. u 00:19 · pre 191 mesec #4

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?

Re: Citanje podataka iz .txt fajla 08.02.2011. u 14:05 · pre 191 mesec #5

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

Potpis

Jednog dana...

Re: Citanje podataka iz .txt fajla 08.02.2011. u 17:16 · pre 191 mesec #6

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.

Potpis

zxz

Re: Citanje podataka iz .txt fajla 25.02.2011. u 11:11 · pre 190 meseci #7

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

Re: Citanje podataka iz .txt fajla 25.02.2011. u 12:39 · pre 190 meseci #8

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.

Potpis

Pozdrav,
Branislav

Re: Citanje podataka iz .txt fajla 25.02.2011. u 12:54 · pre 190 meseci #9

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

Potpis

Pozdrav,
Branislav

Forum kao aplikacija na telefonu

Srodne teme