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

Ispisivanje stringova unazad "12345"=>"54321"

[es] :: Access :: Ispisivanje stringova unazad "12345"=>"54321"

[ Pregleda: 13653 | Odgovora: 7 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Zidar
Canada

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



+78 Profil

icon Ispisivanje stringova unazad "12345"=>"54321"25.06.2004. u 13:43 - pre 191 meseci
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
 
Odgovor na temu

Trtko
Koprivnica

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



+8 Profil

icon Re: Ispisivanje stringova unazad "12345"=>"54321"10.04.2010. u 20:59 - pre 121 meseci
ne radi link @Zidar
a o čemu su raspravljali, mislim u čemu je tu problem ili caka
 
Odgovor na temu

Zidar
Canada

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



+78 Profil

icon Re: Ispisivanje stringova unazad "12345"=>"54321"12.04.2010. u 14:01 - pre 121 meseci
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.
 
Odgovor na temu

mmarkoni
Milan Marković

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



Profil

icon Re: Ispisivanje stringova unazad "12345"=>"54321"12.04.2010. u 14:39 - pre 121 meseci
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.
 
Odgovor na temu

izonic
ishab zonic
Tuzla

Član broj: 38128
Poruke: 591
92.36.223.*

Sajt: www.icentar.ba


+2 Profil

icon Re: Ispisivanje stringova unazad "12345"=>"54321"12.04.2010. u 16:02 - pre 121 meseci
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
 
Odgovor na temu

izonic
ishab zonic
Tuzla

Član broj: 38128
Poruke: 591
92.36.223.*

Sajt: www.icentar.ba


+2 Profil

icon Re: Ispisivanje stringova unazad "12345"=>"54321"12.04.2010. u 16:23 - pre 121 meseci
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
 
Odgovor na temu

Trtko
Koprivnica

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



+8 Profil

icon Re: Ispisivanje stringova unazad "12345"=>"54321"12.04.2010. u 17:32 - pre 121 meseci
Izonic, postoji još i lakša funkcija koja vraća putanju aktivne baze

putanjabaze = Application.CurrentProject.Path

 
Odgovor na temu

Trtko
Koprivnica

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



+8 Profil

icon Re: Ispisivanje stringova unazad "12345"=>"54321"12.04.2010. u 18:01 - pre 121 meseci
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
 
Odgovor na temu

[es] :: Access :: Ispisivanje stringova unazad "12345"=>"54321"

[ Pregleda: 13653 | Odgovora: 7 ] > FB > Twit

Postavi temu Odgovori

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