Диалоги Lotus developers

[oshmianski]

Обращайте внимание на версию MS Office. То, что работает в 2007-м, не факт, что будет работать в 2002. Проверено, мины есть.

 

[DNT]

Господа как взять переменную окружения Windows? Temp например. сенкс.

 

[morpheus]

Для: DNT
Environ function

Returns information about an environment variable from the operating system

Dim TempDir As String, tempFile As Integer
Dim tempFileName As String, tempStuff As String
tempStuff$ = InputBox("Enter some temporary information")
TempDir$ = Environ("Temp")
ChDir TempDir$
tempFile% = FreeFile()
tempFileName$ = "myapp.tmp"
Open tempFileName$ For Output As tempFile%
Print #tempFile%, tempStuff$ 
Close tempFile%

 

[Azrael]

Вопросец есть... так в большей степени чисто академический: Как лотус формирует UNID? просто генерирует случайное 32-разрядное 16-ричное число?

 

[Constantin A Chervonenko]

Вопросец есть... так в большей степени чисто академический: Как лотус формирует UNID? просто генерирует случайное 32-разрядное 16-ричное число?

Грубо говоря UNID (16 байт, 2х8) состоит из сегмента файла и сегмента документа. Сегмент документа - поясное дата-время его создания с точностью до 0.01сек. Сегмент файла - раньше содержал дату-время создания данной реплики базы. Позже в нем что-то поменяли

Читайте C API док-цию. Там есть целая глава "Анатомия UNID".

 

[oshmianski]

Для: Azrael
смотрим

Ссылка скрыта от гостей

 

[Kee_Keekkenen]

Для: DNT, с помощью win api

Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" _
(ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long

Function TempDir() As String
Dim lngRet As Long
Dim strTempDir As String
Dim lngBuf As Long
strTempDir = String$(255, 0)
lngBuf = Len(strTempDir)
lngRet = GetTempPath(lngBuf, strTempDir)
If lngRet > lngBuf Then
strTempDir = String$(lngRet, 0)
lngBuf = Len(strTempDir)
lngRet = GetTempPath(lngBuf, strTempDir)
End If
TempDir = Left(strTempDir, lngRet)
End Function

 

[morpheus]

Для: Kee_Keekkenen
Красиво
но зачем так сложно да и узко получяеться(только для темпов) , ведь для других переменных нужно тоже искать(хотя можно и через реестр)

 

[Kee_Keekkenen]

временный файл

 Function TempFile(Create As Integer) As String
Dim lpPrefixString As String
Dim lpszPath As String

lpszPath = TempDir
lpPrefixString = "tmp"

lngRet = GetTempFileName(lpszPath, lpPrefixString, 0, lpTempFileName)
strTemp = lpTempFileName
lngRet = Instr(lpTempFileName, Chr$(0))
strTemp = Left(lpTempFileName, lngRet - 1)
If Create = False Then
Kill strTemp
Do Until Dir(strTemp) = ""
Doevents
Loop
End If
TempFile = strTemp
End Function

 

[oshmianski]

временный файл

 Function TempFile(Create As Integer) As String
Dim lpPrefixString As String
Dim lpszPath As String

lpszPath = TempDir
lpPrefixString = "tmp"

lngRet = GetTempFileName(lpszPath, lpPrefixString, 0, lpTempFileName)
strTemp = lpTempFileName
lngRet = Instr(lpTempFileName, Chr$(0))
strTemp = Left(lpTempFileName, lngRet - 1)
If Create = False Then
Kill strTemp
Do Until Dir(strTemp) = ""
Doevents
Loop
End If
TempFile = strTemp
End Function

я дико извиняюсь. это что? пример использования функции TempDir?

 

[Kee_Keekkenen]

TempFile это функция, которая возвращает временнный файл во временном каталоге (функция использует выше приведенную функцию TempDir)
+ еще моя ошибка - для использования функции TempFile необходимо сделать объявление GetTempFileName:

Declare Function GetTempFileName Lib "kernel32" Alias "GetTempFileNameA" (ByVal lpszPath As String, ByVal lpPrefixString As String,ByVal wUnique As Long, ByVal lpTempFileName As String) As Long

 

[morpheus]

Для: Kee_Keekkenen
а к чему это? тут разве спрашивали про временной файл(хотя идея интересная)

Если хотите просто выложить код , кидайте его в link removed

 

[oshmianski]

Для: IsAvailable
здесь посмотри.

что касается второго вопроса, то, если не ошибаюсь, Лотус по-умолчанию считает все новые поля как текстовые, если в этом поле не определено Default Value.

 

[IsAvailable]

Для: oshmianski
Нда... Прикол, конечно... Вроде, разобрался, как бороться с данной проблемой, но всё равно буду продолжать считать сиё явным глюком... Ну через ж... всё это как-то =\

Да и с типом полей... ага - похоже, подхватывает тип по типу содержимого по умолчанию... А если ничего не задано по умолчанию, то вообще говорит, что поля не существует...
Мля... Ну и стоит ли изначально на форму выкладывать поля, прописывать их типы, если потом заходишь на эту форму из кода и всё по новой переопределяешь...

Кстати, еще по поводу видимости полей из кода... У меня форма есть одна... К части полей в ней есть доступ из кода другой формы, а к части - нет. Ну лежат они у меня на секции с ограниченными правами на редактирование, но разве это причина? Через дебагер смотрю на поля переменной с документом, а там в Items только часть полей документа. Всё происходит в одной БД. Может, тоже кто знает, как это поюедить? =\

 

[oshmianski]

Для: oshmianski
Нда... Прикол, конечно... Вроде, разобрался, как бороться с данной проблемой, но всё равно буду продолжать считать сиё явным глюком... Ну через ж... всё это как-то =\
...

я не был бы столь категоричным.
по этому поводу почитать можно еще

Ссылка скрыта от гостей

.

...
Да и с типом полей... ага - похоже, подхватывает тип по типу содержимого по умолчанию... А если ничего не задано по умолчанию, то вообще говорит, что поля не существует...
Мля... Ну и стоит ли изначально на форму выкладывать поля, прописывать их типы, если потом заходишь на эту форму из кода и всё по новой переопределяешь...
...

Поля существуют, просто в диалоге свойств документа они не показываются.
Default value по-хорошему нужно заполнять!!! А если не скриптом обрабатывается документ, а в UI?

 

[Vagor.ini]

Согласно рассуждениям вот этого топика --->
https://codeby.net/threads/11679.html
"Диалоги Lotus developers" закрываются.

Все вопросы в личку.