[es] - Ispisivanje stringova unazad 12345=>54321

Zidar
Canada

Moderator
Član broj: 15387
Poruke: 2600
*.eqao.com

Profil

Ispisivanje stringova unazad "12345"=>"54321"

^{25.06.2004. u 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

^{25.06.2004. u 13:43}

Trtko
Koprivnica

Član broj: 69494
Poruke: 678
*.adsl.net.t-com.hr.

Profil

Re: Ispisivanje stringova unazad "12345"=>"54321"

^{10.04.2010. u 20:59}

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

^{10.04.2010. u 20:59}

Zidar
Canada

Moderator
Član broj: 15387
Poruke: 2600
*.100.46-69.q9.net.

Profil

Re: Ispisivanje stringova unazad "12345"=>"54321"

^{12.04.2010. u 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.

^{12.04.2010. u 14:01}

mmarkoni
Milan Marković

Član broj: 95013
Poruke: 37
*.adsl-3.sezampro.yu.

Profil

Re: Ispisivanje stringova unazad "12345"=>"54321"

^{12.04.2010. u 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.

^{12.04.2010. u 14:39}

izonic
ishab zonic
Tuzla

Član broj: 38128
Poruke: 528
92.36.223.*

Sajt: www.icentar.ba

Profil

Re: Ispisivanje stringova unazad "12345"=>"54321"

^{12.04.2010. u 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

zxz

^{12.04.2010. u 16:02}

izonic
ishab zonic
Tuzla

Član broj: 38128
Poruke: 528
92.36.223.*

Sajt: www.icentar.ba

Profil

Re: Ispisivanje stringova unazad "12345"=>"54321"

^{12.04.2010. u 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

zxz

^{12.04.2010. u 16:23}

Trtko
Koprivnica

Član broj: 69494
Poruke: 678
*.adsl.net.t-com.hr.

Profil

Re: Ispisivanje stringova unazad "12345"=>"54321"

^{12.04.2010. u 17:32}

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

putanjabaze = Application.CurrentProject.Path

^{12.04.2010. u 17:32}

Trtko
Koprivnica

Član broj: 69494
Poruke: 678
*.adsl.net.t-com.hr.

Profil

Re: Ispisivanje stringova unazad "12345"=>"54321"

^{12.04.2010. u 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

^{12.04.2010. u 18:01}