[es] - Import fajlova sa drugim extenzijama

ombrs.do
Ristic Aleksandar
Administrator

Član broj: 170168
Poruke: 140
79.143.169.*

Profil

Import fajlova sa drugim extenzijama

^{16.01.2009. u 07:45 - pre 185 meseci}

Imam datoteku-fajl sa extenzijom *.inp ili *.log.Kako da to importujem access.Pokusao sam sa transfer text ali kaze samo da moze txt,...
Hvala unaprijed

Odgovor na temu

domaci_a_nas
PHP developer

Član broj: 42333
Poruke: 524
*.dynamic.sbb.rs.

+8 Profil

Re: Import fajlova sa drugim extenzijama

^{16.01.2009. u 07:50 - pre 185 meseci}

Kako bi bilo da promeniš extenziju?

Ozbiljan i odgovoran mladić

Odgovor na temu

ombrs.do
Ristic Aleksandar
Administrator

Član broj: 170168
Poruke: 140
79.143.169.*

Profil

Re: Import fajlova sa drugim extenzijama

^{16.01.2009. u 07:57 - pre 185 meseci}

Pa ne znam iskreno,taj fajl dobijam kao odgovor od drugog programa i on mi ga salje u tim extenzijama.Taj fajl bih trebao da uvucem radi analize u svoj program.

Odgovor na temu

Trtko
Koprivnica

Član broj: 69494
Poruke: 695
*.bilokalnik.hr.

+8 Profil

Re: Import fajlova sa drugim extenzijama

^{16.01.2009. u 08:06 - pre 185 meseci}

Evo ti primjer mog prepisa gdje prepisujem u tablicu podatke iz *.txt fajla
Malo si ga proanaliziraj i prepravi ako ti pase

Private Sub Command1_Click()

Dim dato22 As Database
Dim rek22 As Recordset
Set dato22 = CurrentDb
Dim sqlupit22 As String
sqlupit22 = "select * from racuni"
Set rek22 = dato22.OpenRecordset(sqlupit22)

rbr = 1
Dim inputdata
Open "d:\banprep\racuni_po_kupcu.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, inputdata
brdok = Mid(inputdata, 7, 3)
dokum = Mid(inputdata, 11, 8)
datdokum = Mid(inputdata, 22, 10)
dospijelo = Mid(inputdata, 35, 10)
izn = Mid(inputdata, 64, 15)
iznhr = Mid(inputdata, 81, 15)
valuta = Mid(inputdata, 59, 3)

If IsDate(datdokum) Then
Label2.Caption = Str(rbr)
rek22.AddNew
rek22.Fields("br_dok") = brdok
rek22.Fields("dokument") = dokum
rek22.Fields("dat_dokum") = datdokum
rek22.Fields("dospijece") = dospijelo
rek22.Fields("iznos") = izn
rek22.Fields("iznos_hrk") = iznhr
rek22.Fields("valuta") = valuta

rek22.Update
rbr = rbr + 1
End If

Loop
Close #1 ' Close file.
rek22.Close
Set dato22 = Nothing

MsgBox "podaci su prepisani"
End Sub

Odgovor na temu

ombrs.do
Ristic Aleksandar
Administrator

Član broj: 170168
Poruke: 140
79.143.169.*

Profil

Re: Import fajlova sa drugim extenzijama

^{16.01.2009. u 08:40 - pre 185 meseci}

A dali mogu Trtko da taj fajl analiziram a da ga ne importujem access.Znaci da ga otvorim trazim podatak i zatvorim.

Odgovor na temu

Trtko
Koprivnica

Član broj: 69494
Poruke: 695
*.bilokalnik.hr.

+8 Profil

Re: Import fajlova sa drugim extenzijama

^{16.01.2009. u 09:13 - pre 185 meseci}

Mogao bi naravno , bilo koji fajl , sa bilo kojom ekstenzijom *. log *.ini, samo da je tekstualnog sadržaja
Napravio bi formu na kojoj bi bio datashit u kojem bi gledao podatke odabranog fajla, a njih bi birao s explorerom.

Odgovor na temu

domaci_a_nas
PHP developer

Član broj: 42333
Poruke: 524
*.dynamic.sbb.rs.

+8 Profil

Re: Import fajlova sa drugim extenzijama

^{16.01.2009. u 09:46 - pre 185 meseci}

Moguće da ni Trtko ni ja nismo najbolje shvatili, ali ako samo želiš da pretražiš fajl i ustanoviš da li se neki tekst nalazi u fajlu možda bi trebalo da koristiš nešto ovako:

Code:
Private Sub Command1_Click
NadjiTekst "d:\racuni\izdati.log", "tralala"
End Sub

