[JFWRus] Re[5]: скрипты к тоталу
Здравствуйте,
> Выше приведённую функцию можно прописать так:
> Int Function StringSegmentCount (String Str, string symb)
> var
> int n,
> int k,
> string s
>
> let k = 1
> let n = 0
> while k <= StringLength (Str)
> let s = SubString (Str, k, 1)
> if s == symb then
> let n = n + 1
> endif
> let k = k +1
> endwhile
> Return n
> EndFunction
> И j5.10 работает! Вставлять надо только перед её вызовом, а не в конце
> файла.
Всё так. Единственное, я бы для полного соответствия работы Вашей функции
FSDN, где написано так:
Param 1:
Type: String
Description: The string that is delimited by some character or characters.
Include: Required
Param 2:
Type: String
Description: The delimiter or set of delimiters. This string must be
enclosed in quotation marks.
Include: Required
Что в вольном переводе с заокеанского суржика означает, что вторая строка
может содержать более одного символа в качестве разделителей. Для полного
соответствия инструкции я рекомендую вместо строки:
if s == symb then
написать так:
if )StringContains (symb, s)!= 0) then
Вывернутый таким образом наизнанку вызов этой функции позволяет решить
задачу совместимым образом без излишних усилий.
До свидания.
***
Это сообщение No3983
было разослано для 310 участников дискуссионного листа
[JFWRus] Re[5]: скрипты к тоталу
