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

Brisanje praznih redova u txt. fajlu

[es] :: Access :: Brisanje praznih redova u txt. fajlu

[ Pregleda: 2870 | Odgovora: 15 ] > FB > Twit

Postavi temu Odgovori

Autor
Pretraga teme: Traži
Markiranje Štampanje RSS

zliki
Vanja Virijevic
Krusevac

Član broj: 101462
Poruke: 155
92.60.234.*



Profil

icon Brisanje praznih redova u txt. fajlu14.07.2008. u 06:10 - pre 191 meseci
Pozdrav svima.
Imam mali problem. Naime radim bazu podataka takvu da imam dve tabele u relaciji 1 prema vise. Odatle kreiram izvestaj koga je potrebno da exportujem u txt. fail tako da jedan slog cine podaci iz prve tabele. Ispod idu podaci iz druge tabele (prva tabela prikazuje podatke o pacijentima, dok druga, podtabela, prikazuje izvrsene usluge za pojedinog pacijenta). Problem je sledeci: kada se odradi export u txt. fail, pojavljuju se prazni redovi izmedju slogova koje je potrebno izbrisati. Posto baza ima vise hiljada unosa, ovo zahteva dosta vremena. Pitam se da li je moguce da se prazni redovi prepoznaju i obrisu na neki brzi nacin kako bi ustedeo vreme.
 
Odgovor na temu

Getsbi

Moderator
Član broj: 124608
Poruke: 2831



+45 Profil

icon Re: Brisanje praznih redova u txt. fajlu14.07.2008. u 06:58 - pre 191 meseci
Problem je verovatno u Exportu, a ne u Access-u. Ako je Access 2003 ili stariji u pitanju, zakači primer, pa da pogledam.
https://mzahorjanski.wixsite.com/mzahorjanski
https://www.fiverr.com/miroljubzahorja?up_rollout=true
https://www.youtube.com/@miroljubzahorjanski
 
Odgovor na temu

zliki
Vanja Virijevic
Krusevac

Član broj: 101462
Poruke: 155
92.60.234.*



Profil

icon Re: Brisanje praznih redova u txt. fajlu14.07.2008. u 07:32 - pre 191 meseci
evo ga primer txt. fajla. Znaci podaci iz reda 1 su podaci o pacijentu dok su podaci iz stavke 2 podaci o izvrsenim uslugama. Ne smem da imam ove prazne redove. E sad, pretpostavljam da je moguce resiti ovaj problem i u samoj bazi prilikom kreiranja reporta, ali mi to nije poslo za rukom. Naime imam report sa pod reportom.
Prikačeni fajlovi
1.txt 1.txt - 0.91k
 
Odgovor na temu

domaci_a_nas
PHP developer

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



+8 Profil

icon Re: Brisanje praznih redova u txt. fajlu14.07.2008. u 09:20 - pre 191 meseci
Ja bih u wordu to uradio na sledeći način, Find And Replace, u Find polje upišeš "^p^p", u Replace "^p" i rešio si problem. Možda može u VBA kodu TekstFile = Replace(TekstFile, VbCrLf & VbCrLf, VbCrLf)...

Eto ti ideja pa se ti igraj
Ozbiljan i odgovoran mladić
 
Odgovor na temu

Getsbi

Moderator
Član broj: 124608
Poruke: 2831



+45 Profil

icon Re: Brisanje praznih redova u txt. fajlu14.07.2008. u 12:09 - pre 191 meseci
Mislio sam da ćeš zakačiti i .mdb fajl. Pa da se poigram ja, što kaže Nikola. Ali sve jedno. Dao ti je dobru ideju.
Ne znam za čega služi taj .txt fajl. Možda je bolja varijanta exportovanje u .xml.
https://mzahorjanski.wixsite.com/mzahorjanski
https://www.fiverr.com/miroljubzahorja?up_rollout=true
https://www.youtube.com/@miroljubzahorjanski
 
Odgovor na temu

zliki
Vanja Virijevic
Krusevac

Član broj: 101462
Poruke: 155
92.60.234.*



Profil