Public Sub NadjiiTekst(KojiFile As String, KojiTekst As String)
Dim InputData As String
Dim Nadjeno As Boolean
Open KojiFile For Input As #1
Do While Not EOF(1)
Line Input #1, InputData
If Instr(1, InputData, KojiTekst) > 0 Then
Nadjeno = True
GoTo CloseFile ' Izlazi iz petlje
End If
Loop
CloseFile:
Close #1 ' Close file.
MsgBox "Tekst " & KojiTekst & " " & IIf(Nadjeno, "", "ni") & "je nadjen u datoteci " & KojiFile
End Sub

PS: Trle, tvoj kod iznad ne vraća dobru vrednost za rbr, na početku treba da bude rbr = 0.

Ozbiljan i odgovoran mladić

Odgovor na temu

Trtko
Koprivnica

Član broj: 69494
Poruke: 695
*.bilokalnik.hr.

+8 Profil

Re: Import fajlova sa drugim extenzijama

^{16.01.2009. u 10:08 - pre 185 meseci}

Evo ti programci, napravio sam ga u accessu 2002
Jedino sto ti mora biti u Referencama ukljuceno Microsoft office 10,0 object library (ako ti javi gresku kod pretrage fajla)

Prikačeni fajlovi

Pregled.mdb - 196k

Odgovor na temu

ombrs.do
Ristic Aleksandar
Administrator

Član broj: 170168
Poruke: 140
79.143.169.*

Profil

Re: Import fajlova sa drugim extenzijama

^{16.01.2009. u 13:41 - pre 185 meseci}

To je to .Hvala na strpljenju i iscrpnim odgovorima.Svaka cast.I jos samo jedno pitanje.

Code:
Private Sub Command1_Click
NadjiTekst "d:\racuni\izdati.log", "tralala"
End Sub

Public Sub NadjiiTekst(KojiFile As String, KojiTekst As String)
Dim InputData As String
Dim Nadjeno As Boolean
Open KojiFile For Input As #1
Do While Not EOF(1)
Line Input #1, InputData
If Instr(1, InputData, KojiTekst) > 0 Then
Nadjeno = True
GoTo CloseFile ' Izlazi iz petlje
End If
Loop
CloseFile:
Close #1 ' Close file.
MsgBox "Tekst " & KojiTekst & " " & IIf(Nadjeno, "", "ni") & "je nadjen u datoteci " & KojiFile
End Sub

Da li se moze ubaciti pored "tralala" pretraga za jos neki teks da pored "tralala" trazi npr "papapa" i da kod ispituje fajl sve dok ne dobije jedan od ta dva odgovora.Moram da vas pitam jer radim u SQL a sa VB6 se borim.Mnogo ste mi olaksali zivot sa svojom pomocu.Hvala opet.

_{[Ovu poruku je menjao ombrs.do dana 16.01.2009. u 22:40 GMT+1]}

Odgovor na temu

golic
Doboj

Član broj: 91529
Poruke: 82
79.143.169.*

Profil

Re: Import fajlova sa drugim extenzijama

^{17.01.2009. u 02:01 - pre 185 meseci}

Da li moze sa

Public Sub NadjiiTekst(KojiFile As String, KojiTekst As String, Neki_Drugi_Tekst as String)
pa onda
ElseIf Instr(1, InputData, Neki_Drugi_Tekst) > 0 Then

Odgovor na temu

ombrs.do
Ristic Aleksandar
Administrator

Član broj: 170168
Poruke: 140
79.143.169.*

Profil

Re: Import fajlova sa drugim extenzijama

^{17.01.2009. u 07:05 - pre 185 meseci}

To sam probao ,ali tako postavljen uslov mi opet izvrsi kod iako u fajlu nisam dobio odgovarajuci odgovor.Konkretno,odgovor dobijam tek nakon sto printer isprinta racun do kraja,a kod provjeri ga ranije i tako pogresno odreaguje.Cim sacekam ispis racuna sa nekim msbox da se racun isprinta,sve je ok,ali znate da ne treba racunati na necije strpljenje.Hvala

Odgovor na temu

ombrs.do
Ristic Aleksandar
Administrator

Član broj: 170168
Poruke: 140
79.143.169.*

Profil

Re: Import fajlova sa drugim extenzijama

^{17.01.2009. u 09:23 - pre 185 meseci}

Uspio sam pravilno dodati uslove,kod se ponavlja sve dok ne dodje do rezultata.Imam samo problem kada dodje do rezultata zavrs sve kako treba,samo izbaci mi gresku da nije mogao pozvati taj kod.Kako da zaustavim sve kodove.

Odgovor na temu