Das Notes Forum
Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: taheri am 01.08.02 - 08:44:56
-
Guten Morgen Entwickler,
kann jemand mir bitte diese Tool umprogeramiren :ich habe es nicht geschaft.
Die Aufgabe von Tool ist, bei Auswahl eine datei wird die datei mit ARJ gepackt und in einem RTF Feld angehängt. Der Datei muss eine bestimmte Endung haben und wird auch umbennat. Z. b bei Auswahl 100A.plt wird datei mit ARJ gepackt und umbennat in
100A_plt.arj. Alles funkioniert ausser er unterscheidet zwischen groß und klein schreiben.
@If(typ != "plt";@Return(@Prompt([OK];"Fehler";"Bitte eine plt-Datei auswählen!"));"");
Wenn der datei 100A.PLT heißt ,macht er nicht. Ich kenn aber kein Funktion, der ihm sagen kann . er soll kein unterschied zwischen groß und klein machen
Danke
dat:=@Prompt( [LOCALBROWSE];"Anhang";"Anhang auswählen");
@If(Dat = ""; @Return(1);"");
file := @RightBack(dat;"\\" );
file_ := @ReplaceSubstring(file;".";"_" ) ;
datei := @Left(file;".");
typ := @RightBack(dat;"." ) ;
@If(typ != "plt";@Return(@Prompt([OK];"Fehler";"Bitte eine plt-Datei auswählen!"));"");
@Command([EditDocument];"1") ;
pfad_tmp := @GetProfileField("UserProfile" ; "TempDir"; @UserName);
pfadTempDir := @If(@IsError(pfad_tmp) | pfad_tmp = ""; "C:\\Temp\\"; pfad_tmp);
comm95 := "C:\\Command" ;
commparm := "/C = " + pfadTempDir + "X.Bat \"" + dat + "\" \"" + file_+ "\"";
commNT := "c:\\WINNT\\SYSTEM32\\CMD.exe" ;
sys := @Platform([Specific]) ;
@If(@Contains( sys; "/NT");
@Command([Execute];commNT;commparm);
@Command([Execute];comm95;commparm));
@Prompt([OK];"Fertig";"Das war\'s");
@Command([EditGotoField];"Plot") ;
@Command([EditInsertFileAttachment];pfadTempDir+file_+".arj")TEXT
-
@If(@uppercase(typ) != "PLT";@Return(@Prompt([OK];"Fehler";"Bitte eine plt-Datei auswählen!"));"");
die fnkt @uppercase wandelt die übergebene zeichenkette in grossbuchstaben um. diese jetzt mit grossbuchstaben vergleichen und gut ist.
gruss / till
-
Danke
es hat gut geklappt
:D
-
Hallo Til,
vorfeuernde war ein bisschen froh. Jetzt habe ich ein neues Problem und zwar, diese Agent lauft nicht mehr
Aufgabe von Agent ist. Gepackte Datei holen, entpacken in temp...Verzechniss und über eine View zeigen, jenachdem welche Format das ist. Er läuft nur wenn Datei kleine Buchstaben hat wie 100A-plt.arj
Und nicht wenn Datei 100A_PLT.arj heißt
Der Agent ist bei Postopen (maskeneingenschaft gepeichert)
Sub Postopen(Source As Notesuidocument)
Dim session As New notessession
Dim profiledoc As notesdocument
Dim tmpDir As String, kompressionpath As String
Set profiledoc = source.document.parentdatabase.getprofiledocument( "Userprofile", session.username)
If profiledoc.TempDir(0)= "" Then
tmpDir = "C:\Temp\"
Else
tmpDir = profiledoc.TempDir(0)
End If
If profiledoc.Kompression(0)= "" Then
kompressionpath = "C:\ARJ\arj.exe"
Else
kompressionpath = profiledoc.Kompression(0)
End If
On Error Resume Next
If source.editMode =True Then
If Not MakeDirectory( tmpDir ) Then
Messagebox "Das temporäre Verzeichnis konnte nicht angelegt werden!"
Exit Sub
End If
Dim FileNum As Double
FileNum = Freefile()
Open tmpDir & "X.Bat" For Output As FileNum
Print #FileNum, Left$(tmpDir, 2)
Print #FileNum,"CD\"
Print #FileNum,"CD " & Right$(tmpDir, Len(tmpDir) - 3)
Print #FileNum,"DEL " & tmpDir & "*.arj"
Print #FileNum, kompressionpath & " a -e %2 %1"
Close filenum
End If
End Sub
-
So das war mein Fehler Agen ist in Ordnung .der Fehler liegt bei Clik.Funktion .kann man da was machen?
Sub Click(Source As Button)
Call ViewAttachment("Plot", "plt")
End Sub