Ispisivanje stringova unazad "12345"=>"54321"

[ Zidar @ 25.06.2004. 13:43 ] @

Na SerbianCafe ima forum "Baze Podataka". Juce je bilo jedno zanimljivo pitanje o sipisivanju brojeva unazad. Koga interesuje, moze da vidi topic na
http://www1.serbiancafe.com/diskusije/mesg/59/003910546.shtml?4

[ Trtko @ 10.04.2010. 20:59 ] @

ne radi link @Zidar
a o čemu su raspravljali, mislim u čemu je tu problem ili caka

[ Zidar @ 12.04.2010. 14:01 ] @

Verovatno je pitanje bilo 'kako ispisati brojeve ili neki zadati string 'naopacke'. Na primer, '123456' da postane '654321'. Naravno da moze da se napise program, ali smo tada otkrili da psotoji i funkciaj u Accesu koja to radi direktno.

Kako se funkcije zove, ne mogu ovog momenta da se setim a Acces mi nije pri ruci, ali garantovano postoji funkcija koja obrce string unazad. Ko je nadje, nek prijevi.

Isto tako mislim da odnedevno (od verzije 2000+) postoji i InstrRev ili tako nesto, radi kao Instr ali pocinje od kraja. Zgodno za pronalazenej posledneg znaka \ u path stringovima. Na primer, 'C:\Dir1\Dir2\Dir3\Dir4\Mojfajl.MDB'. Zgodno bi bilo bez programiranja dobiti poziciju '\' koji je poslednji s desne strane...

Koga zanima, neka potrazi po Acces helpu, pa neka nam javi.

[ mmarkoni @ 12.04.2010. 14:39 ] @

Nekada sam na nekom forumu pokupio funkciju za obrtanje stringova pa je pripažem:

Code:
Function ObrniString(strZaObrtanje As Variant) As String
'   Napravis kveri, na primer:
'       SELECT Broj, ObrniString(Cstr(Broj)) AS Broj_Naopako FROM tbltabelaSaBorjevima
'Opis: obrće dati string
'Primer: ObrniString("1234567") vraća "7654321"
Dim nBrojac As Integer
Dim nLen As Integer 'Dužina stringa
Dim strObrnut As String
    nLen = Len(strZaObrtanje)
    strObrnut = ""
       For nBrojac = 1 To nLen
           strObrnut = Mid(strZaObrtanje, nBrojac, 1) & strObrnut
       Next nBrojac
    ObrniString = strObrnut
End Function

Napomena u VBA postoji i funkcija:

Code:
strReverse(strZaObrtanje as variant)

ali ako je strZaObrtanje Null sledi greška.

[ izonic @ 12.04.2010. 16:02 ] @

Code:
Function ObrniString(Str) As Variant
'------------------------------------------------
'Obradio: zxz, izonic
'Datum:12.04.2010
'Opis: Funkcija obrce string naopačke
'Ulazni parametar: String ili broj koji se obrće
'------------------------------------------------
Dim UlazniStr As String
Dim I As Integer
Dim Brojac As Integer
Dim Znak As String

UlazniStr = Str
Brojac = Len(UlazniStr)

For I = 1 To Brojac
Znak = Mid(UlazniStr, I, 1) & Znak
Next I
If IsNumeric(Znak) Then
ObrniString = Val(Znak)
Else
ObrniString = Znak
End If
End Function

[ izonic @ 12.04.2010. 16:23 ] @

Code:
Function Db_Putanja() As String
'--------------------------------------------------
'Ova funkcija pronalazi putanju postojeće baze
'Autor funkcije ZXZ
'__________________________________________________
    Dim Db As Database, Putanja As String

    On Error Resume Next
    Set Db = DBEngine(0)(0)
    Putanja = Db.Name
    Do Until Right$(Putanja, 1) = "\"
        Putanja = Left$(Putanja, Len(Putanja) - 1)
    Loop

    Db_Putanja = Putanja
End Function

[ Trtko @ 12.04.2010. 17:32 ] @

Izonic, postoji još i lakša funkcija koja vraća putanju aktivne baze

putanjabaze = Application.CurrentProject.Path

[ Trtko @ 12.04.2010. 18:01 ] @

Bio si u pravu Zidar, postoji funkcija koja vrati string naopacke
a to je ova u accessu

bb = StrReverse("12345")

pa ce biti u bb="54321"

I jos mali "milon" funkcija u accessu za koje ni ne "znamo" da postoje da nam olaksaju programiranje