Не Большой Набор Полезных Функций

@RyxPvt · Регистрация: 26.11.2011

Студворк — интернет-сервис помощи студентам

Функция проверки на наличие не запрещенных символов в поле, где ? - запрещенные символы

LotusScript
1
2
3
4
5
6
Function Check_BadSymbols(sStr As String) As Boolean
Check_BadSymbols = False
Dim f As String
f = "*[a-z,A-Z,0-9,?,і,?,?,?,?,?,?,?]*"
If sStr Like f Then Check_BadSymbols = True
End Function

Функция проверки роли, работает даже если пользователь находится в группе

LotusScript
1
2
3
4
5
6
7
8
9
Function CheckRolls(Rolls As String) As Boolean
Dim ses As New NotesSession
Dim Results,sql As Variant
Doc As NotesDocument
Set Doc = ses.currentdocument
sql = "@IsNotMember("""+Rolls+""";@UserRoles)"
Results = Evaluate(sql, Doc)
If Results(0)="1" Then CheckRolls=False Else CheckRolls=True
End Function

Функция расчета промежутка между временем, путем вычета 1(-ой) даты из другой

LotusScript
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function TimeDifference(sData1, sData2 As Variant) As String
Dim buf As Variant
If (sData1="" Or sData2="") Then
TimeDifference = "00:00:00"
Exit Function
End If
 
If CDbl(sData2) >= CDbl(sData1) Then
buf = CDbl(sData2) - CDbl(sData1)
Else
buf = CDbl(sData1) - CDbl(sData1)
End If
TimeDifference = CStr(Format(CDat(buf), "hh:mm:ss"))
End Function

Чуть позже выложу еще

@hosm · 11.12.2011, 18:54

вот, каюсь, перенесла сюда пока из Кодебейз, из-за траблов на форуме и пр. руки не дошли опубликовать вовремя.
Есть вопросы автору по Function CheckRolls(Rolls As String) As Boolean -
1) Dim ses As New NotesSession
Set Doc = ses.currentdocument wtf?
2) зачем там Evaluate, чем не подошли not Isnull(ArrayGetIndex(ses.CurrentDatabase .QueryAccessRoles(ses.username), Rolls)) или ses.Effectiveusername

@tmyky · 11.12.2011, 19:39

сама по себе ф-ция вычисления разницы времени не так ценна, как задачи подсчёта рабочих дней/часов и т.п.
а вот там начнутся таймзоны...
а вот такой код уже здесь пробегал, я ссылку давал на "недоделанную" ф-цию

я это к чему - наработки кода - безусловно полезная тема, но стрктурировать её нужно ближе к реальным задачам (можно указывать - для каких задач использовалось)

@Mydyvys · 12.12.2011, 09:12

Сообщение от RixPvl

Функция проверки роли, работает даже если пользователь находится в группе

А notesDatabase.QueryAccessRoles не работает?

@mvyush · 12.12.2011, 09:19

Вместо

LotusScript
1
If Results(0)="1" Then CheckRolls=False Else CheckRolls=True

не лучше ли

LotusScript
1
CheckRolls = (Results(0) <> "1")

12.12.2011, 10:59

Добавлю ещё:

TimeDifference
1.Если в параметрах допустимы только строки, так и надо задекларировать их as String вместо Variant
2.Грамотней использовать NotesDateTime.Timedifference
3.Не храните и не работайте с датами как со строками везде, где только возможно.

Заменить как советовали для CheckRolls и в Check_BadSymbols
If sStr Like f Then Check_BadSymbols = True
на
Check_BadSymbols = (sStr Like f)

Новые блоги и статьи Все статьи Все блоги /
Angular: Вопросы и ответы на собеседовании Reangularity 15.06.2025 Готовишься к техническому интервью по Angular? Я собрал самые распространенные вопросы, с которыми сталкиваются разработчики на собеседованиях в этом году. От базовых концепций до продвинутых. . .	Архитектура Onion в ASP.NET Core MVC stackOverflow 15.06.2025 Что такое эта "луковая" архитектура? Термин предложил Джеффри Палермо (Jeffrey Palermo) в 2008 году, и с тех пор подход только набирал обороты. Суть проста - представьте себе лук с его. . .	Unity 4D GameUnited 13.06.2025 Четырехмерное пространство. . . Звучит как что-то из научной фантастики, правда? Однако для меня, как разработчика со стажем в игровой индустрии, четвертое измерение давно перестало быть абстракцией из. . .	SSE (Server-Sent Events) в ASP.NET Core и .NET 10 UnmanagedCoder 13.06.2025 Кажется, Microsoft снова подкинула нам интересную фичу в новой версии фреймворка. Работая с превью . NET 10, я наткнулся на нативную поддержку Server-Sent Events (SSE) в ASP. NET Core Minimal APIs. Эта. . .	С днём независимости России! Hrethgir 13.06.2025 Решил побеседовать, с утра праздничного дня, с LM о завоеваниях. То что она написала о народе, представителем которого я являюсь сам сначала возмутило меня, но дальше только смешило. Это чисто. . .
Лето вокруг. kumehtar 13.06.2025 Лето вокруг. Наполненное бурями и ураганами событий. На фоне магии Жизни, священной и вечной, неумелой рукой человека рисуется панорама душевного непокоя. Странные серые краски проникают и. . .	Популярные LM модели ориентированы на увеличение затрат ресурсов пользователями сгенерированного кода (грязь -заслуги чистоплюев). Hrethgir 12.06.2025 Вообще обратил внимание, что они генерируют код (впрочем так-же ориентированы разработчики чипов даже), чтобы пользователь их использующий уходил в тот или иной убыток. Это достаточно опытные модели,. . .	Топ10 библиотек C для квантовых вычислений bytestream 12.06.2025 Квантовые вычисления - это та область, где теория встречается с практикой на границе наших знаний о физике. Пока большая часть шума вокруг квантовых компьютеров крутится вокруг языков высокого уровня. . .	Dispose и Finalize в C# stackOverflow 12.06.2025 Работая с C# больше десяти лет, я снова и снова наблюдаю одну и ту же историю: разработчики наивно полагаются на сборщик мусора, как на волшебную палочку, которая решит все проблемы с памятью. Да,. . .	Повышаем производительность игры на Unity 6 с GPU Resident Drawer GameUnited 11.06.2025 Недавно копался в новых фичах Unity 6 и наткнулся на GPU Resident Drawer - штуку, которая заставила меня присвистнуть от удивления. По сути, это внутренний механизм рендеринга, который автоматически. . .

@hosm 0 / 0 / 0 Регистрация: 15.05.2009 Сообщений: 1,454
	11.12.2011, 18:54
	вот, каюсь, перенесла сюда пока из Кодебейз, из-за траблов на форуме и пр. руки не дошли опубликовать вовремя. Есть вопросы автору по Function CheckRolls(Rolls As String) As Boolean - 1) Dim ses As New NotesSession Set Doc = ses.currentdocument wtf? 2) зачем там Evaluate, чем не подошли not Isnull(ArrayGetIndex(ses.CurrentDatabase .QueryAccessRoles(ses.username), Rolls)) или ses.Effectiveusername 0

@tmyky 0 / 0 / 0 Регистрация: 23.08.2008 Сообщений: 6,252
	11.12.2011, 19:39
	сама по себе ф-ция вычисления разницы времени не так ценна, как задачи подсчёта рабочих дней/часов и т.п. а вот там начнутся таймзоны... а вот такой код уже здесь пробегал, я ссылку давал на "недоделанную" ф-цию я это к чему - наработки кода - безусловно полезная тема, но стрктурировать её нужно ближе к реальным задачам (можно указывать - для каких задач использовалось) 0

Tyo
	12.12.2011, 10:59
	Добавлю ещё: TimeDifference 1.Если в параметрах допустимы только строки, так и надо задекларировать их as String вместо Variant 2.Грамотней использовать NotesDateTime.Timedifference 3.Не храните и не работайте с датами как со строками везде, где только возможно. Заменить как советовали для CheckRolls и в Check_BadSymbols If sStr Like f Then Check_BadSymbols = True на Check_BadSymbols = (sStr Like f)

Опции темы