Форум программистов, компьютерный форум, киберфорум
Наши страницы
Lotus Notes/Domino: Программирование
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.53/30: Рейтинг темы: голосов - 30, средняя оценка - 4.53
somytot91
0 / 0 / 0
Регистрация: 06.06.2013
Сообщений: 4
1

Одномерный Динамичный Массив

08.08.2013, 13:33. Просмотров 5321. Ответов 3
Метки нет (Все метки)

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

.SpoilerTarget">Спойлер: Раскрывающийся Текст


LotusScript
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Dim sview As NotesView
Dim db As NotesDatabase
Dim sess As NotesSession
Dim sdoc As NotesDocument
Dim rdoc As NotesDocument
Dim line1 As String ,lineAll As String
Dim mydoc As Variant
Dim ws As NotesUIWorkspace
 
Sub Click_FormClist(rDoc As NotesDocument, ruidoc As NotesUIDocument)
 
Set ws = New NotesUIWorkspace !!!!!!!!!!!!!!!
Set sess = New NotesSession
Dim qdoc As NotesDocument
 
If Not ruidoc.EditMode Then
ruidoc.EditMode =True
End If
 
 
Set db = sess.CurrentDatabase !!!!!!!!!!!!!!!!!!!!
 
Set sview = db.GetView("Dolgi")
If sview Is Nothyng Then
MessageBox "Нет нужного представления"
Exit Sub
End If
 
Set sdoc = sview.GetFirstDocument
line1 = ""
lineAll = ""
 
Do While Not sdoc Is Nothyng
line1 = line1 & sdoc.GetItemValue("ToDate")(0) & " " & line1 & sdoc.GetItemValue("Year")(0) & "-" & sdoc.GetItemValue("RegNum")(0) & sdoc.GetItemValue("Lit")(0) & " " & sdoc.GetItemValue("ToName")(0) & Chr(10)
lineAll = lineAll & line1
line1 = ""
Set sdoc = sview.GetNextDocument(sdoc)
Loop
 
Print lineAll
Call rDoc.ReplaceItemValue("clist",lineAll)
 
End Sub
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.08.2013, 13:33
Ответы с готовыми решениями:

Отсортировать одномерный динамичный массив методом пузырька
Используя команды из данного кода(или просто помогите исправить код) #include "stdafx.h"...

Динамичный массив на C++
Заменить наименьшие элементы в массиве на среднее арифметическое его значений. Создать функции для...

Динамичный массив обтьектов
Существует следующая проблема: Есть собственный класс, есть ArrayList, приложение в виде...

Динамичный массив в классе
создайте АТД class, в области данных которого содержится динамический массив чисел типа float и...

Динамичный массив через arraylist
Почему не работает программа. И как можно сделать, чтобы он сначала добавил числа подходящие под...

3
sovt
0 / 0 / 0
Регистрация: 27.10.2011
Сообщений: 2,124
08.08.2013, 13:38 2
lineAll массивом сделать что ли?
поле clist множественные значения может содержать?
0
somytot91
0 / 0 / 0
Регистрация: 06.06.2013
Сообщений: 4
08.08.2013, 14:03 3
Цитата Сообщение от savl
lineAll массивом сделать что ли?
поле clist множественные значения может содержать?
Мне надо убрать поле clist, а то что в него заносится перенести в массив и уже из него передать на отчет в вордовский документ. Вообщем сделать тоже самое что и в коде, только массивом.
0
sovt
0 / 0 / 0
Регистрация: 27.10.2011
Сообщений: 2,124
08.08.2013, 14:20 4
Кажись так, надо изменить объявление переменных и блок цикла

LotusScript
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Dim line1 As String
Dim lineAll() As Variant
dym i as long
 
твой код
 
line1 = ""
i=0
Do While Not sdoc Is Nothyng
line1 = line1 & sdoc.GetItemValue("ToDate")(0) & " " & line1 & sdoc.GetItemValue("Year")(0) & "-" & sdoc.GetItemValue("RegNum")(0) & sdoc.GetItemValue("Lit")(0) & " " & sdoc.GetItemValue("ToName")(0) & Chr(10)
 
ReDim Preserve lineAll(0 To i) As Variant
lineAll(UBound(lineAll))= line1
 
line1 = ""
i =i+1
Set sdoc = sview.GetNextDocument(sdoc)
Loop
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.08.2013, 14:20

добавление элементов в динамичный массив
Столкнулся с такой проблемой: надо сделать динамический массив в котором не известно конечное...

Создать динамичный массив данных и вывести часть его
Прошу помочь разобраться с указателями. Хочется сделать запрос в котором отображается часть данных...

Дан двумерный массив, из него сделать одномерный. В одномерный массив сначала вписат четные строки потом нечетные
Здравствуйте,собственно задача в заголовке темы. никак не получается все это дело слит в одномерный...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru