Recuperer le contenu d une colonne en lotuscript

Forum destiné aux questions sur le développement : Formules, LotusScript, Java ...

Recuperer le contenu d une colonne en lotuscript

Messagepar DG » 28 Mars 2003 à 13:03

Je cherche a recuperer toutes les valeurs d'une colonne d une vue pour les traiter dans un script.J ai essayé la commande "@Dbcolumn" avec "Evaluate" mais, je n arrive pas a la faire fonctionner: "Evaluate" me renvoit tjs des errurs il est jamias content de la chaine que je lui passe ( c est vrai qu elle contient une autre chaine, le nom de la vue, et plein de guillemets ce qui ne facilite pas la chose).J ai meme essayé "Execute" avec "Evaluate" mias la c est encore pire pour la syntaxe et je n y arrive pas du tout.Please help me...DG
DG
 

Re: Recuperer le contenu d une colonne en lotuscript

Messagepar Raziel » 28 Mars 2003 à 14:35

Petite info qui pourra peut être t'aider :Pout ton Evaluate, tu peux remplacer les guillemets des paramètres du @dbcolumn par de simple cote (')
Raziel

L'administration est un lieu ou les gens qui arrivent en retard croisent dans l'escalier ceux qui partent en avance. [Georges Courteline]
Avatar de l’utilisateur
Raziel
Modérateur
Modérateur
 
Message(s) : 1795
Inscrit(e) le : 21 Déc 2004 à 11:06
Localisation : Roubaix

Re: Recuperer le contenu d une colonne en lotuscript

Messagepar bug00 » 31 Mars 2003 à 07:52

C'est un code trés propre mais l'essentielle y est : Dim db As NotesDatabase Dim view As NotesView Dim nav As NotesViewNavigator Dim entry As NotesViewEntry Dim countoffice As Integer Dim count2000 As Integer Dim countxp As Integer Dim count97 As Integer Dim officetype As Variant Dim countnoffice As Integer Dim msg As String Set db = New NotesDatabase( "Serveurdomino", "PostesMicro.nsf" ) Set view = db.GetView( "Office" ) Set nav = view.CreateViewNavFromCategory( "Office" ) Set entry = nav.GetFirstDocument countoffice = 0 count2000 = 0 countxp = 0 count97 = 0 countnoffice = 0 ' begin counting documents ' stop when there are no more documents Do Until entry Is Nothing countoffice = countoffice + 1 officetype = entry.ColumnValues(3) Select Case officetype Case "office 2000" count2000 = count2000+1 Case "office xp" countxp = countxp + 1 Case "office 97" count97 = count97 + 1 Case Else End Select Set entry = nav.GetNextDocument( entry ) Loop Set nav = view.CreateViewNavFromCategory( "Sans Office" ) Set entry = nav.GetFirstDocument Do Until entry Is Nothing countnoffice = countnoffice + 1 Set entry = nav.GetNextDocument( entry ) Loop Messagebox "Nombre d'office = " & countoffice & Chr(13) & Chr(13) & _ " Nombre d'office xp = " & countxp & Chr(13)& _ " Nombre d'office 2000 = " & count2000 & Chr(13)&_ " Nombre d'office 97 = " & count97 & Chr(13)& Chr (13) &_ "Nombre d'utilisateur sans office = " & countnoffice & Chr(13),,"Statistiques"et laisse tombé le "couplage" entre le lotusscript et les formules, ca ne fonctionne pas terrible je trouve.
bug00
 

Well done !

Messagepar DG » 31 Mars 2003 à 08:44

Merci bcp , ca marche.Pour 'Evaluate' effectivement le guillemet simple marche ... j avais pourtant deja essayer.Sinon la soluce full LotusScript me plait bcp, je l adopte !
DG
 

Re: Well done !

Messagepar bug00 » 31 Mars 2003 à 08:56

bah et puis c facilement adaptable pour toute autrre appli, le plu difficile en lotusscript c kan meme de gérer les classes propres à notes.Content d'avoir réussi à t'aider
bug00
 


Retour vers Développement

cron