transefer unprogramme de script notes en java

[SALUT5]

Bonjour, J'ai réaliser un programme en script lotus, et je veux le traduire en java, je vous demande si possible de m'aider de réaliser ce travail. et sur tout les notion en lotus par rapport en javaDeclarration Dim choix As StringDim choice() As StringDim crea() As IntegerDim del() As IntegerDim modi() As IntegerDim unicsv() As StringDim univue() As StringDim tablvue() As StringDim tablcsv() As StringDim lignvue() As StringDim ligncsv() As StringDim position As IntegerDim nbvue As IntegerDim nbcsv As IntegerDim db As notesdatabaseDim vue As notesviewDim param As notesdocumentDim unic() As IntegerDim user As StringDim elapsed As SingleDim m As IntegerDim n As IntegerDim i As IntegerDim j As IntegerDim k As IntegerDim suppr As StringDim cols() As StringDim chpcom As StringDim valcom As StringDim unicols() As StringDim masque As StringDim serveur As StringDim serveur2 As StringDim cheminbase As StringDim chfichier As StringDim item As notesitemDim txt As StringDim fileNum As IntegerDim doc As NotesDocumentDim deleted As IntegerDim creer As IntegerDim modif As IntegerDim logdoc As notesdocumentDim form As notesformDim gdb As notesdatabaseDim gvue As notesviewInitialisation Lotus ScriptOn Error Goto erreur Dim session As New notessession choix = session.GetEnvironmentString( "import" ) txt$="h" i%=1 Do Until txt$="" txt$=Strleft(choix,"*",0,i%) i%=i%+1 Loop Redim choice(1 To i%-1) If i%>2 Then choice(1)=Strleft(choix,"*") For j%=2 To i%-1 choice(j%)=Strright(Strleft(choix,"*",0,j%),"*",0,j%-1) Next choice(i%-1)=Strright(choix,"*",0,i%-2) Else choice(1)=choix End If user$=session.commonusername Set gdb=session.getdatabase("OVERSYS2/OVERSYS","jeremie\import.nsf") Set gvue=gdb.getview("Profils\Par nom") Set param=gvue.getfirstdocument Do Until param Is Nothing If Not Isnull(Arraygetindex(choice,param.nomprofil(0))) Then elapsed!=Timer() Set logdoc=New notesdocument(gdb) logdoc.date=Now logdoc.form="log" masque=param.masque(0) suppr=param.suppr(0) logdoc.suppr=suppr logdoc.profil=param.nomprofil(0) cheminbase=param.base(0) serveur=param.serveur(0) Set db=session.getdatabase(serveur,cheminbase,False) serveur2=db.server Mid$(serveur2,Instr(serveur2,"/"),1)="\" logdoc.destbase=serveur2 & "\" & cheminbase chfichier=param.chemin(0) chpcom=param.chpcom(0) valcom=param.valcom(0) n%=Cint(param.long(0)) m%=Cint(param.unilong(0)) Redim unic(1 To m%) Redim unicols(1 To m%) As String Redim cols(1 To n%) As String For i%=1 To n% cols(i%)=param.champs(i%-1) Next For i%=1 To m% unicols(i%)=param.unichamps(i%-1) Next For i%=1 To m% unic(i%)=Arraygetindex(cols,unicols(i%)) Next Set form=db.getform(masque$) For i=1 To n% If Isnull(Arraygetindex(form.fields,cols(i%))) Then logdoc.erreurs="Le champ '" & cols(i%) & "' n'existe pas dans le masque '" & masque$ & "'" logdoc.profil=logdoc.profil(0) & " ***ERREUR***" logdoc.min=0 logdoc.sec=0 logdoc.deleted=0 logdoc.creer=0 logdoc.modif=0 Call logdoc.save(True,False) Exit Sub End If Next Set vue=db.getview(param.vue(0)) fileNum% = Freefile() nbcsv% = 0 Open chfichier For Input As fileNum% position%=0 Do While Not Eof(fileNum%) nbcsv%=nbcsv%+1 Line Input #filenum%,txt$ For j%=1 To n% position%=Instr(position%+1,txt$,";") If position%=0 And j%<>n% Or position%<>0 And j%=n% Or Instr(txt$,",")<>0 Then nbcsv%= Messagebox (txt$, 0, "Erreur dans votre fichier à la ligne :") logdoc.erreurs="Le fichier d'importation contient une erreur à la ligne " logdoc.erreurs=Arrayappend(logdoc.erreurs,txt$) logdoc.profil=logdoc.profil(0) & " ***ERREUR***" logdoc.min=0 logdoc.sec=0 logdoc.deleted=0 logdoc.creer=0 logdoc.modif=0 Call logdoc.save(True,False) Exit Sub End If Next Loop Seek filenum%,1 Redim ligncsv(1 To nbcsv%-1) As String Line Input #filenum%,txt$ i%=0 Do While Not Eof(fileNum%) i%=i%+1 Line Input #fileNum%,ligncsv(i%) Loop Redim tablcsv(1 To nbcsv%-1,1 To n%) For i% = 1 To nbcsv%-1 tablcsv(i%,1) = Strleft(ligncsv(i%),";") For j%=2 To n%-1 tablcsv(i%,j%) = Strright(Strleft(ligncsv(i%),";",0,j%),";",0,j%-1) Next tablcsv(i%,n%) = Strright(ligncsv(i%),";",0,n%-1) Next Redim unicsv(1 To nbcsv%-1) As String For i%=1 To nbcsv%-1 For j%=1 To m% unicsv(i%)=unicsv(i%) & tablcsv(i%,unic(j%)) Next Next Set doc=vue.getfirstdocument nbvue%=0 Do Until doc Is Nothing nbvue%=nbvue%+1 Set doc=vue.getnextdocument(doc) Loop If nbvue%>0 Then Redim tablvue(1 To nbvue%,1 To n%) Set doc=vue.getfirstdocument i%=0 Do Until doc Is Nothing i%=i%+1 For j%=1 To n% tablvue(i%,j%)=doc.getitemvalue(cols(j%))(0) Next Set doc=vue.getnextdocument(doc) Loop Redim lignvue(1 To nbvue%) As String For i%=1 To nbvue% For j%=1 To n%-1 lignvue(i%)=lignvue(i%) & tablvue(i%,j%) & ";" Next lignvue(i%)=lignvue(i%) & tablvue(i%,n%) Next Redim univue(1 To nbvue%) As String For i%=1 To nbvue% For j%=1 To m% univue(i%)=univue(i%) & tablvue(i%,unic(j%)) Next Next End If deleted%=0 creer%=0 modif%=0 Redim crea(1 To nbcsv%-1) As Integer If nbvue%>0 Then Redim modi(1 To nbvue%) As Integer For i%=1 To nbcsv%-1 If Isnull(Arraygetindex(univue,unicsv(i%))) Then crea(i%)=1 Else If ligncsv(i%)<>lignvue(Arraygetindex(univue,unicsv(i%))) Then modi(Arraygetindex(univue,unicsv(i%)))=i% End If Next Redim del(1 To nbvue%) As Integer For i%=1 To nbvue% If Isnull(Arraygetindex(unicsv,univue(i%))) Then del(i%)=1 Next For i%=1 To nbvue% If modi(i%)<>0 Then Set doc=vue.getnthdocument(i%-deleted%) Set item=doc.replaceitemvalue("importlog","Modifié le " & Date & " à " & Format(Now,"h:mm:ss") & " par " & user) If chpcom$<>"" Then Set item=doc.replaceitemvalue(chpcom$,valcom$) For j%=1 To n% Set item=doc.replaceitemvalue(cols(j%),tablcsv(modi(i%),j%)) Next Set item=doc.replaceitemvalue("contact",tablcsv(modi(i%),8)&" "&tablcsv(modi(i%),9)&" "&tablcsv(modi(i%),10)) Set item=doc.replaceitemvalue("adresse",tablcsv(modi(i%),2)) Set item=doc.replaceitemvalue("adresse",Arrayappend(doc.adresse,tablcsv(modi(i%),3))) Call doc.AppendItemValue("Form", masque$) Call doc.Save(True, False) modif%=modif%+1 Elseif del(i%)=1 And suppr$="OUI" Then Set doc=vue.getnthdocument(i%-deleted%) Call doc.remove(True) deleted%=deleted%+1 End If Next End If For i%=1 To nbcsv%-1 If crea(i%)=1 Or nbvue%=0 Then Set doc=New notesdocument(db) Set item=doc.replaceitemvalue("importlog","Créé le " & Date & " à " & Format(Now,"h:mm:ss") & " par " & user) If chpcom$<>"" Then Set item=doc.replaceitemvalue(chpcom$,valcom$) For j%=1 To n% Set item=doc.replaceitemvalue(cols(j%),tablcsv(i%,j%)) Next Set item=doc.replaceitemvalue("contact",tablcsv(i%,8)&" "&tablcsv(i%,9)&" "&tablcsv(i%,10)) Set item=doc.replaceitemvalue("adresse",tablcsv(i%,2)) Set item=doc.replaceitemvalue("adresse",Arrayappend(doc.adresse,tablcsv(i%,3))) Call doc.AppendItemValue("Form", masque$) Call doc.Save(True, False) creer%=creer%+1 End If Next logdoc.creer=creer% logdoc.modif=modif% logdoc.deleted=deleted% elapsed!=Timer()-elapsed! logdoc.min=Int(elapsed!/60) logdoc.sec=Int(elapsed!)-60*Int(elapsed!/60) Call logdoc.save(True,False) Print "document créés :",creer%&",","documents modifiés :",modif%&",","documents effacés :",deleted%&"." Close fileNum% param.last=Filedatetime(chfichier) Call param.save(True,False) Goto finerreur: logdoc.erreurs="'" & Error() & "'" & " à la ligne " & Erl() & " du script de l'agent" Print "'" & Error() & "'" & " à la ligne " & Erl() & " du script de l'agent" logdoc.profil=logdoc.profil(0) & " ***ERREUR***" logdoc.min=0 logdoc.sec=0 logdoc.deleted=0 logdoc.creer=0 logdoc.modif=0 Call logdoc.save(True,False) End If Goto finfin: Set param=gvue.getnextdocument(param) Loop End Submerci

[polo]

import lotus.domino.*;import java.util.*;import java.lang.*;public class JavaAgent extends AgentBase { public void NotesMain() { try { //Rem : *** Variables Notes,Ouverture de la base courante *** Session session = getSession();

[Sylvain]

Petite question tu connais les fonctions ? J'ai les poils qui s'irissent à la vue de ton code [%sig%]

[SALUT5]

quel fonction,

[SALUT5]

j'ai essai que j'avance alors si bien ce qui j'ai ecris.try { Session session = getSession(); AgentContext agentContext = session.getAgentContext();Document doc=agentContext.getDocumentContext(); Database db=session.getCurrentDatabase("chemin",nom);View v=db.getView("Profil\par nom");ViewEntryCollection vec = ve.getAllEntries(); ViewEntry entry = vec.getFirstEntry();//je ponse qu'il faut que je crée soit un tableau ou un vecteur peut etre en java si mieux le vecteur, je vais essaiVector v=new Vector(); while (entry!=null) {