[ Sonique @ 06.02.2011. 17:36 ] @
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
[ banem @ 06.02.2011. 18:18 ] @
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]
[ Zoran.Eremija @ 06.02.2011. 18:28 ] @
Imate ovde lep primer... http://www.granite.ab.ca/access/readtextfile.htm
[ Sonique @ 07.02.2011. 23:19 ] @
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?
[ SLOJ.1973 @ 08.02.2011. 13:05 ] @
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
[ izonic @ 08.02.2011. 16:16 ] @
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.
[ ombrs.do @ 25.02.2011. 10:11 ] @
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
[ banem @ 25.02.2011. 11:39 ] @
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.
[ banem @ 25.02.2011. 11:54 ] @
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