CB Repository

Hakee merkkijonoa toisen merkkijonon sisästä aloittaen lopusta. Parametrit: - merkkijono - haettava - [aloituspositio]: lopusta lukien, eli ykkönen viittaa merkkijonon viimeiseen merkkiin, kakkonen taas merkkijonon toiseksi viimeiseen jne. Oletus: 1. - [käänteinen aloituspositio]: Jos True, aloituspositio-parametri käännetään toisin päin ja ykkönen tarkoittaa merkkijonon viimeistä eikä ensimmäistä merkkiä. Oletus: False Palauttaa position aina merkkijonon alusta lukien - tai nollan, jos hakusanaa ei löytynyt merkkijonosta. Testasin aika lyhyesti, joten kokeile ensin ihan simppelillä koodilla. Edit 16.7.2014: Korjasin virheellistä kuvaustekstiä "käänteinen aloituspositio" -parametrin osalta. Ei koodimuutoksia.

1
2
3
4
5
6

Function RevInStr(stri$, find$, start_position=1, reverse_start_position=0)
	If reverse_start_position Then start_position = Len(stri)+1-start_position
	result = InStr(Flip(stri), Flip(find), start_position)
	If result = False Then Return False
	Return Len(stri)+1-result-Len(find)+1
EndFunction