Locates the last occurrence of a substring or character within a string
Important note: In versions up to and including v0.20.0b, InStrRev contains a bug which may cause it to skip some matches. This is corrected as of v0.21.0b.
last = InStrRev( str, [ Any ] substring [, start ] )
Parameters
str
The string to be searched.
substring
The substring to find.
start
The position in str at which the search will begin.
Return Value
The position of the last occurrence of substring in str.
Description
Locates the position of the last occurrence of a substring or character within a string. If start parameter is not given or is -1, the search begins at the last character.
Zero (0) is returned if substring is not found, or either str or substring are empty strings, or start is less than 1 (except for -1), or start is greater than the length of str.
If the Any keyword is specified, InStrRev returns the last occurrence of any character in substring.
Example
' It will return 4 PrintInStrRev("abcdefg","de")
' It will return 0 PrintInStrRev("abcdefg","h")
DimtestAsString DimidxAsInteger
test="abababab" idx=InStrRev(test,"b")
DoWhileidx>0'if not found loop will be skipped Print"""b"" at "&idx idx=InStrRev(Test,"b",idx-1) Loop
'A Unicode example:
dim text as wstring*20
text = "Привет, мир!"
print instrrev(text,"ет") ' displays 5
Platform Differences
The wide-character string version of InStrRev is not supported for DOS target.
Dialect Differences
Not available in the -lang qb dialect unless referenced with the alias __Instrrev.
Знаете ли Вы, что cогласно релятивистской мифологии "гравитационное линзирование - это физическое явление, связанное с отклонением лучей света в поле тяжести. Гравитационные линзы обясняют образование кратных изображений одного и того же астрономического объекта (квазаров, галактик), когда на луч зрения от источника к наблюдателю попадает другая галактика или скопление галактик (собственно линза). В некоторых изображениях происходит усиление яркости оригинального источника." (Релятивисты приводят примеры искажения изображений галактик в качестве подтверждения ОТО - воздействия гравитации на свет) При этом они забывают, что поле действия эффекта ОТО - это малые углы вблизи поверхности звезд, где на самом деле этот эффект не наблюдается (затменные двойные). Разница в шкалах явлений реального искажения изображений галактик и мифического отклонения вблизи звезд - 1011 раз. Приведу аналогию. Можно говорить о воздействии поверхностного натяжения на форму капель, но нельзя серьезно говорить о силе поверхностного натяжения, как о причине океанских приливов. Эфирная физика находит ответ на наблюдаемое явление искажения изображений галактик. Это результат нагрева эфира вблизи галактик, изменения его плотности и, следовательно, изменения скорости света на галактических расстояниях вследствие преломления света в эфире различной плотности. Подтверждением термической природы искажения изображений галактик является прямая связь этого искажения с радиоизлучением пространства, то есть эфира в этом месте, смещение спектра CMB (космическое микроволновое излучение) в данном направлении в высокочастотную область. Подробнее читайте в FAQ по эфирной физике.