icon Re: Brisanje praznih redova u txt. fajlu14.07.2008. u 14:15 - pre 191 meseci
Text file se direktno upload-uje na server RZZO-a, odnosno na taj nacin se vrsi komunikacija izmedju osiguranja i zdravstvenih ustanova. Sto se tice baze, jako je glomazna (oko 50 mega), probacu da okacim neki primercic.
Hvala vam na trudu.
Probacu ovo sto ste mi predlozili.
Mada, najelegantnije bi bilo da se ovaj problem resi direktno u bazi pa da se prostim click-om kreira gotov txt. fail (sto mi je i prvobitna zamisao, da ne moram ja vise da se zezam oko kreiranja ovih datoteka).
 
Odgovor na temu

Air Live
Srbija

Član broj: 162278
Poruke: 410
*.PPPoE-2902.sa.bih.net.ba.



Profil

icon Re: Brisanje praznih redova u txt. fajlu14.07.2008. u 14:16 - pre 191 meseci
Napraviš formu i 2 txtbox-a u jednom das ime novinaziv a drugom das ime starinaziv, dodas jos jedan txtbox za putanju do fajla,dodaš dva gumba gumb1 otvori .txt datoteku i gumb zamijeni,u gumb zamijeni mozes ukucati kod koji ce prvo otvoriti taj tvoj .text fajl u notpedu i onda izmijeniti nazive a to mozes uradi sa Shell ("Notepade.exe mojfajl.txt),1 !
 
Odgovor na temu

zliki
Vanja Virijevic
Krusevac

Član broj: 101462
Poruke: 155
92.60.234.*



Profil

icon Re: Brisanje praznih redova u txt. fajlu14.07.2008. u 14:22 - pre 191 meseci
Evo ga primer. Znaci imam dve tabele u relaciji jedan / vise. Imam dva qverija i dva reporta. Izvestaj kreiram iz reporta qryFaktura_Glavna.
Ima i nekoliko unosa, cisto da se stekne nekakav utisak o problemu. Ovakvih unosa imam na hiljade, pa mozete zamisliti koliko mi treba vremena da pobrisem prazne redove.
Prikačeni fajlovi
Primer.mdb Primer.mdb - 348k
 
Odgovor na temu

Getsbi

Moderator
Član broj: 124608
Poruke: 2831



+45 Profil

icon Re: Brisanje praznih redova u txt. fajlu14.07.2008. u 14:43 - pre 191 meseci
Probao sam export tvog izveštaja qryFaktura_Glavna i evo šta dobijam:

Encoding je Windows Default
https://mzahorjanski.wixsite.com/mzahorjanski
https://www.fiverr.com/miroljubzahorja?up_rollout=true
https://www.youtube.com/@miroljubzahorjanski


Prikačeni fajlovi
ScreenShot009.jpg ScreenShot009.jpg - 187.1k
 
Odgovor na temu

zliki
Vanja Virijevic
Krusevac

Član broj: 101462
Poruke: 155
77.46.215.*



Profil

icon Re: Brisanje praznih redova u txt. fajlu14.07.2008. u 14:51 - pre 191 meseci
ok. Ali se meni u txt. datoteci pojavljuju prazni redovi kada imam nekoliko stotina recorda. Koliko vidim, ti si exportovao u Word a ne u txt.
 
Odgovor na temu

zliki
Vanja Virijevic
Krusevac

Član broj: 101462
Poruke: 155
77.46.215.*



Profil

icon Re: Brisanje praznih redova u txt. fajlu14.07.2008. u 14:53 - pre 191 meseci
Drugo, on ti sece prezimena (rec prelazi u drugi red) sto nije dopustivo, te tako moras i to rucno da ispravljas (jos jedan problem).
 
Odgovor na temu

Getsbi

Moderator
Član broj: 124608
Poruke: 2831



+45 Profil

icon Re: Brisanje praznih redova u txt. fajlu14.07.2008. u 15:02 - pre 191 meseci
Samo sam ga prikazao u Wordu. Originalni fajl je .txt. Otvori ga u Notepadu.
https://mzahorjanski.wixsite.com/mzahorjanski
https://www.fiverr.com/miroljubzahorja?up_rollout=true
https://www.youtube.com/@miroljubzahorjanski


Prikačeni fajlovi
izv.txt izv.txt - 1.58k
 
Odgovor na temu

Trtko
Koprivnica

Član broj: 69494
Poruke: 695
87.252.137.*



+8 Profil

icon Re: Brisanje praznih redova u txt. fajlu14.07.2008. u 22:29 - pre 191 meseci
Ja sam si to riješio programski , u biti sve riješavam, fučkaš importe,
ja gazda programa....

no možda bi se to dalo lijepše isprogramirat, al služi svrsi, ovo dolje ti možda da ideju...



Option Compare Database
Option Explicit
Private Sub Command0_Click()
DoCmd.SetWarnings False
DoCmd.OpenQuery "QprepisHZZO"
DoCmd.SetWarnings True
Dim imefile As String
imefile = "C:\prepis\" + Format(Date, "DD") + Format(Date, "MM") + Right(Format(Date, "YY"), 1) + P_Siford + ".TXT"

Dim RS As Recordset, i As Integer, str1 As String
Set RS = CurrentDb.OpenRecordset("TblZaHZZO")

Close #1
Open imefile For Output As #1
Dim s1, s2, s3, s4, s5, s6, s61, s7, s8, s9, s10, s11, s12, s13, s14, s15, s16, s17, s18 As String
Dim s19, s20, s21, s22, s23, s24, s25, s26, s27, s28, s29, s30 As String

str1 = ""
Do While Not RS.EOF

s1 = Trim(Nz(RS.Fields("siford"), " ")) & Space(3 - Len(Trim(Nz(RS.Fields("siford"), " "))))
s2 = Trim(Nz(RS.Fields("jmbg"), " ")) & Space(13 - Len(Trim(Nz(RS.Fields("jmbg"), " "))))
s3 = kodna387(Trim(Nz(RS.Fields("prezime"), " ")) & Space(20 - Len(Trim(Nz(RS.Fields("prezime"), " ")))))
s4 = kodna387(Trim(Nz(RS.Fields("ime"), " ")) & Space(15 - Len(Trim(Nz(RS.Fields("ime"), " ")))))
s5 = Trim(Nz(RS.Fields("brosiguraneosobe"), " ")) & Space(11 - Len(Trim(Nz(RS.Fields("brosiguraneosobe"), " "))))
s6 = Trim(Nz(RS.Fields("matbrosiguranika"), " ")) & Space(9 - Len(Trim(Nz(RS.Fields("matbrosiguranika"), " "))))
s61 = Trim(Nz(RS.Fields("brobveze"), " ")) & Space(11 - Len(Mid(Trim(Nz(RS.Fields("brobveze"), " ")), 1, 11)))
s7 = Trim(Nz(RS.Fields("briskdoposig"), " ")) & Space(8 - Len(Trim(Nz(RS.Fields("briskdoposig"), " "))))
s8 = Trim(Nz(RS.Fields("katosig"), " ")) & Space(3 - Len(Trim(Nz(RS.Fields("katosig"), " "))))
s9 = Trim(Nz(RS.Fields("sifraoslobadjana"), " ")) & Space(2 - Len(Trim(Nz(RS.Fields("sifraoslobadjana"), " "))))
s10 = Trim(Nz(RS.Fields("datuslu"), " ")) & Space(6 - Len(Trim(Nz(RS.Fields("datuslu"), " "))))
s11 = Trim(Nz(RS.Fields("sifrakupca"), " ")) & Space(4 - Len(Trim(Nz(RS.Fields("sifrakupca"), " "))))
s12 = Trim(Nz(RS.Fields("sifmkb"), " ")) & Space(4 - Len(Trim(Nz(RS.Fields("sifmkb"), " "))))
s13 = Trim(Nz(RS.Fields("idusluge"), " ")) & Space(6 - Len(Trim(Nz(RS.Fields("idusluge"), " "))))
s14 = Trim(Nz(RS.Fields("kol"), " ")) & Space(10 - Len(Trim(Nz(RS.Fields("kol"), " "))))
s15 = Trim(Nz(RS.Fields("iznospris"), " ")) & Space(10 - Len(Trim(Nz(RS.Fields("iznospris"), " "))))
s16 = Space(10)
s17 = Space(10)
s18 = Space(20)
s19 = Space(10)
s20 = Space(3)
s21 = Space(1)
s22 = " "
s23 = Space(4)
s24 = Trim(Nz(RS.Fields("drzava"), " ")) & Space(3 - Len(Trim(Nz(RS.Fields("drzava"), " "))))
s25 = Trim(Nz(RS.Fields("brojputovnice"), " ")) & Space(30 - Len(Trim(Nz(RS.Fields("brojputovnice"), " "))))
s26 = Space(1)
s27 = Space(1)
s28 = Trim(RS.Fields("siflijeka")) & Space(12 - Len(Trim(RS.Fields("siflijeka"))))
s29 = Space(10)
s30 = Trim(RS.Fields("kolicinali")) & Space(10 - Len(Trim(RS.Fields("kolicinali"))))

str1 = s1 & s2 & s3 & s4 & s5 & s6 & s61 & s7 & s8 & s9 & s10 & s11 & s12 & s13 & s14 & s15 _
& s16 & s17 & s18 & s19 & s20 & s21 & s22 & s23 & s24 & s25 & s26 & s27 & s28 & s29 & s30

Print #1, str1
RS.MoveNext
str1 = ""
Loop
Close #1

RS.Close
Set RS = Nothing

MsgBox " Podaci su prepisani u " + imefile
End Sub

Private Sub Command1_Click()
DoCmd.Close

End Sub
 
Odgovor na temu

zliki
Vanja Virijevic
Krusevac

Član broj: 101462
Poruke: 155
92.60.234.*



Profil

icon Re: Brisanje praznih redova u txt. fajlu15.07.2008. u 13:48 - pre 191 meseci
Kao prvo, puno vam hvala na vremenu i trudu.
Nesto gledam ovaj gornji kod, totalno mi nejasno. Ja bih zamolio da, ukoliko je moguce, napisete jedan primercic na brzaka sa ovim kodom kako bih lakse mogao da razumem. Hvala unapred.
 
Odgovor na temu

domaci_a_nas
PHP developer

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



+8 Profil

icon Re: Brisanje praznih redova u txt. fajlu15.07.2008. u 15:20 - pre 191 meseci
Pa ovako zliki, okačio sam primer, a da ne piskaram po kodu pokušaću da objasnim šta je Trle mislio...

Znači, moj modul je lepši i kraći i dosta fleksibilniji od Trletovog , al' se zasniva na istom principu. Koristi recordset, odnosno objekat u koji smeštaš neku od tabela ili queryja po tvom izboru. Zatim kod fura kroz taj recordset i na osnovu podataka upisuje red po red u tvoj TXT file, nazovi ga kako hoćeš. Kad stigne do kraja izbaci ti poruku i svi smo srećni. Kod iz modula možeš jednostavno da prekopiraš u svoj Modul, a tabelu exportuješ tako što u formi otkucaš Exportuj Ime_Tabele_Koju_Želiš_Da_Exportuješ.

Toliko od mene...
Ozbiljan i odgovoran mladić
Prikačeni fajlovi
Export u TXT.mdb Export u TXT.mdb - 160k
 
Odgovor na temu

Trtko
Koprivnica

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



+8 Profil

icon Re: Brisanje praznih redova u txt. fajlu16.07.2008. u 07:45 - pre 191 meseci
Zato ja imam tebe Nikola...
ja vec stara konjusina programerska pa mi se neda uljepšavat kod
Onaj gornji kod su prepisivali na VAX , i morala je biti dužina polja baš takva.

al bitno da služi svrsi ....
a i koliko para toliko i muzike ....

sad se prisjetio ... bio sam u Kragujevcu u vojsci tamo daleke 1980 .
tjedan dana
 
Odgovor na temu

[es] :: Access :: Brisanje praznih redova u txt. fajlu

[ Pregleda: 2870 | Odgovora: 15 ] > FB > Twit

Postavi temu Odgovori

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