[es] - Datum iz teksta?

smal
Slobodan Maljković
Kragujevac, Srbija

Član broj: 228672
Poruke: 286
*.static.sbb.rs.

+13 Profil

^{19.02.2010. u 10:31 - pre 172 meseci}

Znam da je problem malo nenormalan, ali molim za pomoć.

Uz poruku je nestruktuirana, ili kako bih je već nazvao, tabela u kojoj se nalazi samo tekst.

Sedmi red uvek glasi kao fraza "Razduzenje za dd.mm.yy",
Meni bi trebalo da datum iz tog stringa nekako uporedim sa današnjim datumom, odnosno napravim potrebni IF izraz za dalje događaje u aplikaciji...

Da pojasnim, tabela iz primera se kreira u nekom starom Clipper programu. Moj je zadatak da njen sadržaj kao izveštaj pošaljem na određeni e-mail, što nije bilo teško, linkovanjem DBF tabele i kreiranjem odgovarajućeg Reporta u Accessu. Ali, sad mi nedostaje provera pre slanja, da li je izveštaj kreiran za pravi datum, jer se u praksi dešava da korisnik zaboravi da odradi sve potrebne korake, pa pošalje mail sa jučerašnjim datumom i sl...

Prikačeni fajlovi

Txt_01.zip - 7.25k

Odgovor na temu

3way

Član broj: 241428
Poruke: 1425

+2403 Profil

Re: Datum iz teksta?

^{19.02.2010. u 10:37 - pre 172 meseci}

Ako ti je taj string uvek isti, onda izvadi datum iz njega sa MID() i sa DiffDate ga uporedi sa danasnjim...

Sedam sutlijasa,
za sedam samuraja,
za sedam tramvaja.

Odgovor na temu

smal
Slobodan Maljković
Kragujevac, Srbija

Član broj: 228672
Poruke: 286
*.static.sbb.rs.

+13 Profil

Re: Datum iz teksta?

^{19.02.2010. u 10:49 - pre 172 meseci}

String jeste uvek isti, što se tiče broja karaktera, ali se datum nalazi u sedmom redu tabele koja nema PK i tako to...
Vidi primer, pošto je teško rečima objasniti situaciju :)

_{[Ovu poruku je menjao smal dana 19.02.2010. u 12:07 GMT+1]}

Odgovor na temu

3way

Član broj: 241428
Poruke: 1425

+2403 Profil

Re: Datum iz teksta?

^{19.02.2010. u 11:15 - pre 172 meseci}

Onda uz pomoc recordseta...ovako...

Code:

    Dim qdf As QueryDef
    Dim rst As Recordset
    Dim dbs As Database
    Dim asd As String

    Set dbs = CurrentDb
    Set qdf = dbs.CreateQueryDef("tmpQ", "SELECT * FROM TXT_01")
    Set qdf = dbs.QueryDefs("tmpQ")
    Set rst = qdf.OpenRecordset(dbOpenDynaset)

    rst.MoveFirst
    rst.MoveNext
    rst.MoveNext
    rst.MoveNext
    rst.MoveNext
    rst.MoveNext
    rst.MoveNext
    asd = rst!TEKST
    Debug.Print asd

    dbs.QueryDefs.Delete "tmpQ"

I dobijas taj string...

Samo, umesto onih 50 MoveNext, trebalo bi da stavis nekakvu petlju koja ce ga pomeriti neki broj puta...

Sedam sutlijasa,
za sedam samuraja,
za sedam tramvaja.

Odgovor na temu

Zoran.Eremija
Zoran Eremija
SYSTEM ANALYST
Freelancer
Beograd

Član broj: 251342
Poruke: 855
*.148.91.0

Sajt: zoraneremija.wix.com/erem..

+47 Profil

Re: Datum iz teksta?

^{19.02.2010. u 13:33 - pre 172 meseci}

Evo probajte i ovo resenje...

http://zoraneremija.wix.com/eremijacv

Prikačeni fajlovi

Txt_01 ZE.zip - 12.91k

Odgovor na temu

smal
Slobodan Maljković
Kragujevac, Srbija

Član broj: 228672
Poruke: 286
*.static.sbb.rs.

+13 Profil

Re: Datum iz teksta?

^{19.02.2010. u 14:00 - pre 172 meseci}

Nisam stigao da probam rešenje koje je dao 3way, jer mi je trenutno pri ruci samo mde verzija aplikacije, ali ono što je poslao Zoran.Eremija radi, i baš mi se sviđa :) Jednostavno je i efikasno.
Samo sam promenio format datuma zbog različitih regionalnih settingsa, i sve fercera.

Hvala Vam puno obojici!

Odgovor na temu