Stránka 1 z 1
Acess odstranění znaků
Napsal: 03 pro 2008 11:16
od Frantisek Kravar
Zdravím, potřebuji ze znakového výrazu odstranit posledních 8 znaků, výraz je pokaždé jinak dlouhý takže funkce left(výraz;1;a něco) mi nepomůže. Děkuji
Re: Acess odstranění znaků
Napsal: 03 pro 2008 12:01
od mike007
Pokud chceš z výrazu odstanit posledních osm znaků, tak funkce LEFT by na to měla být dostatečná.
http://www.techonthenet.com/access/functions/string/left.php
Re: Acess odstranění znaků
Napsal: 03 pro 2008 12:09
od Frantisek Kravar
ale já mám každý výraz jinak dlouhý a funkce left vrací počet znaků zleva a ty já mám pokaždé jinak dlouhé
výraz je ve tvaru : jméno příjmení IČO
a já potřebuji jméno příjmení zvlášť a ičo zvlášt
Re: Acess odstranění znaků
Napsal: 03 pro 2008 18:23
od navstevnik
pouzij nasledujici:
Kód: Vybrat vše
Sub Rozdelit()
Dim str As String, Vyskyt As Byte, Delka As Byte, ICO As String, JmPrij As String
str = " jmeno prijmeni ICO12345678"
str = Trim(str)
Delka = Len(str)
Vyskyt = InStrRev(str, " ")
JmPrij = Left(str, Vyskyt - 1)
ICO = Right(str, Delka - Vyskyt)
End Sub
Re: Acess odstranění znaků Vyřešeno
Napsal: 04 pro 2008 09:11
od Frantisek Kravar
díky už to funguje